casio 计算器竖曲线计算程式

《casio 计算器竖曲线计算程式》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CASIO计算器竖曲线计算程式R"BJ"T"QX"Q"QZL"H"QZH"C"CP"E"HP":A=Q-T:B=Q+T↙　　　Lbl0:｛I｝:I"SQ"I>B⇒G=H+E(I-Q)◢≠=>S=I-Q:ID=B-I::P=SE:Goto1　　　　　　　　Lbl1:C>0⇒Goto2◢≠=>Goto3◢　　Lbl2:E>0⇒Goto4◢≠=>Goto6◢　　Lbl3:E>0⇒Goto7◢≠=>Goto5◢　　Lbl4:C>E⇒Goto6◢≠=>Goto7◢　　Lbl5:C>E⇒G

2、oto7◢≠=>Goto6◢　　Lbl6:G"GH"=H+P-D2÷2÷R◢　　　　　　　　　　　　　Goto0↙　　　　　　　　　　　　　Lbl7:G"GH"=H+P+D2÷2÷R◢　　　　　　　　　　　　　Goto0↙　　　　　　　　　BJ半径                QX切线长      QZL交点里程QZH交点高程      CP前坡        HP后坡SQ所求里程公路三维坐标控制系统高程控制部分(for4850)公路三维坐标控制系统高程控制部分(for  CASIO4850)主程序DH{SZ}:SZS≤S1＝＞N=1:Prog“HDAT”:GOTO

3、1△S≤S2＝＞N=2:Prog“HDAT”:GOTO1△S≤S3＝＞N=3:Prog“HDAT”:GOTO1△……Lbl1:S≤I＝＞Q=F+G(S-E△S＞I＝＞Q=F+G(S-E)+(-1)^J(S-I)^2/(2M△R=Q+11.75P-0.03:”DH=”:Q=Q◢Z=0＝＞Q=Q△Z≠0＝＞Q=R△{H}:H”H=”:T=Q-H“△H=”:T=T◢{ABKL}:T=AbsT:U=T/  8:T≤8＝＞W=TA+14+L△T＞8＝＞W=8A+B(T-8)+14+2IntU+L△T＞16＝＞W=8A+8B+K(T-16)+14+2IntU+L△“DW”:W=W

4、◢“△W”:D=W-AbsZ◢竖曲线数据库HDATN=1＝＞E=xxxx.xxx:F=xxxx.xxx:G=xxxx.xxx:J=xxxx.xxx:M=xxxx.xxx:O=xxxx.xxx△N=2＝＞E=xxxx.xxx:F=xxxx.xxx:G=xxxx.xxx:J=xxxx.xxx:M=xxxx.xxx:O=xxxx.xxx△N=3＝＞E=xxxx.xxx:F=xxxx.xxx:G=xxxx.xxx:J=xxxx.xxx:M=xxxx.xxx:O=xxxx.xxx△……I=E-O说明：(1)变量赋值说明E变坡点桩号      F变坡点高程      G变坡点前段

5、坡比      I该段竖曲线起点桩号即高差改正值为零处桩号      J竖曲线系数  1为凸2为凹      M竖曲线半径      O竖曲线切线长      P路面横坡（已在坐标反算程序中赋值）      Q路线设计高程，当Z=0时为中桩设计高程（或中分带边缘设计高程），当Z≠0      时为路基边缘设计高程      R路基边缘设计高程      T：“△H”高差      V边坡分级，第n级坡      W开口、坡脚设计宽度（根据高差及坡比求得）可计算任意高度处的设计宽度      D宽差（当其为负則向中桩方向移相应宽度，当其为正则向外移相应宽度）      

6、S、Z所测点对应桩号及距中桩处的距离      A、B、K横断面一、二、三级坡比      L附加宽度（以便根据横断面设计实际情况调整，象坠落台、护坡道、路堑处边沟设置宽度的不固定值设置及填方段为使路基满足设计的压实要求超填的宽度）      H实测高程(2)编制思路该程序编者根据工地的实际情况编制在此仅供一个编制思路，用户需根据实际情况进行修改。注意：程序中有下划线处数据说明（单位：cm）11.75为中央分隔带边缘距硬路肩宽度，该段横坡为一定值（超高段需加入超高计算子程序，另外在设计宽度计算时加入加宽子程序即可）0．03为土路肩内外侧高差，因土路肩与行车道及硬路肩横

7、坡不同，故分开计算。（用户需根据实际情况修改）2为平台设置宽度，第n级坡的平台设置总宽度即为2n.（用户需根据实际情况修改）      8  每级边坡设置高度.    14  路面设计宽度（路线中线处距土路肩边缘设计宽度）        该程序为公路三维控制系统中的一部分，即高程控制部分。该程序可与hanniu_1973老师的《曲线任意里程中边桩坐标正反算(CASIOfx-4850P)程序（第三次修改版）》及大部分坐标正反算程序联合使用（修改变量名后）。曲线任意里程中边桩坐标正反算(CASIOfx-4850P计算器)程序（修改版）曲线任意里程中边桩坐