casio5800计算器公路竖曲线全线高程计算程序

casio5800计算器公路竖曲线全线高程计算程序

ID:22679127

大小:47.00 KB

页数:15页

时间:2018-10-30

casio5800计算器公路竖曲线全线高程计算程序_第1页
casio5800计算器公路竖曲线全线高程计算程序_第2页
casio5800计算器公路竖曲线全线高程计算程序_第3页
casio5800计算器公路竖曲线全线高程计算程序_第4页
casio5800计算器公路竖曲线全线高程计算程序_第5页
资源描述:

《casio5800计算器公路竖曲线全线高程计算程序》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、CASIO5800计算器公路竖曲线全线高程计算程序“SQXJSCX”↙Lb1  1↙CLs:Fix  3↙“K=”?k◢    (计算点里程输入)If  k<67549.755  AND  K≥66894.3:Then  -0.00052→A:0→B:67394.3→S:67.37→G:600000→R:Goto  2:IfEnd↙If  k<68708.391  AND  K≥67549.755:Then  -0.0048→A:-0.00052→B:68494.3→S:66.8→G:100000→R:Goto  2:IfEnd↙If  k<本段竖曲线终点里程  AND  K≥前一竖曲

2、线终点里程:Then  -0.0048→前坡(大里程向)A:-0.00052→后坡(小里程向)B:68494.3→竖曲线交点里程S:66.8→交点高程G:100000→曲率半径R:Goto  2:IfEnd↙………依次类推,计算原始数据完成输入,坡度换算成小数。Lb1  2↙S-K→L:A-B→W:Abs(R*W/2)→T:S-T→C:S+T→D↙If  K≤C:Then  G-L*B→H:Goto5:Else  If  K≤S:Then  Goto3:Else  If  K≤D:Then  Goto4  :IfEnd:IfEnd:IfEnd↙Lb1  3↙If  W>0:Then  

3、G+(C-K)^2/2/R-L*B→H  :Goto5:Else  IfW<0:Then  G-(C-K)^2/2/R-L*B→H  :Goto5:IfEnd:IfEnd↙Lb1  4↙If  W>0:Then  G+(K-D)^2/2/R-L*A→H  :Goto5:Else  IfW<0:Then  G-(K-D)^2/2/R-L*A→H  :Goto5:IfEnd:IfEnd↙1  5↙H-0.304→H↙    (0.304为中心~路肩高差)“H=”:H◢Goto1↙Norm1:50→C:12345→J"RESETPW"?I:I=J=>500→DimZ  为数据库增加额外变量5

4、00个,在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]"PASSWORDS"?I:I→Z[C+39]      重设要素保护密码Cls:StopFileName:DATLOCK      要素保护密码确定认程序Cls:Norm1:50→C"PASSWORDS"?J:Cls:J≠Z[C+39]=>Stop    2008-08-07修改FileName:SHELL(外壳程序)50→C            ;在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致Z[C+35]→I:"STATI

5、ON-N"?I:I→Z[C+35]      设置测站N坐标Z[C+36]→I:"STATION-E"?I:I→Z[C+36]      设置测站E坐标Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]   设置测站Z坐标Z[C+45]→I:"STATION-HI"?I:I→Z[C+45]    设置仪高Z[C+41]→I:"GC-DH"?I:I→Z[C+41]    放样点高差常数Norm1Z[C+23]→N 当前分段要素N坐标Z[C+24]→E 当前分段要素E坐标Z[C+25]→M 当前分段要素起点桩号Z[C+26]→H 当前分段要素起点方位角(正北)单位:弧度Z[

6、C+27]→A 当前分段要素起点曲率有左偏负右偏正(注意不半径)Z[C+28]→R 当前分段要素终点曲率有左偏负右偏正(注意不半径)Z[C+29]→L 当前分段要素长度Z[C+3]→WZ[C+32]→I:"DAT123"?I:I→Z[C+32]  平曲线要素数库类型选择1为内置式,2文件式,3实时输入(查看当前要素值)0→IZ[C+4]→I:"123"?I:I→Z[C+4]  选择本程序模式默认为坐标正算,1坐标反算,2横向边仰坡放样,3,纵向边仰坡放样(隧道进出口用到)Lbi1Z[C+4]→II=1=>Prog"TURNZH"I=2=>Prog"HXBYP"I=3=>Prog"ZXB

7、YP"LbiADeg:Norm1:ClsZ[C+1]→G:"ZH"?G:G→Z[C+1]    ;G桩求桩号Z[C+2]→B:"JL"?B:B→Z[C+2]    ;B横向距离,左正右负LbiBProg"ZBJS"    ;坐标正算Prog"GCJS"    ;高程计算Fix3:Cls           ;设置三位小数"ZH=":Locate4,1,G    ;第一行显示桩号"X=":Locate3,2,X  ;第二行显示X(N)坐标"Y="

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。