FX5800计算器交点法正反算程序

1、FX5800计算器交点法正反算程序输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程序名，蓝色为输入计算器里的内容)1、 主程序程序名：1XY-KMLbI 0：7DimZ：Norm 2:1A：A:X,Y=1，KM,D=2?A:A=1=Goto 1:A=2=Goto 2:LbI 1:LbI A:ProgQX:90B:PJ?B:BZ1：LbI B:KM?Z:Z= -1=Goto 0:Z=-2=Goto A: ProgX1:?D: Prog Z:I+DCOS(Z2+Z1X: J+DSin(Z2+Z1Y: ix 3: =：Locate 6,4,： ：Locate 6,4,：Goto B:LbI 2：ProgQX:KM?Z：LbI C: ProgX1: XO?X:X=-1=Goto 0:X=-2=Goto 2: Y0?Y:Prog ZX: Fix 3:：Locate 6,4,：Locate 6,4,Goto C2. 交点法正算子程序(Z)程序名：ZH2R24-H(4)2688R(3)A

2、:H2-H(3)240R2B:（H2-N2）24RSin(Abs(P)-(H(4)-N(4)2688R(3)Sin(Abs(PE:(R+A)tan(Abs(P)2)+B-ET:PAbs(PW:0M:HC: (R+N2R24-N(4)2688R(3)tan(Abs(P)2)+N2-N(3)240R2+EZ6: O-T+RAbs(P)180+H2-N2Z7:If ZO-T:Then Z-OS:GZ2:Goto 1: IfEnd: If ZO-T+H:Then Z-O+TS:Prog “HX”:G+WKZ2:A-TA:GE:Goto 2:IfEnd:If ZZ7: Then 180(Z-O+T-0.5H)RS : A+R(1-Cos(S)B:H2-H(3) 240R2+Rsin(S)A:RM:G+WSZ2: A-TA:GE :Goto 2: IfEnd:If ZZ7+N:Then Z7+N-ZS:Z6T :NH:Prog “HX”:G+PE:E-WKZ2:T-AA:CH:Goto 2:IfEnd: Z-Z7-N+Z6S:G+PZ2: LbI 1:U+Scos(Z2)I:V+Ssin(Z2J:

3、 Return:LbI 2:U+Acos(E)-WBsin(EI:V+ASin(E)+WBcos(EJ3. 交点法缓和段子程序(HX)程序名：HXS-S(5)40R2H2+S(9)3456R(4) H(4A:S(3) 6RH-S(7)336R(3)H(3)+S(11)42240R(5) H(5B:90S2RHK:RHSM4. 交点法反算子程序(ZX)程序名：ZX0D:Do:Z+DZ:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z2J:Isin(JS:Icos(JD: If M0:Then Pol(M-WS,D:JM180D:IfEnd: LpWhile Abs(D)0.001:Z+DZ:SD5线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1A:”QX:？=0，X1=1,X2=2”?A:AZ3:If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”？N：“JDZJ”？P:?R:IfEnd6坐标计算参数矩阵调出子程序（F）程序名：FMat F1,1O: Mat F1,2U: Mat F1,3V:

4、 Mat F1,4G: Mat F1,5H: Mat F1,6N: Mat F1,7P: Mat F1,8R7数据子程序(根据自己标段设计数据修改红色部分)程序名：X1（坐标计算要素程序,暂例子只给二条线路参数）Z3=0=Return:Z3=1=Goto 1:Z3=2=Goto 2:LbI 1:IfZ122269.856:Then 121656.952, 2603848.019, 508351.147, 985322.6,660,300, 414744.1, 1415.097Mat F: Prog”F”: Return: IfEnd:If Z125115.9:Then 123984.982, 2601974.464, 509885.441, 1404106.8,700,400, 393143.7,2800Mat F: Prog”F”: Return:IfEnd:LbI 2:IfZ396.166:Then 213.698, 2600569.493, 514256.323, 2384917.1,107.584,120.474, 643940, 250Mat F: Prog”F”: Retu

5、rn: IfEnd:说明：If Z交点HZ点桩号(或者直线段桩号)：Then交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径 Mat F: Prog”F”: Return: IfEnd:注：转角分正负，左偏为负，右偏为正.加粗O为子母.Z2值为所计算点切线方位角。输入部分：1、A:X,Y=1，KM,D=2?选择正反算，输1为正算，输2为反算；3、”QX:？=0，X1=1，X2=2”? 选择手工输入参数及调入参数，输0则手工输入交点线元参数，输1则调入子程序X1中第一条线路，输入计算第二条线路。4、PJ?路线方向中线向右夹角，默认为90度；5、JDKM？XJ？YJY？FW？LS1？LS2？JDZJ？R？分别输入：交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径6、KM？ 输入计算段任意点桩号（主程序中输-1，返回选择正反算，输-2，返回选择输入选择线路或输入参数.7、D？ 距中桩距离，左负，右正，中桩输0。输出部分：1、X=* 正算时，计算得出的所求点的

6、X坐标2、 Y=* 正算时，计算得出的所求点的Y坐标5、=* 反算时，计算得出的所求点的里程6、=* 反算时，计算得出的所求点的边距CASIO fx5800p全线高程计算程序GAOCHEN主程序Lbl 1“KM=，0,Stop”:?K：KStop:“PY=”？L：Prog”GK”C-DE:Abs(RE/2)T：R(Abs(E)/E)RIfKB-T:Then 0H:Else:IfKB+TThen 0H:DC:Else K-B+TH:Ifend:IfendA-(B-K)C-H2/(2R)G：Cls“KM=”：Locate 4，1，K：Locate10，1，“PY=”：Locate 13，1，L：Fix 3“H=”：Locate 4，2，GProg “PODU”：（E-B）/（D-A）（K-A）+BI：(F-C)/（D-A）（K-A）+CJ“HL=”：G+ILX：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100“HR=”：G+JLY：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100显示中边桩高程Cls

7、：Norm 2：“BM+HS0,Goto 1”？Z：Z0= Goto 1：Cls (输入视线高)“KM=”：Locate 4，1，K：Locate10，1，“PY=”：Locate 13，1，L：Fix 3“QSM=”: Locate 6，2，Z-G (显示中桩读数)“QSL=”: Locate 6，3，Z-X (显示左桩读数)“QSR=”: Locate 6，4，Z-Y (显示右桩读数)Norm 2：Cls：Goto1 （后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉）以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果GK数据库子程序If K第二曲线起点桩号：Then 第一曲线交点高程A：第一曲线交点桩号B：第一曲线前坡C：第一曲线后坡D：第一曲线半径R：Return：Ifend.（有几个变坡点编几个If语句）PODU计算坡度子程序If K第一变（非变）坡段终点：Then 第一曲线起点桩号A：第一曲线起点左坡B：第一曲线起点右坡C：第一曲终点桩号D：第一曲终点左坡E：第一曲终点右坡F： Return：Ifend（每一个超高变化线元一个If语句）结果显示：高程显示KM=0000.000PY=0.000H=00.000 HL=00.000 I=-1.5HR=00.000 I=-1.5读数显示 KM=0000.000PY=0.000QSM=00.000QSL= 00.000QSR=00.000

《FX5800计算器交点法正反算程序》由会员M****1分享，可在线阅读，更多相关《FX5800计算器交点法正反算程序》请在金锄头文库上搜索。