最新CASIO程序线路计算70版匝道版汇总

合集下载

CASIO fx-4800匝道计算程序

CASIO fx-4800匝道计算程序摘要：匝道在立交工程中常常用到，由于其采用线型多样，计算复杂，因此一份适用的计算程序是不可缺少的，本文提供一份匝道计算程序，该程序简单，容易上手，输入参数少。

关键词：匝道；程序一、说明在高速公路和城市建设中常常运用到互通式立交工程，互通式立交由于曲线元的复杂性和多样性，给施工中的测量定位工作带来困难，手工计算已经不能满足要求，时下CASIO系列计算器在土木工程中已经得到普遍运用，为便于对立交工程匝道的准确测量定位，本人根据多年的测量工作经验，编写出一份CASIO fx-4800匝道计算程序，该程序界面好，能计算出匝道各种线元的中线坐标和边线坐标。

二、程序清单Lb1 0{E G}A“XA”：B“YA”：C“CA”：D“1÷RA”：E“1÷RB”：F“DKA”：G“DKB”Lb1 1NormDeg{H}Goto 3⊿⇒H“DKI”：H＞GP＝（E－D）÷ABS（G－F）：Q＝ABS（H－F）：I＝PQJ＝J＋360⊿⇒J＜0⇒J＝J－360：≠⇒J＝C＋90 Q（I＋2D）÷π：J≥360M＝C＋45 Q（I÷4＋2D）÷（2π）：N＝C＋135Q（3I÷4＋2D）÷（2π）K＝C＋45Q（I÷2+2D）÷πFix 3X＝A＋Q÷12×（COS C＋4（COS M＋COS N）＋2COS K＋COS J）▲！该句中的“×”号不可省略，否则计算结果将不正确Y＝B＋Q÷12×（SIN C＋4（SIN M＋SIN N）＋2SIN K＋SIN J）▲！该句中的“×”号不可省略，否则计算结果将不正确Fix 4J“FWJ＝”▲Lb1 2{W}Fix 3Goto 1⊿⇒W=0Z＝1⊿⇒Z＝－Z：≠⇒W＜0U“XW”＝X＋ZWCOS（J＋90Z）▲V“YW”＝X＋ZWSIN（J＋90Z）▲Goto 2Lb1 3A＝X：B＝Y：D＝E：F＝G：C＝J：Goto 0三、变量及符号说明说明XA：YA：CA―――曲线元起点X、Y坐标及起点切线方位角。

立交匝道坐标放样正反算CASIO fx-5800P程序(带数据库功能)

立交匝道坐标放样正反算CASIO fx-5800P程序（带数据库功能）一、前言改写了《CASIO fx-5800P计算与道路坐标放样计算》中立交匝道坐标放样计算程序。

主要在原带数据库进行立交匝道中边桩坐标及放样数据计算的基础上，增加了坐标反算功能。

改进后的程序名称为：立交匝道坐标放样正反算程序（带数据库功能），主要功能有：1．使用立交匝道数据库子程序，可将一个互通立交的若干条匝道写入数据库子程序，程序在计算时省却了输入原始数据的麻烦；2．坐标正算方面，选择匝道后，输入桩号即可进行匝道的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；3．坐标反算方面，选择匝道后，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）。

程序的特点：1．使用线元积分法进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；2．主程序通过调用数据库子程序，省却了使用时再输入匝道参数的繁琐；3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。

二、立交匝道示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章MN互通式立交。

这里摘取部分关键图表资料如下：.MN互通式立交线位数据图（由于图片大小的限制，此处不清晰，参见《CASIO fx-5800P计算与道路坐标放样计算》P162附录2）......三、立交匝道线元数据的整理经整理，匝道a、b、c线元数据如下（d匝道和MR匝道略）。

....四、程序代码..注：根据实际使用情况，在桩号反算时，若桩号比较大（匝道起始桩号一般为0），还是让用户输入一个估算的对应桩号为好，因此程序第29、30行分别改为（每行结尾处省略回车符）：29行："X"?F: "Y"?G: "K"?P30行：F→I: G→J...... d匝道和MR匝道数据库子程序略。

..五、程序变量清单..六、计算流程示例1．坐标正算示例计算任务：计算MN互通式立交c匝道K0+315.3中桩坐标及切线方位角，以及该桩左侧4.5米、右侧6米的边桩坐标，假设在导线点（2807544.340，475613.014）上架设全站仪，计算这三个点位的极坐标放样数据。

