CASIOfx-5800PCYT综合曲线坐标正反算程序V21.docVIP

[作者原创] CASIO fx-5800P CYT 综合曲线坐标正反算程序V2.0 说明：本程序适用于卡西欧计算器 CASIO fx-5800P,能进行全线贯通坐标正反算。可计算：交点前直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标及切线方位角,该程序主要针对不对称缓和曲线设计并能直接计算出极坐标放样数据,能通过坐标反推该点里程和距中线距离,是测量员的专用程序。 主程序名：CYT 第1步 50→DimZ：Deg：Fix 6 第2步If J0：Then Goto U：Else Lbl V：＂0=YS：1=XY：-1=DK＂：?J：J=0=Goto B：J0=Goto A：10^(45)→Z[25]：J0=Prog＂CYTFS＂：IfEnd 第3步 Lb1 A：＂JSDK＂?Z：＂W＂?P：＂α＂?Q：Prog＂CYTSJ＂：Goto C：Lb1 B 第4步＂JD(DK)＂?D：＂JD(X)＂?N：＂JD(Y)＂?E：?R：＂LS1＂?S：＂LS2＂?T：＂α＂?A：＂FWJ＂?F：Lbl U：＂0=00＂ 第5步＂1=XY：-1=DK＂：?J：J=0=Goto V：If J0：Then＂JSDK＂?Z：＂W＂?P：＂α＂?Q：Prog＂CYTYS＂：Else 10^(45)→Z[25]：Prog＂CYTFS＂：IfEnd 第6步Lbl C：Prog＂CYTYS＂ 要素子程序名：CYTYS 第1步S^(2)÷24÷R-S^(4)÷2688÷R^(3)→Z[5]：T^(2)÷24÷R-T^(4)÷2688÷R^(3)→Z[6] 第2步S÷2-S^(3)÷240÷R^(2)→Z[7]：T÷2-T^(3)÷240÷R^(2)→Z[8] 第3步90×S÷π÷R→Z[9]：90×T÷π÷R→Z[10] 第4步(Abs(A)-Z[9]-Z[10])×R×π÷180→Z[2] 第5步(R+Z[5])×tan(Abs(A)÷2)+(Z[6]-Z[5])÷sin(Abs(A))+Z[7]→Z[11] 第6步(R+Z[6])×tan(Abs(A)÷2)+(Z[5]-Z[6])÷sin(Abs(A))+Z[8]→Z[22] 第7步(R+Z[5])÷COS(Abs(A)÷2)-R→Z[1] 第8步Z[2]+S+T→L：D-Z[11]→Z[12]：Z[12]+S→Z[13]：Z[13]+Z[2]→Z[15]：Z[12]+L→Z[16]：If J0：Then Goto D：IfEnd 第9步Cls：＂T1=＂：Locate 4,1,Z[11]：＂T2=＂：Locate 4,2,Z[22]：＂E=＂：Locate 4,3,Z[1]：＂L=＂：Locate 4,4,L◢ 第10步Cls：＂ZH=＂：Locate 4,1,Z[12]：＂HY=＂：Locate 4,2,Z[13]：＂YH=＂：Locate 4,3,Z[15]：＂HZ=＂：Locate 4,4,Z[16]◢ 第11步Lbl D：F+180→Z[17]：If Z[17]360：Then Z[17]-360→Z[17]：IfEnd：N-Z[11]×Cos(F)→Z[18]：E-Z[11]×Sin(F)→Z[19] 第12步 F+A→Z[20]：If Z[20]360：Then Z[20]-360→Z[20]：IfEnd：N+Z[22]×Cos(Z[20])→Z[21]：E+Z[22]×Sin(Z[20])→Z[23]：Prog＂CYTZS＂：IfEnd 正算子程序名：CYTZS 第1步Goto 2：Lbl P 第2步＂JSDK＂?Z：＂W＂?P：＂α＂?Q：Lb1 2 第3步 If Z≤Z[12]：Then Goto I：IfEnd：If Z≤Z[13]：Then Goto E：IfEnd 第4步 If Z≤Z[15]：Then Goto F：IfEnd：If Z≤Z[16]：Then Goto G：IfEnd 第5步 If Z≥Z[16]：Then Goto H：IfEnd：Lb1 I：Z[12]-Z→G 第6步Z[18]+G×Cos(Z[17])+P×Cos(F+Q)→X：Z[19]+G×Sin(Z[17])+P×Sin(F+Q)→Y：F→Z[27] 第7步Goto 3：Lb1 E：Z-Z[12]→W：If A0：Then -1→H：Else 1→H：IfEnd 第8步 (Z-Z[12])^(2)÷2÷R÷S×180÷π→Z[26] 第9步 F+Z[26]×H→Z[27]：W-W^(5)÷40÷R^(2)÷S^(2)→Z[28]：W^(3)÷6÷R÷S-W^(7)/336/R^(3)/s^(3)→Z[