全套4850测量程序.doc

全套4850测量程序.超全 发布时间：2009-6-14阅读次数：1893字体大小: 【小】 【中】【大】CASIO fx-4850p公路工程计算器程序集编号主程序名（其中文含义）程序计算功能一FANGYANG （ 放 样 ）计算路线中、边桩坐标，测站点与路线中、边桩坐标间的距离和方位角等二CHAO GAO (超高)计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程三YYLDFWJ (任意两点方位角)计算任意两点间的距离和方位角四SQXBG（竖曲线标高）计算竖曲线设计标高五TIAN WA G-C(填挖高差) 计算左、中、右处填挖高差六BZZB （边桩坐标）主要进行桥梁及涵洞各点放样计算七ZHUI PO （锥坡）进行锥坡放样计算编号子程序名（其中文含义）程序计算功能1XY （坐标计算子程序）利用交点参数数据库进行计算2P-Q-X J-S （平曲线计算子程序）利用交点坐标进行计算曲线要素3YAO-SU (平曲线要素计算子程序)进行平曲线要素计算4ZB (平曲线的坐标计算子程序)进行平曲线的坐标计算5X1 （曲线要素数据库子程序）曲线要素数据库（按桩号先后顺序依次输入）6ZHONG ZHUANG（中桩坐标计算之子程序）计算任意点中桩坐标及其切线方位角7ZH HY（直缓点 缓圆点处中桩坐标计算之子程序）计算ZH至HY间中桩坐标及其切线方位角8HY YH（缓圆点 圆缓点坐标计算之子程序）计算HY至YH间中桩坐标及其切线方位角9YH HZ（圆缓点 直缓点坐标计算之子程序）计算YH至HZ间中桩坐标及其切线方位角10S0（缓和曲线长度等于零坐标计算之子程序）计算S=0的圆曲线中桩坐标及其切线方位角11ZXZB（直线段坐标计算之子程序）计算直线段中桩坐标及其切线方位角12CHAO GAO-1（超高计算之子程序）计算左右两侧路基横坡度、宽度、左中右处设计标高之差值13JK-B2（加宽计算之子程序）计算内侧路基宽度14JU-LI FWJ(任意两点间距离、方位角计算之子程序)计算任意两点间的距离和方位角15SQXBG-1（竖曲线标高计算之子程序）计算竖曲线设计标高16SQX CAN SHU（竖曲线参数）输入各个竖曲线相关参数（按桩号先后顺序依次输入）17CAN SHU（圆曲线参数）输入各个平曲线相关参数（按桩号先后顺序依次输入）18S244-QIAO（S244 线桥梁坐标参数）S244 线桥梁坐标参数数据库（按桩号先后顺序依次输入）19S244-BM（S244 线桥梁附近的导线点参数）S244 线桥梁附近的导线点参数数据库（按桩号先后顺序依次输入） 常用字母的一般含义：（输入时）1. 判断参数M，当M0时，调用子程序相应参数；当M0时，直接输入相应参数。任意点的桩号为Z。2. 圆曲线（ZH）起点桩号Q，其坐标为（X，Y），方位角为A；圆曲线（HZ）起点桩号C，其坐标为（N，E），方位角为B；圆曲线半径为R，缓和段长度为S，内侧路基最大加宽值为J，路面宽度为K（半幅宽度），路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。3. 竖曲线：第一坡度值为I（上坡为正值，下坡为负值），第二坡度值为J（上坡为正值，下坡为负值），竖曲线半径为R，变坡点桩号为N，变坡点高程为H。4. 计算边桩坐标时： V为旋转角度（左为负值，右为正值。正交时V取90或-90），K为边桩到中桩的距离。主程序名及内容备 注一FANGYANG （ 放 样 ）原名为 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 Goto3Lbl 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 VV10V=V-10：Z67= 1: V=VV=Abs V：V=1 Z67= 1:Goto 6: V1 V4“INPUT CE-ZHAN-DIANX，Y”：X，Y： V=4 Goto VLbl 6:Goto 7Lbl 9:Z：Z67= 1 Prog “X1”Prog “YAO-SU” ：Prog “XY”Z67=-1K=Z15Goto 9Lbl 1:P：P“SHI FUO INPUTV，K（P0，NOP0，YES）”： Z65=P：P0 Goto KV=Z55：K=Z61：“INPUT V1=”：V：Z55=V：“INPUT K1=”：K：Z61=K：Z52=1 GotoKV=Z56：K=Z62：“INPUT V2=”：V：Z56=V：“INPUT K2=”：K：Z62=K：Z52=2 GotoKV=Z57：K=Z63：“INPUT V3=”：V：Z57=V：“INPUT K3=”：K：Z63=K：Z52=3 GotoKV=Z58：K=Z64：“INPUT V4=”：V：Z58=V：“INPUT K4=”：K：Z64=KLbl K: Z67=1 Goto9M=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：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的参数。）输入前后距离，前为正值，后为负值。输入每个断面的桩数（为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=为测站点与后视点的计算方位角。曲线的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 NP=Z53：V=Z54+P：K=Z60+P：Goto PLbl N:K：K=0 V=90：Goto PVLbl P:K0 V=-AbsV：K=AbsK：V0 V=-AbsV：K=AbsK：V=AbsV：K= AbsKP=Z4+cos(Z3+V) K-Z1F=Z5+sin(Z3+V) K-Z2V0 V=AbsV：K=-AbsK：V=AbsV：K= AbsKM=2 Goto 5“N2=”：P+Z 1“E2=”：F+Z 2M=1 Goto 8Lbl 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 Goto B: Goto 0Lbl V：V=14Prog “P-Q-X J-S”V=14Z：GotoW加宽值；超高值。输入桩位的K，V值：K为边桩到中桩的距离（左为负值，右为正值）， V为旋转角度（左为负值，右为正值。正交时V取90或-90）；当V或K为负值时，计算左侧边桩；当V、K同时为正值时，计算右侧边桩；当K=0时，计算中桩。N2=为该桩位的X坐标值；N1=为该桩位的Y坐标值；FWJ=为测站点与路线中、边桩坐标间的方位角。JU-LI=为测站点与路线中、边桩坐标间的距离；SHUI PING JIAO=为测站点与后视点及测站点与路线中、边桩间的水平夹角。NOW Z=为现在的桩号；NO.为现在的桩号的第几个桩位；NEXT Z=为下一桩位的桩号。二CHAO GAO (超高)M“SHI FUO INPUTCAN SHU（M0，NOM0，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 AI“INPUTI （I0 SHE-JI GAO-CHENGJI-SUANCHAO-GAO）”Z15=I：Prog “SQSBG-1”: Z8=GZ15 Goto 1“SHE-JI GAO-CHENG=”：GLbl 1:Prog “CAN SHU”A Z4=1: Z4=-1B=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为正值 。圆曲线（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 0Z1为左侧路面边缘与设计高程之差Z2为中桩处与设计高程之差Z3为右侧路面边缘与设计高程之差H1为左侧路面边缘设计标高H2为中桩处设计标高H3为右侧路面边缘设计标高三 YYLDFWJ (任意两点方位角)Lbl 0:XYNE：P=N-X：F=E-YProg “JU-LI FWJ”“JU-LI=”:L“FWJ=”:WXYNE: Goto 0计算任意两点间的距离和方位角输入第一点的坐标X，Y；输入第一点的坐标N，E。显示结果含义：L为任意两点间的距离W为任意两点间的方位角四SQXBG（竖曲线标高）M:M0 Goto 1IJRNH：Lbl 1: Z：Prog “SQSBG-1”“SHE-JI GAO-CHENG=”：GGoto 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=-1B=Z6: Prog “CHAO GAO-1”Z5=I1: “INPUT V(V=1,2,3 ZUO ZHONG YOU)”:VV=1Goto 1: V=2Goto 2: V=3Goto 1:Goto 4Lbl 1:J=Z11: “KUAN-DU=SHE-JIJ=0J0”J,F:Z11=JV=1I=Z5:H=Z1: I=Z2:H=Z3Z7=Z10+H+IJ-Z8-Z9+F：Goto 3Lbl 2:J=Z12：“ZUOJ0YOU J0ZHONG J=0”J，F:Z12=J：J0I=Z5：I=-I2Z7=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计算左、中、右处填挖高差（必须调用平、竖曲线参数才能进行计算）输入结构层厚度N值（即本结构层顶面至设计高程之差值）；输入视线高程H值。输入桩号Z值。输入v值，当计算左侧边桩高差时，则V=1；当计算中桩高差时，则V=2, 当计算右侧边桩高差时，则V=3值 。输入边桩加宽值J，当边桩至中桩之距离大于该侧设计路基宽度时，则J为正值；当边桩至中桩之距离小于该侧设计路基宽度时，则J为负值。输入中桩或边桩处的前视读尺数F值。当V=2时，J为偏左或偏右的距离，左为负值，右为正值，不偏离 J=0；铺稳定层适用中桩左右偏离，其他J=0。显示结果含义：为所侧点至本结构层顶面之填挖高差（正值为填，负值为挖）。主程序名及内容备 注六 BZZB （边桩坐标）I“INPUT I （I0JU-LI FWJ FY X，Y FY）”：Z15=IM“INPUT M （M=244S244-QIAO）”：M244Goto BLbl A:Z“INPUT LI-CHENG”：Z148Z/1000Z148 Goto AZ130Prog “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 CI“INPUT BM BIAN-HAO”：Z13=I：Prog “S244-BM”“X=”：X“Y=”：Y“H=”：HGoto CLbl B: Z150Goto 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：Z0A=0：Z1=Z：A=180：Z1=-1N2=N+cos(W+A)Z1+cos(W+V)KE2=E+sin(W+A)Z1+sin(W+V)KI=Z15：Z=14：Z150Goto 2P=N2-X：F=E2-Y：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。输入前后距离，角度及左右距离。显示测站点与计算点的方位角和距离。显示计算点的坐标。7ZHUI PO （锥坡）I“INPUT I（I0JU FWJ FY X，Y FY）”：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 1P=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进行锥坡放样计算子程序名及内容备 注1XY （坐标计算子程序）Prog “ZB”：Z53=0Lbl B:Z69=Z:B=Z70:Z53=1+Z53Z65 Goto NP=Z53：U=Z54+P：B=Z60+PLbl P:B0 U=AbsU：B=-AbsB：U0 U=AbsU：B=-AbsB：U=AbsU：B= AbsBGoto 3Lbl N:B：B“K（ZUO-，YOU +）”：B0U=Z68:U：U“V（ZHENG JIAO V=+90）”：U=AbsU： Z68=ULbl 3:N2=N+Bcos（W+U）：E2=E+Bsin（W+U）V1I=PoL(N2-X,E2-Y:J0J=J+360: J=JV=2 Goto A“N2=”:N2“E2=”:E2V=1 Goto 9“FWJ=”：J-DMS“JU-LI=”:IV=2 Goto 9JS“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 BLbl 2利用交点参数数据库进行计算当M输入11时，计算并显示坐标；输入12时，为距离方位角放样；输入13时，计算并显示施检表（6、7）中的各项数据；输入4时，计算并显示交点要素，并可与施工图纸中的直线、曲线及转角表的数据相核对，检验子程序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实测坐标；2P-Q-X J-S （平曲线计算子程序,利用交点坐标计算）V=14 Goto 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/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为缓直点桩号。子程序名及内容备 注3YAO-SU (平曲线要素计算子程序)J=0：PoL(Z2P+1-Z2P-1,Z2P+2-Z2P:F=JF0 F=F+360: F=FPoL(Z2P+3-Z2P+1,Z2P+4-Z2P+2:A=JA0 A=A+360: A=AA=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=J+Z2P+2ZO+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+MZ(O+D)-LG=Rec(C,F+A)+Z2P+1:M=J+Z2P+2进行平曲线要素计算（不显示计算结果，必须与主程序联合使用，不能单独使用。）4ZB (平曲线的坐标计算子程序)ZOC=O-Z：N=Rec(C,F+180)+G：E=J+M：W=FZOZO+HC=Z-O：T=C-C5/40R2H2：K=C3/6RH-C7/336R3H3：I=PoL（T，K：J=J：N=Rec(I,F+J（A/AbsA)）+G：E=J+M：W=90C2/RH*3.1415927（A/AbsA)+FZO+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)+F+AZO+DC=Z-（O+D）：N=Rec(C,F+A)+G：E=J+M：W=F+A进行平曲线的坐标计算（不显示计算结果，必须与主程序联合使用，不能单独使用。）5X1 （曲线要素数据库子程序）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 AZHZ-2（JD2 的HZ）P=2：K=：R=：H= ：L= ：Goto AZHZ-3（JD3 的HZ）P=3：K=：R=：H= ：L= ：Goto AZHZ-（n-1）（JDn-1 的HZ）P=n-1：K=：R=：H= ：L= ：Goto AZHZ-(n-1)（JDn-1 的HZ）ZZHONGDIAN（终点桩号）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*2+2为交点JDn的X坐标；Zn*2+3为路线终点的X坐标；Zn*2+4为路线终点的X坐标；P为计算圆曲线的编码，分别以1、2、3n顺序输入。K为交点里程桩号。R为圆曲线半径。H为第一缓和段长度。L为第二缓和段长度。（不显示计算结果，必须与主程序联合使用，不能单独使用。）6ZHONG ZHUANG（中桩坐标计算之子程序）BA I=1: I=-1ZQ Prog “ZXZB”：Goto AZC Prog “ZXZB”：Goto AS=0 Prog “S0”：Goto AZQ+S Prog “ZH HY” :C-SZ Prog “HY YH” : Prog “YH HZ”Lbl A由计算器自动判断所输入桩号所属位置（如直缓点至缓圆点段、缓圆点至圆缓点、圆缓点至直缓点、缓和曲线长度等于零、直线段），并调用相应的子程序。（不显示计算结果，必须与主程序联合使用，不能单独使用。）子程序名及内容备 注7ZH 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间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）8HY 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间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）9YH HZ（圆缓点 直缓点坐标计算之子程序）L=C-ZN1=N- cosB（L-L5（40R2S2）-IL3sinB（6RS）E1=E- sinB（L-L5（40R2S2）+IL3cosB（6RS）W=B-28.6479IL2（RS）计算YH至HZ间中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）10S0（缓和曲线长度等于零坐标计算之子程序）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的圆曲线中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）11ZXZB（直线段坐标计算之子程序）ZQ L=Q-Z:Z3=A+180:F=X:J=Y:W=A:L=Z-C:Z3=B:F=N:J=E:W=BN1=F+LcosZ3:E1=J+LsinZ3计算直线段中桩坐标及其切线方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）12JK-B2（加宽计算之子程序）ZQ Goto 1ZC Goto 1S=0 Goto 1ZQ+S Goto C: Z C-S Goto C : Goto DLbl C: ZQ+S L=Z-Q:L=C-ZT=L+S:P0 Goto 2: Goto 3Lbl 3:B2=(4T3-3T4)J+K:Goto ELbl 2:B2=K+TJ:Goto ELbl D:B2=K+J:Goto ELbl 1:B2=KLbl E计算内侧路基宽度（不显示计算结果，必须与主程序联合使用，不能单独使用。）13JU-LI FWJ(任意两点间距离、方位角计算之子程序)L=(P2+F2):P0 Goto 1: Goto 2Lbl 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计算任意两点间的距离和方位角（不显示计算结果，必须与主程序联合使用，不能单独使用。）子程序名及内容备 注14CHAO GAO-1（超高计算之子程序）Z7=K:P=2:W=2: Prog “JK-B2”ZQ Goto5:ZC Goto5:S=0：Goto5Z Goto1:ZC-S Goto1: Goto2Lbl 1: Z L=Z-Q:L=C-ZP0 Goto7I=(H-B)LS+B: Goto8Lbl 7:I=B+(H-B)(3-2LS）L2S2Lbl 8:W0 Goto6I-B Z5=-BK+IK:Z2=-KB:Z5=2IK:Z2=IKGoto 3Lbl 2:W0 Goto9I=H:Z5=2HK:Z2=HK:Goto 3Lbl 5:I=B:W0 Goto4Z5=0:Z2=-BKLbl 3: I-B G=-B:G=IZ6=-G(B2-K):Goto CLbl 6:Z5=IK:Z2=0I-B Z6=BB2:Z6=-IB2Goto 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=-IZ4 GotoDI1=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取非负数；当选用线性公式计算超高时，P取负数。当设计标高为未加宽时路基内侧边缘标高，并以未加宽时路基内侧边缘为旋转轴进行超高时，W取非负数。（一般新建公路时采用。）当设计标高为中桩标高，并以中桩为旋转轴进行超高时，W取负数。（一般旧路改建时采用。）（不显示计算结果，必须与主程序联合使用，不能单独使用。）15 SQXBG-1（竖曲线标高计算之子程序）M Goto BProg “SQX CAN SHU”Lbl B:W=I-J:W0 D=W: D=-WT=RD2:E=T2(2R):ZN Z1=-I:Z1=-JTN-Z Goto 2: Goto 1Lbl 1:Z-N T Goto 2: Goto 3Lbl 2:G=H+Z1(N-Z):Goto 0Lbl 3:W0 Z2=-1:Z2=1ZN Z3=-1:Z3=1G=H+Z1(N-Z)+Z2(T+Z3(N-Z) 2(2R)Lbl 0计算竖曲线设计标高（不显示计算结果，必须与主程序联合使用，不能单独使用。）16SQX CAN SHU（竖曲线参数数据库）ZQI DIAN（起点桩号）ZN1+T1 I1=:J1=: R1=:N1=:H1=:Goto AZN2+T2 I2=:J2=: R2=:N2=:H2=:Goto AZN3+T3 I3=:J3=: R3=:N3=:H3=:Goto AZNn-1+Tn-1 In-1=:Jn-1=: Rn-1=:Nn-1=:Hn-1=:Goto A: Goto AZNn-1+Tn-1ZZHONGDIAN（终点桩号） In=:Jn=: Rn=:Nn=:Hn=Lbl A输入各个竖曲线相关参数（必须按桩号先后顺序依次输入）。竖曲线：第一坡度值为I（上坡为正值，下坡为负值），第二坡度值为J（上坡为正值，下坡为负值），竖曲线半径为R，变坡点桩号为N，变坡点高程为H。（不显示计算结果，必须与主程序联合使用，不能单独使用。）子程序名及内容备 注17CAN SHU（圆曲线参数数据库）K= :Z6= ：J=0：H=：Z20=0ZQI DIA