卡西欧计算器程序

CASIO fx —5800 计算器工程测量与公路测量程序1、坐标正算＂X0=″X:＂Y0=″Y:＂I= ″I:＂J=″JX+ICos(J)→ U:Y+ISin(J)→ V＂X=″:U （待求点的 X 坐标）＂Y=″:V （待求点的 Y 坐标）说明： X0 Y0 ：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″X:＂Y1=″Y:＂X2=″U:＂ Y2=″V?Pol(U-X,V-Y):?J<0 J+360→ J＂I= ″:I＂J=″:J DMSGOTO 0说明： X1Y1 ：第一点的坐标，X2Y2 第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″X: ＂Y0=″Y:＂ FWJ=″D: ＂ QDHAO=″G: ＂ ZDHAO=″C: ＂ R=″RLbl 1＂DQHAO=″LL<G Or L ＞ C GOTO 2＂P Y=″K180(L- G)÷ ( π R) → E2RSin→ FReC(Abs(F),D+ ：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→ o:o<0 360+o→ 0o＂F WJ=″:o? DMSGoto 1Lbl 2＂END″说明： X0Y0 ：起始点的坐标， FWJ：起始点的方位角， QDHAO ：起点里程， ZDHAO 终点里程，R：半径， DQHAO ：待求点里程， PY ：偏移量4、竖曲线＂QZHAO ″=J:＂H+B″=B:＂I1=″C:＂I2=″D:＂R=″R:＂T=″T:((D-C)÷100)÷Abs((D- C)÷ 100)→ A:Abs(D-C)÷ 100)→ S＂T″:SJ-T→ XJ＋T→ YLbl 0＂DQ=″LIf L<X:Then Goto 1:Else If? L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L -J)100+A(L÷- J+T)? ÷(2R) →HGoto 0Lbl 1＂END″说明： QZHAO ：曲中点里程， H+B ：曲中点高程， I1：第一坡度， I2：第二坡度， R：半径，T：切线长， DQ：待求点里程。

匝道曲线中桩计算程序

匝道曲线中桩计算程序（CASIO 5800）-可正向算可逆向算精度可调在匝道曲线中由于传统之距法，在校半径的情况下误差比较大，所以现制作此程序，有于指导施工！！匝道曲线的计算ZDQX（匝道曲线）20→DimZ ←∣“QID（X）=”？Ｂ：“QID（Y）=”L：“QIDLC=”？C：“ZHDLC=”？E：“U （→L-1，R1）=”？U：“QIDQL（1÷R）=”？P：“ZHDQL（1÷R）=”？Q：“FWJ=”？A ←∣Ｌｂｌ０：❽KP=❾？D：（ D-C）÷5→H：（D-C）÷10→G ←∣P+（Q+P）×G÷（E-C）→Z[1] ←∣P+（Q+P）×（H+G）÷（E-C）→Z[3] ←∣P+（Q+P）×（2H+G）÷（E-C）→Z[5] ←∣P+（Q+P）×（3H+G）÷（E-C）→Z[7] ←∣P+（Q+P）×（4H+G）÷（E-C）→Z[9] ←∣P+（Q+P）×H÷（E-C）→Z[2] ←∣P+（Q+P）×2H÷（E-C）→Z[4] ←∣P+（Q+P）×3H÷（E-C）→Z[6] ←∣P+（Q+P）×4H÷（E-C）→Z[8] ←∣A+U×90×（Z[1]+P）×G÷Π→Z[11] ←∣A+U×90×（Z[3]+P）×（H+G）÷Π→Z[13] ←∣A+U×90×（Z[5]+P）×（2H+G）÷Π→Z[15] ←∣A+U×90×（Z[7]+P）×（3H+G）÷Π→Z[17] ←∣A+U×90×（Z[9]+P）×（4H+G）÷Π→Z[19] ←∣A+U×90×（Z[2]+P）×H÷Π→Z[12] ←∣A+U×90×（Z[4]+P）×2H÷Π→Z[14] ←∣A+U×90×（Z[6]+P）×3H÷Π→Z[16] ←∣A+U×90×（Z[8]+P）×4H÷Π→Z[18] ←∣Ｌｂｌ1：P+（Q-P）×（D-C）÷（E-C）→M ←∣“M=”：M◢A+U×90×（M+P）×（D-C）÷Π→F ←∣“F=”：F◢B+Abs（Ｈ）÷６×（c o s（Ａ）+４（c o s（Ｚ［１１］）+c o s（Ｚ［１３］）+ c o s （Ｚ［１５］）+ c o s（Ｚ［１７］）+ c o s（Ｚ［１９］））+２（c o s（Ｚ［１２］）+ c o s（Ｚ［１４］）+ c o s（Ｚ［１６］）+ c o s（Ｚ［１８］））+ c o s （Ｆ））→Ｘ←∣“Ｘ=”：Ｘ◢B+Abs（Ｈ）÷６×（sin（Ａ）+４（sin（Ｚ［１１］）+sin（Ｚ［１３］）+sin （Ｚ［１５］）+ sin（Ｚ［１７］）+ sin（Ｚ［１９］））+２（sin（Ｚ［１２］）+ sin（Ｚ［１４］）+ sin（Ｚ［１６］）+ sin（Ｚ［１８］））+ sin（Ｆ））→Ｙ←∣“Ｙ＝”：Ｙ◢ＧＯＴＯ０说明：本程序可用于高速公路下道口，立交桥等匝道曲线放样。

