casio 5800 cyt综合曲线坐标计算程序

CASIOfx-5800PCYT综合曲线坐标计算程1步50→DimZ2Deg：Fix6第4IfJ=1：ThenGotoA：IfEnd5IfJ=2：ThenGoto6Lb18911步GotoC12Lb11517步Lb1C18POL(N-U,E-19J→F：IFJ<0：Then步＂第23步S÷2-S^(3)÷240÷R^(2)→Z[7](M1：切垂距1、核对结果：129.9824026)步第步＂第步＂第步＂步＂第步＂步＂步＂37F+180→Z[17]：IfZ[17]>360：ThenZ[17]-360→Z[17]：IfEnd(FWJ：交点到直缓方位角、核对结果40F+A→Z[20]：IfZ[20]>360：ThenZ[20]-360→Z[20]：IfEnd(FWJ：交点到缓直方位角、核对结果43IfA<0：Then1→H：Else1→H：IfEnd44步Goto245Lb14749Lb150IfZ≤Z[12]：ThenGotoD：IfEnd51IfZ≤Z[13]：ThenGotoE：IfEnd52IfZ≤Z[15]：ThenGotoF：IfEnd53IfZ≤Z[16]：ThenGotoG：IfEnd54IfZ≥Z[16]：ThenGotoH：IfEnd55Lb1D56IfZ≤Z[12]：ThenZ[12]-第60步＂CZD(X)＂?B(测站点坐标X、输入数值：3378226.731)62POL(X-B,Y-63IfJ<0：ThenJ+360→Z[50]：Else步＂66Goto68IfZ≤Z[13]：ThenZ-Z[12]→W：IfEnd：IfA<0：Then1→H：Else1→H：IfEnd69步(Z-Z[12])^(2)÷2÷R÷S×180÷π→Z[26]71步W-W^(5)÷40÷R^(2)÷S^(2)→Z[28]72第73步＂X=＂：Z[18]+Z[28]×Cos(F)-H×Z[29]×Sin(F)+P×Cos(Z[27]+Q)→X◢(计算结果坐标X、核对结果：第74步＂Y=＂：Z[19]+Z[28]×Sin(F)+H×Z[29]×Cos(F)+P×Sin(Z[27]+Q)→Y◢(计算结果坐标Y、核对结果：76＂CZD(Y)＂?CY、输入数值：456053.721)第77步POL(X-B,Y-C)78IfJ<0：ThenJ+360→Z[50]：Else步＂81Goto82Lb1F(83IfZ≤Z[15]：ThenZ-Z[12]→K：IfEnd：IfA<0：Then1→H：Else1→H：IfEnd84步((Z-Z[12])-0.5×S)÷R×180÷π→Z[32]第步＂8687R×(1-第88步＂X=＂：Z[18]+Z[34]×Cos(F)-H×Z[35]×Sin(F)+P×Cos(Z[33]+Q)→X◢(计算结果坐标X、核对结果：第89步＂Y=＂：Z[19]+Z[34]×Sin(F)+H×Z[35]×Cos(F)+P×Sin(Z[33]+Q)→Y◢(计算结果坐标Y、核对结果：91＂CZD(Y)＂?CY、输入数值：456053.721)第92步POL(X-B,Y-C)93IfJ<0：ThenJ+360→Z[50]：Else步＂96Goto98IfA>0：Then1→H：Else1→H：IfEnd99IfZ≤Z[16]：ThenZ[16]-Z→M：IfEnd100Z[20]+180→Z[42]：IfZ[42]>360：ThenZ[42]-101103M-M^(5)÷40÷R^(2)÷T^(2)→Z[40]104108＂CZD(Y)＂?CY、输入数值：456053.721)第109步POL(X-B,Y-C)110IfJ<0：ThenJ+360→Z[50]：Else步113Goto114Lb1H(115IfZ≥Z[16]：ThenZ-步第119步＂CZD(X)＂?B(测站点坐标X、输入数值：3378226.731)121POL(X-B,Y-122IfJ<0：ThenJ+360→Z[50]：Else步125GotoGoto1Lbl1：If1、QJD(X)=?3378226.731(前