作业帮 > 综合 > 作业

4800缓和曲线坐标正反算计算程序,要简单点的.

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/09 06:10:12
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值是计算器内部计算值不需输入,也无需改变