卡西欧5800计算器公路测量常用程序集_secret

2.1 版一、程序功能主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。

隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。

增加锥坡放样计算。

二、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：0ZCXLbI Q: 15→DimZ：Norm 2:1→A：＂A:XY=1， ZD=2 ，GC=3， GD=4，BP=5， FM=6， ZP=7， JS=8， SD=9＂?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto BLbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂XO＂? X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C:LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂ H=＂:Lc oate 6,4,H-Z[9] ◢＂ I=＂:Locate 6,4,I◢ Goto DLbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L◢ Goto ELbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂ L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→T:＂ TW=＂:Lcoate 6,4,T◢ Goto F:LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂: Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂ TW=＂:Locate 6,4,T◢ Goto H:LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Ab s(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂Z P＂:Goto J:LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto K:LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M:M→Z[8]: A→Z[15]:Prog＂5SD＂： Goto M:LbI X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:E lse L-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0: Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:The n Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5]→S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z: LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14] +Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:I f Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L◢Prog”ZD”:“ H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4:” FWJ=”: Locate 6,4,J◢F ix 3:” S=”:Locate 6,4,I◢5．路基宽度子程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:6．坐标计算次程序（ＴＨＢ）程序名：THBIf Q=2:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:El se Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇo to 2: IfEnd:LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Lb I 27. 线元法正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N：0.0469 10077→K： 0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KW Ｓ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1 -L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW (C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ： 0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:Goto 0: If End:←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4) ÷2688÷R∧(3)→A:H÷2-H∧(3) ÷240÷R2→B:(R+A)tan(Abs(P) ÷2)+B→T:O-T→C:C+H→L:L+ΠR×Abs(P) ÷180→N:N-H→E:P÷Abs(P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S:Prog“HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: IfEnd:If Z>L:Then 180(Z-L+0.5H) ÷R÷Π→S :H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:H2÷R÷24-H∧(4) ÷2688÷R∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J:Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 310. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(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∧(11) ÷42240÷R∧(5)÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S: Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Got o 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JM Π)/180→I:Z+I→Z:Goto 0:IfEndLbI 212．高程计算子程序（H）程序名：HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI →H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z≤E:Th en Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Got o I:Else Prog “I”:H+V→H:Goto I:L bI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z -C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时。

Fx5800计算器公路测量程序设计2.4版(会员收费版)

FX5800计算器测量程序集2.4 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9S D、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B 9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD程序内容无电子版。

高速公路测量计算CASIO程序全套

高速公路测量计算CASIO程序全套坐标主程序XY(坐标程序)LbI 2｛K｝PROG “SUB3”X=X◢Y=Y◢｛v｝v=√2 PROG “SUB 2”：⊿GOTO 2FANS｛MNWT｝M“X0=” ：N“Y0=”W“X-=” ：T“Y-=”Z=tan-1((T-N)/(W-M+0.19)LbI 7｛UV｝U“JIAO=”V“JU=”W＞M U=U+Z：GOTO 3：⊿U=U+Z-180LbI 3P=M+VcosU◢Q=N+VsinU◢｛K｝K“DGLC=”LbI 6Prog “SUB 3”O=（Q-Y+（P-X）/（tanE+0.19））×sinEK=K+OO=Abs OO≥0.17 GOTO 6：⊿K=K◢V=（Q-Y+（X-P）×tanE）×cosE ◢子程序ZHIX 1H= K-80100 （80+100为起点里程，直线段）A=3026441.522 （A、B为K80+100坐标）B=515965.236E=270.265 为K80+100方位角X=A+HcosEY=B+HsinEQUX 1 （K80+100~ K80+948.114曲线右偏）R=900：L=170H=K-80310.927 （80+310.927为ZH点里程）I=K-80480.927 （80+480.927为HY点里程）I≤0 A=3026442.499B=515754.311 （A、B为ZH点坐标）PROG “SUB 1”E=270.265+3×G （270.265为ZH点方位角）X=A+Fcos（E-2G）Y=B+Fsin（E-2G）Goto 2 ⊿J=K-80778.114J≤0 A=3026448.633 ：B=515584.489 （A、B为HY点坐标）C=I×90÷π÷RD=2×R×sinCE=275.6763+2C （275.6763为HY点方位角）X=A+D×cos（E-C）Y=B+D×sin（E-C）Goto 2 ⊿S=K-80948.114S≤0 A=3026606.193 ：B=515149.157 （A、B为HZ点坐标）H=-SPROG “SUB 1”E=300.0072-3×G （300.0072为HZ点方位角）X=A+Fcos（E+180+2G）Y=B+Fsin（E+180+2G）Goto 2 ⊿备注：曲线左偏与右偏，只有中间几个“＋－”号的区别。

积木法CASIO源程序

匝道计算程序(积木法)所有曲线都可以算(精度很好)曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。

本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。

二、源程序1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：QC=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"X"XS"=X◢ (4850改为"XS="：X◢)Y"YS"=Y◢ (4850改为" YS="：Y◢)Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"S"S"=O+W◢ (4850改为"S="：O+W◢)Z"Z"=Z◢ (4850改为"Z="：Z◢)Goto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-KZ[1]= Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))Z[2]= Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))X=U+W(Z[1]+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))Y=V+W(Z[2]+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))Z[3]=G+QEW(C+WD)+90X=X+ZcosZ[3]Y=Y+ZsinZ[3]3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinZ[3]三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

