[建筑]CASIO4800工程竖曲线计算程序现用.doc

?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/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坐标反算程序 AX0:BY0:CX1:DY1:Fixm:POL（(C-A,D-B)）:II= ◢J0=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 注：此程序可循环计算有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序 四、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为圆周率，电脑中找不到此符号以此代替)LbI A{MN}M〝ZHUANG HAO=〞P=M-AMA?GOTO AM(A+I+J+K)?GOTO A⊿N〝ZHUANG JU(Z+,Y-)=〞M(A+I+J)GOTO D⊿M(A+I)?GOTO C⊿LbI B(第一缓和曲线)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)◢ GOTO ALbI C(圆曲线)X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(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)◢GOTO ALbI D(第二缓和曲线)Q=A+I+J+K-MX=D-(Q-Q5÷40÷H2÷K2)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)◢GOTO A变量说明：以上变量依次为：ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点； X(ZH)=直缓点X坐标；无缓和曲线则为直圆点；Y(ZH)=直缓点Y坐标，无缓和曲线则为直圆点； X(HZ)=缓直点X坐标，无缓和曲线则为圆直点；Y(HZ)=缓直点Y坐标，无缓和曲线则为圆直点；FWJ-1=第一切线方位角；FWJ-2=第二切线方位角；R=半径；L1=第一缓和曲线长；L=圆曲线长；L2=第二缓和曲线长；ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)ZHUANG HAO=所求点桩号ZHUANG JU(Z+,Y-)=边桩桩