《CASIO fx5800p计算器测量实用程序加数据库.docx》由会员分享，可在线阅读，更多相关《CASIO fx5800p计算器测量实用程序加数据库.docx（7页珍藏版）》请在三一办公上搜索。
1、CASIO fx5800p计算器测量实用程序加数据库CASIO fx-5800p道路主线坐标放样程序简化使用程序 说明： 此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示，输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。 ZBFY(道路主线坐标放样程序母程序)： Lbl 0 “KP=”?P If
2、 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 Z1:Then Goto1:IfEnd Z1-P L “XP=”:X-(S+
3、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) RpZ13 Rsin(Z13)+ Z8Z16:R(1-cos(Z13)+ Z6Z17 “X
4、P=”: 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+
5、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道路
6、匝道坐标放样程序简化使用程序 说明： 本程序根据主线坐标放样程序的思想编写，原理相同，优点相同，使用相同。此程序还充分体现出了CASIO 5800比CASIO 4850的优越性，因为CASIO fx-5800p具有定积分函数的计算功能，因此本计算程序及简便又精确。 ZDFY(道路匝道坐标放样程序母程序)： Lbl 0 “KP=”?P If P(第一个线元的结束桩号):Then (第一个线元的起点X坐标)W (第一个线元的起点Y坐标)Y (第一个线元的起始方位角)Q (第一个线元的起点桩号)S (第一个线元的终点桩号)E (第一个线元的起点半径，左-右+，无穷大输0)R (第一个线元的终点半径，
7、左-右+，无穷大输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 1RA:IfEnd If T0:Then
8、 1TB:IfEnd P-SL “XP=”:W+(cos(Q+180AXp+90(B-A)X2Cp),0,L) F“YP=”:Y+(sin(Q+180AXp+90(B-A)X2Cp),0,L) GQ+180ALp+90(B-A)L2CpZ If Z0: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道路设计高程计算程序简化使用程序 说明： 本程序根上面
9、两个程序的编写思想相同，原理相同，优点相同，使用相同。本程序建议还编一个坡度程序，联合本程序就可以计算路面任意点的高程。 GCJS(道路道路设计高程计算程序母程序)： Lbl 0 “K=”?K If K(计算路线的终点桩号) :Then Goto 0: IfEnd If P(第一个竖曲线的结束桩号):Then (第一个竖曲线的后竖曲线变破点桩号)A (第一个竖曲线的后竖曲线变破点高程)B (第一个竖曲线的切线长)T (第一个竖曲线的变破点桩号)C (第一个竖曲线的变破点高程)D (第一个竖曲线的前竖曲线变破点桩号)E (第一个竖曲线的前竖曲线变破点高程)F (第一个竖曲线的半径)R Prog
10、“-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 IM And KC:Then (K-M)2(2R) P:D+(K-C) I+QP Z Else If KC And KN : Then (K-N)2(2R) P:D+(K-C) J+QP Z Else F+(K-N) (-J)Z : IfEnd: IfEnd: IfEnd “SH=”:Z (结束)
