卡西欧5800的公路测量程序Word文件下载.docx

1、If Abs（I）1m:Then Fix 3:K=K:K.D=JElse Goto 3: 1M:.NEXT 1.EXITM:If M=&Then Goto 3:Goto 2子程序3：【ZZ-FD】 Prog DATA-FDK-LM:（P-R）2PQRO:5DimZ:.&694318442Z1:.33&94782Z2:1Z3:1-Z3Z4:1-Z2Z5 For 1I to 5:A+MrZI（1P+OMZI）ZI:Next:Z3F X+M（Bcos（Z1）+Ccos（Z2）+Ccos（Z4）+Bcos（Z5）S Y+M（Bsin（Z1）+Csin（Z2）+Csin（Z4）+Bsin（Z5）T子程序

2、4：【DATA-FD】U:If K（线路起点里程）:（线路终点里程）: （线元起点里程）Q:If KL+Q:Then （线元起点半径）P:（线元终点半径）R:（线元起点X坐标）X:（线元起点Y坐标）Y:（线元起点方位角）A:Goto E:L+QL （重复L2） Lbl E输入说明： L2开始每行程序为一个线元参数要素，有几个线元就输入几行。直线半径按输入。功能常数可能位置会不同，请仔细查询；m位于Function55；eEXP键；DszFunction36。*【完整线路坐标正反算程序】【XLFY-ALL】 5DimZ:1Z:If Z=1:ZS-ALLFS-ALL【ZS-ALL】L01: Z&V

3、9&L02:ZZ-ALLIf Z1&X+Zcos（F）X:Y+Zsin（F）Y:L03:XL04:YL05:【FS-ALL】 Lbl 8: Lbl 9:V-XI:W-YJ:Else Goto 9: 1Z:If Z=&Then Goto 9:Goto 8【ZZ-ALL】DATA-ALLAbs（B）R18&-（L+M）2G L²24R-L42688R3P:L2-L324&R&Q M&R-M4R3U:M2-M3O （R+U-（R+P）cos（Abs（B）sin（Abs（B）+QT:（R+P-（R+U）cos（Abs（B）sin（Abs（B）+OS:J-T+1mD If KD:Then Go

4、to 1:If KD+L:Then K-DC:LU:Goto 2:If KD+L+G:Then 1C:Goto 3:If KD+M+L+G:Then K-D-M-L-GC:MU:D+M+L+G:Then K-D-L-M-GC:Goto 5:L06: Lbl 1:E+（J-K）cos（A+18&）X:N+（J-K）sin（A+18&）Y:AF:Goto EL07:C-C5（4&U&）+C9（3456R4U4）H:C3（6RU）-C7（336R3U3）+C11（4224&R5U5）I:If C=K-D:Then Goto 4:Goto 6L08:（2K-2D-L）RU:Rsin（U）+QH:R（1

5、-cos（U）+PIL09: Lbl 4:If BE+（S+H）cos（A+B）+Icos（A+B+9&N+（S+H）sin（A+B）+Isin（A+B+9&）YL12: Lbl 7:Then -RU:Then A+9&C&（UL）F:If C=K-D-L-M-G:Then A+B-9&（UM）F:If C=1:Then A+18&（K-D-L2）UF:L13:【DATA-ALL】Z1:1Z1:L2：If K（起点或上一段曲线缓直点里程）:Then （交点里程）J:（交点X坐标）E:（交点Y坐标）N:（半径）R:（第一缓和曲线长度）L:（第二缓和曲线长度）M: （偏角）B:（起始边方位角）A:

6、IfEnd L3：（重复L2）L4：Lbl E简要说明：每行程序为一个曲线的参数要素，有几个曲线就输入几行。【中桩标高计算程序】【H-SJ】DATA-H Abs（R（G-F）200T If KN-T:Then O-0.01F（N-K）S:Goto 1: If KN:Then O-0.01F（N-K）-（T+K-N）2R2S: If KN+T:Then O-0.01G（N-K）-（T+N-K）2L6: If KN+T:Then O-0.01G（N-K）S:L7:Fix 3:H=SNorm:【DATA-SJ】If K（起点或上一段竖曲线终止里程）:Then （变坡点里程）N:（变坡点高程）O:（竖

