CASIO5800计算器公路竖曲线全线高程计算程序.doc

《CASIO5800计算器公路竖曲线全线高程计算程序.doc》由会员分享，可在线阅读，更多相关《CASIO5800计算器公路竖曲线全线高程计算程序.doc（25页珍藏版）》请在三一文库上搜索。

1、CASIO5800计算器公路竖曲线全线高程计算程序CASIO5800计算器公路竖曲线全线高程计算程序作者：彭赐明“SQXJSCX”Lb1 1CLs:Fix3“K=”?k(计算点里程输入)Ifk67549.755ANDK66894.3 :Then-0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto2 : IfEndIfk68708.391ANDK67549.755 :Then-0.0048A : -0.00052B : 68494.3S :66.8G : 100000R : Goto2 : IfEndIfk0 : ThenG+(C-K) 2/2/

2、R-L*BH: Goto 5 : Else If W0 : ThenG+(K-D) 2/2/R-L*AH: Goto 5 : Else If W0 : ThenG-(K-D) 2/2/R-L*AH: Goto 5 : IfEnd : IfEndLb1 5H-0.304H(0.304为中心路肩高差)“H=”：HGoto 12008年12月30日晚于郑漯高速谢谢发贴：+38 分 【测量空间】0查看楼主其它文章返回回复内容只查看楼主与本人回复沙发：山西09-1-1 9:42 回Ifk67549.755ANDK66894.3 :Then-0.00052A : 0B : 67394.3S : 67.37

3、G : 600000R : Goto2 : IfEnd命令用的好！2 楼：zcj00709-1-1 11:32 回评：+6 分学习学习,谢谢楼主!3 楼：whx21131409-1-5 10:20 回是全线可以用吗？谢谢了。4 楼：周建09-1-7 15:14 回评：+10 分非常好用,谢谢.怎么加超高进去呢5 楼：z_b1986101109-1-28 15:34 回Ifk本段竖曲线终点里程ANDK前一竖曲线终点里程 :Then-0.0048前坡（大里程向）A : -0.00052后坡（小里程向）B : 68494.3竖曲线交点里程S :66.8交点高程G : 100000曲率半径R : Go

4、to2 : IfEnd这段又怎么输啊谢谢6 楼：z_b1986101109-1-28 15:36 回Ifk本段竖曲线终点里程ANDK前一竖曲线终点里程 :Then-0.0048前坡（大里程向）A : -0.00052后坡（小里程向）B : 68494.3竖曲线交点里程S :66.8交点高程G : 100000曲率半径R : Goto2 : IfEnd这段又怎么输啊谢谢7 楼：哈哈明09-1-29 9:31 回评：+6 分不错，可惜没加入横破8 楼：youdonghuang09-3-3 20:49 回If KC : ThenG-L*B H : Goto 5 : Else If KS : Then

5、Goto3 : Else If KD : ThenGoto4: IfEnd : IfEnd : IfEnd这个命令用得不错9 楼：loco00109-3-6 21:31 回谢谢楼主帮忙转换成5800 万分感谢GAUSSLE坐标正反算fx4850程序（修改）源程序1.正算主程序GSZSIX0：SY0：OK0：GF0：HKN：PR0：RRN：Q”Q(-Z+Y)” :D=(P-R)(2(H-O)PR)：KL”L(-Z+Y)” :M”ANG(YJJ)”=90:（注：此处若不给M赋值，则可计算斜交点）J=Abs(K-O)：ProgSUB1：”FWJ=”:F=F-M:”X=”:X=X:Pause0: ”Y

6、=”:Y=Y2. 反算主程序GSFSXY：Z2=X：Z3 =Y：IX0：SY0：OK0：GF0：HKN：PR0：RRN：Q”Q(-Z+Y)” :D=(P-R)(2(H-O)PR):J=Abs(Y-S)cos(G-90)(X-I)sin(G-90)：L=0：M”M(YJJ)”=90:Lbl 0：Prog SUB1：L=(Z3-Y)cos(G-90+QJ(1P+JD)180)-(Z2-X)sin(G-90+QJ(1P +JD) 180)：AbsLGoto1：J=J+L：Goto 0Lbl 1：L=0：Prog SUB1：L=(Z3-Y)sinF:”K=”:K=O+J:Pause0:”L=”:L=L

