CasioFX5800测量程序集.doc

CasioFX-5800P测量程序集（博牙高速公路13标隧道） 1：Z S （坐标正算）LBI 0 :XO?A :YO?B : ?D : ?F : 0I : 0J : Rec(D , F) :X=: A+IXY=: B+JY Goto 0说明：A：基点X坐标。B：基点Y坐标。D：两点间距。F：从基点至目标点的方位角。2 : F S (坐标反算，求两点间距及方位角)LBI 1 : ?A : ?B : ?X : ?Y : 0I : 0J : PoL(XA,YB) :D=: IDIf J SG , N=2 . SG = DD: ?N: ?X : ?Y : If N=1 : Then XS=: (XA) Cos(F)+(YB) Sin(F)+7000YS=: (YB) Cos(F) (XA) Sin(F)+4.875ELse If N=2 : ThenXD=: A+(X7000) Cos(F) (Y4.875) Sin(F) YD=: B+(X7000) Sin(F)+(Y4.875) Cos(F) Ifend : Ifend : Goto 0说明：A,B ：起点的坐标。 F :要旋转的方位角。 X,Y : 目标点的坐标。 N=1 :大地转施工。 N=2 :施工转大地。4 : DMCXMD ( 隧道断面程序 )LBI 0 : ?X : ?Y : ?H : ProgGC: If HG+1.533 :Then Goto 1 : ELse If HG+0.13 And H G+1.533 :Then Goto 2 : ELse If HG0.64 And H G+0.13 :Then Goto 3 : ELse If H G0.64 : Then Goto 4 : Ifend : Ifend :Ifend : Ifend LBI 1 :YUAN 1: POL(HG1.533 , Y) 6.3Goto 0LBI 2 :YUAN 2: POL(HG1.533 , Y+2.5) 8.82GHGoto 0LBI 3 :YUAN 3: POL(HG0.302 , Y-4.594) 1.62Goto 0LBI 4 :YANG GONG: POL(HG13.527 , Y) 15.62Goto 0说明 ：X , Y , H : 为掌子面上任意点坐标。5 ：B P （洞口边坡开挖计算公式）LBI 0 : ?X : ?Y : ?H : ProgGC: If X8470 : Then Goto 1 : ELse Goto 2 : IfendLBI 1 : PODICHA=:HG1.533I=: （HG1.533）（Y6.5）IPIngJU=: Y（HG1.533）2+6.5）GAOCHA=: HG1.533（Y6.5）2 Goto 0LBI 2 :I=: （HG）（Y8.475）IPIngJU=: Y（HG）1.5+8.475）GAOCHA=: HG0.6667（Y8.475） Goto 06 : DMCX （ 断面程序，改进后 ）LBI 0 : CLS : ?X : ?Y : ?H : ProgGC: If HG+1.533 : Then Goto 1 : ELse If HG+0.13 And HG+1.533 :Then Goto 2 : ELse If HG0.64 And HG+0.13 :Then Goto 3 : ELse If HG0.64 : Then Goto 4 : Ifend : Ifend :Ifend : Ifend :LBI 1 : POL（HG1.533 , Y）R : CLS YUAN1=KW：Loate 10 , 1, R6.4GONG JIA=： Loate 10 , 2 , R6.19G1=：Loate 10 , 3 , G+1.533H Goto 0LBI 2 : POL（HG1.533 , Y+2.5）R : CLSYUAN2=：Loate 8 , 1 , R8.69G1=：Loate 8 , 2 , G+1.533HG2=：Loate 8 , 3 , G0.624H Goto 0LBI 3 YUAN3=: POL（HG0.302 , Y4.594）1.65G2=: G0.624H Goto 0LBI 4 YANG GONG=: POL（HG13.527 , Y）15.65 Goto 07 ：GC(高程子程序，注意子程序不能独立运行)（LBI 0 : ?X :）If X7000 And X7780 : Then 772.93A : 7130.692B :0.009C : 0.007D : 80000R : Goto 1 : ELse If X7780 And X8733.5: Then768.39E : 7780L : 0.007D : Goto 2 : ELse If X 8733.5 And X9266.5 : Then 759.85A : 9000B : 0.007C : 0.0275D : 26000R :Goto 1 : ELse If X9266.5 And X9826.805 : Then 744.82A : 9546.652B : 0.0275C : 0.005D :24902.41R :Goto 1 : ELse If X9826.805And X XY, N=2 . XY = SZ: ?N :XO?U :YO?V :SO?O :FO?G :LS?H :RO?P :RN?R : ?Q : 1PC :（PR）（2HPR）D : 180E : If N=1 : Then Goto 1 : ELse Goto 2 : IfendLBI 1 : ?S : ? Z : Abs（SO）W : ProgSUB1:XS=: XYS=: YFS=: F90Goto 1LBI2 : ?X : ?Y : XI : YJ : ProgSUB2:S=: O+WSZ=: ZGoto 2说明：N=1 ：正算求坐标。N=2 ：反算求里程桩号和偏距。XO,YO ：起点坐标。SO :起点里程桩号。FO ：起点方位角。LS ：线元长度。RO ：起点曲率半径，当半径为无穷大时用110表示，左偏时Q=-1，右偏时Q=1，直线段Q=0 。S ：为待求点的里程桩号。Z ：为待求点距中心线的偏距，左侧为正，右侧为负。9 ：SUB1（缓和曲线正算子程序，不能独立运行）0.1739274226A : 0.3260725774B : 0.0694318442K : 0.3300094782L : 1LF : 1KM : U+W（A Cos（G+QEKW（C+KWD）+B Cos（G+QELW（C+LWD）+ B Cos（G+QEFW（C+FWD）+A Cos（G+QEMW（C+MWD）X :V+W（A Sin（G+QEKW（C+KWD）+B Sin（G+QELW（C+LWD）+ B Sin（G+QEFW（C+FWD）+A Sin（G+QEMW（C+MWD）Y : G+QEW（C+WD）+90F : X+Z cos（F）X : Y+Z Sin（F）Y10 : SUN 2（缓和曲线反算子程序，不能独立运行）G90T : Abs（YV）Cos（T）（XU）Sin（T）W : 0Z : LBI 0 : ProgSUB 1: T+QEW（C+WD）L :（JY）Cos（L）（IX）Sin（L）Z : If Abs（Z）XY, N=2 . XY = SZ : ?N : ?S : ProgQXSJK: 1PC :（PR）（2HPR）D : 180EIf N=1 : Then Goto 1 : ELse Goto 2 : Ifend : LBI 1 : ?Z : Abs（SO）W :ProgSUB 1:XS=: XYS=: YFS=: F90 Goto 0 LBI 2 :X?I :Y?J : ProgSUB 2:S=: O+WSZ=: Z Goto 012 : QXSJK （缓和曲线数据库子程序，不能独立运行）If S7000 And S8552.052 : Then 39351.594U : 72418.7097V : 7000O :257.8746719G : 2000H : 11045P : 11045R : 0Q : ELse If S8552.052 And S8752.052 : Then 39025.584U : 70901.283V : 8552.052O: 257.8746719G : 200H : 11045 P : 1800R : 1Q : ELse If S8752.052 And SXY, N= 2 . XY=SZ: ? N : I=0 :J=0 : Rec（R , G+90Q）: A+IC : B+JD : G+90Q+180E : If E360 : Then E360E : Ifend : IfendIf N=1 : Then Goto 1 : ELse Goto 2 : IfendLBI 1 : ?S : ?Z : 180 Abs（SO）（R）P : 0I : 0J : Rec（RZ , E+P）: XS=: C+IXYS=: D+JYFS=: G+PF Goto 0LBI 2 : ?X : ?Y : 0I : 0J : Pol（XC , YD）: If J360 : Then J360J : Ifend : IfendS=: （JE）R180+OSZ=: RIZ Goto 0说明：XO,YO : 起点坐标。SO ：起点里程桩号。FO ：起点方位角。 R ：圆曲线半径，左偏时Q = 1，右偏时Q = 1， N = 1 ：正算，已知 S,Z（偏距，左负，右正）求坐标（X,Y） N = 2 ：反算，已知（X,Y）求出（S,Z）14 ：ZBZH （高斯任意带平面坐标转换，换带计算）X1+Y1i=（JIU）?A : X2+Y2i=（JIU）?B : X1+Y1i=（XIN）?C : X2+Y2i=（XIN）?D : （CD）（AB）F : CFAELBI 0 :X+Yi=（JIU）?X : E+FXY :X=: Rep（Y）Y=: Imp（Y） Goto 0说明：先以复数形式（X+Yi）输入2个参照点，例如：先输入121坐标系统里D243，D244两点复数形式坐标，接着输入12145坐标系统D243，D244复数形式坐标，然后输入待求点D245的121坐标，最后直接输出D245的12145的坐标。15 : Y P （洞口仰坡开挖计算程序）LBI 0 : ?X : ?H :I=:（H771.653）（8440X）GAOCHA=: H771.6532（8440X）PIngJU=: 8440X（H771.653）2 Goto 0说明：暗挖起点为8440，该点洞顶高程771.653，设计坡度为1：0.5 。16 ：HFJH（距离后方交会程序）LBI 1 : XA?A :YA?B :XB?C :YB?D :D1?E :D2?F : ?Q : 0J : POL（CA , DB）G : J+Q Cos1（GG+EEFF）（2GE）H :XP=: A+E Cos（H）XYP=: B+E Sin（H）Y Goto 1说明：第一个照准点坐标（XA , YA），平距为D1 ，第二个照准点坐标（XB , YB），平距为D2 , 第一点，第二点及测站点如果是顺时针方向排列Q = 1，逆时针Q =1 。（XP