匝道程序

匝道计算程序立交匝道中边桩坐标放样正反算程序ramp（0911改进版）一、前言本人编著《casio fx-5800p计算与道路坐标放样计算》中，有关立交匝道坐标放样计算程序有三个：1．p132，立交匝道坐标放样计算程序ramp-1，它的特点是手工输入线元基础数据，可计算该线元范围内的中、边桩坐标和极坐标放样数据，无坐标反算功能；2．p136，道路（立交）坐标反算计算程序ramp-2，它的特点是手工输入线元基础数据，可在该线元范围内根据坐标反算对应中桩及据中桩距离。

3．p147，立交匝道坐标放样计算程序ramp-3，它的特点是采用了数据库子程序保存立交匝道的各线元的基础数据，而不需要手工输入了，运行一次程序可计算一条匝道而不只是一个线元的中、边桩坐标和极坐标放样数据，同样无坐标反算功能。

2009年3月22日，我在qq空间中发布了ramp-3程序的更新版，并取名为ramp-4，该程序的特点是在ramp-3功能的基础上，增加了坐标反算功能，参见链接：/qqblog/595077/1237737328.htm。

今天发布的立交匝道中边桩坐标放样正反算程序ramp（0911版）是我的立交匝道计算的最新成果，具备前面所有版本程序的全部功能。

与ramp-4 程序比较，ramp（0911版）程序的主要改进之处有：1．鉴于卡西欧编程计算器积分函数计算误差的争议（参见日志：/qqblog/595077/1242886367.htm），本程序坐标积分计算改为采用gauss-legendre积分法（四节点）进行计算，计算速度与采用计算器内部积分函数相比，速度无明显区别，但程序代码相对多一些；2．匝道线元数据库子程序改为矩阵变量的形式，使数据组织更加简洁，数据输入更加快捷；3．计算结果显示输出采用了满屏四行输出的形式，一屏可同时显示四个计算结果（或关键数据）；4．可调用数据库子程序，也可手工输入线元基础数据进行计算（参见程序运行框图）；5．考虑到立交匝道各线元基础数据数量大、不易根据设计图表准确确定等特点，特编写了在计算机上运行的“立交匝道参数辅助计算excel程序”，帮助用户准确、快速编写匝道数据库子程序。

