资源描述：
《修改后5800贺使用的计算机程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、FX5800计算器交点法正反算程序输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离；由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。1、主程序程序名：1XY-KMLbl0：16-DimZ：Norm2:1-A：nZB:l,FS:2H?AA—1—^Goto1*A—2—>Goto2*Lbl1:Z[4]—K:Z[5]-L:“A=”？K:“B=”？L:K-Z[4]:L-Z[5]LblA:PrognZQX”：90一B:”Qn?B:B-Z[1]：LblB:”KM:=O=〉END，=-1:FS，=-2:LISTn?Z:Z=0=>Goto3
2、：Z=-l=>Goto0:Z=-2=>Goto2:PrognZX1”P.Ju，ZP:_D”？D:Prog〃Z":I+DXCOS(Z[2]+Z[1]->X:J+DXSin(Z[2]+Z[l]->Y:Fix4:nX=n:Locate6,4，X:Y=’’：Locate6,4，Y:Prog’’ZJS’’:GotoB:Lbl2：ProgHZQX":”KM”？Z:LblC:PrognZX1n:nXOn?X:X=-l=>Goto0:X=-2=>Goto2:nY0”？Y:Prog”ZX”：Fix4:”KM=”：Locate6,4,Z:”P.Ju=”：Locate6,4，D:GotoC:Lbl
3、3：5800-l=>END”2.交点法正算子程序(Z)程序名：Z(公用)H2+R+24-H八(4)+2688+RA(3)—A:H^2~HA(3)4-240^R2-B:((H2-N2)+24+R+Sin(Abs(P))-((HA(4)-NA(4))+2688+R(3))+Sin(Abs(P->E):(R+A)tan(Abs(P)+2)+B-E->T:P4-Abs(P)->W:0->M:H->C:(R+N2+R+24-NA(4)+2688+RA(3))tan(Abs(P)+2)+N+2-NA(3)+240+R2+E->Z[6]:O-T+nRXAbs(P)+180+H+2-N+2-
4、>Z[7]:IfZ彡0_T:ThenZ-0-S:G^Z[2]:Goto1:IfEnd:IfZ彡0-T+H:Thenz-0+T-S:Prog“ZHX”：G+WK—Z[2]:A~TA:G^E:Goto2:IfEnd:IfZ彡Z[7]:Then180(Z-0+T-0.5H)+R+n-S:A+R(l-Cos(S))—B:H+2-Ha(3)+240+R2+Rsin(S)->A:R-M:G+WS-Z[2]:A-T-A:G-E:Goto2:IfEnd:IfZ彡Z[7]+N:ThenZ[7]+N_Z—S:Z[6]->T:N->H:Prog“ZHX”：G+P-E:E-WK-Z[2]:T-A-A
5、:C-H:Goto2:IfEnd:Z-Z[7]-N+Z[6]〜S:G+P—Z[2]:LbIl:U+Scos(Z[2]卜I:V+Ssin(Z[2]->J:Return:LbI2:U+Acos(E)-WBsin(E—I:V+ASin(E)+WBcos(E->J3.交点法缓和段子程序(HX)程序名：ZHXS-SA(5)+40+R2+H2+S八(9)+3456+R八(4)+H八(4一A:S八(3)+6+R+H-S八(7)+336+R八(3)+H八(3)+S八(ll)+42240+R八(5)+HA(5一B:90S2+n+R+H一K:RH+S->M4.交点法反算子程序(ZX)程序名：ZX
6、(通用)0->D:Do:Z+D^Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]^J:Isin(J一S:Icos(J一D:IfM^0:ThenPol(M-WS,D:Jin+180一D:IfEnd:LpWhileAbs(D)>0.001:Z+D一Z:S一D5.线路选择子程序(线路选择输0时。则输曲线参数(QX)程序名：ZQX1一A:”CANSHUSHURU:A=0,YX=1,ZX=2,QI.D=3,RE.YI.X=4,TONGDA0=5”？A:A-Z[3]:IfA=0:Then”JDKM”？0:”XJ”？U:”YJ”？V:”FW”？G:”LSI”
7、？H:“LS2”？N:“JDZJ”？P:?R:IfEnd程序名：F(ZFS)6.坐标计算参数矩阵调出子程序(F)MatF[l,1]->0：MatF[l,2]-U:MatF[l,3]-V:MatF[l,4]->G:MatF[l，5]—H:MatF[l，6]—N:MatF[1，7]->P:MatF[1，8]->R7：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：ZJSZ[4]-K：Z[5]-L：Pol(X-K,Y-L+.0000000001):J<0=>J+360->J:Int(J)+0.Oll
