《5800计算器全线坐标计算放样程序》由会员分享，可在线阅读，更多相关《5800计算器全线坐标计算放样程序（25页珍藏版）》请在金锄头文库上搜索。
1、5800计算器全线坐标计算放样程序（修改版）“XLZBJSCX” （ 第一个程序） Lb1 0 Cls : Fix 4 : 30Dimz “XHS=?G ( 后视点 X) :YHS=?L ( 后视点 Y) :XZJ=?M ( 置镜点 X) :YZJ=?N ( 置镜点 Y) :Pol(G-M,L-N):DH=:I ( 后视距 ) JJ+360J:FH=:JDMS ( 后视方位角 )Lbl 1 ( If （如果的意思） And （和字的意思） Then （然后的意思） ) “K=”?K （计算里程） ( 下面有色的是数据库 )If （如果） K 51760.052 本曲线 缓直点 桩号 And （
2、 和） K 51048.785 上一个曲线 缓直点 桩号 ： Then （然后） 本曲线 缓直点 桩号 51760.052 Z1 : 上一个曲线 缓直点 桩号 51048.785 Z2 ： 1 -1 O （注： 左偏曲线输 入 - 1O, 右偏曲线输入 1O ） : 偏角 12 23 19.5 A ： 半径 3289.486 R : 第一缓和曲线 长度 0 Z6 : 第二缓和曲线 长度 0 Z7 : 交点 X 坐标 B : 交点 Y 坐标 C : 小里程向交点 方位角 E : 交点向大里程 方位角 F : Goto 2 : IfEnd ( 重兰字是输入的数字 ) （曲线段分段输入） 补充直线段
3、输入如下 If （如果） K Z2 : Then Goto 4 : IfEnd If KZ4 A nd K Z3 : T hen Goto 5 : IfEnd If KZ5 A nd K Z4 : T hen Goto 6 : IfEnd If KZ1 A nd K Z5 : T hen Goto 7 : IfEnd LB1 4 （里程小于直缓点直线独立坐标） K- Z3 X : 0Y : ET : Prog“TYZBCX” ： Goto 1 Lb1 5 （第一缓和曲线独立坐标） K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*R4* Z64) X H3/(6*R* Z6
4、)-H7/(336*R3* Z63) Y 90*H2/( R* Z6) T IF O 0 ： Then T +ET : Else E-T T : T360+TT : IfEnd PRrog“TYZBCX” ： Goto 1 Lb1 6 （圆曲线独立坐标） K- Z4 H H*180/( R*)+ Z14T R*SIN( T)+ Z8X R*(1-COS (T)+ Z10Y IF O 0 ： Then T +ET : Else E-T T : T360+TT : IfEnd Prog“TYZBCX” ： Goto 1 Lb1 7 （第二缓和曲线独立坐标） Z1 -K H H-H5/(40*R2*
5、 Z72)+H9/(3456*R4* Z7 4) U H3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13COS (A)+ Z12-U*COS( A)-V*SIN (A)X Z13*SIN( A)-U*SIN( A)+V*COS (A)Y IF O 0 ： Then F-TT : T360+TT : Else F+T T : IfEnd Prog“TYZBCX” ： Goto 1 子程序： “TYZBCX” （统一坐标计算） （ 第 2 个程序） IF O0 : Then -YY : IfEnd “QXJ=” :T （计算里程点切线方位角，可
6、以不显示） Z16+X*COS (E)-Y*SIN( E)Z18 Z17+X*SIN (E ） +Y*COS (E ） Z19 “XI=” : Z18 （ XI 中线 X ） “ YI =” : Z19 （ YI 中线 Y ） Pol(Z18-M,Z19-N):DI=:I （中桩放样距） JJ+360J:FI=: J DMS （ 中桩放样方位角） “ PJ =”?P ( 输入边桩与线路夹角 PJ ，左偏 90 右 +90 ) “ PD =”?D （输入边桩距 PD ） Z18+D*COS(T+P) Z20 Z19+D*SIN(T+P) Z21 “XP=”: Z20 （ XP 边桩 X ） “Y
7、P=”: Z21 （ YP 边桩 Y ） Pol(Z20-M,Z21-N):DP=:I （边桩放样距） JJ+360J:FP=:J DMS （边桩放样方位角） Return （以上都要输进计算器）注解不输 K 里程 XI 中线 X YI 中线 Y PD 输入边桩距 XP 边桩 X 坐标 YP 边桩 Y 坐标 I 边桩放样距 PJ 输入边桩与线路夹角，左偏 90 右 +90 ) I 中桩放样距 T 计算里程点切线方位角，可以不显示 卡西欧FX5800全线贯通万能正、反算程序FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU主程序1.ZS,2.FS ?Q输入1正算，
8、输入2反算“NEW=0,OLD0”?ZIfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=Goto 2Lbl1 :“KM=,0 Stop”?H:HStop:“PJ=”?O:“PY=”?LLblZ:Z=1= Prog“01”：Z=2= Prog“02”选择数据库文件，可增加H- FX:0.5(E-D)(G-F)NC+(XD+NX2)*180P：PP+360P：P360=P-360PA+(cos(C+(XD+NX2)*180),0,X)+Lcos(P+O)UB+(sin(C+(XD+NX2)
9、*180),0,X)+Lsin(P+O)VQ=2=Goto4：Cls：Fix 3Xn=:Locate4，1，U：Yn=: Locate5，2，V：“FWJ=”：PDMSNorm 2：Cls：Goto1Lbl2:“XD=,0,STOP”？R：RStop:“YD=”？S“KMDG=”？H ：90O:0L：GotoZ （H线路范围内的任意桩号）Lbl4:Pol（R-U，S-V）：J J+360JWhileabs（Icos（J-P）0.001:P-J180= J+360J： P-J P+360P:IF P-J0:then -IL:else IL ifendGoto3: Whileend：H+Icos（
10、J-P）H:GotoZLbl3:Cls：Fix 3“KM=”: Locate4，1，H：“PY=”: Locate4，2，LNorm 2：Cls：Goto201（数据库子程序）If H=第一曲线终点桩号：then第一曲线起点XA：第一曲线起点YB：第一曲线起点方位角C：起点曲率D：终点曲率E：起点桩号F：终点桩号G：return：ifend程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、
11、2、3代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、 RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、 EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。5、此程序显示较直观，结果在同一屏幕显示。注* ：程序中乘号用*标示，其余为X。CASIO fx5800P
