casio4800工程竖曲线计算程序(现用)

《casio4800工程竖曲线计算程序(现用)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CASIO4800工程竖曲线计算程序CASIO4800工程竖曲线计算程序:     我这里有一个CASIO4800工程竖曲线计算程序非常好用,现在发出来供大家参考   .1 A“I1”：B“I2”：C“BD”：E“BH”：R      2 W=A-B：T=RAbs(W/100)/2      3 W≥0=>K=-1：≠=>K=1⊿    4 F=C-T：G=C+T      5 D≤F=>H=(D-C)A/100+E：≠=>      6 D≤C=>H=(D-C)A/100+E+K(D-F)∧2/

2、2/R：≠=>      7 D≤G=>H=(D-C)B/100+E+K(D-G)∧2/2/R：≠=>      8 D≥G=>H=(D-C)B/100+E⊿    9 H◢   I1 , I2     输入坡度   BD？          输入变坡点桩号   BH？          输入变坡点高程   R？            输入竖曲线半径   D？            输入任意桩号   H               计算点高程经过验证。CASIO4800坐标反算程序A"X0":B"

3、Y0":C"X1":D"Y1":Fixm:POL（(C-A,D-B)）:I"I="◢J<0=>J=J+360⊿经过验证。2．2．坐标正算：程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R◢Y”Y2”=D+J操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离→EXE→输入A1-2角度（例125°31′23.25″）→EXE→EXE注：此程序可循环计算。经过验证。有缓和曲线或无缓和曲线任意桩号中、边桩坐标480

4、0计算程序四、QXZB(曲线坐标)A〝ZH(ZH)=〞:B〝X(ZH)=〞:C〝Y(ZH)=〞:D〝X(HZ)=〞:E〝Y(HZ)=〞:F〝FWJ-1=〞:G〝FWJ-2=〞:H〝R=〞:I〝L1=〞:J〝L=〞:K〝L2=〞:L〝ZJ(Z=1,Y=-1)=〞O=180/pi(pi为圆周率，电脑中找不到此符号以此代替)LbIA{MN}M〝ZHUANGHAO=〞P=M-AM(A+I+J+K)⇒GOTOA⊿N〝ZHUANGJU(Z+,Y-)=〞M>(A+I+J)⇒GOTOD⊿M>

5、(A+I)⇒GOTOC⊿LbIB(第一缓和曲线)X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINFY=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSFX=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢GOTOALbIC(圆曲线)X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-

6、(H(1-COS(((P-I)÷H+I÷2÷H)O))+I2÷24÷H)(-1)LSINFY=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I)÷H+I÷2÷H)O))+I2÷24÷H)(-1)LCOSFX=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢GOTOALbID(第二缓和曲线)Q=A+I+J+K-MX=D-(Q-Q5÷40÷H2÷K2

7、)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSINGY=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSGX=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢GOTOA变量说明：以上变量依次为：ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点；X(ZH)=直缓点X坐标；无缓和曲线则为直圆点；Y(ZH)=直缓点Y坐

8、标，无缓和曲线则为直圆点；X(HZ)=缓直点X坐标，无缓和曲线则为圆直点；Y(HZ)=缓直点Y坐标，无缓和曲线则为圆直点；FWJ-1=第一切线方位角；FWJ-2=第二切线方位角；R=半径；L1=第一缓和曲线长；L=圆曲线长；L2=第二缓和曲线长；ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)ZHUANGHAO=所求点桩号ZHUANGJU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0我已经用过了，没发现什么问题，请大家提意见。由于计算器的局限性，一次只能计算一个桩号，且