CASIO-fx4800P型计算器 连续计算线坐标放样程序

CASIO-fx4800P型计算器 连续计算线坐标放样程序

坐标及放样程序
【起算数据】:ZH(ZY)里程桩号、交点坐标、前直线方位角、交点转角、圆曲线半径、缓和曲线长
(一)主程序:XYFY2
Fix4
M"Xc=":P"Yc="  '如须放样输入测站坐标值,否则输入0
Lbl0 
{HS}:H"K0+0":S"B=(-B,0,B)":Prog"A" '变量输入和声明
S=0=>E=0:≠>E=90⊿  '求边桩坐标时的偏角值判定
L=πRN÷180+V  '含有缓曲线的曲线总长
T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^4÷(2688R^3)))tan(N÷2)'切线长
Q=A+T:B=A+V:D=A+L:C=D-V 'A-ZH(ZY)点桩号,B-HY点桩号,C-YH点桩号,D-HZ(YZ)点桩号
Rec(T,F+180) '求ZH(ZY)点的坐标增量
Z[1]=W+I:Z[2]=K+J 'ZH(ZY)点坐标值
Rec(T,F+GN) '求HZ(YZ)点的坐标增量
Z[3]=W+I:Z[4]=K+J 'HZ(YZ)点的坐标值
Lbl1 
U=S÷(Abs(S+1e-19)):S=AbsS '左右偏角每件判定e为FX4800中的EXP
H≤A=>Goto2: ≠> '第一直线上坐标计算判定
H<B=>Goto3: ≠> '第一缓和曲线上坐标计算判定
H<C=>Goto4: ≠> '净圆曲线上坐标计算判定
H<D=>Goto5: ≠> Goto6⊿⊿⊿⊿ '第二缓和曲线和第二直线上坐标计算判定
Lbl2 
Rec(Q-H,F+180) '第一直线上中桩坐标增量计算
X=W+I:Y=K+J '中桩坐标值计算
Rec(S,F+180-(180-E)U) '第一直线上与中桩同一断面的边桩增量计算
X=X+I:Y=Y+J '边桩坐标值计算
S=SU '边长条件判定
Goto8 
Lbl3 '进入第一缓曲线段计算
Z=H-A '待求点至ZH点的距离
O=90Z^2÷(πRV) '所求点缓曲线对应的圆心角
X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4) '缓曲线上ZH点至待求的支距X坐标
Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) '缓曲线上ZH点至待求点的支距Y坐标
Goto7 
Lbl7 
Rec(X,F) 
X=Z[1]+I:Y=Z[2]+J 
Rec(Z,F+90G) '把中桩支距坐标转换成测量统一坐标
X=X+I:Y=Y+J 
Rec(S,F+OG+EU) '曲线边桩坐标增量计算
X=X+I:Y=Y+J '坐标计算结果
S=SU '边长条件
Goto8 
Lbl4 '进入主圆计算部分
Z=H-A-V÷2 '曲线上待求点到HY点的里程
O=180Z÷(Rπ) '待求点方位角所对应的圆心角
X=RsinO+(V÷2-V^3÷(240R^2)) 
Z=R(1-cosO)+(V^2÷(24R)-V^4÷(2688R^3))    '主圆部分待求点支距坐标XY
Goto7 
Lbl5 '进入第二缓和曲线计算
Z=D-H '曲线上待求点到HZ点的里程
O=90Z^2÷(πRV) '待求点方位角所对应的圆心角
X=Z-Z^5÷(40R^2V^2)+ Z^9÷(3456R^4V^4) 
Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) '待求点支距坐标XY
Rec(X,F+GN+180) 
X=Z[3]+I:Y=Z[4]+J '把中桩支距坐标转换成测量统一坐标
Rec(Z,F+GN+180-90G) 
X=X+I:Y=Y+J 
Rec(S,F+GN+180-OG-(180-E)U) '曲线边桩坐标增量计算
X=X+I:Y=Y+J '坐标计算结果
S=SU 
Goto8 
Lbl6 '进入第二直线段计算部分
Rec(H-D+T,F+GN) '中桩坐标增量计算
X=W+I:Y=K+J '中桩坐标计算结果
Rec(S,F+GN+EU) '边桩坐标增量计算
X=X+I:Y=Y+J '边桩坐标计算结果
S=SU 
Goto8 

Lbl8 
X=X◢ '显示坐标计算结果
Y=Y◢ 
M≠0=>Goto9: ≠>Goto0 ⊿ 

Lbl9 '进入放样部分计算
Pol(X-M,Y-P) '增量计算
J<0=>J=J+360: ≠>J=J ⊿ 
J"A"=IntJ+0.01Int(60FracJ)+0.006Frac(60FracJ) ◢ '方位角计算结果(此显示值为度分秒格式)
I"L"=I◢ '极距计算结果
Goto0 

(二)子程序:A
H≤ZY2(ZH2)=>A=ZH1:W=X1:K=Y1:R=R1:F=F0:N=N1:V=Ls1:G=1(-1):=>
H≤ZY3(ZH3)=>A=ZH2:W=X2:K=Y2:R=R2:F=F1:N=N2:V=Ls2:G=1(-1):=>
H≤ZY4(ZH4)=>A=ZH3:W=X3:K=Y3:R=R3:F=F2:N=N3:V=Ls3:G=1(-1):=>
H≤ZY5(ZH5)=>A=ZH4:W=X4:K=Y4:R=R4:F=F3:N=N4:V=Ls4:G=1(-1):=>
……………………………
H≤ZYn+1(ZHn+1)=>A=ZHn:W=Xn:K=Yn:R=Rn:F=Fn-1:N=Nn:V=Lsn:G=1(-1)

注:
H—待求点桩号  ZYn+1(ZHn+1)—后曲线起点桩号   A—ZH(ZY)桩号   W—本曲线交点X坐标
K—本曲线交点Y坐标  R—本曲线内圆曲线半径  F—前直线方位角  N—本交点转角
V—本曲线内缓和曲线长  G—线路转向符,左转角-1,右转角为+1

  • 发表于 2018-11-05 13:42
  • 阅读 ( 35 )
  • 分类:4800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

  1. admin 174 文章
  2. 胡亮 4 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 老Y 2 文章
  6. netbee 1 文章
  7. 秦汉 1 文章
  8. boyving 1 文章