casio 5800p cyt综合曲线坐标正反算程序.pdfVIP

[原创]CASIOfx-5800PCYT综合曲线坐标正反算程序V3.0

说明：本程序适用于卡西欧计算器CASIOfx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。包含：交点前直线段、

第一缓和曲线段、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标及切线方位角,该程序可计算不对称缓和曲

线设计并能直接计算出极坐标放样数据,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。

主程序名：CYT

第1步50→DimZ：Deg：Fix6

第2步＂0=XS：1=XY：-1=DK＂：?Q：＂DK＂?Z

第3步Q→J：IfJ=0：ThenProg＂CYTXS＂：ElseIfJ0：ThenProg＂CYTFS＂：ElseIfJ0：ThenLbl1：＂W＂?P：＂

α＂?Q：Prog＂CYTSJ＂：Prog＂CYTYS＂：Prog＂CYTZS＂：IfEnd

第4步Cls：＂F=＂：Locate3,1,Z[27]°：＂X=＂：Locate3,2,X：＂Y=＂：Locate3,3,Y◢

第5步＂Z(X)＂?U：＂Z(Y)＂?V

第6步Pol(X-U,Y-V)：IfJ0：ThenJ+360→J：IfEnd：Prog＂CYTSQX＂

第7步Cls：＂F=＂：Locate3,1,J°：＂S=＂：Locate3,2,I：＂H=＂：Locate3,3,X◢

第8步＂DK＂?Z：Goto1

曲线要素子程序名：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)→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]：IfZ[17]360：ThenZ[17]-360→Z[17]：IfEnd：N-Z[11]×cos(F)→Z[18]：E-Z[11]×sin(F)

→Z[19]

第10步F+A→Z[20]：IfZ[20]360：ThenZ[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=＂：Locate4,1,Z[11]：＂T2=＂：Locate4,2,Z[22]：＂E=＂：Locate4,3,Z[1]：＂L=＂：Locate

4,4,L◢

第3步Cls：＂ZH=＂：Locate4,1,Z[12]：＂HY=＂：Locate4,2,Z[13]：＂YH=＂：Locate4,3,Z[15]：＂HZ=＂：Locate

4,4,Z[16]◢

第4步Prog＂CYT＂

正算子程序名：CYTZS

第1步IfZ≤Z[12]：ThenGotoI：ElseIfZ≤Z[13]：ThenGotoE：Els