源程序
1.正算主程序 GSZS
"X0"？I： "Y0"？S： "K0"？O： "F0"？G： "KN"？H： "R0"？P： "RN" ？R：”Q(-Z +Y)”？ Q:(P-R)÷(2(H-O)PR)→D：
“K”?K：”L(-Z +Y)”? L:”ANG”? M:
Abs(K-O)→J：Prog"SUB"：
”X=” ?X◢
”Y=”?Y=Y◢
”FWJ=”: F-M→F◢
2. 正算子程序(SUB)
6→DimZ:
0.1184634425→A: 0.2393143352→B: 0.2844444444→Z[1]: 0.0469100770→C: 0.2307653449→E:
G+QCJ(1÷P+CJD)×180÷π→Z[2]:
G+QEJ(1÷P+EJD)×180÷π→Z[3]:
G+0.5 Q J(1÷P+0.5JD)×180÷π→Z[4]:
G+Q(1-E)J(1÷P+(1-E)JD)×180÷π→Z[5]:
G+Q (1-C)J(1÷P+(1-C)JD) ×180÷π→Z[6]:
I+J(AcosZ[2]+Bcos Z[3]+Z[1]cosZ[4]+BcosZ[5]+AcosZ[6])→X:
S+J(AsinZ[2]+Bsin Z[3]+Z[1]sinZ[4]+BsinZ[5]+AsinZ[6])→Y：
G+QJ(1÷P+JD) ×180÷π+M→F：
X+LcosF→X：
Y+LsinF→Y
3. 曲线元要素数据库：DAT
IF K≥O AND K＜H :THEN**→I:**→S:**→O:**→G:**→H:**→P:**→R:**→Q:RETURN:IFEND←┘
IF K≥O AND K＜H :THEN**→I:**→S:**→O:**→G:**→H:**→P:**→R:**→Q:RETURN:IFEND←┘
IF K≥O AND K＜H :THEN**→I:**→S:**→O:**→G:**→H:**→P:**→R:**→Q:RETURN:IFEND←┘
IF K≥O AND K＜H :THEN**→I:**→S:**→O:**→G:**→H:**→P:**→R:**→Q:RETURN:IFEND←┘
……………………………
IF K≥O AND K＜H :THEN**→I:**→S:**→O:**→G:**→H:**→P:**→R:**→Q:RETURN:IFEND←┘
(注：如有多个曲线元要素继续添加入数据库DAT中)
4、M线（坐标正算）组合程序 MG-ZB
Prog”DAT”:Prog”GSZS”
这是根据李正云老师改变的，转帖，因为我遇到的问题和他一样！
运行GSZS按提示输入没有问题，但是运行主程序M线跟运行GSZS一样，数据库达不到应有的效果