最新5800计算器程序汇总

1、5800 计 算 器 程 序精品资料5800计算器程序一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线 型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基 边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法3、高程计算修改，4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改 笔误。0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程 序；4、路基半幅标准宽度查阅程序；5、路

2、基边坡及开挖口放样程序；6、路基 标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠 挖计算程序）运行后按19数子约半秒，则选择1至9的程序，返回时，在桩 号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0 （数子0）1 .主程序：一般坐标计算及放样程序程序名：1XYProg " D» :Prog u QX :90A: " PJ1" ?A:A一B:"PJ2H ?B:A-Z1:B-Z9: Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break: Prog "K&qu

3、ot; : ?D: 0 一L: u L0" ?L:LZ10: Porg " A :Z2+Z1A :A-Z9 一E:I+Dcos(A)+Z10cos(E -X:J+Dsin(A)+Z10sin(E-Y:ProgXYProg u JS" :LpWhile Z w-12 .主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg" Q» :Do: " KM' ?Z:Z=-1=>Stop:Z=-2=>Break: Prog " K :"XO' ?X: " Y0" ?Y:

4、Porg " B" : Prog " ZD' :LpWhile Z w-13 .主程序：任意点高程计算及横坡程序名:3GC仅供学习与交流，如有侵权请联系网站删除谢谢#精品资料Prog" Q» :0 一B: " H-B" ?B: B-Z9: Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog u HI" :Fix 3:" H=" :Lcoate 6,4,H-Z9 : " I= " :Locate 6,4,I: Lp

5、While Z w-14 .主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg" Q» : Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break:- 1 一D:Prog© :L-P: 1 一D: Prog " C :Fix 3:"LGD=' :Lcoate6.4, P : u RGD= :Locate 6,4,L : LpWhile Z w-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg " D» :Prog u QX :0.5 一B:TH-GD

6、?B: BZ7: Do: " KM' ?Z:Z=- 1=>Stop:Z=-2=>Break: Prog " K" : "X。?X:" Y0" ?Y:Z8 一M "MO' ?M:MRZ8: Porg " B" :DP :Prog " © :If D<0:Then 0.75-L-D:ElseL-0.75一D: IfEnd: Prog"H' ：H-0.03- Z8 一G: Prog"Wf :If G>0:ThenGoto T

7、: IfEnd:-G-H:If H>E+F:Then L+M+N+U+C(HE- F)+BF+AE>S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(HE)+A>S:Goto 0: IfEnd:If H<E:Then L+M+HA-S:Goto 0:IfEnd:LbI T:If G>W Then L+Z7+V+J(G- W)+IW> S:Else L+Z7+GI -S:IfEnd:LbI 0:Fix 2: P 一D : Abs ( D) -S- T: " LX=" :Locate 6,4,T : Prog&qu

8、ot;ZD' : " TW=' :Lcoate 6,4,G J LpWhile Z w-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg " DX' :Prog " QX : Do: " KM ?Z:Z=-1=>Stop:Z=-2=>Break: Prog "K" : ?D: Porg " A" :Z2+90 -A :I+Dcos(A -X:J+Dsin(A-Y:ProgXYi :Prog u JS" :Z8 一M:" M。？M:MRZ8:Prog

9、"H' ：” TW= :Locate6,4,H- Z8: LpWhile Z w-17、主程序：桥梁锥坡计算放样程序名：7ZPProg" DX' :Prog " Q;X' : " Z0" ?Z:" LD:Z-,Y+ " ? D:Abs(D) 一R: " LR ?R: AZ7:R Z10:Z 一Z9:Prog ” C :LZ10:Prog " K' :Do:Z10 一Y:L0:SZ+,DZ-" ?Y: Y=-1=>Stop：Y=- 2=>Break:，(

10、Z72 (1-Y2/Z102 ) )X:Z9+Y-Z: Prog " C' : If D>0:Then L+X -D:Else L-XD:IfEnd:Prog " A' : Z2+90 -A :I+Dcos(A -X:J+Dsin(A-Y:ProgXYProg u JS" : LpWhile Y w-18、主程序：由坐标计算方位角及距离程序名：8JSProg " D» :Do:?X: X=-1=>Stop:X=- 2=>Break:?Y:Prog " JS" ： LpWhile X *- 1

11、9、主程序：隧道超欠挖放样计算程序名：9SDProg" DX0.65 一A:" CQHD ?A:A-Z7:Do: " KM ?Z:Z=-1=>Stop:Z=- 2=>Break: Prog " K :"X。?X:" Y0" ?Y:Z8 一M " MG ?M:MRZ8:Porg" B" :DZ9:0 一D:Prog" H' :Prog ” SDT :Z9一D:Z8 一M:Z一X:Rcos(P-C:H+KA:H+-B:C+AE:If M<E:Then R - AS

12、：S=0=>Goto 1： V(S2-(B- A)2)S+Abs(S-T:Abs(D-Q)-T- T: V(T2+(M- B)2)-V- XL:Goto 0:IfEnd:LbI 1: V(D -Q)2+(M-A)2)-R- XL:LbI 0:Fix2: "LX= : Locate 6,4,L:Prog " ZD' : " H0= : Locate 6,4,M -HU LpWhile Z *-110 .交点法正算子程序（A）程序名：AP+ Abs(P-W:O T+n RX Abs(P) + 180+Hk2 - N+ 2-Q:HHC:0一M:If Z &

13、lt;0-T:Then Z- Q->S:G->Z2:Goto 1: IfEnd:If Z <0-T+H:Then Z- Q+T>S:Prog “HX :G+WK>Z2:A -T一A:"E:Goto 2:IfEnd:If Z <Q: Then 180(Z -Q+T-0.5H) +R+H-S : Prog " AB' :A+R(1 - Cos(S一E:B+Rsin(S-A:EB:R一M:G+WSZ2:A -T一A:"E:Goto 2: IfEnd:If Z <Q+N:Then Q+NZ- S:N一H:Prog “HX

14、:G+AE:E-WK>Z2:F - Z A:C- H:Goto 2:IfEnd:Z-Q-N+已 S:G+F Z2: LbI 1:U+Scos(Z2 一 I:V+Ssin(Z2 一 J:Return:LbI 2:U+Acos(E)- WBsin(JI:V+Asin(E)+WBcos(E 一J11 .交点法反算子程序（B ）程序名：B0D:Do:Z+AD:Prog" A" ：Pol(X -I,Y- J+x 10-9:J-Z2一J:Isin(J -S:Icos(J -D:If M w0:Then Pol(M -WS,D:JM! + 18-D:IfEnd: LpWhile A

15、bs(D>.001:Z+D -Z:SD12 .缓和曲线段直角坐标计算子程序(A B)程序名：ABH2+ R+ 24- HA (4) + 2688+ RA (3)+H A (6) + 506880+ RA (5) - HA (8) + 15482880g RA 一A:H+ 2 - HA (3) + 240+ R2+ HA (5) + 34560+ RA (4) - H A (7) + 8386560+ RA (6)+ HA (9) + 315850752g RA (8) - B13 .计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS- SA (5) +40+ R2+ H2+S (9

16、) + 3456+ RA (4) + HA (4)-SA (13) + 599040+ RA (6) + HA (6)+S A (17) + 17547264g RA (8) + HA (8) 一A :SA (3) +6+R+ H -SA (7) + 336+ RA (3) - HA (3)+S A (11) + 42240+ RA (5) + HA (5)-SA (15) + 9676800+ RA (7) + HA (7)+S A (19) + 353009700g RA (9) + HA (9)-B:90S2+ n - R-H-K:If S=0:Then 0 -M:Else RH + S

17、- M:IfEnd14 .高程计算子程序(H)程序名：HProg “S1” ：N-IA:A+Abs(A-W:R<Abs(A+2-T:If Z<C -T:Then G+I(Z-CH:Goto 0:IfEnd:If Z<C+T:Then G -TI+(I+(Z- C+T)W2+R) x (Z-C+RH:Goto 0: IfEnd:N 一I: G+I(Z - CH:ILbI 0:If D=0:ThenH-H:Return:Else Prog"I ” ：H+I(Abs(D) -QH:IfEnd15 .高程超高计算横坡子程序(I )程序名：IProg “I1" ：

18、If S=0:Then M 一I: Return:Else If W=1:Then (N-M)x (Z-C) + S+M>I:Return:Else (3(Z- C) + S)2-2(Z- C) + S) A (3) 乂 (N -M)+MR I:IfEnd:16 .路基宽度子程序程序名：C1-S: Prog"G1' ：Z-CHE:(B-A)E+ S+A>L17:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ5 K: Z6 一L:Pol(X -K, Y-L:IF J<0:ThenJ+36A J:IFEnd:Int(J)+0.01Int(60F

19、rac(J)+0.006Frac(60Frac(J-J: Fix4:" FWJ=' : Locate 6,4,J: Fix 3: "S=" ：Locate 6,4,I/18 .导线点子程序(DX程序名：DXZ5 一K:Z6 一L: "XZ' ？K:" YZ ?L:KZ5:L 一Z619 .线路选择子程序(线路选择输0时。则输曲线参数(QX程序名：QX1 一A:" QX:X1=1,X2=2 ?A:A一Z4:IfA=0:Then ” JDKlM ?O:" JDX ?U:" JDV ?V:" F

20、WJ ?G:" ZJ" ？P:“ LS1" ？H: " LS2' ?N:" T1" ？T:“ T2" ？F:?R:IFEnd20 .线路中线元段判别子程序(K)程序名：KIf Z3=0:Then Return: IfEnd:If Z3=1:ThenProg“X1” ：Ret urn:IfEnd : If Z3=2:Then Prog"X2' ：Return:IfEnd21 .坐标参数矩阵调用程序(F)程序名：FMat F1,1 一O: Mat F1,2 一U: Mat F1,3 一V: Mat F1

21、,4一G: MatF1,5 一P: Mat F1,6一H: Mat F1,7 一N: Mat F1,8 一T:Mat F1,9 一F:Mat F1,10 一R22 .显小子程序程序名：XYF ix 3: "X =" : Locate 6,4, X: " Y =": Locate 6,4, Y :程序名：ZD仅供学习与交流，如有侵权请联系网站删除 谢谢7精品资料Fix 3: " KM = u : Locate 6,4, Z :"D =" : Locate 6,4, D23 .数据子程序（附后示例）匝道线元转交点数据程序（T）程

22、序名：TNorm 2:"QKM ? Z:"XG ? U:"YG ? V:"LSI” ?M "LS2'? O:“A1” ?A: "A2' ?B: "FWJ“？G ” ZJ "？P: ? R:P+ Abs(P-Q:A2+ RHH:H<M=>MH:H- MRS:B2+ RHN:N-O- C:O >N=>O> N:H=0=>X 10-9 一 H:HH X:90S2+ (RHU - K:G-QK> G:N=0=» 10- 9一N: 90C2 + (RNH -

23、 D:P+QK+QDP:Prog" AB' : (H2 -H2) + 24+ R+ sin(Abs(P) - (H A (4) - NA (4) + 2688+ RA (3) + sin(Abs(P)+(HA (6) - NA (6) + 506880+ RA (5) + sin(Abs(P) - (H A (8)-NA (8) -154828800 RA (7) +sin(Abs(P - E:(R+A)tan(Abs(P) +2)+B -JT:N-H:Prog" AB' : (R+A)tan(Abs(P) +2)+B+>F: X-H: Z -S+RO

24、:Prog” HX :U-(A-T)cos(G)+QBsin(G-U:V-(A-T)sin(G)-QBcos(0V:Fix 3: " JDKM= :Locate 6,4,O: " JDX= :Locate6,4,U: " JDY= :Locate 6,4,V: " FWJ= :G ?DM样" ZJ=" P?DM样" LS1=: Locate 6,4,H: " LS2= : Locate 6,4,N: " T1=" ： Locate 6,4,T: " T2=" ： Locat

25、e 6,4,FR= :RJ说明：运行后“ QKM ?输入起点桩号；“ XG ?”YG ?输入起点X、Y坐标；“LS1” ？ “LS2" ?输入前段缓和曲线长度，后段缓和曲线长度；“A1” ？ "A2' ?输入前段缓和曲线参数，后段缓和曲线参数；" FWJ”？输 入起点切线方位角；” ZJ “？输入转角（终点方位角减起点方位角之差，左转 为负，右转为正）；计算结果要素同 QX子程序中要素字母。-1程序名：X1 （线路1坐标计算要素程序）If Z< 241.086:Then -336.478 , 2600441.639, 514392.519, 280。

26、20' 28.78"，203。08' 28.32"，106.667, 81.667, -270.668 , -283.056 ,60 一Mat F:Prog " F” : IfEndIfZ< 273.006:Then 171.67449' 17.2"，68。09' 26.91 ” F:Prog" F" ： Return: IfEn dIf 514799.865, 123。43' 25.9”， 125.273 , 445 一Mat F:Prog ”,2600784.547, 514635.8

27、63, 93.889, 125, 674.184, 771,Z< 466.227:Then 341.96 , 15。 58' 49.5"，0 , 138.211 , :Return: IfEnd58。180 fMat2600664.76,68.954 ,-2程序名：X2 (线路2坐标计算要素程序)仅供学习与交流，如有侵权请联系网站删除谢谢9说明：1、交点法：If Z 0计算交点段终点桩号：Then交点桩号，交点X坐 标，交点Y坐标，起点至交点方位角，交点转角，交点前段缓和曲线长度，交精品资料点后段缓和曲线长度，交点前段切线长度，交点后段切线长度，圆半径 一Mat F:

28、Prog " F" ： Return: IfEnd（转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）如整条线无曲线，全为直线段，则交点为 终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为1,其它全为0。-1程序名：S1（线路1高程竖曲线要素子程序）If Z3=1:Then Goto 1: Else Prog"S2' ： Return: IfEnd:LbI 1:If Z <241.09:Then95.356-C:40.742fG:200gR:-.03155一I:.00812 -N:IfEnd:-2程序名：S2（线路2高程竖

29、曲线要素子程序）If Z <133.601:Then 106 -C:45.12 fG:152AR:-.0064一I:.0298 一N:Return:IfEnd:If Z <466.23:Then 298 -C:50.841 fG:194A R:.0298 - I: -.01968 fN: Return:IfEnd:程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R- 竖曲线半径；I 竖曲线前纵坡；N 竖曲线后纵坡-1程序名：I1 （线路1高程超高参数子程序）0一K:1 一W: If Z4=1:Then Goto 1:Else Prog “I2 ”：Return

30、: IfEnd:LbI1:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <159.419:Then 0 -S:.06 -M: Return:IfEnd:If Z <187.987:Then 28.568 fS:159.419 fC:.06 fM:.02 N:Return:IfEnd:If Z <241.086:Then 0 -S:.02 一M: Return :IfEnd:LbI R:If Z <159.419:Then 0 -S: - .06 一M: Return:IfEnd:If Z <187.987:T

31、hen 28.568 fS:159.419 -C:-.06-M:-.02-N:Return:IfEnd:If Z <241.086:Then 0 -S:. -02-M: Return:IfEnd-2程序名：I2 （线路2高程超高参数子程序）If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <77.872:Then 0 -S:.02 一M:Return:IfEnd:If Z 093.889:Then 16.017 一S:77.872 一C:.02 一M:.05一N:Return:IfEnd:If Z< 198.567:Then

32、 0 -S: .05 一M:Return:IfEnd: If Z <273.006:Then 74.439fS:198.567fC:.05fM:.02-N:Return:IfEnd:If Z<335:Then0S: .02 一M:Return:IfEnd: Z <346.235:Then 11.235fS:335fC:.02 一M:.015一N:Return:IfEnd:Lbl R:If Z < 77.872:Then 0 -S: - .02 一M:Return:IfEnd:If Z <93.889:Then 16.017 一S:77.872 一C: - .02

33、一M:-.05 一N:Return:IfEnd:If Z < 198.567:Then 0 -S: - .05一M: Return:IfEnd: IfZ<273.006:Then 74.439 fS:198.567 -C: -.05-M:-.02-N: Return:IfEnd:IfZ< 335:Then 0 -S: -.02 -M: Return:IfEnd: Z <346.235:Then11.235fS:335-C:- .02 一M:-.015一N: Return:IfEnd:子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0） ;

34、M超高方式参数（W=1为一般直线方式超高，W二功三次抛物线方式超高）；S超高 渐变段距离（不是渐变段则输入 0） ; C-超高渐变段起点桩号（不是渐变段， 无需输入）；M-超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需 输入）。-1程序名：G1（线品& 1路基标准半幅宽度参数子程序）If Z4=1:Then Goto 1:Else Prog"G2' ：Return: IfEndLbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <241.086:Then Z fC:3.5 一A:Return

35、:IfEnd:LbI R: Z <40.857:Then 0 -C:5-A:5.25 一B:40.857 一S:Return:IfEnd:IfZ< 159.419:Then Z fC:5.25 一 A:Return:IfEnd: Z< 187.987:Then<241.086:Then<346.235:Then<466.227:Then159.419fC:5.25 -A:5.5 fB:28.568 一S:Return:IfEnd:If ZZ一C:5.5 一A:Return:IfEnd-2程序名：G2（线品& 2路基标准半幅宽度参数子程序）If D&l

36、t;0:Then Goto L:Else Goto R:IfEnd:LbI L:If Z <466.227:Then Z fC:3.5 一A:Return:IfEnd:LbI R: Z <321.611:Then Z 一C:5一A:Return:IfEnd:If Z 321.611 -C:5-A:5.75 一B:24.624 一S:Return:IfEnd:If ZZ一 C:5.75 一 A:Return:IfEnd子程序中字母表示说明:C宽度渐变段起点桩号（不是渐变段 C=2Z A A宽度渐变段起点宽度；B 宽 度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐

37、变段，无需输入）。-1程序名：SD1（隧道参数子程序）If Z4=1:Then 5.1R:1.8 -A:1.4 -V:1.8 -B:0fQ: 109。01 30” 一 P:Return:IfEnd:If Z4=2:Then 8.75-R:-1.1 -A:4.77 -V:1.47 -B: - .25-Q: 51。28' 57.1 " 一P: Return:IfEnd:子程序中字母表示说明：R隧道上拱半径；A-隧道上拱圆心至设计面高度；V隧道中腰部半径；B- 中腰圆心至设计面高度；Q-设计隧道中线与设计路基中线偏移值，左为负数， 右为正数；P-上部拱跨隧道半幅角度；-1程序名：W

38、1线品& 1路基填挖边坡参数子程序）If Z4=1:Then Goto 1: Else Prog"W2 : Return:IfEnd:LbI 1: 10 一E:10一F:2.6 一M:2一N:2-S:1.5 1:1.75 一J:8 一W:2V:IfD<0:Then Goto L:Else Goto R:IfEnd:LbI L:1 一A:1.25 一B:1.25 一C:Return:LbI R:If Z <110:Then 1.25 -A:1.25 -B:1.5 -C: Return:Else Goto L: IfEnd-2程序名：W2线品& 2路基填挖边坡

39、参数子程序）10一E:10-F:2.6 一M:2一N:2-S:1.5 T:1.75 一J:8 一W:2V:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75 -A:0.75 -B:0.75 一C:Return:LbI R:If Z <445:Then Goto L:Else If Z <506.9:Then 0.25 X（Z- 445）+21.2fQ:.75+Q-A:A 一 B:A 一 C:Return:IfEnd子程序中字母表示说明：A-挖方第一阶边坡边率；B-挖方第二阶边坡边率；C-挖方第三阶边坡边率； E挖方第一阶高度；F挖方

40、第二阶高度；M-挖方路基碎落台及水沟宽度；N 挖方第二台阶平台宽度；S挖方第三台阶平台宽度；I 填方第一阶边坡边 率；J填方第二阶边坡边率；W 填方第一阶高度；V-填方第二台阶平台宽仅供学习与交流，如有侵权请联系网站删除 谢谢11精品资料度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序5BP程序相应增加。再如一标段有坡率及坡高不一样时，可以照其它参数程 序一样，用判别语句。）三、使用说明1、规定（1）坐标计算以交点方式计算，一般情况下一个交点计算一段线是： 直线+缓和曲线+圆曲线+缓和曲线+直线。在匝道中先根据实际线来调整，可以 单独计算一段不完整的缓和曲线+圆曲线。也可

41、以单独计算一段缓和曲线或一段 圆曲线，需先运行T程序整理成交点数据。无缓和曲线时，缓和长度输 00（2）程序中：X 10-9为10的负9次方即0.000000001; 口为圆周率即3.1415926;，为根号；uX=" : X前有空格二个，为了显示效果（3）为了区别字母O及数子0,特把字母0加粗。2、输入与显示说明输入提示部分："A:XY=1, ZD=2 , GC=3 GD=4, BP=5, FM=6, ZP=7, JS=8,SD=9 ?按对应数子键约半秒：1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口 放样程

42、序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算 程序；9、隧道超欠挖计算程序XZ? YZ?为置仪点坐标，第一次运行输一次， 以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需 改，则按确认键。（后附有导线点坐标存储子程序，有兴趣的可加上）“QX:X1=1,X2=2 ?选择经路，坐标计算中输入 0值，变为输入线元段曲线要 素。输1为第一条线路。输2为第二条线路，本程序暂设计实例为 2条线路。KM?正算时所求点的里程（反算输入大概桩号）输入 -1 ,返回输入选择计算 类型，输入-2,返回选择线路。D ?正算时所求点距中线的边距（左侧取负值，右侧取正值，在中线上

43、取零）X0 ?反算时所求点的X坐标（放样程序中实测X坐标）Y0 ?反算时所求点的Y坐标（放样程序中实测Y坐标）显示部分：L0?涵洞放样程序中涵距中心桩号前后距离，前为正，后为负.（即涵洞半幅宽度）M0? 放样程序中原地面标高输入H-B?计算面至路面高差（默认路面为 0）PJ1? PJ2? PJ1为路线中线与边线的右夹角。第二夹角为边线至路前进方向火 角，默认值均为90度.TH-GH边坡放样中填方超放宽值，默认值为 0.5m."LD:Z-,Y+ " ?桥梁锥坡向左右方向边长，左为负数，右为正数。（即为锥坡高程减地面高程后乘以填方坡比）m LR ?锥坡向路线前进或向后退方向边长

44、。Z0" ?锥坡顶边桩号"L0:SZ+,DZ-" ?锥坡放样中，椭圆上分段放样距离，小桩号锥坡输正数，大桩 号锥坡输负数。“CQHD?隧道超欠挖程序中衬砌厚度，默认值为0.5m.QX子程序中和T程序结果中：” " JDKM ?输入交点桩号；“ JDX' ?“JDV ?输入交点X、Y坐标；“FWJ”？输入起点至交点方位角” ZJ “？输入 转角（终点方位角-起点方位角之差，左转为负，右转为正）；“LS1” ？“LS2' ?输入交点前段缓和曲线长度，交点后段缓和曲线长度；“ T1” ？ “T2” ？输入交点前段切线长度，交点后段切线长度；"R' ?圆半径输出部分X=*正算时，计算得出的所求点的 X坐标Y=*正算时，计算得出的所求点的 Y坐标FWJ=*正算时，计算得出的所求点的至置仪点方位角S=* 正算时，计算得出的所求点的至