4800缓和曲线坐标正反算计算程序,要简单点的.最最关键是要能用的.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/18 15:24:38
4800缓和曲线坐标正反算计算程序,要简单点的.最最关键是要能用的.
4800缓和曲线坐标正反算计算程序,要简单点的.
最最关键是要能用的.
4800缓和曲线坐标正反算计算程序,要简单点的.最最关键是要能用的.
缓和曲线段任意点实测坐标计算桩号及超欠挖反算：（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值是计算器内部计算值不需输入,也无需改变