fx5800计算器的积分程序

FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU 主程序“1.ZS,2.FS” ?Q 输入 1正算，输入 2反算 “NEW=0,OLD 0”?ZIf Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=Goto 2Lbl 1 :“KM=,Stop:“PJ=”?O:“PY=”?LLbl Z: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+NX 2)*180),0,X)+Lcos(P+O)UB+(sin(C+(XD+NX 2)*180),0,X)+Lsin(P+O)VQ=2=Goto 4：Cls：Fix 3“Xn=”:Locate 4，1，U：”Yn=”: Locate 5，2，V：“FWJ=”：PDMSNorm 2：Cls：Goto 1Lbl 2:“XD=,Stop:“YD=”？S“KMDG=”？H ：90O:0L：Goto Z （H 线路范围内的任意桩号）Lbl 4:Pol（R-U，S-V）：J J+360JWhile abs（Icos（J-P）0.001:P-J180= J+360J： P-J P+360P:IF P-J0:then -IL:else IL ifendGoto 3: Whileend：H+Icos（J-P）H:Goto ZLbl 3:Cls：Fix 3“KM=”: Locate 4，1，H：“PY=”: Locate 4，2，LNorm 2：Cls：Goto 201（数据库子程序）If HGoto 2： Abs(S-O)W：”BIANZHU=”?Z:Prog “SUB1：Prog”SUB4：“H=”H “XS=”:XX”YS=”:YY”FS=”:(F-90) F:FDMS Goto1Lbl 2：”CX=”?X: XI：”CY=”?Y: YJ：”DMG=”?Z7：Prog “SUB2： “S=”:(O+W) S”Z=”ZZ ZZ17 :If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22.SUB1(正算子程序名)0.1739274226A:0.3260725774B0.0694318442K:0.330009482L1-LF:1-KMG+QEKW(C+KWD)Z1G+QELW(C+LWD)Z2G+QEFW(C+FWD)Z3G+QEMW(C+MWD)Z4Acos(Z1)X (剩號可省略)X+Bcos(Z2)XX+Bcos(Z3)XX+Acos(Z4)XU+WXXAsin(Z1)YY+Bsin(Z2)YY+Bsin(Z3)YY+Asin(Z4)YV+WYYG+QEW(C+WD)+90FX+Zcos(F)XY+Zsin(F)Y3.SUB2(反算子程序名)G-90T(Y-V)cos(T)-(X-U)sin(T)WAbs(W)W:0ZLbI 4:Prog”SUB1T+QEW(C+WD)L(J-Y)cos(L)-(I-X)sin(L)ZIf Abs(Z)1E-6:Then 0Z rog”SUB1(J-Y)sin(F)ZElse W+ZW:Goto 4:IfEnd注:1E-6 即是 10的負 6次方,亦即是等於 0.000001輸入時按 SHIFTlog(-)64. 数据库(SUB3)If SAnd S236005.651:Then Cls:Stop: IfEndLbl 1: 1PC：(P-R)(2HPR) D：180E：5、曲线主程序: 1-E.BG(SUB4)Fix 3:Prog”Z.EBG”:R Abs(D-C)/2T:if D-C :Then 1W:Else -1W:ifendif S:Then Z+ILH:Else Z+IL+W(T-L)2/2/RH:”HS=”:H曲线数据库: Z.EBG(SUB4-1)if S322.599 And K734.085:Then -0.03309C:-0.00485D:6000R:460A:25.254Z: goto 1:ifendLbl 1C前坡:D后坡:R呵呵,都知道是什么!A变坡点:Z变坡点设计高O从设计高程点处垂直向下的距离:N距设计高程处的平距(若你的设计高程线是路中线的话，请把 0.75改为 0):J所求桩号处的横坡.6. 边坡放样程序(BIANPO) （SUB6）“QPDJL=”? Z3: “QPDGD=” : Prog “（SUB4）”：H Z4“PG=” ? Z5：PTKZ6： “P1=” ? Z8： “P2=” ? Z9：“P3=” ? Z10 (没有的话就删)： Z7-Z4 Z11：If Z110 Then AbsZ11 Z11: “T=”：Z11 Else“W=”：Z11 IfEnZ11Z5 Z12：If Z121 Then Z8Z11 Z13：Else Z8Z5+Z9Z5（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次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10的 45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明SZ XY，2.XY SZ，3.SDYX，4. BIANPON ? 选择计算方式，输入 1表示进行由里程、边距计算坐标 ；输入 2表示由坐标反算 里程和边距。输入 3表示隧道圆心放样和计算实测半径；输入4