下载此文档

4800计算器公路工程坐标计算程序(王).doc


文档分类:建筑/环境 | 页数:约3页 举报非法文档有奖
1/3
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/3 下载此文档
文档列表 文档介绍
4800计算器公路工程坐标放样程序
MS(主程序)
Q"XZ=":S"YZ=" 回车
Lbl 0:{Z}:Z"ZS=1;FS=2":Z=1=>Goto1△ Z=2=>Goto2△回车
Lbl 1:{POW }: P"LCZH=": D"Z=0;BL<0;BR>0" : W"BJ":Prog
"GLCL":Prog"ZS":X"X="▲Y"Y="▲
I=POL(X-Q,Y-S):
J<0=>J=J+360: J"AF"▲
≠=>J=J:J"AF="▲
△I"S="▲
Goto0回车
Lbl 2: {XYW}: XYW"BJ": Prog"FS":P"LCZH="▲
D"Z=0;BL<0; BR>0"▲
Goto0回车
ZS(正算)
Fixm回车
Lbl 1 :J=F: X=B-Z[3] C0SF: Y=C-Z[3]SinF: G=E回车
P≤A-Z[3]=>I=A-Z[3]-P:M=-I: N=0: H=F+W: Goto5回车
≠=>p≤A-Z[3]+E=>I=P-A+Z[3]: H=90 I² ÷RE π: O<0=>H=-H△H=H+W+F:Goto3回车
≠=>P≤A-Z[3]+L-K =>I=P-A+Z[3]-E:Goto4回车
≠=>Goto2△△回车
Lbl 2:X=B+Z[4]CoS(F+O):Y=C+Z[4]Sin(F+O):J=F+O+180:G=K回车
P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90I² ÷RKπ:O>0=>H=-H△回车
H=H+J+W+180:Goto3回车
≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto5 回车
Lbl 3:M=I-I5 ÷40R² G²: N=I3÷6GR-I7÷336R3G3:Goto5 回车
Lbl 4: H=(E+2 I )×90÷πR: M=RSinH+Z[2]:N=R(1-CoSH)+Z[1]:
O<0=>H=-H△ H=H+J+W:Goto5 回车
Lbl 5: P≤A-Z[3]+L-K=>O<0=>N=-N△≠=>O>0=>N=-N△△Goto6 回车
Lbl 6: X=X+MCoSJ-NSinJ+DCoSH:
Y=Y+MSinJ+NCoSJ+DSinH:
FS(反算)
Fixm 回车
U=X: V=Y: D=0: J=F-W:P=A+(Y-C)CoSJ-(X-B)SinJ回车
Lbl 1: Prog "GLCL": Prog"ZS":J=H-180: I=(V-Y)CoSJ-(U-X)SinJ: AnSI≤=>Goto2: ≠=>P=P+I:G0to1△
Lbl 2:D=(V-Y)÷SinH
GLCL(公路测量)
Prog"SJK": A"JD": B"JDX": C"JDY": F"FJ": O"ZJ-,Y+" RE"LS1=": K"LSZ=" E<1=>E=△ K<1=>K=△
Z[1]=E²÷24R-E4÷2688R3:Z[2]=E÷2-E3÷240R2: X=(E²-K²)÷24R÷SinAbsO: Z[3]=(R+Z[1])tan(AbSO÷2)+Z

4800计算器公路工程坐标计算程序(王) 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数3
  • 收藏数0 收藏
  • 顶次数0
  • 上传人mh900965
  • 文件大小39 KB
  • 时间2018-04-27