7、曲线半径）R:（前纵坡值）F:（后纵坡值）G:【坡脚宽度计算程序】程序名：【PJD】 25L:2.5G:1.5T:8N:0.9A:0.9B:1.10C:1.5D:H-SJSH-DMAbs（S-M）H If S-M0:Then L+HDK: If HN:Then L+G+HAK: If H2N:Then L+G+NA+T+（H-N）BK: If H2N:Then L+G+NA+T+NB+T+（H-2N）CK:L-PJ=KL8:Goto 1【坐标反算程序】【XY-DF】I:J:A.XD:A.YG:B.XX:B.YY:Pol（X-D）,（Y-G）:If JGoto 2原来lbl 后没有标号的。 O=

8、-1 =Goto 6 “X,Y”:R+OCos（Z+S）XU+OSin（Z+S）YProg “D”:Goto 4 Lbl 6:Z7X:Z8Y:”XF”?”YF”?XY=0 = XZ7:YZ8:Pol（X-R,Y-U+1p）:Z+S-JJ:”YC,DL,L”:ICos（J）OISin（J）IL+IGoto 6 二、P程序：在程序中提供一个自由运算的模式。Lbl 1:”TMP”?I:If I0:Then “RST”:IGoto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。Prog “AU” Lbl 1: Z8Y: Z6S: ”XF”?X :XZ7: ”ZF”? SZ

9、6 Lbl 2:Y=U =Y+1pY Pol（X-R,Y-U）:J-ZJ:Isin（J）O:Icos（J）I If Abs（I）0.1:Then Prog “E”:”L,YC”:L+ILOGoto 3:If Z90:Then Pol（Z9-SO,I）:JZ9180I:”DL”:IL+IL:Goto 2 Lbl 3:If S=0: MZ Lbl 4:”SG”?ZM:If Abs（Z）=1: Then Prog “GG”:YZ:If X=1:Then XZ:If Z=0:Then Z11C:Z12D: Z13E: Z14F:”LA”?CZ11: ”HA”?DZ12: ”LB”?EZ13: ”HB”

10、?FZ14:D+（E-C）-1（F-D）（L-C）Z:Lbl 5:”SG”:”TW”:Z-SC:Z3P: Z4Q: :Z5T:”YC0”?P:PZ3:”HC0”?Q:QZ4 :”M”?T:TZ5:OAbs（O）I:”BL”:I（P+TC（C+Q）Abs（C）U”DB”:IU-IOJ AnsI:Prog “P”:Goto 1 四、I程序：通过手工方式输要素 Z2=0 =Z1R:Z2U:”JL”?”JX”?”JY”?H:”JA”?”R”?”LS”?”L1”?R:”L2”?RZ1:UZ2:ReTurn ”L0”?”X0”?”Y0”?”A0”?V”:”L-0 Z=-1 Y=1”?W=0 =”R0”?”

11、R1”?B 五、D程序：根据测站点的坐标及放样点的坐标计算水平距离及方位角 Y=N =Y+1nY Pol（X-Z10,Y-N）:JJ+360J ”A,D”:JDMSI 六、E程序：桩号出界判断 If LZ2: Then “L2”:LIfEnd If LZ1: Then “L1”:Goto 3 Lbl 2:If LThen “Then “L-FIfEnd Lbl 3 七、GG程序：用统计数据中桩号，左右高程数据进行内插计算。FreqOff : nC:FreqOn:minX: Then “LmaxX”:C-1I:For 1I To C-1 If LList XI+1: Then Break:Nex

12、t Lbl 8 : （L-List X）（List XI+1- List X）J : List Y+J（List YI+1-List Y）X : List Freq +J（List Freq I+1-List Freq ）Y 八、S程序:对统计数据列表中数据按桩号进行排序。FreqOn“WAITn=”:Locate 10,1,C If C2 Then Return:For 1D To C: DI:For D+1E To C:If List XEReturn Prog “GG”:”X,Y”:XYGoto 1 十一、GZW程序：构造物坐标放样计算，在运行模式直接调用。Z10S:N：0T Lbl 1;IF Z=-1 :Then “A0,DD”:JZIIfEnd If Z=0:Then R