CASIO fx4850p公路工程计算器程序集.docx

1、CASIO fx4850p公路工程计算器程序集编号 主程序名（其中文含义） 程序计算功能一 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（竖曲线标高计算之子程序） 计算竖曲线设计标高16 SQX CAN

4、 SHU（竖曲线参数） 输入各个竖曲线相关参数（按桩号先后顺序依次输入）17 CAN SHU（圆曲线参数） 输入各个平曲线相关参数（按桩号先后顺序依次输入）18 S244-QIAO（S244 线桥梁坐标参数） S244 线桥梁坐标参数数据库（按桩号先后顺序依次输入）19 S244-BM（S244 线桥梁附近的导线点参数） S244 线桥梁附近的导线点参数数据库（按桩号先后顺序依次输入）常用字母的一般含义：（输入时）1. 判断参数M，当M0时，调用子程序相应参数；当M0时，直接输入相应参数。任意点的桩号为Z。2. 圆曲线（ZH）起点桩号Q，其坐标为（X，Y），方位角为A；圆曲线（HZ）起点桩号C

5、，其坐标为（N，E），方位角为B；圆曲线半径为R，缓和段长度为S，内侧路基最大加宽值为J，路面宽度为K（半幅宽度），路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。3. 竖曲线：第一坡度值为I（上坡为正值，下坡为负值），第二坡度值为J（上坡为正值，下坡为负值），竖曲线半径为R，变坡点桩号为N，变坡点高程为H。4. 计算边桩坐标时： V为旋转角度（左为负值，右为正值。正交时V取90或-90），K为边桩到中桩的距离。主程序名及内容 备 注一 FANG YANG （ 放 样 ）原名为 JU-LI FWJ FY (距离 方位角 放样 即偏角法放样)M“1-11 XY，2-12 JU-

6、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 V10V=V-10：Z67= 1: V=V V=Abs V：V=1 Z67= 1:Goto 6: V1 V4“INPUT CE-ZHAN

7、-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 P0，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=Z62：“INPUT V2=”：V：Z56=V：“INPUT K2=”：K：Z62=K：Z52=2 Goto K V=

8、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：F=E-I：Prog “JU-LI FWJ”“HOU-SHI-DIAN”: “JU-LI=”:L“FWJ=”:W-DMSZ12

9、=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个桩位

10、的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 0Lb

11、l 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= AbsK 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 Got

12、o 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 Goto B: Goto 0 Lbl V：V=14Prog “P-Q-X J-S” V=14Z：Goto W 加宽值；超高值。输入桩位的K，V值：K为边桩到中桩的距离（左为负值，右为正值）， V为旋转角度（左为负值，右为正值。正交时V取

13、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 INPUT CAN SHU（M0，N O M0，YES）”M0 Goto 0 “INPUT V ZUO V V0”: VQC

14、：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 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*

15、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 为右侧路面横坡度，负值为右侧

16、低于中桩，正值为右侧高于中桩。B1为左侧路面宽度B2为右侧路面宽度主程序名及内容 备 注（接上页）“Z2=”：Z2 “Z3=”：Z3 M Goto 0 “H1=”：H1=Z8+Z1 “H2=”：H2=Z8+Z2 “H3=”：H3=Z8+Z3 Goto 0 Z1为左侧路面边缘与设计高程之差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 计算

17、任意两点间的距离和方位角输入第一点的坐标X，Y；输入第一点的坐标N，E。显示结果含义：L为任意两点间的距离W为任意两点间的方位角四SQXBG（竖曲线标高）M:M0 Goto 1 IJRNH：Lbl 1: Z：Prog “SQSBG-1”“SHE-JI GAO-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

18、: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=1Goto 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：J0I=Z

19、5：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 计算左、中、右处填挖高差（必须调用平、竖曲线参数才能进行计算）输入结构层厚度N值（即本结构层顶面至设计高程之差值）；输入视线高程H值。输入桩号Z值。输入v值，当计算左侧边桩高差时，则V=1；当计算中桩高差时，则V=2, 当计算右侧边桩高差时，则V=3值 。输入边桩加宽值J，当边桩至中桩之距离大于该侧设计路基宽度时，则J为正值；当边桩至中桩之距离小于该侧设计路基宽度时，则J为负值。输入中桩或边桩处的前视读尺数F值

20、。当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 B Lbl A:Z“INPUT LI-CHENG”：Z148Z/1000 Z148 Goto A Z130Prog “S244-QIAO” P=N-X：F=E-Y：“QIAO-LIANG ZHONG-XIN ZHUAN

21、G-HAO Z=”：ZProg “JU-LI FWJ”N=（X+N）/2：E=（Y+E）/2：Z150Goto C I“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=-1 N2=N+

22、cos(W+A)Z1+cos(W+V)KE2=E+sin(W+A)Z1+sin(W+V)KI=Z15：Z=14：Z150Goto 2 P=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。输入前后距离，角度及左右距离。显示测站点与

23、计算点的方位角和距离。显示计算点的坐标。7 ZHUI 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 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 进行锥坡放样计算

24、子程序名及内容 备 注1 XY （坐标计算子程序）Prog “ZB”：Z53=0Lbl B:Z69=Z:B=Z70:Z53=1+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 +）”：B0U=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=

25、J V=2 Goto A “N2=”:N2“E2=”:E2V=1 Goto 9 “FWJ=”：J-DMS“JU-LI=”: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时，为距离方位

26、角放样；输入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实测坐标；2 P-Q-

27、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为缓直点桩号