Casio fx-5800P计算器程序.zip

文档介绍：[原创] CASIO fx-5800P CYT
说明：本程序适用于卡西欧计算器 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 J>0：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 J<0：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) + S^(6)÷506880÷R^(5)→Z[5]：T^(2)÷24÷R-T^(4)÷2688÷R^(3)+ T^(6)÷506880÷R^(5)→Z[6]
第2步 S÷2-S^(3)÷240÷R^(2)+S^(5)÷34560÷R^(4)→Z[7]：T÷2-T^(3)÷240÷R^(2)+T^(5)÷34560÷R^(4)→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