道路施工测量程序(CASIO fx-4850P计算器)

道路施工测量程序（CASIO fx-4850P）㈠线路坐标计算程序（XLZBJSCX）LbI0：{GK}：“Z=-1，Y=1，FY=5”：G=-1=>GotoF：≠=> G=1=>GotoD：≠=> G=5=> GotoC：≠=> Goto0↙LbID：K≤193076.82 => GotoG：≠=>K≤193810=>Goto7：≠=>Goto9↙LbIF：K≤193076.82 => GotoG：≠=>K≤193720=>Goto6：≠=>Goto8↙LbIE：Z=D-M：F=X+Mcos（A+180）：S=Y+Msin（A+180）：H=Z+N：V=X+McosB：W=Y+MsinB：GotoA↙LbIA：K≤Z => Goto1：≠=>K≥H => Goto2：≠=>K≥（H-G）=>Goto3：≠=>K ≤（Z+L）=>Goto4：≠=>Goto5↙LbI1：X=F+（K-Z）cosA：Y=S+（K-Z）sinA：C=A：GotoB↙LbI2：X=V+（K-H）cosB：Y=W+（K-H）sinB：C=B：GotoB↙LbI3：I=K-H-（K-H）∧5/40/R2/ G2：J=（K-H）∧3/6/R/G-（K-H）∧7/336/R3/G3：X=V+I cosB+J cos（B-90P）：Y=W+I sinB+J sin（B-90P）：C=B-（K-H）2/2/R/G ×180/π×P：GotoB↙LbI4：I=K-Z-（K-Z）∧5/40/ R2/L2：J=（K-Z）∧3/6/R/L-（K-Z）∧7/336/R3/L3：X=F+I cosA+J cos（A+90P）：Y=S+I sinA+J sin（A+90P）：C=A+（K-Z）2/2/R/L ×180/π×P：GotoB↙LbI5：R sin（（K-Z-L）/R×180/π+L/2/R×180/π）+（L/2-（L3/240/R2））：J=R （1- cos（（K-Z-L）/R×180/π+L/2/R×180/π））+L2/24/R：X=F+I cosA+J cos （A+90P）：Y=S+I sinA+J sin（A+90P）：C=A+（L/2/R×180/π+（K-Z-L）×180/R/π×P：GotoB↙LbIB：T“BZ”：E“AJ”：O=X+T cos（C+E）：Q=Y+T sin（C+E）：“XQ=”：O▲“YQ=”：Q▲Goto0↙LbIC：Prog“FANG YANG”↙LbI6：D=193408：X=55535.086：Y=21710.993：R=592.012：L=210：G=210：M=331.177：N=640.224：A=19°27′50″：B=61°06′06″：P=1：GotoE↙LbI7：D=193357.001：X=55487.：Y=21694：R=500：L=170：G=130：M=280.177：N=540.679：A=19°27′50″：B=61°56′27″：P=1：GotoE↙LbI8：D=194324.607：X=55988.738：Y=22532.835：R=949：L=130：G=130：M=197.898：N=393.895：A=61°06′06″：B=45°10′08″：P=-1：GotoE↙LbI9：D=194153.679：X=55871：Y=22414.4：R=1500：L=210：G=210：M=326.287：N=649.085：A=61°56′27″：B=45°10′08″：P=-1：GotoE↙LbIG：D=192880.03：X=55032.756：Y=21533.465：R=614.772：L=130：G=130：M=201.601：N=398.396：A=44°28′41″：B=19°27′50″：P=-1：GotoE↙程序编制说明：1.本程序为公路中边桩计算程序。

CASIO程序(线路计算8.0版_加速版) - 复制

