to n内旋轮线 rr r d b n
;n内旋轮线 100 200 200 0.5 1
home pu
make t 0 make i_i 360*n make rr_r rr-r
make c_os cos(t) make s_in sin(t) make t_r (rr_r*180)/(r*PI) make rr_t rr_r*t
make co_s cos(rr_t) make si_n sin(rr_t)
make x_x (rr_r*c_os)+(d*co_s)
make y_y (rr_r*s_in)-(d*si_n)
setxy x_x y_y
pd
label lb1
make c_os cos(t) make s_in sin(t) make t_r (rr_r*180)/(r*PI) make rr_t rr_r*t
make co_s cos(rr_t) make si_n sin(rr_t)
make x_x (rr_r*c_os)+(d*co_s)
make y_y (rr_r*s_in)-(d*si_n)
setxy x_x y_y
make t t+b
if t>i_i then [pu home pd stop]
go lb1
end

TO x斜椭圆 a b x y z j;a,b长短半轴x,y中心点坐标z倾斜角度j精度越,小越精确
home pu
make t 0 make i_i 360
make x_x a*(cos(t))*(cos(z))-b*(sin(t))*(sin(z))+x
make y_y a*(cos(t))*(sin(z))+b*(sin(t))*(cos(z))+y
SETXY x_x y_y
pd
label lb1
make t t+j
make x_x a*(cos(t))*(cos(z))-b*(sin(t))*(sin(z))+x
make y_y a*(cos(t))*(sin(z))+b*(sin(t))*(cos(z))+y
SETXY x_x y_y
if t>i_i then [pu home pd stop]
GO lb1
END

