当前位置：文档之家 › CASIO fx-4800P 编程计算器测量程序集

CASIO fx-4800P 编程计算器测量程序集

  • 格式：doc
  • 大小：169.50 KB
  • 文档页数：13

第一部分：CASIO fx-4800P 编程计算器测量程序集一．SHI JU CE TU （视距测图）1． 用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。

2． 程序清单：C “H0”：I ：A “UP ”：B “DOWN ”：V “MIDDLE ”：L ：E=90-L ↙ D=100Abs （A-B ）（cosE ）2◢ H=（C+I ）+DtanE-V3． 程序说明：H0——测站点高程；I ——测站仪器高；UP ——塔尺上丝读数；DOWN ——塔尺下丝读数；MIDDLE ——塔尺中丝读数；L ——经纬仪竖盘读数盘左读数；D ——测站点至碎部点间平距；H ——碎部点的高程。

5．该程序若在fx-3950中的程序清单为：？→M ：？→A ：？→B ：？→C ：？→D ：100（A-B ）（cos(90-D)）2→X ◢ M+Xtan(90-D)-C →Y说明：M ——将测站高程H0+仪器高I ；A ——上丝读数；B ——下丝读数；C ——中丝读数；D ——竖盘盘左读数L 。

X ——测站点至碎部点的平距；Y ——碎部点的高程。

二．FAN SUAN （反算）1．用途：该程序是“坐标反算公式”程序，用于根据两点1、2的平面坐标（X1，Y1）、（X2，Y2），计算两点间的距离D12及坐标方位角A12。

2． 程序清单：G “X1”：B “Y1”：C “X2”：H “Y2”：E=C-G ：F=H-B ↙ Pol （E ，F ）：I “D12”◢ ∆+=⇒<3600J J J J “A12”3． 程序说明：X1，Y1——点1的平面坐标；X2，Y2——点2的平面坐标； D12——点1至点2间平距；A12——点1至点2坐标方位角。

由于编程时用到了极坐标函数POL （），故在程序运行中，会出现I=？XXX （数字）及J=？XXX （数字）这是函数POL 计算出的两个量，不能改变，直接回车默认即可。

三．ZHENG SUAN （正算）1．用途：该程序是“坐标正算公式”程序，用于根据点1的平面坐标（X1，Y1），及点1至点2的平距D12、坐标方位角A12，来计算点2的平面坐标（X2，Y2）。

2． 程序清单：B “X1”：C “Y1”：D “D12”：A “A12” ↙X“X2”=B+DcosA◢Y“Y2”=C+DsinA3．程序说明：X1，Y1——点1的平面坐标；X2，Y2——点2的平面坐标；D12——点1至点2间平距；A12——点1至点2坐标方位角；X2，Y2——点2的平面坐标。

另外在输入A12时，可直接输入“度分秒”。

四．YUAN ZHU （圆主）1．用途：该程序是“单圆曲线主点测设元素及里程计算”程序。

2．程序清单：A“TURNING ANGLE”：R：B“JD”↙T=Rtan(A÷2)◢L=RAπ÷180◢E=R÷cos(A÷2)-R◢D=2T-L◢C“ZY”=B-T◢F “YZ”=C+L◢G“QZ”=F-L÷23．程序说明：TURNING ANGLE——交点JD处的转角；R——圆曲线半径；JD——交点。

T——切线长；L——圆曲线长；E——外矢距；D——切曲差；ZY——ZY点里程；YZ ——YZ点里程；QZ——QZ点里程。

五．YUAN XIANG （圆详）1．用途：该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。

2．程序清单：A“ZY OR YZ”：R：Lbl 1↙{L}：B=180Abs(L-A) ÷R÷π：X=RsinB◢Y=R-RcosB◢D“ANGLE”=B÷2◢C “DISTANCE”=2RsinD◢Goto 13．程序说明：ZY OR YZ——ZY点或YZ点里程（桩号）；R——圆曲线半径；L——某桩的里程（桩号）；X——切线支距法的X值；Y——切线支距法的Y值；ANGLE——偏角法的偏角值，单位为“度”。

若要查看其“度分秒”，可在程序运行显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE——长弦偏角法的弦长。

六．HUAN ZHU （缓主）1．用途：该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。