一、扩展变量设置说明1．统计各种要素点的数目各要素点数目表名称数目(个)所需扩展变量数目(个)要素点数目为0时取值备注平曲线交点 a 6a+6 -1 不含起终点竖曲线变坡点 b 3b+5 -5/3 不含起终点超高起始点 c 2c 0 含起终点路面宽度变化点 d 6d+1 -1/6 含起终点左幅填边坡变化点 e 9e+1 -1/9 含起终点右幅填边坡变化点 f 9f+1 -1/9 含起终点左幅挖边坡变化点g 20g+6 -3/10 含起终点右幅挖边坡变化点h 20h+4 -1/5 含起终点隧道断面轮廓类型数i 30i+4 -2/15合计6a+3b+2c+6d+9e+9f+20g+20h+30i+28设置扩展变量总数目为：6a+3b+2c+6d+9e+9f+20g+20h+30i+118个,其中0～90为程序用变量。

2．设置各扩展变量数据(1)固定变量及自由变量Z[1]～Z[100]Z[1]:固定变量，为结构层厚度,当进行高程及高程较差计算前需设置。

Z[2]～Z[65]: 程序中使用的自由变量，不需设置。

Z[66]～Z[75]: 为进行高程较差计算时各路面点离中线的平距，运行前需设置。

Z[76]: 固定变量，为平曲线交点数目，运行前必须设置，设置为a 。

Z[77]: 固定变量，为竖曲线边坡点数目，运行前必须设置，设置为b 。

Z[78]: 固定变量，为超高起始点数目，运行前必须设置，设置为c 。

Z[79]: 固定变量，为路面变化点数目，运行前必须设置，设置为d 。

Z[80]: 固定变量，为左幅填边坡变化点数目，运行前必须设置，设置为e 。

Z[81]: 固定变量，为右幅填边坡变化点数目，运行前必须设置，设置为f 。

Z[82]: 固定变量，为左幅挖边坡变化点数目，运行前必须设置，设置为g 。

Z[83]: 固定变量，为右幅挖边坡变化点数目，运行前必须设置，设置为h 。

Z[84]: 固定变量，运行前必须设置，设置为6a+97 。

CASIO fx-5800p计算器在公路互通立交匝道坐标计算中的应用_pdf

Ｌ２ “ ＝：ｆ（ｏ（１Ｏｆ÷ ＋Ｏ Ⅳ一Ｃ仃）０Ｌ — １ＸＰ ”Ｘ＋ｃｓＤ＋８仃９（）ｌ，，）Ｅ二Ｌ３ “ Ｐ ” ＹＩ（ｉ（＋８ＭＸ＋＇９（）－ ÷ ，， — １Ｙ＝：＋ｓＯ１０ｎ￣０Ⅳ・２Ｃ仃）０Ｌ）Ｆ＋
收稿日期：０７０ — ７２０ — ６１
ＣＳＯｆ－５０ｐ计算器在公路互通ＡＩ－０ｘ－８立交匝道坐标计算中的应用
张鹏飞，周庆来曾晟，
（湖南交通职业技术学院路桥工程系，１湖南长沙，１０４２４００；．浙江省二建建设集团有限公司，江宁波，１００３浙３５０；．南华大学核资源与安全工程学院，湖南衡阳，２０１４１０）
５结语
本文计算公路立交匝道坐标的程序体现通用数学模型的两个特点，即坐标的计算过程不是先计算点在某一局部坐标系中的坐标，再转换成整体坐标，而是直接计算基于整体坐标系的坐标；同时适用于道路中线的３曲线元素，种即直线、圆曲线和缓和曲线的坐标计算，中缓和曲线其
Ｌ４Ｇｏｏ２２ｔ
线方位角嘶
４算例
ｘ市互通式立交右转匝道有一段不完整缓和曲线ＡＢ连接两个半径不同的圆曲线，已知参数如下：缓和曲线Ａ点的桩号为Ｋ１６１３４５２＋７．５，半径见＝０坐标Ｘ＝６７．６，ａ４６９３８２Ｉ，１５０ｍ，Ａ２４３５１４Ｉｙ＝７２．切线方位６ｎ５ｎ角ｃ５２，ｔ。４１”终点的桩号为Ｋ１６２９４７半径Ｒｓｌ０Ｉ。￣３８２＋５．５，＝曲线上３ｎ

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

