首页 CASIO竖曲线高程自动计算程序[V1.0]

CASIO竖曲线高程自动计算程序[V1.0]

CASIO竖曲线高程自动计算程序[V1.0]CASIO竖曲线高程自动计算程序[V1.0] CASIO fx-4800P计算器竖曲线高程自动计算程序 (周广军 E-mail:keekzgj@yahoo.com.cn) 一、程序编制思路 1、如果把数据文件嵌入到程序中，则平时计算时只需要输入所要求的路线名参数M和所求点的桩号Z就可以直接计算，本程序实现了这个功能，使用方便。 2、加入边桩高程的计算功能。 3、对所求点桩号Z是否在本条路线范围内进行有效性检查，保证计算安全。 4、本程序不适合手工输入各种数据来计算高程。二、源程序 1、主程序(G...

CASIO竖曲线高程自动计算程序[V1.0] CASIO fx-4800P计算器竖曲线高程自动计算程序 (周广军 E-mail:keekzgj@yahoo.com.cn) 一、程序编制思路 1、如果把数据文件嵌入到程序中，则平时计算时只需要输入所要求的路线名参数M和所求点的桩号Z就可以直接计算，本程序实现了这个功能，使用方便。 2、加入边桩高程的计算功能。 3、对所求点桩号Z是否在本条路线范围内进行有效性检查，保证计算安全。 4、本程序不适合手工输入各种数据来计算高程。二、源程序 1、主程序(GCJS-A) E=0:N=1:M:M=1=>Prog “SJ01.D”?M=2=>Prog “SJ02.D”?M=3=>Prog “SJ03.D”?“-- END --” 说明: ? E:程序是否结束的参数; N:原始数据文件中的行号参数; M:选择要计算那条路线的参数; ? 程序根据M的值调用相应的原始数据文件;本例中当M不等于1、2、3时直接结束本程序。 ? 如果有5个原始数据文件，那么主程序中就需要加入M=4=>Prog “SJ04.D”?M=5=>Prog “SJ0 5.D”?语句，以此类推。 2、子程序:原始数据文件(SJ01.D) A=2225:C=1944.08:B=2541.821:G=1958.971:Y=2225:D=5270:Prog “XL.S”? Lbl 0:N=1=>Goto 1?N=2=>Goto 2?N=3=>Goto 3?N=4=>Goto 4?N=5=>Goto 5?N=6=>Goto 6?Goto 7? Lbl 1:A=2924.821:C=1936.374:R=2200:Goto 9? Lbl 2:A=3225:C=1930.37:R=3000:Goto 9? Lbl 3:A=3550:C=1920.785:R=6000:Goto 9? Lbl 4:A=4105:C=1924.695:R=4000:Goto 9? Lbl 5:A=5070:C=1972.945:R=4000:Goto 9? Lbl 6:A=5270:C=1965.945:R=4000:Goto 9? 1 Lbl 7:R=0:Goto 9? Lbl 9:Prog “GC.S”:E?0=>Goto 0? 3、子程序:原始数据文件(SJ02.D) A=XX:C=XX:B=XX:G=XX:Y=XX:D=XX:Prog “XL.S”? Lbl 0:N=1=>Goto 1?N=2=>Goto 2?N=3=>Goto 3?Goto 4? Lbl 1:A=XX:C=XX:R=XX:Goto 7? Lbl 2:A=XX:C=XX:R=XX:Goto 7? Lbl 3:A=XX:C=XX:R=XX:Goto 7? Lbl 4:R=0:Goto 7? Lbl 7:Prog “GC.S”:E?0=>Goto 0? (本例只列出样式) 原始数据文件格式说明: ? A:在原始数据文件第一行中的A为整条路线第一条直线段起点的桩号，其余行中的A为每个变坡点之后的直线段终点的桩号; ? C:在原始数据文件第一行中的C为整条路线第一条直线段起点桩号的高程，其余行中的C为每个变坡点之后的直线段终点桩号的高程; B:本条路线第一条直线段终点的桩号(即第一个变坡点的桩号); G:本条路线第一条直线段终点桩号的高程(即第一个变坡点的高程); Y:整条路线的计算范围起点桩号; D:整条路线的计算范围终点桩号; (Y、D的桩号一定要注意不要落在竖曲线范围内，以免发生错误。) R:本变坡点处的竖曲线半径。 ? 根据竖曲线个数的不同，Lbl 0行中的内容做对应修改，可参照对比SJ01.D和SJ02.D。 ? 程序根据行号N值读取相对应行的竖曲线要素数据。 ? 每个原始数据文件中必须有如同SJ01.D中Lab 7、SJ02.D中Lab 4这一行，作为最后一个数据行。 ? 特别注意:原始数据文件中每一行中的R是当前计算竖曲线的半径，但同一行中的A、C并不是当前计算竖曲线变坡点的桩号和高程，而是变坡点之后直线段终点的桩号和高程。在SJ01.D中 Lbl 1至Lbl 5中的A、C也是下一个变坡点的桩号和高程，但在Lbl 6中的A、C是指最后一条直线段终点的桩号和高程。 4、子程序(GC.S) 2 R=0=>U=B-Z:H=G-JU:Goto 1?J=(C-G)?(A-B):W=J-I:T=RAbsW?2:P=B-T:Q=B+T:W>0=>F =1:?>F=-1?? Lbl 0:Z:Z<0=>E=-9:Goto 3?ZE=-9:“ERR:ZD=>E=-9:“ERR:Z>MAX”:Goto 3?Z>Q=>N=N+1:B=A:G=C:I=J:Goto 3?U=B-Z:Z?P=>H=G-IU:?>Z?B=>H=G- 22IU+F(Z-P)?2R:?>ZH=G-JU+F(Q-Z)?2R:?>H=G-JU???? Lbl 1: H“H=” ? Lbl 2:{S}:S?0=>{K}:K=K?100:X=H+KS:X“BH=”Goto 2:?>E=-9?? ? Lbl 3: 说明: ? Z:所求点的桩号; H:所求点的高程; J:变坡点之后的坡度值; S:所求点的边桩距离，在中桩左侧时输入负值，在中桩右侧时输入正值; K:边桩至中桩的横坡度，面向路线前进方向，中桩两侧均按照从左到右的顺序，上坡时坡度为正值，下坡时坡度为负值。例如路拱为路线中心线，横坡为2.67,，则边桩时在中桩左侧时 K输入2.67，在中桩右侧时K值输入-2.67。 X: 所求点的边桩的计算高程，屏幕显示为“BH=xxxxx”。 ? W>0为凹曲线，W<0为凸曲线。 ? lbl 0中，当Z值小于0时或当Z值超出整条路线的计算范围桩号Y、D时给E赋值-9，结束本子程序。当Z值大于本计算段竖曲线的终点桩号Q时，行号指向原始数据文件中下一个竖曲线要素数据行，再调用“GC.S”子程序进行计算，依次类推;计算高程时本子程序自动判别所求点桩号是在直线上还是在竖曲线上。 ? 在Lbl 2行中，循环输入边桩距离S和边桩横坡K，则循环计算所求点桩号Z的边桩的高程;当边桩距离S值等于0时，结束边桩高程的计算，本子程序也结束。 ? 本子程序第一行中R=0至Goto 1?这几个语句是为了计算最后一个竖曲线之后的直线段上桩号的高程。 5、子程序(XL.S) I=(G-C)?(B-A) 说明: 计算斜率，亦即坡度。 3

                    本文档为【CASIO竖曲线高程自动计算程序[V1&#46;0]】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

CASIO竖曲线高程自动计算程序[V1&#46;0]

你可能还喜欢

CASIO竖曲线高程自动计算程序[V1.0]