源程序 正算主程序 GSZS

源程序
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