CasioFX5800测量程序集..docVIP

CasioFX-5800P测量程序集 1：Z S （坐标正算） LBI 0 :〝XO〞?A :〝YO〞?B : ?D : ?F : 0→I : 0→J : Rec(D , F) :〝X=〞: A+I→X▲〝Y=〞: B+J→Y▲ Goto 0 说明：A：基点X坐标。B：基点Y坐标。D：两点间距。F：从基点至目标点的方位角。 2 : F S (坐标反算，求两点间距及方位角) LBI 1 : ?A : ?B : ?X : ?Y : 0→I : 0→J : PoL(X－A,Y－B) :〝D=〞: I→D▲ If J0 : Then J+360→J :Ifend ：〝F=〞: J→F▲ Goto 1 说明：A ，B ：起点的坐标。X ，Y ：目标点的坐标。 3 ：D – S (施工坐标，大地坐标之间互相转换) 〝XO〞?A : 〝YO〞?B : ?F : LBI 0 :〝N=1 . DD = SG , N=2 . SG = DD〞: ?N : ?X : ?Y : If N=1 : Then 〝XS=〞: (X－A) Cos(F)+(Y－B) Sin(F)+7000▲ 〝YS=〞: (Y－B) Cos(F) －(X－A) Sin(F)+4.875▲ ELse If N=2 : Then〝XD=〞: A+(X－7000) Cos(F) －(Y－4.875) Sin(F) ▲ 〝YD=〞: B+(X－7000) Sin(F)+(Y－4.875) Cos(F) ▲ Ifend : Ifend : Goto 0 说明：A,B ：起点的坐标。 F :要旋转的方位角。 X,Y : 目标点的坐标。 N=1 :大地转施工。 N=2 :施工转大地。 4 : DMCX－MD ( 隧道断面程序 ) LBI 0 : ?X : ?Y : ?H : Prog〝GC〞: If H≥G+1.533 : Then Goto 1 : ELse If H≥G+0.13 And H G+1.533 : Then Goto 2 : ELse If H≥G－0.64 And H G+0.13 : Then Goto 3 : ELse If H G－0.64 : Then Goto 4 : Ifend : Ifend : Ifend : Ifend LBI 1 :〝YUAN 1〞: POL(H－G－1.533 , Y) －6.3▲Goto 0 LBI 2 :〝YUAN 2〞: POL(H－G－1.533 , Y+2.5) －8.82▲G－H▲Goto 0 LBI 3 :〝YUAN 3〞: POL(H－G－0.302 , Y-4.594) －1.62▲Goto 0 LBI 4 :〝YANG GONG〞: POL(H－G－13.527 , Y) －15.62▲Goto 0 说明 ：X , Y , H : 为掌子面上任意点坐标。 5 ：B P （洞口边坡开挖计算公式） LBI 0 : ?X : ?Y : ?H : Prog〝GC〞: If X8470 : Then Goto 1 : ELse Goto 2 : Ifend LBI 1 : 〝PO－DI－CHA=〞:H－G－1.533▲ 〝I=〞: （H－G－1.533）÷（Y－6.5）→I▲ 〝PIng－JU=〞: Y－（（H－G－1.533）÷2+6.5）▲ 〝GAO－CHA=〞: H－G－1.533－（Y－6.5）×2▲ Goto 0 LBI 2 :〝I=〞: （H－G）÷（Y－8.475）→I▲ 〝PIng－JU=〞: Y－（（H－G）×1.5+8.475）▲ 〝GAO－CHA=〞: H－G－0.6667（Y－8.475）▲ Goto 0 6 : DMCX （ 断面程序，改进后 ） LBI 0 : CLS : ?X : ?Y : ?H : Prog〝GC〞: If H≥G+1.533 : Then Goto 1 : ELse If H≥G+0.13 And HG+1.533 : Then Goto 2 : ELse If H≥G－0.64 And HG+0.13 : Then Goto 3 : ELse If HG－0.64 : Then Goto 4 : Ifend : Ifend : Ifend : Ifend : LBI 1 : POL（H－G－1.533 , Y）→R : CLS 〝YUAN1=KW〞：Loate 10 , 1, R－6.4 〝GONG JIA=〞： Loate 10 , 2 , R－6.19 〝G1=〞：Loate 10 , 3 ,