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

CASIO 卡西欧计算器程序网站：http：///blog论坛：http：//适用：CASIO fx-5800PQ Q：２９５１８８３１６ ——若有疑问请至Email：ceo@ [原创] CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.0 说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。包含：交点前直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标及切线方位角,该程序可计算不对称缓和曲线设计并能直接计算出极坐标放样数据,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。 主程序名：CYT 第1步 50→DimZ：Deg：Fix 6 第2步 ＂0=XS：1=XY：-1=DK＂：?Q：＂DK＂?Z 第3步 Q→J：If J=0：Then Prog ＂CYTXS＂：Else If J 0：Then Prog ＂CYTFS＂：Else If J0：Then Lbl 1：＂W＂?P：＂α＂?Q： Prog ＂CYTSJ＂：Prog ＂CYTYS＂：Prog ＂CYTZS＂：IfEnd 第4步 Cls：＂F=＂：Locate 3,1,Z[27]°：＂X=＂：Locate 3,2,X：＂Y=＂：Locate 3,3,Y◢ 第5步 ＂Z(X)＂?U：＂Z(Y)＂?V 第6步 Pol(X-U,Y-V)：If J0：Then J+360→J：IfEnd：Prog ＂CYTSQX＂ 第7步 Cls：＂F=＂：Locate 3,1,J°：＂S=＂：Locate 3,2,I：＂H=＂：Locate 3,3,X◢ 第8步 ＂DK＂?Z：Goto 1 曲线要素子程序名：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] 第9步 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] 第10步 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] 显示曲线要素子程序名：CYTXS 第1步 Prog ＂CYTSJ＂：Prog ＂CYTYS＂ 第2步 Cls：＂T1=＂：Locate 4,1,Z[11]：＂T2=＂：Locate 4,2,Z[22]：＂E=＂：Locate 4,3,Z[1]??＂L=＂：Locate 4,4,L◢ 第3步 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]◢ 第4步 Prog ＂CYT＂ 正算子程序名：CYTZS 第1步 If Z≤Z[12]：Then Goto I：Else If Z≤Z[13]：Then Goto E：Else If Z≤Z[15]：Then Goto F：IfEnd 第2步 If Z≤Z[16]：Then Goto G：Else If Z≥Z[16]：Then Goto H：IfEnd 第3步 Lb1 I：Z[12]-Z→G：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]：Goto 3 第4步 Lb1 E：Z-Z[12]→W：If A0：Then -1→H：Else 1→H：IfEnd：(Z-Z[12])^(2)