1、CASIO fx-4850p 公路工程计算器程序集编号 主程序名（其中文含义） 程序计算功能一FANG YANG （ 放 样 ） 计算路线中、边桩坐标，测站点与路线中、边桩坐标间的距离和方位角等二CHAO GAO (超高) 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程三YYLDFWJ (任意两点方位角) 计算任意两点间的距离和方位角四SQXBG（竖曲线标高） 计算竖曲线设计标高五TIAN WA G-C(填挖高差) 计算左、中、右处填挖高差六 BZZB （边桩坐标） 主要进行桥梁及涵洞各点放样计算七 ZHUI PO （锥坡） 进行锥坡放样计算编号 子程序名（其中文含义
2、） 程序计算功能1 XY （坐标计算子程序） 利用交点参数数据库进行计算2 P-Q-X J-S （平曲线计算子程序） 利用交点坐标进行计算曲线要素3 YAO-SU (平曲线要素计算子程序) 进行平曲线要素计算4 ZB (平曲线的坐标计算子程序) 进行平曲线的坐标计算5 X1 （曲线要素数据库子程序） 曲线要素数据库（按桩号先后顺序依次输入）6 ZHONG ZHUANG（中桩坐标计算之子程序） 计算任意点中桩坐标及其切线方位角7 ZH HY（直缓点 缓圆点处中桩坐标计算之子程序） 计算 ZH 至 HY 间中桩坐标及其切线方位角8 HY YH（缓圆点 圆缓点坐标计算之子程序） 计算 HY 至 YH
3、 间中桩坐标及其切线方位角9 YH HZ（圆缓点 直缓点坐标计算之子程序） 计算 YH 至 HZ 间中桩坐标及其切线方位角10 S0（缓和曲线长度等于零坐标计算之子程序） 计算 S=0 的圆曲线中桩坐标及其切线方位角11 ZXZB（直线段坐标计算之子程序） 计算直线段中桩坐标及其切线方位角12 CHAO GAO-1（超高计算之子程序） 计算左右两侧路基横坡度、宽度、左中右处设计标高之差值13 JK-B2（加宽计算之子程序） 计算内侧路基宽度14 JU-LI FWJ(任意两点间距离、方位角计算之子程序 ) 计算任意两点间的距离和方位角15 SQXBG-1（竖曲线标高计算之子程序） 计算竖曲线设计
4、标高16 SQX CAN SHU（竖曲线参数） 输入各个竖曲线相关参数（按桩号先后顺序依次输入）17 CAN SHU（圆曲线参数） 输入各个平曲线相关参数（按桩号先后顺序依次输入）18 S244-QIAO（S244 线桥梁坐标参数） S244 线桥梁坐标参数数据库（按桩号先后顺序依次输入）19 S244-BM（ S244 线桥梁附近的导线点参数） S244 线桥梁附近的导线点参数数据库（按桩号先后顺序依次输入）常用字母的一般含义：（输入时）1. 判断参数 M，当 M0 时，调用子程序相应参数；当 M0 时，直接输入相应参数。任意点的桩号为 Z。2. 圆曲线（ZH）起点桩号 Q，其坐标为（X，Y
5、） ，方位角为 A；圆曲线（HZ）起点桩号 C，其坐标为（ N，E） ，方位角为 B；圆曲线半径为 R，缓和段长度为 S，内侧路基最大加宽值为 J，路面宽度为 K（半幅宽度） ，路拱横坡度为 B（必须取负数） ，最大超高横坡度为 H（必须取非负数） 。3. 竖曲线：第一坡度值为 I（上坡为正值，下坡为负值） ，第二坡度值为 J（上坡为正值，下坡为负值） ，竖曲线半径为 R，变坡点桩号为 N，变坡点高程为 H。4. 计算边桩坐标时： V 为旋转角度（左为负值，右为正值。正交时 V 取 90 或-90） ，K 为边桩到中桩的距离。主程序名及内容 备 注一 FANG YANG （ 放 样 ）原名为
6、JU-LI FWJ FY (距离 方位角 放样 即偏角法放样)M“1-11 XY， 2-12 JU-LI，3-13 XY JU-LI，4-14 YSZH，M0-INPUT JDXY”：V=M：Z67= 0M10 Goto W： M0 Goto 3 Lbl 7： T：T“INPUT QIAN-HOU JU-LI（QIAN +，HOU -） ”： Z51=T：U ：U“INPUT P（ZHUANG WEI SHU） ”：Z52=U ：Goto 1Lbl 3: Z67= -1：Prog “P-Q-X J-S” Lbl W: V=14Prog “X1” V=14Goto V V10 V=V-10：Z6
7、7= 1: V=V V=Abs V：V=1 Z67= 1:Goto 6: V1 V4“INPUT CE-ZHAN-DIAN X，Y”：X， Y： V=4 Goto V Lbl 6:Goto 7Lbl 9:Z：Z67= 1 Prog “X1” Prog “YAO-SU” ：Prog “XY”Z67=-1K=Z15 Goto 9Lbl 1: P：P“SHI FUO INPUT V，K（P0，N O P 0，YES） ”： Z65=P：P0 Goto K V=Z55：K=Z61：“INPUT V1=”：V：Z55=V：“INPUT K1=”：K：Z61=K：Z52=1 Goto K V=Z56：K=
8、Z62：“INPUT V2=”：V：Z56=V：“INPUT K2=”：K：Z62=K：Z52=2 Goto K V=Z57：K=Z63：“INPUT V3=”：V：Z57=V：“INPUT K3=”：K：Z63=K：Z52=3 Goto K V=Z58：K=Z64：“INPUT V4=” ：V：Z58=V ：“INPUT K4=” ：K：Z64=KLbl K: Z67=1 Goto 9 M=1 Goto 0 “INPUT CE-ZHAN-DIAN X,Y”:I“X”：J“Y”Z：Z1=I:Z2=J：“INPUT HOU-SHI-DIAN N,E”:NE：Z10=N ：Z11=E:P=N-I：
9、F=E-I：Prog “JU-LI FWJ”“HOU-SHI-DIAN”: “JU-LI=”:L“FWJ=”:W-DMSZ12=WLbl 0:Z:Prog“CAN SHU”M4 Goto 2 “ZH=”:Q“X=”:X“Y=”: Y“A-FWJ=”:A“HZ=”:C“N=”:N“E=”:E“B-FWJ=”:B“R=”:R“S=”:S (输入 M 值，当 M0 时，则需要输入圆曲线交点参数；当 M0,则直接调用子程序中的对应参数，M=1，2，3，4 时调用其自程序CAN SHU的参数，M=11，12，13，14 时，调用 X1的参数。 ）输入前后距离，前为正值，后为负值。输入每个断面的桩数（为
10、14） 。输入测站点坐标 X、Y 值。是否输入 V，K 值，当输入正数时，计算过程中不必输入 V，K；当输入负值时，计算过程中需要输入 V，K。输入第 14 个桩位的 K，V 值：K 为边桩到中桩的距离（左为负值，右为正值） ， V为旋转角度（左为负值，右为正值。正交时 V 取 90 或-90） ；当 V 或 K 为负值时，计算左侧边桩；当 V、K 同时为正值时，计算右侧边桩；当 K=0 时，计算中桩。输入测站点坐标 X、Y 值。输入后视点坐标 N、E 值。显示结果含义：HOU-SHI-DIAN （后视点） ；JU-LI=为测站点与后视点的计算距离；FWJ=为测站点与后视点的计算方位角。曲线的
11、 ZH 桩号、坐标 X、Y、方位角；曲线的 HZ 桩号、坐标 N、E 、方位角；曲线半径 R；缓和段长度 S；主程序名及内容 备 注（接上页）“JIA-KUAN-ZHI=”:J“CHAO-GAO-ZHI=”:HGoto 0Lbl 2:Prog“ZHONG ZHUANG”Z3=W:Z4=N1:Z5=E1：Z53=0Lbl B:D=Z:K=Z7:Z53=1+Z53Z65 Goto N P=Z53：V=Z54+P：K=Z60+P ：Goto PLbl N:K：K=0 V=90：Goto P VLbl P:K0 V=-AbsV：K=AbsK：V0 V=-AbsV：K=AbsK ：V=AbsV：K= A
12、bsK P=Z4+cos(Z3+V) K-Z1F=Z5+sin(Z3+V) K-Z2V0 V=AbsV：K=-AbsK：V=AbsV ：K= AbsK M=2 Goto 5 “N2=”：P+Z 1“E2=”：F+Z 2M=1 Goto 8 Lbl 5: Prog “JU-LI FWJ”“FWJ=”:W“JU-LI=”:LM3 Goto 8 “SHUI PING JIAO=”：W=Abs(W-Z12):W-DMSLbl 8:I=Z1:J=Z2:N=Z10:E=Z11:Z7=KU=Z52:T=Z51“NOW Z=”:ZZ53=U Z=Z+T “NO.”：Z53 “NEXT Z=”:Z：Z=D Go
13、to B: Goto 0 Lbl V：V=14Prog “P-Q-X J-S” V=14Z：Goto W 加宽值；超高值。输入桩位的 K，V 值：K 为边桩到中桩的距离（左为负值，右为正值） ， V 为旋转角度（左为负值，右为正值。正交时 V 取 90 或-90） ；当 V 或 K 为负值时，计算左侧边桩；当 V、K 同时为正值时，计算右侧边桩；当 K=0 时，计算中桩。N2=为该桩位的 X 坐标值；N1=为该桩位的 Y 坐标值；FWJ=为测站点与路线中、边桩坐标间的方位角。JU-LI=为测站点与路线中、边桩坐标间的距离；SHUI PING JIAO=为测站点与后视点及测站点与路线中、边桩间的
14、水平夹角。NOW Z=为现在的桩号；NO.为现在的桩号的第几个桩位；NEXT Z=为下一桩位的桩号。二 CHAO GAO (超高) M“SHI FUO INPUT CAN SHU（M0，N O M0，YES） ”M0 Goto 0 “INPUT V ZUO V V0”: VQC：S“S1=”:Z1=S:S：S“S2=” ：Z20=S：S=Z1：JBH:Z8=C:Z4=V:Z9=K:Z10=J：Lbl 0: Z:M Goto A I“INPUT I （I0 SHE-JI GAO-CHENGJI-SUAN CHAO-GAO） ”Z15=I：Prog “SQSBG-1”: Z8=GZ15 Goto
15、1 “SHE-JI GAO-CHENG=”：GLbl 1:Prog “CAN SHU”A Z4=1: Z4=-1 B=Z6：Goto BLbl A:C=Z8:V=Z4:K=Z9:J=Z10Lbl B: Prog “CHAO GAO-1”“I1=”：100*I1 “I2=”：100*I2 “B1=”：B1 “B2=”：B2 “Z1=”：Z1 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程输入 M 值，当 M0 时，则需要输入圆曲线参数；当 M0,则直接调用子程序中的对应参数。输入 v 值，当圆曲线为左转弯时，则 V 为负值 , 当圆曲线为右转弯时，则 V 为正值 。圆曲
16、线（ZH ）起点桩号 Q，圆曲线（HZ ）起点桩号 C，缓和段长度为 S，路面宽度为K（半幅宽度） ，内侧路基最大加宽值为 J，路拱横坡度为 B（必须取负数） ，最大超高横坡度为 H（必须取非负数） 。显示结果含义：G 为设计高程。I1为左侧路面横坡度，负值为左侧低于中桩，正值为左侧高于中桩。I2 为右侧路面横坡度，负值为右侧低于中桩，正值为右侧高于中桩。B1为左侧路面宽度B2为右侧路面宽度主程序名及内容 备 注（接上页）“Z2=”：Z2 “Z3=”：Z3 M Goto 0 “H1=”：H1=Z8+Z1 “H2=”：H2=Z8+Z2 “H3=”：H3=Z8+Z3 Goto 0 Z1为左侧路面边
17、缘与设计高程之差Z2为中桩处与设计高程之差Z3为右侧路面边缘与设计高程之差H1为左侧路面边缘设计标高H2为中桩处设计标高H3为右侧路面边缘设计标高三 YYLDFWJ (任意两点方位角)Lbl 0:XYNE：P=N-X ：F=E-Y Prog “JU-LI FWJ”“JU-LI=”:L“FWJ=”:WXYNE: Goto 0 计算任意两点间的距离和方位角输入第一点的坐标 X，Y；输入第一点的坐标 N，E。显示结果含义：L 为任意两点间的距离W 为任意两点间的方位角四 SQXBG（竖曲线标高）M:M0 Goto 1 IJRNH：Lbl 1: Z：Prog “SQSBG-1”“SHE-JI GAO-
18、CHENG=”：G Goto 1 计算竖曲线设计标高(输入 M 值，当 M0 时，则需要输入圆曲线参数；当 M0,则直接调用子程序中的对应参数。 ）显示结果含义：G 为设计高程五 TIAN WA G-C(填挖高差)N “INPUT JIE-GOU-CENG-HOU-DU”H “INPUT SHI-XIAN-GAO-CHENG”:M=3Z8=N:Z9=H:ZLbl A:D=ZProg“SQSBG-1”Z15=G:Prog“CAN SHU”AZ4=1:Z4=-1 B=Z6: Prog “CHAO GAO-1”Z5=I1: “INPUT V(V=1,2,3 ZUO ZHONG YOU)”:VV=1G
19、oto 1: V=2Goto 2: V=3Goto 1:Goto 4 Lbl 1:J=Z11: “KUAN-DU=SHE-JIJ=0J0”J,F:Z11=JV=1I=Z5:H=Z1: I=Z2:H=Z3 Z7=Z10+H+IJ-Z8-Z9+F：Goto 3Lbl 2:J=Z12：“ZUOJ0YOU J0ZHONG J=0”J，F:Z12=J：J0 I=Z5：I=-I2 Z7=Z15+Z2-IJ-Z8-Z9+FLbl 3:“TIAN-WA GAO-CHA=”：Z7 Lbl 4:N=Z8：H=Z9：Z:Z=D Goto B: Goto A 计算左、中、右处填挖高差（必须调用平、竖曲线参数才能进行计
20、算）输入结构层厚度 N 值（即本结构层顶面至设计高程之差值） ；输入视线高程 H 值。输入桩号 Z 值。输入 v 值，当计算左侧边桩高差时，则 V=1；当计算中桩高差时，则 V=2, 当计算右侧边桩高差时，则 V=3 值 。输入边桩加宽值 J，当边桩至中桩之距离大于该侧设计路基宽度时，则 J 为正值；当边桩至中桩之距离小于该侧设计路基宽度时，则 J 为负值。输入中桩或边桩处的前视读尺数 F 值。当 V=2 时，J 为偏左或偏右的距离，左为负值，右为正值，不偏离 J=0；铺稳定层适用中桩左右偏离，其他 J=0。显示结果含义：为所侧点至本结构层顶面之填挖高差（正值为填，负值为挖） 。主程序名及内容
21、 备 注六 BZZB （边桩坐标）I“INPUT I （I0 JU-LI FWJ FY X，Y FY） ”：Z15=IM“INPUT M （M=244S244-QIAO） ”：M244 Goto B Lbl A:Z“INPUT LI-CHENG”：Z148 Z/1000 Z148 Goto A Z130 Prog “S244-QIAO” P=N-X：F=E-Y：“QIAO-LIANG ZHONG-XIN ZHUANG-HAO Z=”：ZProg “JU-LI FWJ”N=（X+N）/2：E= （Y+E）/2：Z150Goto C I“INPUT BM BIAN-HAO”： Z13=I：Prog
22、 “S244-BM”“X=”： X“Y=”： Y“H=”： HGoto CLbl B: Z150 Goto 1 “INPUT CE-ZHAN-DIAN X,Y”:XYLbl 1:“JI-SUAN-YUAN-DIAN N，E ，FWJ”：NE：W=Z2：WLbl 0: Z=Z14：Z：Z“INPUT QIAN-HOU JU-LI（QIAN +，HOU ） ”：VK：Z14=Z：Z0 A=0：Z1=Z：A=180：Z1=-1 N2=N+cos(W+A)Z1+cos(W+V)KE2=E+sin(W+A)Z1+sin(W+V)KI=Z15：Z=14 ：Z150 Goto 2 P=N2-X：F=E2-Y
23、：Prog “JU-LI-FWJ”“FWJ=”:W“JU-LI=”:LW=Z2：Goto 0Lbl 2:“N2=”：N2“E2=”：E2Goto 0 主要进行桥梁及涵洞各点坐标计算放样输入 I 值（距离方位角放样时 I0，坐标放样时 I0） 。输入 M 值（M=244 时，进行 S244 线桥梁放样计算） 。输入 S244 线桥梁的里程桩号。显示桥梁中心桩号输入桥梁附近的导线点编号输入测站点坐标输入计算原点的坐标 N、E。输入前后距离，角度及左右距离。显示测站点与计算点的方位角和距离。显示计算点的坐标。7 ZHUI PO （锥坡）I“INPUT I（I0 JU FWJ FY X，Y FY） ”
24、：ABWVXYKM：Z3=W：I Goto 0 “INPUT CE-ZHAN-DIAN N,Y”:NELbl 0:Z1=M/K：Z2=B（ 1-Z12）N2=X+A*Z1cosW+Z2cos(W+V)E2=Y+A*Z1sinW+Z2sin(W+V)I Goto 1 P=N2-X：F=E2-Y：Prog “JU-LI-FWJ”“FWJ=”:W“JU-LI=”:LW=Z3：Goto 2Lbl 1:“N2=”：N2“E2=”：E2Lbl 2:M：Goto 0 进行锥坡放样计算子程序名及内容 备 注1 XY （坐标计算子程序）Prog “ZB”：Z53=0Lbl B:Z69=Z:B=Z70:Z53=1
25、+Z53Z65 Goto N P=Z53：U=Z54+P：B=Z60+PLbl P:B0 U=AbsU：B=-AbsB：U0 U=AbsU：B=-AbsB：U=AbsU：B= AbsB Goto 3Lbl N:B：B“K （ZUO-，YOU +） ”：B0 U=Z68:U：U“V（ZHENG JIAO V=+90） ”：U=AbsU： Z68=U Lbl 3:N2=N+Bcos（W+U）：E2=E+Bsin（W+U）V1I=PoL(N2-X,E2-Y:J0J=J+360: J=J V=2 Goto A “N2=”:N2“E2=”:E2V=1 Goto 9 “FWJ=”：J-DMS“JU-LI=
26、”:IV=2 Goto 9 JS“HOU-SHI-DIAN-FWJ0” F=J-S: F=J+360-S “JI-SUAN SHUI-PING-JIAO0=”:F-DMSI:I“CE-JU-LI”:“CE-X=”: Rec(I,J)+X“CE-Y=”:J+YLbl 9 “NOW Z=”:ZZ53=Z52 Z=Z+Z51 “NO.”：Z53 “NEXT Z=”:Z：Z=Z69 Goto B Lbl 2利用交点参数数据库进行计算当 M 输入 11 时，计算并显示坐标；输入 12 时，为距离方位角放样；输入 13 时，计算并显示施检表（6、7）中的各项数据；输入 4 时，计算并显示交点要素，并可与施
27、工图纸中的直线、曲线及转角表的数据相核对，检验子程序 X1 的要素输入是否正确。N2=为施检表（7）中的 X 设计坐标；E2=为施检表（7）中的 Y 设计坐标；FWJ=为施检表（7）中的计算方位角；JU-LI=为施检表（7）中的计算距离；HOU-SHI-DIAN-FWJ0 输入测站点至后视的方位角；JI-SUAN SHUI-PING-JIAO0=为施检表（7）中的计算水平角；CE-JU-LI 输入测站点至求算点的实测距离；CE-X=为施检表（ 7）中的 X 实测坐标；CE-Y=为施检表（ 7）中的 Y 实测坐标；2 P-Q-X J-S （平曲线计算子程序,利用交点坐标计算）V=14 Goto
28、1 “QI-DIAN”：XY：Z1=X：Z2=Y ：“JD” ：NE：P=1：Z3=N=N：Z4=E ：K“JD-Z=”：K：“ZHONG-DIAN”：U“X=”：B“Y=”：Z5=U：Z6=B：R：H“S1=”：Z19=H：L“S2=”： Z20=LLbl 1：Prog “YAO-SU”“JD0=”：A-DMS“FWJ0=”：F-DMS“T1=”：T“T2=”：C“L=”：D“E=”：（R+H2/24R）/sin(tan-1(R+H 2/24R ）/(T-(H/2-H3/240R2 )-R“ZH=”:O“HY=”:O+H“QZ=”:O+H+(AbsAR3.1415927/180-H/2-L/
29、2)/2“YH=”:O+D-L“HZ=”:O+DV14 K=Z15 利用交点坐标进行计算曲线要素（显示计算结果，与主程序联合使用或单独使用均可。 ）QI-DIAN 含义为起点，依次输入起点的坐标 X、Y，交点的坐标 N、E 、桩号，终点的坐标 X、Y，及该曲线的半径 R、第一缓和段长度 S1、第二缓和段长度。显示含义：JD0 为交点偏角；FWJ0 为该曲线的起点处方位角；T1 为第一切线长度；T2 为第二切线长度；L 为该缓和曲线总长度；E 为曲中至交点的距离；ZH 为直缓点桩号；HY 为缓圆点桩号；QZ 为曲中点桩号；YH 为圆缓点桩号；HZ 为缓直点桩号。子程序名及内容 备 注3 YAO-
30、SU (平曲线要素计算子程序)J=0： PoL(Z2P+1-Z2P-1,Z2P+2-Z2P:F=JF0 F=F+360: F=F PoL(Z2P+3-Z2P+1,Z2P+4-Z2P+2:A=JA0 A=A+360: A=A A=A+FT=(H/2-H3/240R2 )+(R+L2 /24R)-(R+H 2 /24R)cosAbsA)/sinAbsAC=(L/2-L3/240R2 )+(R+H2 /24R)-(R+L2 /24R)cosAbsA)/sinAbsAD=AbsAR3.1415927/180-H/2-L/2+H+L:O=K-T:J=0ZO+HG=Rec(T,F+180)+Z2P+1:M
31、=J+Z2P+2 ZO+HZ(O+D)-LG=Rec(T-(H/2-H3/240R2 ),F+180)+Z2P+1:M=J+Z2P+2:I=Rec(R+H2 /24R,F+90(A/AbsA):G=I+G:N=J+M Z(O+D)-LG=Rec(C,F+A)+Z2P+1:M=J+Z2P+2 进行平曲线要素计算（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）4 ZB (平曲线的坐标计算子程序)ZOC=O-Z：N=Rec(C,F+180)+G：E=J+M：W=F ZOZO+HC=Z-O：T=C-C5/40R2H2：K=C3/6RH-C7/336R3H3 ：I=PoL（ T，K：J=J ：
32、N=Rec(I,F+J（A/AbsA)）+G ：E=J+M ：W=90C2/RH*3.1415927（A/AbsA)+F ZO+HZ(O+D)-LC=Z-（O+H）：W=F-90(A/AbsA)+(A/AbsA)（90H+180C）/R*3.1415927： N=Rec(R,W)+G：E=J=J+M：W=W90（A/AbsA) Z(O+D)-LZO+DC=(O+D)-Z：T=C-C5/40R2L2：K= C3/6RH-C7/336R3H3：I=PoL（T，K：J=J： N=Rec(I,F+180+A-J（A/AbsA)）+G：E=J+M：W=-90C2/RL*3.1415927（A/AbsA)
33、+F+A ZO+DC=Z-（O+D）：N=Rec(C,F+A)+G ：E=J+M ： W=F+A 进行平曲线的坐标计算（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）5 X1 （曲线要素数据库子程序）Z1= ：Z2= : Z3= : Z4= : Z5= : Z6= : Z7= : Z8= : Z9= : Z10= : Z11= : Z12= Zn*2+1= ：Zn*2+2= ：Zn*2+3= ：Zn*2+4= ZQI DIAN（起点桩号）ZHZ-1（JD1 的 HZ）P=1：K= ：R= ：H= ：L= ：Goto A ZHZ-2（JD2 的 HZ）P=2：K= ：R= ：H= ：L
34、= ：Goto A ZHZ-3（JD3 的 HZ）P=3：K= ：R= ：H= ：L= ：Goto A ZHZ-（n-1 ） （JDn-1 的 HZ）P=n-1：K= ：R= ：H= ：L= ：Goto A ZHZ-(n-1) （JDn-1 的 HZ）ZZHONG DIAN（终点桩号）P=n：K= ： R= ：H= ：L= ： Lbl A 曲线要素数据库Z1为路线起点的 X 坐标；Z2为路线起点的 Y 坐标；Z3为交点 JD1 的 X 坐标； Z3为交点 JD1 的 Y 坐标；Z4为交点 JD2 的 X 坐标； Z5为交点 JD2 的 Y 坐标；Zn*2+1为交点 JDn 的 X 坐标；Zn*
35、2+2 为交点 JDn 的 X 坐标；Zn*2+3为路线终点的 X 坐标；Zn*2+4为路线终点的 X 坐标；P 为计算圆曲线的编码，分别以 1、2、3n 顺序输入。 K 为交点里程桩号。R 为圆曲线半径。H 为第一缓和段长度。L 为第二缓和段长度。（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）6 ZHONG ZHUANG（中桩坐标计算之子程序）BA I=1: I=-1 ZQ Prog “ZXZB”：Goto A ZC Prog “ZXZB”：Goto A S=0 Prog “S0”：Goto A ZQ+S Prog “ZH HY” :C-SZ Prog “HY YH” : Pro
36、g “YH HZ” Lbl A 由计算器自动判断所输入桩号所属位置（如直缓点至缓圆点段、缓圆点至圆缓点、圆缓点至直缓点、缓和曲线长度等于零、直线段） ，并调用相应的子程序。（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）子程序名及内容 备 注7 ZH HY（直缓点 缓圆点处中桩坐标计算之子程序）L=Z-QN1=X+ cosA（L-L5（40R2S2 ） ）-IL3sinA（6RS）E1=Y+ sinA（L-L5（40R2S2） ）+IL3cosA （6RS ）W=A+28.6479IL2（RS） 计算 ZH 至 HY 间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不
37、能单独使用。 ）8 HY YH（缓圆点 圆缓点坐标计算之子程序L=Z-Q-SZ3=180L（ 3.1415927R） +28.6479SRN1=X+ cosA（Rsinz3+S2-S3 （240R2 ） ）-IsinA(R(1-cosZ3)+S2（24R）)E1=Y+sinA（RsinZ3+S2-S3（240R2） ）+IcosA(R(1-cosZ3)+S2（24R）)W=A+IZ3 计算 HY 至 YH 间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）9 YH HZ（圆缓点 直缓点坐标计算之子程序）L=C-ZN1=N- cosB（L-L5（40R2S2） ）
38、-IL3sinB（6RS）E1=E- sinB（L-L5（40R2S2） ）+IL3cosB（6RS）W=B-28.6479IL2（RS） 计算 YH 至 HZ 间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）10 S0（缓和曲线长度等于零坐标计算之子程序）L=Z-Q: Z3=180L（3.1415927R）N1=X+ RcosAsinz3 -IR sinA(1-cosZ3)E1=Y+ RsinAsinz3 +IR cosA (1-cosZ3)W=A+IZ3 计算 S=0 的圆曲线中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）
39、11 ZXZB（直线段坐标计算之子程序）ZQ L=Q-Z:Z3=A+180:F=X:J=Y:W=A:L=Z-C:Z3=B:F=N:J=E:W=B N1=F+LcosZ3:E1=J+LsinZ3 计算直线段中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）12 JK-B2（加宽计算之子程序）ZQ Goto 1 ZC Goto 1 S=0 Goto 1 ZQ+S Goto C: Z C-S Goto C : Goto D Lbl C: ZQ+S L=Z-Q:L=C-Z T=L+S:P0 Goto 2: Goto 3 Lbl 3:B2=(4T3-3T4)J+K:Goto
40、 ELbl 2:B2=K+TJ:Goto ELbl D:B2=K+J:Goto ELbl 1:B2=KLbl E 计算内侧路基宽度（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）13 JU-LI FWJ(任意两点间距离、方位角计算之子程序 )L=(P2+F2):P0 Goto 1: Goto 2 Lbl 1:F0 W=tan-1(FP）: W=360-tan-1(-FP） Goto 3Lbl 2F0 W=180-tan-1(-FP）: W=180+tan-1(FP ） Lbl 3 计算任意两点间的距离和方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）子程序名及内容 备
41、 注14 CHAO GAO-1（超高计算之子程序）Z7=K:P=2:W=2: Prog “JK-B2”ZQ Goto5:ZC Goto5:S=0：Goto5 Z Goto1:ZC-S Goto1: Goto2 Lbl 1: Z L=Z-Q:L=C-Z P0 Goto7 I=(H-B)LS+B: Goto8Lbl 7:I=B+(H-B)(3-2LS）L2S2Lbl 8:W0 Goto6 I-B Z5=-BK+IK:Z2=-KB:Z5=2IK:Z2=IK Goto 3Lbl 2:W0 Goto9 I=H:Z5=2HK:Z2=HK:Goto 3Lbl 5:I=B:W0 Goto4 Z5=0:Z2=-
42、BKLbl 3: I-B G=-B:G=I Z6=-G(B2-K):Goto CLbl 6:Z5=IK:Z2=0I-B Z6=BB2:Z6=-IB2 Goto CLbl 4:Z5=BK:Z2=0:Z6=BK:Goto CLbl 9:I=H:Z5=KH:Z2=0:Z6=-H(K+J)Lbl C: I-B I3=B:I3=-I Z4 GotoD I1=I:I2=I3:B1=Z7:Z1=Z5:Z3=Z6:GotoELbl D:I1=I3:I2=I:B1=B2:B2=Z7:Z1=Z6:Z3=Z5Lbl E 计算左右两侧路基横坡度、宽度、左中右处设计标高之差值当选用抛物线公式计算超高时，P 取非负数；当
43、选用线性公式计算超高时，P 取负数。当设计标高为未加宽时路基内侧边缘标高，并以未加宽时路基内侧边缘为旋转轴进行超高时，W 取非负数。 （一般新建公路时采用。 ）当设计标高为中桩标高，并以中桩为旋转轴进行超高时，W 取负数。 （一般旧路改建时采用。 ）（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）15 SQXBG-1（竖曲线标高计算之子程序）M Goto B Prog “SQX CAN SHU”Lbl B:W=I-J:W0 D=W: D=-W T=RD2:E=T2(2R):ZN Z1=-I:Z1=-J TN-Z Goto 2: Goto 1 Lbl 1:Z-N T Goto 2: G
44、oto 3 Lbl 2:G=H+Z1(N-Z):Goto 0Lbl 3:W0 Z2=-1:Z2=1 ZN Z3=-1:Z3=1 G=H+Z1(N-Z)+Z2(T+Z3(N-Z) 2(2R)Lbl 0 计算竖曲线设计标高（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）16 SQX CAN SHU（竖曲线参数数据库）ZQI DIAN（起点桩号）ZN1+T1 I1= :J1= : R1= :N1= :H1= :Goto A ZN2+T2 I2= :J2= : R2= :N2= :H2= :Goto A ZN3+T3 I3= :J3= : R3= :N3= :H3= :Goto A ZNn-
45、1+Tn-1 In-1= :Jn-1= : Rn-1= :Nn-1= :Hn-1= :Goto A: Goto A ZNn-1+Tn-1ZZHONG DIAN（终点桩号） In= :Jn= : Rn= :Nn= :Hn= Lbl A 输入各个竖曲线相关参数（必须按桩号先后顺序依次输入） 。竖曲线：第一坡度值为 I（上坡为正值，下坡为负值） ，第二坡度值为 J（上坡为正值，下坡为负值） ，竖曲线半径为 R，变坡点桩号为 N，变坡点高程为 H。（不显示计算结果，必须与主程序联合使用，不能单独使用。 ）子程序名及内容 备 注17 CAN SHU（圆曲线参数数据库）K= :Z6= ： J=0：H= ： Z20=0ZQI DIAN（起点桩号） ZHZ-1（JD1 的 HZ） Q1= :X1= : Y1= :A1= :C1= :N1= :E1= :B1= :R1= :S1= :J1= :H1= :Goto A ZHZ-2（JD2 的 HZ） Q2= :X2= : Y2= :A2= :C2= :N2= :E2= :B2
