5800计算器公路全线坐标正-6页文档资料

1、5800计算器公路全线坐标正、反算计算程序FX5800全线贯穿万能正、反算程序(一体化、超好用、短小、易懂)FX5800计算器的积分程序(正反算、全线贯穿、新线路)终极版ZHUCHENGXUg 序"1.ZS,2.FS" ? fX输入 1正算,输入2反算“NEW=0,O由0" ZIf Z=0:Then "X0= ?A: "丫0= ?B: "C0= ?C: "1/R0= ?D: "1/RI=" ?E: "SP= ?F: "EP=" G:Ifend:Q=2=>Goto 2 一

2、Lbl1 : "KM=,<0 Stop" H:H<0=>Stop: "PJ=" O. "PY=' LLblZ:Z=1=> Prog “01" ： Z=2=> Prog “02一选择数据库文件,可增加H- F- X:0.5(E -D)+(G-F) - NC+(XD+N为*180 + 兀P: P<0=>P+36»P: P>360=>P-360fP-A+/(cos(C+(XD+NX2)*180 + 兀),0,X)+Lcos(P+ Q-U-B+/ (sin(C+(XD+N

3、X 2)*180 + 兀),0,X)+Lsin(P+ Q - V-Q=2=>Goto4: Cls : Fix 3 "Xn=":Locate4 , 1, UI: "Yn=": Locate5 , 2, V： “FWJ二：PDMSNorm 2 ： Cls : Goto1Lbl2: "XD=,<0,STOP ? R: R<0=>Stop: "YD± ? S-“KMDG=? H : 90f Q0-L: GotoZ(H线路范围内的任意桩号)Lbl4:Pol (R-U, S-V) : J<0 => J

4、+360 fJWhileabs (Icos (J-P) <0.001:P -J>180=> J+360f J： P-J<- 180=> P+36AP.If P-J>0:then-IfL.else I f L :Ifend:Goto3: Whileend H+Icos (J-P) -H.GotoZLbl3:Cls : Fix 3 "KM=：Locate4 , 1, H： “PY=' ： Locate4 , 2, LJNorm 2 ： Cls : Goto201 (数据库子程序)If H<崛一曲线终点桩号：then第一曲线起点X-A：第一

5、曲线起点B：第一曲线起点方位角f C:起点曲率fD：终点曲率-E：起点桩号-F：终点桩号-G:return ： ifend程序说明：1、该程序可以计算任意线形直线、圆曲线、缓和曲线、不完整曲线任意桩号的坐标正算,输入1,也可根据坐标计算该点到线路的距离及垂足桩号反算,输入 2;2、NEW=0OL氏0 ?如果要计算的点为数据库线路中的点,那么输入数据库编号以整数1、2、3代替输入；如果在数据库中没有要计算线路的数据,那么输入曲线要素X0:曲线起点X坐标；Y0:曲线起点Y坐标；C0:曲线起点方位角；R0-1、RI-1:曲线起点、终点曲率,直线为 0,曲线左偏输入负值,右偏输入正值；SR EP:曲线

6、起点桩号,终点桩号；KM待求点桩号；PJ:正斜交的设定；PY:偏中距离,线路上的点输入0,右偏输入+值,左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号此桩号越接近真实值计算速度越快、待求点坐标,显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写,计算速度有点慢.5、此程序显示较直观,结果在同一屏幕显示.注 * :程序中乘号用*标示,其余为 X.5800全线任意点设计高程计算,可计算竖曲线范围内外任意点的设计高程！非常实用！“BPDZH=?Z: "GC=H: "R=' R: "I1=" I

7、: "I2= ?L : "T=" ：0.005RAb sI-L-T,“E=" ： T2 +2+RJLbl 0: "JZZH=' -K:Z -Tf A:Z+Tf B:K-KC:B-QD:K-Zf EIf L >I:Then 1-J:Else -1-J:IfEnd 一If K 三 Z:Then I fY:C- G:Else K >Z=>L f Y:D- G: IfEnd?Lbl 1:Fix 3:"H=' ：H+E« 100+JG匕2-FUGoto 0 一说明：BPDZH前变坡点桩号 用变量Z表示

8、H:前变坡点高程R:半径I L :前后纵坡值 输入格式：6.1%输入6.1 ,有负号的要输入负号T:切线长E:竖距JZZH:待求点设计高程的桩号用变量K表示Fix 3 :计算结果保存3位小数5800计算器公路全线坐标正、反算计算程序正算主程序ZSLb1 0FIX4： ?S： ?Z： Prog “PWSJ ： AbsS- O - W： Prog "SUB1" : "XS=" : XJ"YS=": Y, F-90fF需要时可以让他显示,不要时不必输入：Prog “SQX-SJ ：Prog "SQX : "H='

9、 ： HJGoto 0反算主程序(FS)正算子程序(SUB1): (P- R)+(2HPR) - D:180+ 兀-E: 0.1739274226f A:0.3260725774f B :0.0694318442f K :0.3300094782f L : 1- Lf F : 1-2 M:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) - X :V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QE

10、MW(C+M WD) - Y:G+QEW(C+WD)+9CF :X+ZcosF X :Y+ZsinFf Y 反算子程序(SUB2):Abs(Y-V)cosT-(X-U)sin (T) ) - W： 0- Z： Lbl 0 ： Prog "SUB1" ： T+QEW(C+WD) L： (J-Y)cosL-(I- X)sinL f Z： ifAbsZ<1E-6 : thenGotol : ElssW+Z - W Goto 0: IfEnd - :0- Z ： Prog "SUB1" ： (J- Y) + sinFf Z 子程序(平面线形数据库)PM-S

11、JG-90fTLbl 1ifS >500 线元起点里程 AndS< 769.256 线元止点里程：Then19942.837 线 元起点X坐标：28343.561 fV 线元起点Y坐标：500 -O 线元起点里程：125° 16° 31° fG 线元起点方位角：269.265 f H 线元长度：10A 45 - P 线元起点曲率半径：10A 45 -R 线元终点曲率半径：0 -Q 线元左右偏标志：左负右 正：IfEnd <ifS >769.256 线元起点里程AndS< 806.748 线元止点里程：Then19787.34 -U线元

12、起点X坐标：28563.378fV 线元起点 Y坐标：769.256fO 线元起点里程： 125° 16° 31° fG 线元起点方位角：37.492fH 线元长度：10A 45 -P 线元起点曲率半径：221.75-R 线元终点曲率半径：-1-Q 线元左右偏标志：左负右正：IfEnd ifS >8 06.748 线元起点里程 AndS< 919.527 线元止点里程：Then19766.566fU线元起点X坐标：28594.574fV 线元起点 Y坐标：806.748fO 线元起点里程：120° 25° 54.07 °

13、f G 线元起点方位角：112.779 fH 线元长度：221.75 fP 线元起 点曲率半径：221.75-R 线元终点曲率半径：-1-Q 线元左右偏标志：左负右正：IfEnd ifS >919.527 线元起点里程AndS< 999.812 线元止点里程：Then19736.072线元起点X坐标：28701.893 fV 线元起点 Y坐标：919.527fO 线元起点里程：91° 17° 30.63 ° fG 线元起点方位角：80.285fH 线元长度：221.75fP 线元起点 曲率半径：9579.228-R 线元终点曲率半径：-1-Q 线元左右

14、偏标志：左负右正：IfEnd ifS >999.812 线元起点里程：Then19744.038 f U 线元起点 X 坐标:28781.659 f线元起点Y坐标：999.812-0 线元起点里程：80° 40° 50° fG 线元起点方位角： 100fH 线元长度：10A 45 -P 线元起点曲率半径：10A 45 -R 线元终点曲率半径：0 -Q 线元左右偏标志：左负右正：IfEnd -子程序竖曲线数据库SQX-SJifS <999.812 竖曲线终点里程：then0.0357 前坡度：上坡正下坡负 -E: 0.0227后坡度：上坡正下坡负-F:

15、600-R 竖曲线半径：780f G 变坡点里程：110-C变坡点高程：IfEnd 子程序竖曲线计算公式SQXE-FfJ： ifJ >0： then- FHR： ElssRfR: Abs R*J + 2 -T： IfEnd 一ifSWG-T： thenG-Sf L： C-LH： IfEnd 一ifS >G-T And S<G:thenG- Sf L： S+T-G 2+2+FHN：C-LE+N f H：IfEnd -ifS >G And S<G+Tthen S-8L：G+T- S 2+2+FHN：C+LF+N f H：IfEnd -ifS >G+T : thenS- GL： C+LF f H： IfEnd 三、使用说明1、规定(1)以道路中线的前进方向(即里程增大的方向)区分左右；当线元往左偏时,Q=-1;当线元往右偏时,Q=1；当线元为直线时,Q=a(2)当所求点位于中线时,Z=0;当位于中线左侧时,Z取负值；当位于中线中线右侧时,Z取正值.(3)当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替.(4)当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧 的半径.(5)当线元为完整缓和曲