CASIO fx5800p计算器测量实用程序加数据库.docx

CASIO fx5800p计算器测量实用程序加数据库CASIO fx-5800p道路主线坐标放样程序简化使用程序 说明： 此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示，输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。 ZBFY(道路主线坐标放样程序母程序)： Lbl 0¿ “KP=”?P¿ If P<(第一个曲线的结束桩号)：Then¿ X¿ Y¿ M¿ N¿ O¿ R¿ B¿ C¿ K¿ Prog “-ZBFY”:Goto 0:IfEnd¿ If P<(第二个曲线的结束桩号)：Then¿ X¿ Y¿ M¿ N¿ O¿ R¿ B¿ C¿ K¿ Prog “-ZBFY”:Goto 0:IfEnd¿ . . .(重复If到IfEnd的语句，有n个曲线，就重复n-1次) . . . X¿ Y¿ M¿ N¿ O¿ R¿ B¿ C¿ K¿ Prog “-ZBFY”:Goto 0 (结束) -ZBFY(带“-”号的程序表示子程序)： Deg:Fix3:26DimZ¿ Lbl0¿ If O<0:Then -1W:Else 1W:IfEnd:WOA ¿ B2¸24¸R-B(4) ¸2688¸R(3)+B(6)¸506880¸R(5)Z6¸2688¸R(3)+C(6)¸506880¸R(5)Z7¿ C2¸24¸R-C(4) ¿ B¸2-B(3)¸240¸R2+B(5)¸34560¸R(4)Z8¿ C¸2-C(3)¸240¸R2+C(5)¸34560¸R(4)Z9¿ Z8+(R+ Z7-cos(A)¸sin(A)S¿ Z9+(R+ Z6-cos(A)¸sin(A)T¿ RA p¸180¸(B+C)¸2L¿ K-SZ1¿ Z1+BZ2¿ Z1+L¸2+(B-C) ¸4Z3¿ Z1+L-CZ4¿ Z4+ CZ5¿ Pol(X-M,Y-N):J Z20:J+OZ19¿ X-Scos(Z20) Z21¿ Y-Ssin(Z20) Z22¿ X+Tcos(Z19) Z23¿ Y+Tsin(Z19) Z24¿ If P> Z1:Then Goto1:IfEnd¿ Z1-P L¿ “XP=”:X-(S+L)cos(Z20) F“YP=”:Y-(S+L)sin(Z20) GZ20Z¿ Goto 5¿ Lbl 1¿ If P> Z2:Then Goto 2:IfEnd¿ P- Z1L:LZ14:BZ15:Prog”-FY”¿ “XP=”: Z21+ Z16cos(Z20)-W Z17sin(Z20) F“YP=”: Z22+ Z16sin(Z20)+W Z17cos(Z20) GZ20+90WL2¸(BRp)Z¿ Goto 5¿ Lbl 2¿ If P> Z4:Then Goto 3:IfEnd¿ P- Z1L:90(2L-B) ¸R¸pZ13¿ Rsin(Z13)+ Z8Z16:R(1-cos(Z13)+ Z6Z17¿ “XP=”: Z21+ Z16cos(Z20)-W Z17sin(Z20) F“YP=”: Z22+ Z16sin(Z20)+W Z17cos(Z20) GZ20+W Z13Z¿ Goto 5¿ Lbl 3¿ If P> Z5:Then Goto 4:IfEnd¿ Z5-PL:LZ14:CZ15:Prog”-FY”¿ “XP=”: Z23- Z16cos(Z19)-W Z17sin(Z19) F“YP=”: Z24- Z16sin(Z19)+W Z17cos(Z19) GZ19-90WL2¸(CRp)Z¿ Goto 5¿ Lbl 4¿ P- Z5L¿ “XP=”:X+(T+L)cos(Z19) F“YP=”:Y+(T+L)sin(Z19) GZ19Z¿ Lbl 5¿ “D ANGLE”?H¿ If H=0:Then Goto 9:IfEnd:?D¿ “XB=”:F+Dcos(Z+H) Z11“YB=”:G+Dsin(Z+H) Z12Goto 5¿ Lbl 9 (结束) -FY(子程序2)： If Z14=0:Then 0Z16:0Z17:Else¿ Z14- Z14(5) ¸40(RZ15)2+ Z14(9) ¸3456¸(RZ15) (4) Z16¿ ¸6¸(RZ15)- Z14(7) ¸336¸(RZ15) (3)+ Z14(11) ¸42240¸(RZ15) (5) Z17¿ Z14(3) IfEnd CASIO fx-5800p道路匝道坐标放样程序简化使用程序 说明： 本程序根据主线坐标放样程序的思想编写，原理相同，优点相同，使用相同。此程序还充分体现出了CASIO 5800比CASIO 4850的优越性，因为CASIO fx-5800p具有定积分函数的计算功能，因此本计算程序及简便又精确。 ZDFY(道路匝道坐标放样程序母程序)： Lbl 0¿ “KP=”?P¿ If P<(第一个线元的结束桩号):Then¿ (第一个线元的起点X坐标)W¿ (第一个线元的起点Y坐标)Y¿ (第一个线元的起始方位角)Q¿ (第一个线元的起点桩号)S¿ (第一个线元的终点桩号)E¿ (第一个线元的起点半径，左-右+，无穷大输0)R¿ (第一个线元的终点半径，左-右+，无穷大输0)T¿ Prog “-ZD” ¿ Goto 0¿ IfEnd¿ . (重复If到IfEnd的语句，有n个线元，就重复n-1次) (最后一个线元的起点X坐标)W¿ (最后一个线元的起点Y坐标)Y¿ (最后一个线元的起始方位角)Q¿ (最后一个线元的起点桩号)S¿ (最后一个线元的终点桩号)E¿ (最后一个线元的起点半径，左-右+，无穷大输0)R¿ (最后一个线元的终点半径，左-右+，无穷大输0)T¿ Prog “-ZD” ¿ Goto 0 (结束) -ZD (道路匝道坐标放样程序子程序)： Deg:Fix3:2DimZ¿ E-SC:0A:0B¿ If R0:Then 1¸RA:IfEnd¿ If T0:Then 1¸TB:IfEnd¿ P-SL¿ “XP=”:W+(cos(Q+180AX¸p+90(B-A)X2¸C¸p),0,L) F“YP=”:Y+(sin(Q+180AX¸p+90(B-A)X2¸C¸p),0,L) GQ+180AL¸p+90(B-A)L2¸C¸pZ¿ If Z<0:Then Z+360Z:IfEnd¿ “BP=”:Z DMSLbl 2¿ “D ANGLE”?H:If H=0:Then Goto 0:IfEnd:?D¿ “XB=”:F+Dcos(Z+H) Z1“YB=”:G+Dsin(Z+H) Z2Goto 2¿ Lbl 0 (结束) CASIO fx-5800p道路设计高程计算程序简化使用程序 说明： 本程序根上面两个程序的编写思想相同，原理相同，优点相同，使用相同。本程序建议还编一个坡度程序，联合本程序就可以计算路面任意点的高程。 GCJS(道路道路设计高程计算程序母程序)： Lbl 0¿ “K=”?K¿ If K<(计算路线的起点桩号) or K>(计算路线的终点桩号) :Then Goto 0: IfEnd¿ If P<(第一个竖曲线的结束桩号):Then¿ (第一个竖曲线的后竖曲线变破点桩号)A¿ (第一个竖曲线的后竖曲线变破点高程)B¿ (第一个竖曲线的切线长)T¿ (第一个竖曲线的变破点桩号)C¿ (第一个竖曲线的变破点高程)D¿ (第一个竖曲线的前竖曲线变破点桩号)E¿ (第一个竖曲线的前竖曲线变破点高程)F¿ (第一个竖曲线的半径)R¿ Prog “-GC” ¿ Goto 0 :IfEnd¿ . (重复If到IfEnd的语句，有n个竖曲线，就重复n-1次) (第一个竖曲线的后竖曲线变破点桩号)A¿ (第一个竖曲线的后竖曲线变破点高程)B¿ (第一个竖曲线的切线长)T¿ (第一个竖曲线的变破点桩号)C¿ (第一个竖曲线的变破点高程)D¿ (第一个竖曲线的前竖曲线变破点桩号)E¿ (第一个竖曲线的前竖曲线变破点高程)F¿ (第一个竖曲线的半径)R¿ Prog “-GC” ¿ Goto 0 (结束) -GC(道路道路设计高程计算程序子程序)： Fix 3 ¿ ¸(C-A) I¿ (F-D)¸(E-C) J¿ (D-B) If I<J :Then 1Q :Else -1Q :IfEnd¿ “E=”: T2¸(2R) U“E(QD)=”: C-TM“E(ZD)=”: C+TNIf KM: Then D+(K-C)×I Z ¿ Else If K>M And KC:Then (K-M)2¸(2R) P:D+(K-C) ×I+QP Z ¿ Else If K>C And K<N : Then (K-N)2¸(2R) P:D+(K-C) ×J+QP Z ¿ Else F+(K-N) ×(-J)Z : IfEnd: IfEnd: IfEnd¿ “SH=”:Z (结束)