TO p判断两直线位置关系 a1 b1 c1 a2 b2 c2
make l_1 (a1=0 and b1=0) make l_2 (a2=0 and b2=0) make l_3 (l_1 OR l_2)
;x和y的系数同时为0的情况
make l_4 (a1=0 and a2=0) make l_5 (b1=0 and b2=0) make l_6 (c1=0 and c2=0)
;x的系数为0(y系数为0已l_3排除)和y的系数为0(x系数为0已l_3排除)时
make z_1 a1*b2-a2*b1 make z_2 a1/a2 make z_3 b1/b2 make z_4 C1/C2 make z_5 a1*a2+b1*b2
if l_3 then [SAY 3 "直线不存在 WAIT 300 STOP]
if l_4 then [make z_2 z_3]
if l_5 then [make z_3 z_2]
if l_6 then [make z_4 z_2]
IF z_1>0 OR z_1<0 THEN [SAY 3 "相交 WAIT 300]
IF z_5=0 THEN [SAY 3 "垂直 WAIT 300 STOP]
IF z_2=z_3 and z_3=z_4 THEN [SAY 3 "重合 WAIT 300 STOP]
IF z_2=z_3 THEN [SAY 3 "平行 WAIT 300 STOP]
END
to l两直线交点 a1 b1 c1 a2 b2 c2
make x ((b1*c2)-(b2*c1))/((a1*b2)-(a2*b1))
make y ((a2*c1)-(a1*c2))/((a1*b2)-(a2*b1))
end
to y圆与直线的交点坐标及弦长 a b r k bb;标准式与斜截式
;y圆与直线的交点坐标及弦长 0 0 100 1 0
;输出x_1,x_2,d
make a_a (k*k+1) make b_b 2*k*bb-(2*k*b)-(2*a) make c_c (bb-b)*(bb-b)+a*a-r*r
make delta b_b*b_b-4*a_a*c_c
if delta<0 then [say 3 "圆与直线无交点 WAIT 300 stop]
make x_1 ((-1)*b_b+(sqrt(delta)))/(2*a_a)
make x_2 ((-1)*b_b-(sqrt(delta)))/(2*a_a)
make y_1 k*x_1+bb
make y_2 k*x_2+bb
if delta=0 then [say 3 "圆与直线有一个交点 WAIT 300 stop]
make d (abs(x_1-x_2))*(sqrt(k*k+1))
END

arcsin(x)=2*(ARCTAN(x/(1+sqrt(1-x*x))));反正弦
arccon(x)=2*(ARCTAN((sqrt(1-x*x))/(1+x)));反余弦
a^x=EXPN(x*(LOG(a)));指数函数
都是一些运算中要用到的

http://blog.sina.com.cn/lzs2099
这里面有非常多非常丰富的内容
我这大多是纯解析分析的,知识面很窄,这个博客就很牛B了知识面很广

to 参数方程旋转 x y z;x原x的参数方程y原y的参数方程
make cz cos(z) make sz sin(z)
make x_x (X-0x)*cz-(Y-Oy)*sz+Ox
make y_y (X-0x)*sz+(Y-Oy)*cz+Oy
END
TO 极坐标转参数 r;r为极坐标方程
make x_x r*sin(thet)
make y_y r*cos(thet)
END

TO z坐标轴 a f j k;a比例尺 f虚线间距 j标注线密度 k数字标注密度
;z坐标轴 100 0 1 1 z坐标轴 10 10 10 20 放大十倍跟百倍是常用的
;z坐标轴 0.001 100000 100000 200000;缩小一千倍标注在十万位比较恰当
;缩小百倍标注万位 缩十倍标注千位
;不放大标注在百位 放大十倍标注在10位 放大百倍标注在个位 大千标0.1 大万标0.01
;小数点前要加一位小数点后就要加一位(放大或缩小到亿位几乎不可能,估计画起来会很卡)
;★↓☆★☆↓★☆↓★☆↓★☆↓另一些参数可以在下面设置★↓☆★☆↓★☆↓★☆↓★☆↓★↓☆↓★☆↓★☆↓★☆↓
make c_c 6 make d_d 6 make e_e 0 make f_f 0 make g_g 6 make x_x 1500 make y_y 750
make h_h 0 SETFONT 黑体 14 1;字体 字号 样式
;c_c虚线的实线长度 d_d虚线的不画线长度 e_e向x方向偏离距离 f_f向y方向偏离距离
;g_g坐标轴标注线长度 x_x(取值范围)x的界限 y_y(取值范围)y的界限 h_h置虚线角度
;★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑★☆↑
IF x_x=0 and y_y=0 THEN [SAY 3 "x,y轴取值范围都为0不好画坐标轴 STOP]
pu home SETW 2 SETALPHA 1 make a_a [] ;置画笔粗细2 置透明度不透明;定义字表
setxy (-1)*x_x 0 pd setxy x_x 0 pu;画x轴
setxy 0 (-1)*y_y pd setxy 0 y_y pu home;画y轴
IF j=0 THEN [setxy -6 0 rt 90 go lb5] IF g_g=0 THEN [setxy -6 0 rt 90 go lb5]
;如果标注线密度=0如果标注线高度=0跳过
label lb1 setxy xcor+a*j 0 if xcor>x_x then [home go lb2] pd fd g_g pu go lb1
;画x正半轴标注线
label lb2 setxy xcor-a*j 0 if xcor<(-1)*x_x then [home lt 90 go lb3] pd fd g_g pu go lb2
;画x负半轴标注线
label lb3 setxy 0 ycor+a*j if ycor>y_y then [home lt 90 go lb4] pd fd g_g pu go lb3
;画y正半轴标注线
label lb4 setxy 0 ycor-a*j if ycor<(-1)*y_y then [setxy -6 0 rt 90 go lb5] pd fd g_g pu go lb4
;画y负半轴标注线
label lb5 setxy xcor+a*k -10 if (xcor+6)>x_x then [make a_a [] setxy -10 0 go lb6]
IF k=0 THEN [go lb9];如果标注数字密度为0跳过
if (xcor+6)/a>100000000 then [make b_b (xcor+6)/(a*100000000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "亿 a_a TT a_a make a_a [] go lb5]
;如果标注数字达到亿位以上换算成亿位,并标注
if (xcor+6)/a>10000 then [make b_b (xcor+6)/(a*10000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "万 a_a TT a_a make a_a [] go lb5]
;如果标注数字达万位以上换算成万位,并标注
if (xcor+6)/a<0.0000001 then [make b_b (xcor+6)/(a*0.00000001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-8 a_a TT a_a make a_a [] go lb5]
;如果标注数字达到小数点后8位上换算成科学计数法,并标注;e-8代表10^(-8)十的负八次方
if (xcor+6)/a<0.001 then [make b_b (xcor+6)/(a*0.0001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-4 a_a TT a_a make a_a [] go lb5]
;如果标注数字达到小数点后4位上换算成科学计数法,并标注;e-4代表10^(-4)十的负四次方
make b_b (xcor+6)/a make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a TT a_a make a_a [] go lb5
;数字标注x正半轴完成
label lb6 setxy xcor-a*k -10 if (xcor+10)<(-1)*x_x then [make a_a [] home go lb7]
if (xcor+10)/a<-100000000 then [make b_b (xcor+10)/(a*100000000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "亿 a_a TT a_a make a_a [] go lb6]
;如果标注数字达到亿位以上换算成亿位,并标注
if (xcor+10)/a<-10000 then [make b_b (xcor+10)/(a*10000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "万 a_a TT a_a make a_a [] go lb6]
;如果标注数字达万位以上换算成万位,并标注
if (xcor+10)/a>-0.0000001 then [make b_b (xcor+10)/(a*0.00000001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-8 a_a TT a_a make a_a [] go lb6]
;如果标注数字达到小数点后8位上换算成科学计数法,并标注;e-8代表10^(-8)十的负八次方
if (xcor+10)/a>-0.001 then [make b_b (xcor+10)/(a*0.0001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-4 a_a TT a_a make a_a [] go lb6]
;如果标注数字达到小数点后4位上换算成科学计数法,并标注;e-4代表10^(-4)十的负四次方
make b_b (xcor+10)/a make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a TT a_a make a_a [] go lb6
;数字标注x负半轴完成
label lb7 setxy 0 ycor+a*k if ycor>y_y then [make a_a [] home go lb8]
if ycor/a>100000000 then [make b_b ycor/(a*100000000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "亿 a_a TT a_a make a_a [] go lb7]
;如果标注数字达到亿位以上换算成亿位,并标注
if ycor/a>10000 then [make b_b ycor/(a*10000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "万 a_a TT a_a make a_a [] go lb7]
;如果标注数字达万位以上换算成万位,并标注
if ycor/a<0.0000001 then [make b_b ycor/(a*0.00000001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-8 a_a TT a_a make a_a [] go lb7]
;如果标注数字达到小数点后8位上换算成科学计数法,并标注;e-8代表10^(-8)十的负八次方
if ycor/a<0.001 then [make b_b ycor/(a*0.0001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-4 a_a TT a_a make a_a [] go lb7]
;如果标注数字达到小数点后4位上换算成科学计数法,并标注;e-4代表10^(-4)十的负四次方
make b_b ycor/a make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a TT a_a make a_a [] go lb7
;数字标注y正半轴完成
label lb8 setxy 0 ycor-a*k if ycor<(-1)*y_y then [make a_a [] home go lb9]
if ycor/a<-100000000 then [make b_b ycor/(a*100000000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "亿 a_a TT a_a make a_a [] go lb8]
;如果标注数字达到亿位以上换算成亿位,并标注
if ycor/a<-10000 then [make b_b ycor/(a*10000) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "万 a_a TT a_a make a_a [] go lb8]
;如果标注数字达万位以上换算成万位,并标注
if ycor/a>-0.0000001 then [make b_b ycor/(a*0.00000001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-8 a_a TT a_a make a_a [] go lb8]
;如果标注数字达到小数点后8位上换算成科学计数法,并标注;e-8代表10^(-8)十的负八次方
if ycor/a>-0.001 then [make b_b ycor/(a*0.0001) make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a make a_a lput "e-4 a_a TT a_a make a_a [] go lb8]
;如果标注数字达到小数点后4位上换算成科学计数法,并标注;e-4代表10^(-4)十的负四次方
make b_b ycor/a make b_b b_b*1000 make b_b ROUND b_b make b_b b_b/1000 make a_a lput b_b a_a TT a_a make a_a [] go lb8
;数字标注y负半轴完成
label lb9
home bk 10 tt "O home new
;上面画完了坐标轴及标注
SETW 1 SETALPHA 0.7 rt 90 setxy (-1)*c_c/2 0;置画笔粗细1 置透明度0.7
label lb10 if ycor>y_y then [setxy (-1)*c_c/2 0 rt 180 go lb11] pd fd c_c pu fd d_d if xcor>x_x then [setxy (-1)*c_c/2 ycor+a*f go lb10] go lb10
label lb11 if ycor>y_y then [setxy (-1)*c_c/2 0 rt 180 go lb12] pu fd d_d pd fd c_c pu if xcor<(-1)*x_x then [setxy (-1)*c_c/2 ycor+a*f go lb11] go lb11
label lb12 if ycor<(-1)*y_y then [setxy (-1)*c_c/2 0 rt 180 go lb13] pd fd c_c pu fd d_d if xcor>x_x then [setxy (-1)*c_c/2 ycor-a*f go lb12] go lb12
label lb13 if ycor<(-1)*y_y then [HOME setxy 0 (-1)*c_c/2 go lb14] pu fd d_d pd fd c_c pu if xcor<(-1)*x_x then [setxy (-1)*c_c/2 ycor-a*f go lb13] go lb13
label lb14 if xcor>x_x then [setxy 0 (-1)*c_c/2 rt 180 go lb15] pd fd c_c pu fd d_d if ycor>y_y then [setxy xcor+a*f (-1)*c_c/2 go lb14] go lb14
label lb15 if xcor>x_x then [setxy 0 (-1)*c_c/2 rt 180 go lb16] pu fd d_d pd fd c_c pu if ycor<(-1)*y_y then [setxy xcor+a*f (-1)*c_c/2 go lb15] go lb15
label lb16 if xcor<(-1)*x_x then [setxy 0 (-1)*c_c/2 rt 180 go lb17] pd fd c_c pu fd d_d if ycor>y_y then [setxy xcor-a*f (-1)*c_c/2 go lb16] go lb16
label lb17 if xcor<(-1)*x_x then [home go lb18] pu fd d_d pd fd c_c pu if ycor<(-1)*y_y then [setxy xcor-a*f (-1)*c_c/2 go lb17] go lb17
;上面从lb10到lb17是画虚线的代码
label lb18 psxy pid e_e f_f PSA pid h_h
home pd
END

字,表是这个程序中的变量存贮的两种格式还有数组,这些都很少用到,因为跟画图不是直接相关的
字可以理解成字符串,在字中不能有英文的+-*/之类的系统默认的运算符,不过可以把它们换成中文的,
"3是一个字,3也是一个字,在这个程序中正数跟字符跟汉字都混称为字,负数也是字,只要不是表的都是字
但是先上代码
make a 3
make b -4
(WORD a b b "存)=3;,,,,,,,,,,,,系统在连接成一个字的时候遇到第一个负号的时候自动舍弃后面的所有内容
(WORD a a b b "存)= 33;,,,,,,这个舍弃的前提是前面的变量是数字
(WORD b b "存 a a) = -4;,,,,,,第一个数字是负数就只要第一个后面不管是什么都不再连接
(WORD "存 a b b)=存3-4-4;,,,第一个是字符后面的负号就不排斥
字在运算时会排斥运算符
所以要避免运算符的出现,把数字当运算符用时要注意有负数的情况
如果必须要用运算符在字里
那么就用中文的make j_ia "﹢ make j_ian "‐ make c_heng "﹡ make c_hu "／

卧槽

不错，软件在哪里下载