4800计算器程序

《4800计算器程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、缓和曲线ZH—HY、YH—HZ段坐标计算Lbl0{V}:V=0=>Goto1:H=>Goto2kkLbl1A:B:T:NG，，ZH—X，』A-TcosNAH，，ZH—Y~B-TsinN^Goto3Lbl3I:R:Z{J}:J=0=>Goto0:H=>Goto4kkLbl4L=J-TE,5X°,5=L-L54-(40R2Z2)AF，xjl：—6RZ/X=G，ZH—X”+E“X""cosN+F，，Y°"sinNAY=JTZH—Y”+E‘叹"sinN-F，'Y"cosNAGoto3Lbl2A:B:T:NG'，HZ—X”二A+TcosN/H'HZ—Y”二B+TsinN/Goto5Lbl5I:R:

2、Z{J}:J=0=>Goto0:H=>Goto6kkLbl6L=I-JEJ,X°"=L-L54-(40R2Z2)A严丫，，二l3—6RZ/X=G'HZ—X”-EnX°"cosN+F"Y"sinNAY=H”HZ—Y”-E，，X"sinN-F'Y"cosNAGoto5V:控制量，当计算ZH-HY段时输入0,当计算YH-HZ段时输入非0A:交点X坐标B:交点Y坐标T:切线长N:前切线计算方位角I：当V二0时输入ZH点桩号，当VH0时输入HZ点桩号R：缓和曲线半径Z:缓和曲线缓和段长度J：所求点桩号圆曲线点位坐标的计算Lbl0{I}：J：RL二I-JLbl4P二Rsin[(L4-R)X(1804

3、-兀)]Q二R—Rcos[(L4-R)X(1804-兀)]Lbl1{V}V二0=>Goto2:H=>Goto3Lbl2A:B:G:NX二A+PcosN-GQsinN/Y二B+PsinN+GQcosN,Goto0Lbl3C:D:G:MX=C~PcosM-GQsinM-JY二D-PsinM+GQcosM-JGoto0I:所求点桩号J:ZY或者YZ点桩号R:圆曲线半径V:控制量，当从ZY点开始计算时输入0,当从YZ点开始计算时输入非0A:ZY点X坐标B:ZY点Y坐标G:偏角控制值，左转吋输入-1,右转吋输入1N:以ZY点到交点方向的前切线计算方位角C:YZ点X坐标D:YZ点Y坐标M:以前一交点

4、至YZ点方向的切线计算方位角直线上点位坐标的计算Lbl0{NDAB}Lbl1D:A:B:N:{L}K二L-DX=A+KcosN/Y二B+KsinN/Lbl2{V}V=0=>Goto1:H=>Goto0N:前切线计算方位角D:起算点桩号A:起算点X坐标B:起算点Y坐标L:所求点桩号V:控制量，当需要重新输入起算点时输入0,继续计算输入Lbl0{HTJEFG)A二H-I+JZ=EXFLbl1{DB}X“ZHONG”=A-B+GAY“BIAN”二X+Z/D=0=>Goto1:=>Goto2Lbl2{NP}C二D-YAM=N-XAQ=P-YAP=0=>Goto0:H=>Goto1H:水准点标高I

5、：前视J：后视E:所放结构层半幅宽度F:横坡，以小数表示G:面层到所放结构层厚度B:沥青中桩标高D:左边桩读数M：中桩读数P:右边桩读数施工放线的计算程序Lbl0{HTJEFY)A二H-I+JZ=EXFLbl1{B}B=0=>Goto0:H=>Goto2Lbl2M二A-B+YAN=M+ZA0二N+ZAGoto1II:水准点标高I：前视J:后视E:所放结构层半幅宽度F:横坡，以小数表示Y:面层到所放结构层厚度B:沥青中桩标高偏角法放线计算程序Lbl0A:R:{B}:BWO=>GotolkK二2&6479FRL=Abs(A-B)AI二KL/IT=360-1AGoto0Lbl1{AR}Goto

6、0A:ZY点桩号R:圆曲线半径B:所求点桩号