2．程序清单：A“TURNING ANGLE”：R：S“LS”：H“JD”↙B=180S÷（2 Rπ）↙P=S2÷24÷R-S^4÷(2688 R ^3) ↙Q=S÷2-S^3÷(240R2) ↙T=(R+P)tan(A÷2)+Q◢M=R(A-2B)π÷180↙L=M+2S◢E=(R+P)÷cos(A÷2)-R◢D=2T-L ◢N“ZH”=H-T◢O“HY”=N+S ◢U“QZ”=O+M÷2◢V“YH”=O+M◢W“HZ”=V+S3．程序说明：TURNING ANGLE——交点JD处的转角；R——圆曲线半径；LS——缓和曲线长；JD ——交点里程（桩号）。

T——切线长；L——曲线长；E——外矢距；D——切曲差；ZH——ZH点里程；HY——HY点里程；QZ——QZ点里程；YH——YH点里程；HZ——HZ点里程。

七．HUAN QIE （缓切）1．用途：该程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。

2．程序清单：A“ZH”：R：S“LS”：Lbl 1 ↙{L，B}↙=：3≠⇒↙Goto21GotoB⇒Lbl 2↙C=Abs(L-A)：D=RS：X=C-C^5÷40D2+C^9÷3456D^4-C^13÷599040D^6+C^17÷17542600D^8◢Y=C^3÷6D-C^7÷336D^3+C^11÷42240D^5-C^15÷9676800D^7+C^19÷3530097000D^9◢Goto 1↙Lbl 3↙E=180(Abs(L-A)-S)÷R÷π+180S÷(2πR)：P=S2÷24÷R-S^4÷2688÷R^3：Q=S÷2-S^3÷240÷R2↙X=RsinE+Q◢Y=R-RcosE+P◢Goto 1↙3．程序说明：ZH——ZH点桩号（里程）；R——圆曲线半径；LS——缓和曲线长；L——待测设桩的桩号（里程）；B——当待测设中桩位于缓和曲线段，则输入“1”，当待测设中桩位于圆曲线段，则输入“1”以外的数值。

X——切线支距法的X值；Y——切线支距法的Y值。

八．HUAN PIAN （缓偏）1．用途：该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。

2．程序清单：A“ZH”：R：S“LS”↙B=30S÷R÷π：F“B0”=2B◢Lbl 1 ↙{L}↙E=Abs(L-A)：D“ANGLE”=（E÷S）2B◢C“DISTANCE”=E-E^5÷(90R2S2)◢Goto 13．程序说明：ZH——ZH点桩号（里程）；R——圆曲线半径；LS——缓和曲线长；B0——在以后要测设圆曲线段上的中桩时，架仪于HY（或YH）点，瞄准ZH（或HZ）点，拨角B0为圆曲线的切线方向，找到切线方向后，即按单圆曲线偏角法去测设即可；L——待测设桩的桩号（里程）；ANGLE——偏角法的偏角值，在程序显示中其单位为“度”。

若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键；DISTANCE——长弦偏角法的弦长。

九．ZHUAN HUAN （转换）1．用途：该程序是“两平面坐标系间坐标转换”的计算程序。

2．程序清单：C“X0”：E“Y0”：D“ANGLE”：F“SIGN”↙Lbl 0↙{A，B}↙F≠1⇒A=A：B=-BΔX=C+AcosD-BsinD◢Y=E+BcosD+AsinD◢Goto 03．程序说明：X0，Y0——施工坐标系（A-O’-B）的原点O’在统一坐标系（x-o-y）中的坐标。

ANGLE——为统一坐标系的x轴顺时针旋转至施工坐标系的A轴的角值。

SIGN——为符号函数，若输入“1”时，则表明x-o-y为左手系，且A-O’-B也为左手系；若输入“1”之外值，则表明x-o-y为左手系，而A-O’-B为右手系。

A，B——某点在施工坐标系中的纵、横坐标。

X，Y——该点在相应统一坐标系中的纵、横坐标。

十．FU DAO XIAN（附导线）1．用途：该程序是“附合导线平差”的计算程序。

