路桥施工测量常用计算-5800正反程序

5800O0数字J-PQX平面数据输入，自行切换到J-5→DimZ:“JD”?A:“JD-X”?B:“JD-Y”?C:“FwJ”?F:“L(α- R(α+)”?O:“R”?R::“LS1”?E:“LS2”?K：E<1=>1÷109→EK<1=>1÷109→KEE÷（24R）-E∧4÷（2688RRR）→Z[1]:E÷2-EEE÷（240RR→Z[2]:(EE-KK)÷(24R)÷sinAbs((O))→X:“T1=”:(R+KK÷（24R）-K∧（2688RRR）)tan(AbsO÷2)+K÷2-KKK÷（240RR）+X→“L=”:Abstan-1((R+Z[1])÷(Z[3]-Z[2])→J:“E=”:(R+Z[1])÷sinJ-R→X◢A-Z[3]→X:X+E→Y:E<1:“ZY=”:X◢“YH=”:Y◢“HZ=”:Prog“J-JSMS”“1-ZS,2-FS”:Lb10:MSZIfZ=1:ThenGotoIfZ=2:ThenGotoLb11:“P”?P:“BZ(m)”?D:“BJ(。)”?WProg“JP”:“X=”:X◢“Y=”:Y◢IfZ=1:ThenGoto1:Goto1:Lb12X”?X:“Y”?Y:“BJ(。WProg“JF”:“P=P◢“BZ(m)=”:D◢IfZ=2:ThenGoto2:Goto0:Lb11:F→J:B-Z[3]cosF→X:C-Z[3]sinF→Y:IfP≤A-Z[3]:ThenA-Z[3]-P→I:-I→M:0→N:F+W→H:Goto5:IfEnd←┚IfP≤A-Z[3]+E:ThenP-A+Z[3]→I:90II÷（REπ）→H:O<0=>-H→HH+W+F→H:Goto3:IfP≤A-Z[3]+L-K:ThenP-A+Z[3]-E→I:Goto4:ElseGoto2:Lb12:B+Z[4]cos(F+O)→X:C+Z[4]sin(F+O)→Y:F+O+180→J:K→G←┚IfP≤A-Z[3]+L:ThenA-Z[3]+L-P→I:90I2÷（RKπ）→H:O>0=>-H→HH+J+W+180→H:Goto3:ElseP-A+Z[3]-L→I:-I→M:0→N:J+W+180→H:Goto5:fEnd┚Lb14: →H:RsinH+Z[2]→M:R(1-cosH)+Z[1]→N:O<0=>-J+H+W→H:GotoLb15:IfP≤A-Z[3]+L-K:ThenO<0=>-N→N:ElseO>0=>-N→N:Goto6:IfEnd←┚Lb16:X+McosJ-NsinJ+DcosH→X:Y+MsinJ+NcosJ+DsinH→YX→U:Y→V:0→D:F-W→J:A+(Y-C)cosJ-(X-B)sinJ→P←┚Lb11:Prog“JP”:H-180→J:(V-Y)cosJ-(U-X)sinJ→IIfAbsI<1÷104:ThenGoto2:ElseP+I→P:Goto1:IfEnd←┚Lb12:(V-Y)÷sinH→D1个主程序，3个子程序。适用于CASIO-5800用户二、程序功能2J-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=>三、计算范围运行主程序J-PQX（平曲线，计算过程如下：显示输入计算结果备注DJ？交点桩号JD-X？交点X值JD-Y？交点YFWJL(α-)，R(α+)R？圆曲线半径LS1LS2T1=前切线T2=后切线L=曲线长度E=外距ZH=ZH桩号HYHY桩号QZ=QZ桩号YHYH桩号HZ=HZZS,2-FSMS12种计算模式供选择，PBZ0BJ90，斜交另输X=X值YYP？BZ？BJ？...运行主程序J-PQX（平曲线运行过程同“1、1-ZS，正算模式”；曲线数据J-JSMS（计算模式）ZS,2-FSMS22种计算模式供选择，X？任意点PXY？任意点PYBJ90，斜交另输P=P点桩号BZ=X？Y？...1J-JSMS计算即可，可2DimZ5以上，否则无法运行该程序。J-PQX(平面数据输入北冰 )Lbl1:FixProg“ZDYS”:M-X→I:N-Y→J:Prog“C”:Cls:Locate1,1,“J=”:Locate4,1,J°:Locate2,“I=”:Locate10,2,I:Locate1,3,