C A S I O程序线路计算70版匝道版一、扩展变量设置说明1．统计各种要素点的数目各要素点数目表设置扩展变量总数目为：2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74个2．设置各扩展变量数据①固定变量及自由变量Z[1]～Z[39]固定变量及自由变量设置表②导线点扩展变量Z[40]～Z[69]各导线点坐标值于扩展变量中的位置表③平曲线要素扩展变量Z[70]～Z[84+2a1+2a2+2a3+2a4+2a5]各匝道平曲线要素于扩展变量中的位置表④竖曲线要素扩展变量Z[85+2(a1+a2+a3+a4+a5)]～Z[74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)]各匝道竖曲线要素于扩展变量中的位置表⑤超高设计扩展变量Z[75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)]～Z[2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74]各段超高设计数值于扩展变量中的位置表说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可（从路中间向两侧，上坡为“＋”，下坡为“－”），当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。

3.扩展变量设置说明当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定重新设置扩展变量中的数据。

存入平曲线的曲率时，左转为“－”，右转为“＋”，曲率为半径的倒数，即1/R；当圆曲线和直线之间无缓和曲线时，则ZY点（或YZ点）要看作为桩号相同的两个切点，即假想在圆曲线和直线之间存在着一条长度为零的缓和曲线，其中一端的曲率为1/R，另一端的曲率为零。

存入首点的切线方位角时角度为弧度。

当进行测量放样计算时，若遇到临时点，可把其存入导线点扩展变量中空缺的位置上，然后把它当作导线点使用。