2．程序清单：Defm 40：X“X0”：Y“Y0”：F“A0”：S“X1”：E“Y1”：A“A1”：C“UNKNOWNPOINT”↙N=0：M=0：Lbl 0 ↙N=N+1：{L，D}：G=180：F=F+L：F≤G⇒F=F+G：≠⇒F=F-G ΔF≥2G⇒F+F-2G ΔZ[2N-1]=F：Z[2N]=D：M=M+D：N<C+1⇒Goto 0 Δ{L}：F=F+L：F≤G⇒F=F+G：≠⇒F=F-G ΔF≥2G⇒F+F-2G ΔB“FW”=F-A◢R：H“FR”=R（C+2）◢B=-B ÷（C+2）N=0：P=0：Q=0：Lbl 1 ↙N=N+1◢Z[2N-1]“A”=Z[2N-1]+NB◢I=Z[2N]cosZ[2N-1]：P=P+I：Z[2C+2N+1]=I：J= Z[2N]sinZ[2N-1]：Q=Q+J：Z[2C+2N+2]=J：N<C+1⇒Goto 1 ΔF“FX”=P-S+X◢G“FY”=Q-E+Y◢H“F”=（F2+G2）◢K=H÷M◢N=0：V=-F÷M：W=-G÷M：Lbl 2 ↙N=N+1◢Z[2C+2N+1]= Z[2C+2N+1]+VZ[2N] ：Z[2C+2N+2]= Z[2C+2N+2]+WZ[2N]：X=X+ Z[2C+2N+1]◢Y=Y+Z[2C+2N+2]◢N<C⇒Goto 2：≠⇒“END”3．程序说明：X0，Y0，A0——已知的起始点的纵、横坐标及起始边的坐标方位角。

X1，Y1，A1——已知的结束点的纵、横坐标及结束边的坐标方位角。

UNKNOWN POINT——待求未知点的个数。

L，D——观测的导线各左转角及平距。

FW，R，FR——导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。

N，A——各条导线边序号及其坐标方位角。

FX，FY——坐标增量ΔX、ΔY的闭合差。

F，K——导线全长闭合差、导线全长相对闭合差。

N，X，Y——各导线点的序号及其纵横坐标。

合集下载

卡西欧fx-4800P计算器程序集(小刚)

卡西欧fx-4800P计算器程序集(小刚)

计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。

XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。

计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。

X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。

任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。

N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。

极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。

常用CASIO4800计算程序集

常用CASIO4800计算程序集

FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐标方位角，运行一次本程序只需输入一次已知数据。

显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。

接下来计算器显示的T是测站到前视的坐标方位角，按+ 可将显示的十进制角度换算为度分秒。

如此继续可计算出所有支导线未知坐标。

2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢I“S=”◢Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。

3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZB JS）程序清单：C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}↲T=E+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=C+Scos T◢Y=D+Ssin T◢Goto 1程序运行说明：变量输入参照ZBJS程序。

4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢I“S=” ◢Lb1 1:{SA}↲T=F+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2↲Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3↲Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+ 360⊿H=J：H“TH-0=”◢I“S-H=”◢Goto 3↲Lb1 3: X=F：Y=G：T=H ：V=1=> Goto 4:≠> Goto 5↲Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 4Lb1 5：{AS}:A:ST=H+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=F+Scos T◢Y=G+Ssin T◢Goto 56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}↲Pol(X-F，Y-G) ↲J〈0 =〉J=J+360⊿A=J-H↲A〈0 =〉A=A+360⊿A“A=” ◢I“S=” ◢Goto 1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

4800公路测量放样计算程序

4800公路测量放样计算程序

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲N“HY”=M＋S▲O“QZ”=M＋（πRAbs F÷180＋S）÷2▲Z[1]“YH”=M＋πRAbs F÷180▲Q“HZ”= Z[1]＋S▲T=K－M▲L=Q－M▲E=（R＋S2÷（24R））÷cos（F÷2）－R▲Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△{U}：U“I——B OUT＋IN－”Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲G=G＋20Goto 0程序运行输入：JD？——交点桩号R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号。

4800程序

4800程序