7、3. 正算子程序(SUB1)Defm 4:A=0.1184634425:B=0.2393143352:Z4=0.2844444444:C=0.0469100770:E=0.2307653449:Z1=0.5:X=I+J(Acos(G+QCJ(1P+CJD)180)+Bcos(G+QEJ(1P+EJD)180)+Z4cos(G+QZ1J(1P+Z1JD)180)+Bcos(G+Q(1-E)J(1P+(1-E)JD)180)+Acos(G+Q (1-C)J(1P+(1-C)JD) 180):Y=S+J(Asin(G+QCJ(1P+CJD)180)+Bsin(G+QEJ(1P+EJD)180)+Z4

8、sin(G+QZ1J(1P+Z1JD)180)+Bsin(G+Q(1-E)J(1P+(1-E)JD)180)+Asin(G+Q (1-C)J(1P+(1-C)JD) 180)：F=G+QJ(1P+JD) 180+M：X=X+LcosF：Y=Y+LsinF4. 曲线元要素数据库：DAT-MKO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*：Pause0KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*：Pause0 KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*： Pause0KO=KH= I=*:S=*:O=*:

9、G=*:H=*:P=*:R=*:Q=*： Pause0KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*： Pause0 KO=KH= I=*:S=*:O=*:G=*:H=*:P=*:R=*:Q=*： Pause0(注：如有多个曲线元要素继续添加入数据库DAT-M中)5、M线（坐标正算）组合程序MG-ZBProg”DAT-M”:Prog”GSZS”6、M线（坐标计算放样）组合程序MG-FYProg”MG-ZB”:Prog”LTKZD”: Prog”FY”7、M线（坐标反算）组合程序M-GSFBProg”DAT-M”:Prog”GSFS”放样程序FYU”XJ”:V”YJ

10、”:W”XH”:Z”YH”:XY:I=W-U:J=Z-V:Pol(I,J):JJ=J+360“HSJL=”:IO”HF”=J:X=0=U=U+LCos(J+P”):V=V+LSin(J+P”):”X=”:U:Pause0:”Y=”:V:I=X-U:J=Y-V: Pol(I,J):JJ=J+360:H”QF”=J:J=H-O:JJ=J+360:“ANG=”:JDMS （该处不输Pause0语句亦可实现“ANG=”和“QSJL=”的同时出现）“QSJL=”:I控制点数据库LTKZDA=21:B=22:C=23:D=24:E=25:F=26:G=27:H=28:I=29T “ZJDH”:T=11=U

11、=*:V=*T=12=U=*:V=*T=13=U=*:V=*T=15=U=*:V=*T= 4 =U=*:V=*T= A=U=*:V=*T= B=U=*:V=*T= C=U=*:V=* (注：如有多个控制点继续添加入数据库LTKZD中)N “HSDH”:N=11=W=*:Z=*N=12=W=*:Z=*N=13=W=*:Z=*N=15=W=*:Z=*N= 4 =W=*:Z=*N= A=W=*:Z=*N= B=W=*:Z=*N= C=W=*:Z=* (注：如有多个控制点继续添加入数据库LTKZD中)组合程式LTFYProg ”LTKZD”: Prog ”FY”10 楼：lmhgll09-3-10 7

12、:44 回Lbl 0A,CPol(A-B,C-D)X=I COS(F-(J+360)+KY=I SIN(F-(J+360)GOTO 0楼主：帮我改为5800程序好吗？ 谢谢11 楼：彭赐明 楼主 09-3-10 22:34 回Lbl 0？A:?B:?C:?D:?F:?K:Pol(A-B,C-D：I COS(F-(J+360)+KX:I SIN(F-(J+360)Y:X=:XY=:YGOTO 0这是个什么程序？12 楼：lmhgll09-3-11 7:3 回直线反算13 楼：lmhgll09-3-11 7:22 回大哥 还是不行啊我的 这个程序是这样的A,C为直线外任意点坐标X，Y。 B,D为起

13、算点X Y.F为起算点方位角， K为起算点里程。输出的是任一点的里程和偏距，每次重复算的话只用输入变量A,C。 刚才我试验了 ，不行啊麻烦你再给我修改修改好吗？14 楼：彭赐明 楼主 09-3-11 12:41 回Lbl 0?B:?D:?F:?KLbl 1?A:?C:Pol(A-B,C-D：I COS(F-(J+360)+KX:I SIN(F-(J+360)Y:X=:XY=:YGOTO1试试这个15 楼：lmhgll09-3-11 16:53 回高手就是高手再麻烦你把这个业给修改下吧LBL 0A,CPOL(A-B,C-D)R/180pX=G+（E-J）Y=I-RGOTO 0这个是计算圆外任意点

14、反算里程的。谢谢了16 楼：jiaomin668809-3-11 22:35 回评：+10 分你的程序确实简捷，好用，请问竖曲线直线段高程该怎么办？17 楼：彭赐明 楼主 09-3-12 15:28 回Ifk”X=”:X“Y=”:Y=Res(S,M+W:”X=”:X=X+I“Y=”:Y=Y+J4Z=0:KN=Z=180P=cosZ5X=A+I:Y=B+J6Fixm:Pol(C-A,D-B:F=J9K=N:A=C:B=DXO=RUL:X=L-L340O2+L53456O4-L7599040O6:Y=L26O-L4336O3+L642240O5-L89676800O7HU=0=U=1Prog“4”

15、:Prog“6”:L=P(V-K:H=0:PV.5P(K+N=L=P(N-V:H=180:F=F+180Q(N-K-PU)R+HRec(T,F:E=C-I:G=D-J:L0=Rec(L,F:M=F+Z+H:O=1M:Goto2LU=Prog“X”:Pol(X,Y:Rec(I,F+PQJcosH:M=F+90PQLcosHO+Z+H:Goto2J=45(2L-U)R:I=45UR:M=F+2PQJcosH+Z+H:L=U:Prog“ X”:Rec(2Rsin(J-I,J+I:X=X+I:Y=Y+J:Pol(X,Y:Rec(I,F+PQJcosH:Lb1 2:X=E+I:Y=G+J注：1M为兆，非

16、字母M。SE=1:AB=E=-1T=.5RAbs(A-B:M=A:VC=M=BAbs(V-CT=H=D+M(V-C:=G=V-C+T:H=D-AT+Gtan(tan-1A+90EGRFM=R(N-K)(H-R:U=N-K+M:L=M:Prog“X”:E=X:G=Y:L=U: Prog“X”:Prog“6”:Z=I:Pol(X-E,Y-G:Z=ZI:F=F-QJ:V=K=V=K+1L=V-K+M:Prog“X”:Pol(X-E,Y-G:Rec(ZI,F+QJ:M=F+90QLO：Prog“5”ZProg“4”:Prog“6”:M=F+Z:Rec(V-K,M:Prog“5”:O=R:Q=1YPro

17、g“6”:Prog“4”:E=F-90Q(N-K)R+Z:G=90Q(V-K)R :Rec(2QRsinG,E+G:M=E+2G:Prog“5”:O=RP（示例：邵永主线K75+000-K79+000曲线要素）K=74313.432:N=75179.345:A=46406.164:B=502972.701:C=44328.424:D=503450.285:U=0:T=433.709:R=6k:Q=-1: VN= Prog“H”:Goto2Prog“9”:K=76243.835:N=77279.84:C=42443.746:D=504181.828:U=245:T=523.475:R=2k: V

18、N= Prog“H”: Goto2Prog“9”:K=78285.572:N=79751.194:C=40803.713:D=505758.66:U=266.667:T=745.899:R=2400:Q=1: VN= Prog“H”: Goto 2Lbl 2G（竖曲线要素）A=.01:B=-13m:C=75740:D=168.99:R=20:V75800=Prog“S”:Goto1A=B:B=5m:C=77100:D=151.31:R=15k:V77400=Prog“S”:Goto1A=B:B=-16m:C=77700:D=154.31:R=16k:V78k=Prog“S”:Goto121 楼

19、：刘发刚09-3-26 22:56 回评：+10 分谢谢楼主分享这么好的东东！很好用！我想请教楼主：你给的是一条线的竖曲线，假如有两条线或者更多的竖曲线，怎么办？就是我想在进程序之前先判断是那条线，然后才开始计算！这个程序怎么编？可否写出来，谢谢楼主，急用，和一个同事学测量，研究了几天，他会4850，但是对5800较为生疏，望楼主帮助解决为谢！感激不尽！22 楼：彭赐明 楼主 09-3-27 11:2 回最简单的方法是各搞各的，每条线编一个程序如果要搞到一起程序要做比较大的改动，增加一个LB1 0“I(1,2,3,4)=”?I(将I设为转向输入，第一条输入1，依次类推）IFI=1(第一条线转向

20、）：THENGOTO A:IFENDIFI=2(第二条线转向）：THENGOTO B:IFEND（有几条线就有几个以上判断）将LB1 1改为LB1A（此项语句输入第一条线的数据）,其它不动增加第二条线语句为LB1 B(此项语句输入第二条线的数据），依此类推第三条线增加LB1 C语句等等，完成各条线的数据输入，线路长路线多的话线路数据输入工作量就比较大了在LB15中将GOTO1 更改为GOTO023 楼：刘发刚09-3-27 13:2 回太感谢了，楼主！太感谢了，有什么不懂再向你请教！我先试试看！24 楼：刘健康09-3-27 14:20 回感谢楼主！可以了，非常感谢，可以用了，谢谢！还有一个问

21、题还想请教你一下：假如用prog，该怎么嵌套，假如用prog是不是更方便？25 楼：彭赐明 楼主 09-3-27 18:53 回子程序也可以用，将IFI=1(第一条线转向）：THENGOTO A:IFEND改成IFI=1(第一条线转向）：THENPROGA:IFEND,其余类似，将LB1A 语句内容在此程序里删除，改为在子程序A里输入，子程序A中GOTO2改为PROG 2:RETURN:,其余类似，将LB1 2/3/4/5换成一个子程序2,在LB15中将GOTO1 更改为RETURN,比较麻烦,有人会觉得方便，看你怎么用26 楼：刘健康09-3-28 12:51 回楼主真好，太厉害了！我再试试

22、看27 楼：刘健康09-3-28 12:52 回怎么加你为好友啊？有什么不懂的向你学习请教？28 楼：z_b1986101109-3-29 9:33 回我输了和那个中桩坐标计算的一样,有出入啊29 楼：lmhgll09-3-29 11:22 回再麻烦你把这个业给修改下吧LBL 0A,CPOL(A-B,C-D)R/180pX=G+（E-J）Y=I-RGOTO 0这个是计算圆外任意点反算里程的。30 楼：z_b1986101109-3-29 15:4 回我想问一下老师 最后一句的H-0.304H(0.304为中心路肩高差)无论在那个线路中都能用吗还是只能用于你的那个曲线31 楼：彭赐明 楼主 09

23、-3-29 17:21 回0.304是这个鬼河南郑漯高速加宽的中心路肩高差，并且这条线没有超高和加宽，你的线路中心路肩高差高差是多少就输多少，在这里还可以修改为根据输入横坡和半幅宽度求出路肩高的，或者显示多个节点部位的高程，修改比较简单32 楼：z_b1986101109-3-30 7:50 回老师我把我们的线路上的曲线输了然后计算出来的高称是对的那是在曲线内是正确的,可是两条曲线中还有一段直线,不是说曲线接曲线,而是曲线接直线再接曲线,在接直线再接曲线,算直线的就不对了,请问能不能想想无论怎么样谢谢老师了 33 楼：z_b1986101109-3-30 7:51 回恩知道了 谢谢34 楼：z

24、_b1986101109-3-30 7:53 回评：+6 分H-0.304H(0.304为中心路肩高差也就是说这个梢是修改就可一进行边桩高称.或是其他部位的高称 谢谢了35 楼：彭赐明 楼主 09-3-30 10:10 回看17楼回复36 楼：刘健康09-3-30 11:2 回楼主你好，我是前几天向你请教那位小弟，现在把你给我说的程序输入了计算器，方法是：利用子程序来计算竖曲线高程，也就是利用PROG来嵌套进行计算，但是我把程序输入计算器以后，出现语法错误（具体为：竖曲线1、2、3出现语法错误，X任意竖曲线只循环到N和K，下面的程序就运行不下去）。其中字母意义：N线路编号：K为里程：B为第一纵

25、坡：C为第二纵坡：V为顶点里程；U为顶点高程：R为半径，M为边距，I为横坡。望楼主帮帮小弟看看下面的程序，有什么不妥的地方，感激不尽！主程序：SQX“N=”?N:“K=”？KIF N=1:then Prog“1”: IFend/ IF N=2:then Prog“2” IFend/ 依次类推 IF N=X(任意竖曲线)：then“I1=”？B:“I2=”？C:“JD-K=”？V:“R=”？R:“JD-H=”？U: Prog “ SQX 1”: RETURN: IFend/子程序：SQX 1B-CF:F/AbsFA:ARF/2T:RF2/8E: IF KV-T:then B(K-V)+UH： G

26、OTO 1: ELSEIF KV-T And KV: then B(K-V)+U-A(T+K-V) 2 /(2R) H : GOTO 1: ELSE IF KV And KV+T: then B(K-V)+U-A(T+K-V) 2 /(2R) H :GOTO 1: ELSE IF KV+T: then C(K-V)+UH : GOTO 1 :IFend:IFend :IFend :IFend / LBI 1“H=”：H H+MIP：“Hn=”：PRETURN子程序：1IF K2400 And K2577.228:then -0.002B:0.003277C:5000R:2400V;26.465

27、U : Prog” SQX 1”:IFend/子程序：2IF K2600 And K3030:then 0.003277B:0.011C:5000R:2760V;27.57U: Prog” SQX 1”:IFend/IF K3030 And K3100:then 0.011B:0.003C:5000R:3050V;30.76U :Prog” SQX 1”:IFend/备注;我只输入2条竖曲线的要素，我想编一个公用的竖曲线高程计算程序，也就是任意竖曲线。37 楼：彭赐明 楼主 09-3-30 11:22 回你的理解修改很好，问题在这里：IF K2400 And K2577.228:then -0

28、.002B:0.003277C:5000R:2400V;26.465U : Prog” SQX 1”:IFend/改为IF K2400 And K2577.228:then -0.002B:0.003277C:5000R:2400V;26.465U : Prog” SQX 1”:RETURN:IFend试试看，每句都要加RETURN:38 楼：刘健康09-3-30 11:33 回你好，谢谢帮忙。我刚加了，但是还是不行，运行语法错误。还有假如是任意条竖曲线的情况，为什么运行到K就运行不下去了39 楼：彭赐明 楼主 09-3-30 11:48 回可以把“K=”？K移到子程序1、2中试试，另外要仔细

29、研究子程序SQX 1是否有问题40 楼：刘健康09-3-30 11:55 回请问楼主：在子程序SQX1中 我连续用了4个else，这种语法可行否？41 楼：彭赐明 楼主 09-3-30 12:4 回不会，说明书规定不得多于10个42 楼：刘健康09-3-30 15:4 回楼主你好啊，你得帮帮小弟我啊，我弄了1天了，实在是不知道错在哪里，我觉得是对，但是运行不来。你再帮小弟看看。43 楼：彭赐明09-4-1 16:30 回也许你的子程序SQX1有问题44 楼：liaohongshao09-4-7 15:50 回谢谢楼主希望能将以下4850程序转换成5800程序，万分感谢！SJG主程序 Defm

30、6:Lbi 0:S“BM+HS”（视线高）:E“LGP”（路拱坡度）:V“JGC”（结构层厚度）: B:B“K”（查询桩号）:Prog“SQ”:T=RAbs(P-N) 2:X=1:NP=X=-1BZ1=0:Z2=N: BZ1=1:Z2=N: BZ1=1:Z2=P: Z1=0:Z2=PW:W“ZBJ”（中桩到边桩的距离）:Prog“YD”:Goto 0YD引导程序B 不设超高的路段终点桩号= Prog“G1”: B设置超高的路段终点桩号= Prog“XZ”：以此类推（有几个就有几个）SQ竖曲线数据库B下一竖曲线起点桩号=H（本曲线变坡点高程）：Y（变坡点桩号）：R（竖曲线半径）：N（前纵坡坡度）

31、：P（后纵坡坡度）： B下一竖曲线起点桩号=H（本曲线变坡点高程）：Y（变坡点桩号）：R（竖曲线半径）：N（前纵坡坡度）：P（后纵坡坡度）：（有几个就有几个）XZ平曲线数据库B=A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点 桩号）:Z（加宽值）:F=1(旋转方式：+1中轴旋转、-1边轴旋转):Z5= 1（路线弯向：+1右转、-1左转）: B=A（直缓点桩号）:D（超高坡度）:L（半幅路面宽）:G（圆缓点桩号）:O（缓直点 桩号）:Z（加宽值）:F=1(旋转方式：+1中轴旋转、-1边轴旋转):Z5= 1（路线弯向：+1右转、-1左转）：C=O-G: Goto

32、1（有几个就有几个）Lbi 1:F=1 = Prog“ZZXZ”: F=-1 = Prog“BZXZ” ZZXZ中轴旋转横坡计算Lbi 0:M=Abs(B-A)ZC: Abs(B-A) Abs(G-A) =A=O: A=AI=Abs(B-A)(E+D) C-E:IE=Goto 1: ID=Goto 2: Goto 3Lbi 1:J=I:K=E: Prog“G2”: Goto 4Lbi 2:J= AbsI:K= AbsI: Prog“G2”: Goto 4Lbi 3:J=D:K=D: Prog“G2”: Goto 4Lbi 4BZXZ边轴旋转横坡计算Lbi 0:Q=2E(E+D)C:M=Abs(

33、B-A)ZC: Abs(B-A) Abs(G-A) =A=O: A=AAbs(B-A) Goto 1: Abs(B-A) Goto 2: Goto 3Lbi 1: J=(Abs(B-A) 2EQ-E:K=E: Prog“G2”: Goto 4Lbi 2: J=(Abs(B-A)-Q)(D-E) (C-Q)+E:J=AbsJ:K=AbsJ: Prog“G2”: Goto 4Lbi 3: J=D:K=D: Prog“G2”: Goto 4Lbi 4G1不设超高的高程计算W=AbsW:Z3=H-V-Z2(Y-B)+Z1X(T-Abs(Y-B)2(2R)-WE:Z6=S-Z3: “SJG=”:Paus

34、e 0: “SJQS=”:Z6 G2设置超高的高程计算J=D=M=Z: M=MZ5=1= Goto 1: Z5=-1 = Goto 2Lbi 1:WZ4=J: W0=Z4=-K: Goto 3Lbi 2: WZ4=-K: W0=Z4=J: Goto 3Lbi 3:Z3=H-V-Z2(Y-B)+Z1X(T-Abs(Y-B)2(2R)-WZ4:Z6=S-Z3: “SJG=”:Z3:pause0: “SJQS=”:Z6 说明：一、输入部分选择主程序。按EXE键1、 BM+HS?-输入仪器视线高 按EXE键2、 LGP？-输入路拱坡度 （1.5输入正值 .015） 按EXE键3、 JGC?-输入结构层

35、厚度 按EXE键4、 K？-输入放样桩号 按EXE键5、 ZBJ?-输入中边距离（左输负、右输正、中桩输0）按EXE键二、显示部分SJG=显示待测点的设计高程SJQS= 显示待测点设计高程和仪器视线高的差（设计前视）三、连续操作重复输入部分的第4、5步，即可完成整个路段的连续计算及放样工作！45 楼：28122706309-4-21 13:7 回彭老师：我在书上抄了一个程序，这个程序是计算任意竖曲线高程的，计算时需要输入竖曲线的各项参数，但是不知道哪里有问题，总算来合不上，请帮忙修改一下，谢谢老师程序名：SQFDJC“Q”?Q:“Z”？：“”？：“”？：“”？：“”：Abs(R(I+J)2T0

36、M“H”?H:Lbl 1:M+1M:If M=1:Then TIB:Else TJB:IfEnd:“A=”:H-BA“K”?K:“D”?D:0N:Lbl 0:N+1N:“S”?S:IfSZ And KZ:Then-SS:-KK:IfEnd:IfSZ And Abs(K)Z:Then-SS:IfEnd:H-AP:S-K:“HP=”:A+PT+Q(2RNGoto:MGoto1:“K”T:竖曲线的切线长； R：竖曲线的半径； E：切线交点的高程； S：需计算点的桩号；D：计算点的数量； HP：须计算点的高程； H:变坡点的实测高程Z:竖曲线变坡点的桩号K:曲线起点或终点的桩号 A: 曲线起点或终点的计算高程 I、J:变坡点两侧路线的设计坡度Q:图形信息（竖曲线为凸曲线时，Q的编码为-1，反正为+1）46 楼：mgysqf09-4-2