CASIO-fx4800P型计算器连续计算线路高程坐标.docVIP

CASIO-fx4800P型计算器 连续计算线路高程、坐标及放样程序 【简述】 为了适应现场快速、准确、灵活的放样要求，作者根据线路施工测量特点，运用计算器的编程功能，使整条线路的施工测量计算数据能连续快速的计算，只要把整条线路各个交点处的计算要素输入子程序中，你便拥有整条线路的“数据库”。在忙碌的施工现场，你不必携带大量的施工图和资料来查找平面、纵断面的设计要素，更不必担心设计要素的输入错误，从而使得计算和放样轻松、方便、快捷。 【计算范围】 坐标部分包括：各等级公路和高速路的直线段、圆曲线段、加对称缓和曲线的圆曲线段中、边桩坐标及放样计算。 高程部分包括：各等级公路和高速路的直线段、竖曲线段、缓和超高段中、边桩高程及放样计算。 ? 一、坐标及放样程序 【起算数据】：交点里程桩号、交点坐标、前直线方位角、交点转角、圆曲线半径、缓和曲线长 （一）主程序：XYFY2 Fix4 MXc=:PYc= ? ＇如须放样输入测站坐标值,否则输入0 Lbl0 ? {HS}:HK0+0:SB=(-B,0,B):ProgA ???＇变量输入和声明 S=0=E=0:≠E=90 ? ＇求边桩坐标时的偏角值判定 L=πRN÷180+V ? ＇含有缓曲线的曲线总长 T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^4÷(2688R^3)))tan(N÷2)???＇切线长 A=Q-T:B=A+V:D=A+L:C=D-V ??????＇A-ZH(ZY)点桩号,B-HY点桩号,C-YH点桩号,D-HZ(YZ)点桩号 Rec(T,F+180) ???????????＇求ZH(ZY)点的坐标增量 Z[1]=W+I:Z[2]=K+J ?????????＇ZH(ZY)点坐标值 Rec(T,F+GN) ????????????＇求HZ(YZ)点的坐标增量 Z[3]=W+I:Z[4]=K+J ?????????＇HZ(YZ)点的坐标值 Lbl1 ? U=S÷(Abs(S+10E-19)):S=AbsS ????＇左右偏角每件判定 HA=Goto2: ≠ ??????????＇第一直线上坐标计算判定 HB=Goto3: ≠ ??????????＇第一缓和曲线上坐标计算判定 HC=Goto4: ≠ ??????????＇净圆曲线上坐标计算判定 HD=Goto5: ≠ Goto6⊿⊿⊿⊿ ???＇第二缓和曲线和第二直线上坐标计算判定 Lbl2 ? Rec(Q-H,F+180) ??????????＇第一直线上中桩坐标增量计算 X=W+I:Y=K+J ?????????????＇中桩坐标值计算 Rec(S,F+180-(180-E)U) ???????＇第一直线上与中桩同一断面的边桩增量计算 X=X+I:Y=Y+J ????????????＇边桩坐标值计算 S=SU ???????????????＇边长条件判定 Goto8 ? Lbl3 ???????????????＇进入第一缓曲线段计算 Z=H-A ???????????????＇待求点至ZH点的距离 O=90Z^2÷(πRV) ??????????＇所求点缓曲线对应的圆心角 X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4) ???＇缓曲线上ZH点至待求的支距X坐标 Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ??＇缓曲线上ZH点至待求点的支距Y坐标 Lbl7 ? Rec(X,F) ?????????????? X=Z[1]+I:Y=Z[2]+J ????????? Rec(Z,F+90G) ????????????＇把中桩支距坐标转换成测量统一坐标 X=X+I:Y=Y+J ?? Rec(S,F+OG+EU) ????????????＇曲线边桩坐标增量计算 X=X+I:Y=Y+J ?????????????＇坐标计算结果??? S=SU ?????????????????＇边长条件 Goto8 ? Lbl4 ?????????????????＇进入主圆计算部分 Z=H-A-V÷2 ??????????????＇曲线上待求点到HY点的里程 O=180Z÷(Rπ) ????????????＇待求点方位角所对应的圆心角 X=RsinO+(V÷2-V^3÷(240R^2)) ????? Z=R(1-cosO)+(V^2÷(24R)-V^4÷(2688R^3))?? ＇主圆部分待求点支距坐标XY Goto7 ? Lbl5 ????????????????＇进入第二缓和曲线计算 Z=D-H ????????????????＇曲线上待求点到HZ点的里程 O=90Z^2÷(πRV) ???????????＇待求点方位角所对应的圆