2023年FX5800计算器的积分程序.pdf
FX5 8 0 0 计 算 器 的 积 分 程 序 精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版 ZHUCHENGXU 主程序“1.ZS,2.FS”?Q 输入 1 正算，输入 2 反算“NEW=0,OLD 0”?Z If Z=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=Goto 2 Lbl 1:“KM=,0 Stop”?H:HStop:“PJ=”?O:“PY=”?L Lbl Z:Z=1=Prog“01”：Z=2=Prog“02”选择数据库文件，可增加 H-F X:0.5(E-D)(G-F)N C+(XD+NX2)*180 P：PP+360 P：P360=P-360 P A+(cos(C+(XD+NX2)*180),0,X)+Lcos(P+O)U B+(sin(C+(XD+NX2)*180),0,X)+Lsin(P+O)V Q=2=Goto 4：Cls：Fix 3“Xn=”:Locate 4，1，U：”Yn=”:Locate 5，2，V：“FWJ=”：PDMS Norm 2：Cls：Goto 1 Lbl 2:“XD=,0,STOP”？R：RStop:“YD=”？S“KMDG=”？H：90 O:0 L：Goto Z（H线路范围内的任意桩号）Lbl 4:Pol（R-U，S-V）：J J+360 J While abs（Icos（J-P）0.001:P-J180=J+360 J：P-J P+360 P:IF P-J0:then-I L:else I L ifend Goto 3:Whileend：H+Icos（J-P）H:Goto Z Lbl 3:Cls：Fix 3 习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5“KM=”:Locate 4，1，H：“PY=”:Locate 4，2，L Norm 2：Cls：Goto 2 01（数据库子程序）If H=第一曲线终点桩号：then 第一曲线起点 X A：第一曲线起点 Y B：第一曲线起点方位角 C：起点曲率 D：终点曲率 E：起点桩号 F：终点桩号 G：return：ifend 程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入 1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入 2）；2、（NEW=0，OLD 0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数 1、2、3代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素 X0：曲线起点 X坐标；Y0：曲线起点 Y坐标；C0:曲线起点方位角；R0-1、RI-1:曲线起点、终点曲率，直线为 0，曲线左偏输入负值，右偏输入正值；SP、EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入 0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 5、此程序显示较直观，结果在同一屏幕显示。注*：程序中乘号用*标示，其余为 X。一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序 增加变量 18 DimZ 1.主程序(ZHUCHENXU)“1.SZ XY，2.XY SZ，3.SDYX，4.BIANPO“？N：Lbl 1：”ZHUANGHAO=”?S：Prog“SUB3：N 2=Goto 2：Abs(S-O)W：”BIANZHU=”?Z:Prog“SUB1：Prog”SUB4：“H=”H“XS=”:X X”YS=”:Y Y”FS=”:(F-90)F:F DMS Goto1 Lbl 2：”CX=”?X:X I：”CY=”?Y:Y J：”DMG=”?Z7：Prog“SUB2：“S=”:(O+W)S”Z=”Z Z Z Z17:If N=3:Then Prog”SDYX”:IfEnd：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2.SUB1(正算子程序名)0.1739274226 A:0.3260725774 B 0.0694318442 K:0.330009482 L 1-L F:1-K M G+QEKW(C+KWD)Z1 G+QELW(C+LWD)Z2 G+QEFW(C+FWD)Z3 G+QEMW(C+MWD)Z4 A cos(Z1)X(剩號可省略)X+Bcos(Z2)X X+Bcos(Z3)X X+Acos(Z4)X U+WX X Asin(Z1)Y 习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 Y+Bsin(Z2)Y Y+Bsin(Z3)Y Y+Asin(Z4)Y V+WY Y G+QEW(C+WD)+90 F X+Zcos(F)X Y+Zsin(F)Y 3.SUB2(反算子程序名)G-90 T(Y-V)cos(T)-(X-U)sin(T)W Abs(W)W:0 Z LbI 4:Prog”SUB1 T+QEW(C+WD)L(J-Y)cos(L)-(I-X)sin(L)Z If Abs(Z)1E-6:Then 0 Z rog”SUB1(J-Y)sin(F)Z Else W+Z W:Goto 4:IfEnd 注:1E-6 即是 10 的負 6 次方,亦即是等於 0.000001 輸入時按 SHIFT log(-)6 4.数据库(SUB3)If S226100:Then Cls:Stop:IfEnd If S226255.833:Then 226100 O：99037.9736 U：4282.3590 V：201.3266304 G：1045 P：1045 R：253.543 H：0 Q:Goto 1:IfEnd 习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 If SAnd S236005.651:Then Cls:Stop:IfEnd Lbl 1:1 P C：(P-R)(2HPR)D：180 E：5、曲线主程序:1-E.BG(SUB4)Fix 3:Prog”Z.EBG”:R Abs(D-C)/2 T:if D-C:Then 1 W:Else-1 W:ifend if S:Then Z+IL H:Else Z+IL+W(T-L)2/2/R H:”HS=”:H 曲线数据库:Z.EBG(SUB4-1)if S322.599 And K734.085:Then-0.03309 C:-0.00485 D:6000 R:460A:25.254 Z:goto 1:ifend Lbl 1 C前坡:D后坡:R呵呵,都知道是什么!A变坡点:Z 变坡点设计高 O 从设计高程点处垂直向下的距离:N距设计高程处的平距(若你的设计高程线是路中线的话，请把 0.75 改为 0):J 所求桩号处的横坡.6.边坡放样程序(BIANPO)（SUB6）“QPDJL=”?Z3:“QPDGD=”:Prog“（SUB4）”：H Z4“PG=”?Z5：PTK Z6：“P1=”?Z8：“P2=”?Z9：“P3=”?Z10(没有的话就删)：Z7-Z4 Z11：If 习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 Z11 0 Then AbsZ11 Z11:“T=”：Z11 Else“W=”：Z11 IfEn Z11 Z5 Z12：If Z12 1 Then Z8 Z11 Z13：Else Z8 Z5+Z9 Z5（Z12-1）Z13：IfEnd:AbsZ17-（Z13+Z6 Int(Z12)+Z3）Z14:“BP+C-J=”:Z14 说明：Z3=QPDJL 起坡点离中桩距离 Z4=“QPDGD”起坡点设计标高 Z5=“PG”坡高 Z6=“PTK”平台宽度 Z7=“DMG”实测地面高度 Z8=“P1”一级边坡坡度 Z9=“P2”二级边坡坡度 Z10=“P3”三级边坡坡度(没有的话就删)Z14=“BP+C-J=”边坡超欠挖宽度（+表超，-表欠）三、使用说明 1、规定(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2)当所求点位于中线时，Z=0；当位于中线左铡时，Z 取负值；当位于中线中线右侧时，Z 取正值。(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以 10的 45 次代替。(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右精品好文档，推荐学习交流 仅供学习与交流，如有侵权请联系网站删除 谢谢5 止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明 SZ XY，2.XY SZ，3.SDYX，4.BIANPO N?选择计算方式，输入 1 表示进行由里程、边距计算坐标；输入 2 表示由坐标反算 里程和边距。输入 3 表示隧道圆心放样和计算实测半径；输入 4 表示进行路基边坡放样。4、SUB3数据库说明：S 待求桩号，O=曲线起点桩号，U曲线起点 X坐标，V曲线起点 Y坐标，G曲线起点切线方位角，P 曲线起点半径，R曲线终点半径，H=曲线长度，Q转向（直线 0，左转-1，右转 1）注：本程序是经过本人改编后的，程序起头 3.SDYX可以输入也可不输 习交流数据库子程序第一曲线终点桩号第一曲线起点第一曲线起点第一曲线起点方位角起点曲率终点曲率起点桩号终 计算该点到线路的距离及垂足桩号反算输入如果要计算的点为数据库线路中的点则输入数据库编号以整数代替输入如 率直线为曲线左偏输入负值右偏输入正值曲线起点桩号终点桩号待求点桩号正斜交的设定偏中距离线路上的点输入右