卡西欧Fx-4800P计算器测量程序一、坐标放样源程序ZBFYU“Xc”:M“Yc”:O“XH”:Q“YH”:I=O-U:J=Q-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J:⊿T“HF” =J◢I“HL”◢X=0=＞W“XQ” =U+Lcos(T+P“a”)◢S“YQ” =M+Lsin(T+P)◢≠＞I=X-U:J=Y-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J⊿I“QL=”◢H“QF” =J◢J=H-T:J＜0=＞J=J+360◢≠＞J=J使用说明:XH—后视点X坐标 YH—后视点Y坐标XC—置镜点X坐标 YC—置镜点Y坐标HF—后视方位角 QF—前视方位角HL—后视距离 QL—前视距离X、Y—前视点坐标 J—仪器后视归零后拨角当X=0时运行坐标反算QL—测设点到置镜点的距离а—测设点与后视点夹角XQ—测设点的X坐标 YQ—测设点的Y坐标二、复合辛卜生公式计算曲线元坐标源程序XBS—XY(已知里程求坐标)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K:L“B”:P“а”:J:Prog “SIM1”:W＜0＝＞W=W+360:≠＞W=W⊿W“FWI=”◢X=X◢Y=Y◢XBS—L、B(已知坐标求里程和边距)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K”K”(输入大致里程)I=X:B=Y:K=A+Abs((Y-E)cos(F+P“a”-180)+(X-D)sin(F+P-180):Lbl 1:L=0:Prog“SIM1”:C=(B-Y)cos(W+P-180)- (I-X)sin(W+P-180): AbsC＜10∧-4＝＞Goto2: ≠＞K=K+C∶Goto1:⊿Lbl2:L=0:Prog“SIM1”:C=(B-Y)÷sin(W+P):K=K◢C“B=”◢子程序SIM1T=(J÷V-J÷R)÷(Z-A)H=(K-A)÷NS=90H÷πW=F+((TNH+J÷R)+J÷R)NS: G=1:X=D+H÷6×(cosF+cosW+4×Σ(cos(F+((G+0.5)HT+2J÷R)(G+0.5)S),G,0,(N-1))+2Σ(cos(F+(THG+2J÷R)GS,G,1, (N-1)))+Lcos(W+P):Y=E+H÷6×(sinF+sinW+4×Σ(sin(F+((G+0.5)HT+2J÷R)(G+0.5)S,G,0,(N-1))+2×Σ(sin(F+(THG+2J÷R)GS,G,1,(N-1)))+Lsin(W+P)使用说明:QD—起点里程 ZD—终点里程R0—起点半径 RN—终点半径J—曲线转向 (左转为-1 直线为0 右转为+1)X0、Y0—线元起点坐标 F0—起点方位角K—待求点里程 N—计算精度(可取4～12的整数)а—边桩与中线右交角 B—边桩到中桩的距离，左“-”右“+”X、Y —待求点坐标 K—待求点里程三、数据库的编制以每个线元为一段先付参数值，例K≥542.759＝＞K≤686.148＝＞A”起点里程”=542.7590:Z终点里程=163.5:R起点半径=10^45: V终点半径=10^45:D起点坐标=22236.147:E起点坐标=32145.669:F起点切线方位角=81°22′42″:J＝0:⊿⊿K≥987.324＝＞K＜10234.021＝＞A=……J=－1⊿⊿……Prog“XBS—XY”四、纵断高程计算Lbi 0R:T:D”K(JD)”:H”H(JD)”:U”I1”:V”I2”:｛K｝V＞U=＞G=1:≠＞V＜U=＞G=-1⊿⊿K≤D-T=＞L=D-KP=H-LU/100≠＞K≤D=＞L=K-D+TP=H-U(D-K)/100+GL2/2R≠＞K≤D+T=＞L=D+T-KP=H+V(K-D)/100+GL2/2R≠＞K＞D+T=＞L=K-DP=H+LV/100⊿⊿⊿⊿P”H=”▲Goto 0H:高程、 K：变坡点里程、H：变坡点高程、I1、I2前后坡度五、中轴旋转、超高计算: (1)IR,(2)IL线路左转输2，W（Z）：中分带宽度，K：桩号，H（Z）：中桩设计高程，W（L）左侧宽度，W（R）：右侧宽度Lbi 1G”(1)IR,(2)IL”:D”K(ZH)”:S”LS1”:H”LS2”:Q”LY”:W”W(Z)”:I”I1”:J”IB”｛KVAE｝:K:V”h(Z)”:A”W(L)”:E”W(R)”G=2=＞G=-1⊿｛KPAB｝:K:P”H(Z)”:A”W(L)”:B”W(R)”Prog”XZ”:U”H(L)=”▲V”H(R)=”▲Goto11、子程序：XZG=1=＞U=A：V=B：≠＞G=-1=＞U=B：V=A⊿⊿K≤D=＞R=P-I（U-W/2）/100：E=P-I（V-W/2）/100：≠＞K≤D+S=＞Prog”ZXA”: ≠＞K≤D+S+Q=＞R=P+J(U-W/2)/100:E=P-J(V-W/2)/100: ≠＞K≤D+S+Q+H=＞Prog”ZXB”: ≠＞K＞D+S+Q+H=＞R=P-I(U-W/2)/100:E=P-I(V-W/2)/100⊿⊿⊿⊿⊿G=1=＞U=R:V=E: ≠＞G=-1=＞U=E:V=R⊿⊿2、子程序： ZXAL=K-DR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100SL≤2IS/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IS/(I+J) =＞E=P-LJ(V-W/2)/100S ⊿⊿3、子程序： ZXBL=D+S+Q+H-KR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100HL≤2IH/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IH/(I+J) =＞E=P-IJ(V-W/2)/100H ⊿⊿六：边轴旋转超高计算：L：平曲线长度，I1正常横坡，IB超高横坡。