二、程序操作说明1．匝道放样计算程序ZDFY(1)放样选择:1.中线放样 2.边线放样?(2) 输入置镜点的导线点点号DZ?(3) 输入后视点的导线点点号DH?(4)输入后视角度AH?(5)输入放样点的桩号KF?(6)输入放样点偏离中线的平距(左为“-”,右为“+”)? 当第(1)步选择1时,无此第(6)步,只有当第(1)选择2时,才会出现此步(7)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?当第(1)步选择1时,无此第(7)步,只有当第(1)选择2时,才会出现此步(8)输出放样距离S(9)输出放样角度A此行操作完成后返回第(5)步,要求重新输入计算 2．匝道坐标计算程序ZDZB(1)选择:1.中线坐标计算 2.边线坐标计算？(2)输入待求点的桩号K?(3)输入待求点的偏离中线的平距L(左为“-”,右为“+”)? 当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才会出现此步 (4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ? 当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才会出现此步 (5)输出待求点的X 坐标(6)输出待求点的Y 坐标(7)输出待求点的切线方位角AT只有当第(1)步选择1时，才会出现此第(7)步此行操作完成后返回第(2)步,要求重新输入计算 3．匝道高程计算程序ZDGC(1)输入待求点的桩号K?(2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?(3)输出待求点的设计高程(已扣除结构层厚度)H此行操作完成后返回第(1)步,要求重新输入计算三、程序设计1．匝道放样计算主程序ZDFY (288步) Fixm:Rad↵H=Z[Z[1]+9]↵N=Z[Z[1]+14]↵V=H↵{O．}:O．”FY:1.ZX 2.BX”↵{EFT}:E”DZ”:F”DH”:T”AH”↵B=Z[E+39]:D=Z[E+54]↵I=Z[F+39]:J=Z[F+54]↵Pol(I-B,J-D):Z[7]=J↵Lbl 1↵{K}:K”KF”↵O．≠1⇒{QG}:Q”L”:G”AJ”↵Prog ”B Z”:X=X+Rec(Q,U+πG÷180):Y=Y+J↵Pol(X-B,Y-D):I”S=”◢I=J-Z[7]+Tπ÷180↵I>2π⇒I=I-2π↵I<0⇒I=I+2π↵I=180I÷π↵I”A=”◢Goto 12．匝道坐标计算主程序ZDZB (169步) Fixm:Rad↵H=Z[Z[1]+9]↵N=Z[Z[1]+14]↵V=H↵{O．}:O．”1.ZX 2.BX”↵Q=0↵Lbl 1↵{K}:K”K”↵O．≠1⇒{QG}:Q”L”:G”AJ”↵Prog ”B Z”:X=X+Rec(Q,U+πG÷180):Y=Y+J ↵X”X=”◢Y”Y=”◢O．=1⇒U=180U÷π:U”AT=”◢↵Goto 13．匝道高程计算主程序ZDGC (109步) Fixm↵G=Z[Z[1]+19]↵U=Z[Z[1]+24]↵E=Z[Z[1]+29]↵F=Z[Z[1]+34]↵V=G-1↵Lbl 0↵{KQ}:K”K”:Q”L”↵Prog ”C G”↵C”H=”◢Goto 04．匝道坐标计算子程序BZ (75步)W=H+1↵Lbl 0↵K>Z[W+N]⇒W=W+1:Goto 0↵V=W⇒Goto 1↵V=W↵Prog “CS”↵Lbl 1↵Z=K↵Prog “ZD”5．匝道参数计算子程序CS (142步) U=Z[H-3]↵X=Z[H-2]↵W=V-H↵Lbl 0↵Z[8]=X↵Z[9]=Y↵A=U↵M=Z[V-W+N+1]↵R=Z[V-W]↵P=Z[V-W+1]↵L=Z[V-W+N]↵Dsz W↵Goto 1↵Goto 2↵Lbl 1↵Z=M↵Prog “ZD”↵Goto 0↵Lbl 26．匝道分段计算子程序ZD (373步) S=Z-L↵R=P⇒R=0⇒Goto 1↵R=P⇒R≠0⇒Goto 2↵Z=1↵P<R⇒Z=-1↵J=M-L↵C=Abs(J÷(P-R))↵J=0⇒C=1↵J=ZJR÷(P-R)↵U=A+S(J+I)÷2÷C↵S=A-ZJJ÷2÷C↵Y=I-J-(I^5-J^5)÷40÷C÷C+(I^9-J^9)÷3456÷C^4↵I=(III-JJJ)÷6÷C-(I^7-J^7)÷336÷C^3+(I^11-J^11)÷42240÷C^5↵X=Z[8]+ZYCos S-Isin S↵Y=Z[9]+ZYSin S+Icos S↵Goto 3↵Lbl 1↵X=Z[8]+Scos A↵Y=Z[9]+Ssin A↵U=A↵Goto 3↵Lbl 2↵U=SP+A↵X=Z[8]+(Sin U-Sin A)÷P↵Y=Z[9]-(Cos U-Cos A)÷P↵Lbl 3↵U<0⇒U=U+2π↵U>2π⇒U=U-2π7．匝道高程计算子程序CG (536步)W=G+1↵Lbl 0↵W>G+U-2⇒Goto 1↵P=Z[W+2U-1]↵K>Z[W]-P⇒W=W+1:Goto 0↵W=G+1⇒W=G+2↵V=W-1⇒Goto 2↵Lbl 1↵V=W-1↵J=Z[V+U]↵R=(J-Z[V+U-1])÷(Z[V]-Z[V-1])↵S=(Z[V+U+1]-J)÷(Z[V+1]-Z[V])↵T=Z[V+2U-1]↵Lbl 2↵L=K-Z[V]↵L≤-T⇒H=J+RL:Goto 3↵L≥T⇒H=J+SL:Goto 3↵A=2T÷(S-R)↵X=L+A(R+S)÷2↵H=J+XX÷2÷A-ARS÷2↵Lbl 3↵H=H-Z[2]↵A=Abs Q↵A≤Z[3]⇒C=0:Goto 6↵I=-1↵Q>0⇒I=1↵Lbl 4↵Y=E↵Lbl 5↵K≥Z[Y]⇒Y=Y+1:Goto 5↵O．=Z[Y+F-1]:X=Z[Y+F]:O．=IO．:X=IX↵Z[Y+F-1]=0⇒O．=2↵Z[Y+F]=0⇒X=2↵N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])↵M=(X-O．)(1-3NN+2NNN)+O．↵（当超高过渡段按直线性计算时，此行换为 M=(O-X)N+X↵）A≤Z[4]⇒C=(Z[3]-A)M÷100:Goto 6↵C=Z[6](Z[4]-A)÷100-M(Z[4]-Z[3])÷100↵M>Z[6]⇒C=(Z[3]-A)M÷100↵Lbl 6↵C=H+C四、附加根据横断面点数d增加扩展变量数目d个，假设原扩展变量总数为n个，即: n=2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74，则新增地扩展变量为Z[n+1]～Z[n+d]匝道高程较差主程序GCJC (164步)Fixm↵G=Z[Z[1]+19]↵U=Z[Z[1]+24]↵E=Z[Z[1]+29]↵F=Z[Z[1]+34]↵V=G-1↵{Z}:Z”YG”↵Lbl 0↵{KDB}:K”K”:D”DW”:B”QS”↵↵Prog ”C G”↵C=C-Z+B↵C=Intg(1000C+.5)÷1000↵C”D H=”◢Goto 0。