三维我不清楚,二维和单条曲线是很简单的,下面的宏可以画出来场曲
#打印场曲图
nw=nwav()
t=1
x_range=0.1 #输入X轴的范围
GETSYSTEMDATA 1
GIHT=VEC1(15)
DECLARE E1, DOUBLE, 1, 21
DECLARE E2, DOUBLE, 1, 21
DECLARE X, DOUBLE, 1, 21
x_form$ = "%4.2f"
PLOT NEW
PLOT TITLE, "Field curvature"
PLOT TITLEX, "Millimeters"
PLOT TITLEY, "Field"
PLOT RANGEX, -x_range,x_range
PLOT RANGEY, 0, GIHT
PLOT TICK, x_range/5
PLOT FORMATX, x_form$
for i=1,nw,1
for j=0,1,0.05
x(t)=j*GIHT
id1=OCOD("fcgt")
id2=OCOD("fcgs")
E1(t) = OPEV(id1, 0, i, 0, j, 0, 0)
E2(t) = OPEV(id2, 0, i, 0, j, 0, 0)
print I," ",x(t)," ",E1(t)," ",E2(t)
t=t+1
next
PLOT DATA, e1, x, t-1, I, 0, 0
PLOT DATA, e2, x, t-1, I, 1, 0
t=1
next
PLOT GO
|