Question

4800缓和曲线坐标正反算计算程序，哪位高人发一个给我啊。。谢谢了。要简单点的。

最最关键是要能用的。。

Answer 1

　　缓和曲线段任意点实测坐标计算桩号及超欠挖反算：（HQXCQWFS）（适用于隧道）
　　Lbl 0
　　｛X，Y，N｝
　　L＂LS″：R：S：T：B＂ZH″：O＂RHQXZHAO″：H＂X0″：F＂Y0″：M＂BPZHAO″：P＂BH″：A＂I1″：Q＂I2″：V＂SQR″：U＂SDR″：X：Y：N＂CH″：Defm 20
　　D=Abs（O－B）：Z[10]=（O－B）÷D：Z[0]=D-D5÷（90R2L2）：
　　Z[1]=30D²÷（∏RLS Z[10]）：Z[7]= Z[1]＋T：Z[2]= Z[7]＋2 Z[1]：
　　Z[3]=H＋Z[0]Cos Z[7]：Z[4]=F＋Z[0]Sin Z[7]：Pol（X－Z[3]，Y- Z[4]）：
　　Z[5]=（J－Z[2]）S Z[10]：
　　Z[6]=ICos Z[5]◢
　　Z[8]=Abs Z[6]：Z[8]≥0.001=＞O=O＋Z[6] Z[10]：Goto 0
　　≠＞Z＂JSZHAO″=O＋Z[6] Z[10]◢
　　Z[9]＂△I″= ISin Z[5]＋5.25◢△
　　B[1]=（Q－A）÷100：B[2]= B[1]÷Abs B[1]：B[9]=Z－M：
　　B[3]＂ST″= Abs（0.5 Abs B[1]V）◢
　　B[9]≤B[3]=＞B[8]＂JSH″=P＋A B[9]÷100＋B[2]（B[9]＋B[3]）²÷2V◢
　　≠＞B[8]＂JSH″=P＋B[9]Q÷100◢△
　　B[5] ＂△H″=N－B[8]◢
　　B[5]≥0=＞B[7] ＂△L″=√（B[5]²＋B[3]²）－U◢
　　≠＞B[7] ＂△L″=√（B[5]²＋（Abs B[3]＋3）²）－（U＋3）◢△
　　Goto 0
　　说明：LS—缓和曲线长度
　　R——圆曲线半径
　　S——偏角系数，右偏角为＋1，左偏角为－1
　　T——直缓点或缓直点到交点的方位角
　　ZH——直缓点或缓直桩号
　　X0、Y0——直缓点或缓直点桩号设计坐标，RHQXZHAO——桩号
　　BPZHAO——变坡桩号
　　BH——变坡点高程
　　I1——前坡度
　　I2——后坡度
　　SQR——竖曲线半径
　　SD——隧道半径
　　X、Y——实测点坐标
　　CH——实测点高程
　　JSZHAO——计算点桩号
　　△I ——计算点与中心的偏距，正为右，负为左
　　ST——竖曲线切线长度
　　SH——计算点设计高程
　　△H ——实测高程与设计高程之差
　　△L——隧道超欠挖值，正为超负为欠
　　5.25、3——隧道常数根据图纸设计而定
　　注——J、I值是计算器内部计算值不需输入，也无需改变