CASIO f-5800p计算器测量实用程序加数据库.docVIP

CASIO fx-5800p道路主线坐标放样程序简化使用程序 说明： 此程序是根据教科书结合工地实践应用继续开发，本程序包含一个母程序和两个子程序，本程序简化了部分详细输出内容，加快了实地放样计算的速度，本程序还有一大优点就是有“一劳永逸”的效果，先把子程序输入计算器，然后根据曲线要素表，用其中的数据代替母程序中的文字提示（包括括号），输入计算器，在运行母程序，然后检核，每一个曲线至少检查一个点，检核无误后即可，每次去工地放样就可以免带图纸，同时也大大的提高了野外放样计算的速度。 ZBFY(道路主线坐标放样程序母程序)： Lbl 0 “KP=”?P If P(第一个曲线的结束桩号)：Then （第一个曲线的交点x坐标）→X （第一个曲线的交点y坐标）→Y （第一个曲线的上一交点x坐标）→M （第一个曲线的上一交点y坐标）→N （第一个曲线的转角，左-右+）→O （第一个曲线的半径）→R （第一个曲线的第一缓和曲线长度）→B （第一个曲线的第二缓和曲线长度）→C （第一个曲线的交点桩号）→K Prog “-ZBFY”:Goto 0:IfEnd If P(第二个曲线的结束桩号)：Then （第二个曲线的交点x坐标）→X （第二个曲线的交点y坐标）→Y （第二个曲线的上一交点x坐标）→M （第二个曲线的上一交点y坐标）→N （第二个曲线的转角，左-右+）→O （第二个曲线的半径）→R （第二个曲线的第一缓和曲线长度）→B （第二个曲线的第二缓和曲线长度）→C （第二个曲线的交点桩号）→K Prog “-ZBFY”:Goto 0:IfEnd . . .(重复If到IfEnd的语句，有n个曲线，就重复n-1次) . . . （最后一个曲线的交点x坐标）→X （最后一个曲线的交点y坐标）→Y （最后一个曲线的上一交点x坐标）→M （最后一个曲线的上一交点y坐标）→N （最后一个曲线的转角，左-右+）→O （最后一个曲线的半径）→R （最后一个曲线的第一缓和曲线长度）→B （最后一个曲线的第二缓和曲线长度）→C （最后一个曲线的交点桩号）→K Prog “-ZBFY”:Goto 0 (结束) -ZBFY(带“-”号的程序表示子程序)：→DimZ Lbl0 If O0:Then -1→W:Else 1→W:IfEnd:WO→A B224R-B∧(4) 2688R∧(3)+B∧(6)506880R∧(5)→Z〔6〕 C224R-C∧(4) 2688R∧(3)+C∧(6)506880R∧(5)→Z〔7〕 B2-B∧(3)240R2+B∧(5)34560R∧(4)→Z〔8〕 C2-C∧(3)240R2+C∧(5)34560R∧(4)→Z〔9〕 Z〔8〕 Z〔7〕 Z〔6〕sin(A)→S Z〔〕 Z〔〕 Z〔〕sin(A)→T RA 180(B+C)2→L K-S→Z〔〕〔〕→Z〔〕〔〕2+(B-C) 4→Z〔〕〔〕→Z〔〕〔〕→Z〔〕→Z〔〕→Z〔〕〔〕 →Z〔〕〔〕 →Z〔〕〔〕 →Z〔〕〔〕 →Z〔〕〔〕 Z〔〕 →L “XP=”:X-(S+L)cos(Z〔〕 →F “YP=”:Y-(S+L)sin(Z〔〕 →G Z〔〕→ Goto 5 Lbl 1 If P Z〔〕 P- Z〔〕→→Z〔〕→Z〔〕”-FY” “XP=”: Z〔〕〔〕〔〕〔〕〔〕 →F “YP=”: Z〔〕〔〕〔〕〔〕〔〕 →G Z〔〕(BR)→Z Goto 5 Lbl 2 If P Z〔〕 P- Z〔〕→ R→Z〔〕〔〕〔〕→〔〕〔〕〔〕→〔〕“XP=”: Z〔〕〔〕〔〕〔〕〔〕 →F “YP=”: Z〔〕〔〕〔〕〔〕〔〕 →G Z〔〕〔〕→ Goto 5 Lbl 3 If P Z〔〕 Z〔〕→L:L→Z〔〕→Z〔〕”-FY” “XP=”: Z〔〕〔〕〔〕〔〕〔〕 →F “YP=”: Z〔〕〔〕〔〕〔〕〔〕 →G Z〔〕(CR)→Z Goto 5 Lbl 4 P- Z〔〕→ “XP=”:X+(T+L)cos(Z〔〕 →F “YP=”:Y+(T+L)sin(Z〔〕 →G Z〔〕→ Lbl 5 “D ANGLE”?H If H=0:Then Goto 9:IfEnd:?D “XB=”:F+Dcos(Z+H) →Z〔〕“YB=”:G+Dsin(Z+H) →Z〔〕 Lbl 9 (结束) -FY(子程序2)： If Z〔〕→Z〔〕→Z〔〕 Z〔〕〔〕∧() 40(RZ〔〕〔〕∧() 3456(RZ〔〕 ∧(4) →Z〔〕〔〕∧() 6(RZ〔〕〔〕∧() 336(RZ〔〕 ∧(3)+ Z〔〕∧() 4224