卡西欧CASIOFX-5800线路坐标正反算,竖曲线计算及边坡放样程序

筑事有方 测绘测量 6.0K+


卡西欧CASIOFX-5800线路坐标正反算,竖曲线计算及边坡放样程序  测量 测绘 5800 CASIO 卡西欧 第1张

坐 标 计 算 程 序

可计算中边桩及进行坐标反算,边坡放样
PAN(主 程 序):

LbI 0 “1.SZ=>XY, XY=> SZ”:?N
If N=1:Then Goto 1:If End
If N=2:Then Goto 21:If End
LbI 1:“DKI=”?S:S>终止桩号=> Goto 1 : S<起始桩号=> Goto 1 :“BJ=”?Z: Prog “PAN-1”: Prog “PAN-2”:If Z=0:Then 90→T:EIse “PJ=” ?T:IfEnd
"XS"=X◢
"YS"=Y◢
"FS"=F-90▲DMS◢
Goto 1
LbI 2:“DKI=”?S:S>终止桩号=> Goto 2 : S<起始桩号=> Goto 2 :0→Z:90→T:Prog “PAN-1”:Prog “PAN-2”: “XC=”?N :"YC"=?E: Prog “PAN-3”
If I>0:Then “YOU,I=”: I◢ If End
If D<0:Then “ZUO,I=”: I◢ If End
"ZHUANG,HAO"=K◢
Goto 2

PAN-1:(平曲线数据库)
If S<(线元终点桩号):Then线元起点桩号→O:线元终点桩号→H: 线元起始切线方位角→G: 线元起点坐标→X: 线元起点坐标→Y: 线元起点半径→P: 线元终点半径→R: 偏转方向常量→Q:If End
………………………………………………..
Q值当线元向左偏时输负值,当线元向右偏时输正值。当线元与直线相接时半径输10的45次方,与圆曲线相接时半径输圆曲线半径。

卡西欧CASIOFX-5800线路坐标正反算,竖曲线计算及边坡放样程序  测量 测绘 5800 CASIO 卡西欧 第2张

PAN-2:(平曲线正算程序)

1÷P→C
(P-R)÷(2(H-O)PR)→D
180÷∏→E
Abs(S-O)→W:0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X:
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y
G+QEW(C+WD)+90→F
Return

PAN-3: (平曲线反算程序)

0→Z: 90→T:Pol(N-X, E-Y)
If J<0:Then J+360→J:If End
F-J→C::S+IsinC→K:IcosC→I
Return
Goto D

卡西欧CASIOFX-5800线路坐标正反算,竖曲线计算及边坡放样程序  测量 测绘 5800 CASIO 卡西欧 第3张

PAN-4:(竖曲线计算子程序)

Prog“PAN-5”:Q-T→C: Q+T→D
If S≤C:Then Goto 1: EIse
If S<Q:Then Goto 2: EIse
If S<D:Then Goto 3: If End :If End :If End
LbI 1:E+(Q-S)A→H: Goto 4
LbI 2:E+(Q-S)A+(S-C)2 /2/R→H: Goto 4
LbI 3:E+(S-Q)B+(S-D)2/2/R→H: Goto 4
LbI 4:H→H: Return

卡西欧CASIOFX-5800线路坐标正反算,竖曲线计算及边坡放样程序  测量 测绘 5800 CASIO 卡西欧 第4张

登录访问
本站用户 免费查看
登录账号
登录 注册

标签: 测量 测绘 5800 CASIO 卡西欧

发布评论 0条评论)

您需要 登录账户 后才能发表评论

还木有评论哦,快来抢沙发吧~