卡西欧计算器坐标的正反算.doc

文档介绍：线路中边桩任意里程坐标正、反算改编程序(CASIO fx-4800)
可以算任意斜交涵洞轴线的坐标,增加T为斜交角度,规定T为涵轴右侧方向与“线路前进方向切线”之间的夹角,当涵轴与线路正交时,T=90,其他操作与原程序一样;  
1. 正算子程序(SUB1)                                                        [color=Red]A=:B=:K=:L=:F=1-L:
M=1-K:X=U+W(Acos(G+(1/P+KWD))+Bcos(G+(1/P+LWD))+Bcos(G+
(1/P+FWD))+Acos(G+(1/P+MWD))):Y=V+W(Asin(G+(1/P+KWD))+Bsin(G+
(1/P+LWD))+Bsin(G+(1/P+FWD))+Asin(G+(1/P+MWD))):F=G+(1/P+
WD)+90:X=X+Zcos(F-90+T):Y=Y+Zsin(F-90+T)
2. 反算子程序(SUB2)
  W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90)):Z=0:Lbl 0:Prog "SUB1":L=(G-90)+(1/P+
WD):Z=(J-Y)cosL-(I-X)sinL:AbsZ<1E-6=>Goto1:≠>W=W+Z:Goto 0Δ←┘
Lbl 1:Z=0:Prog "SUB1":Z=(J-Y)÷sinF
(SJK主程序)
     Lb1 4:" => XY":" => SZ":{NS}:S∠下一线元起点里程=>O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1:Prog“TYQXJS”: Goto0Δ←┘(第一线元数据要素)
S∠下一线元起点里程=>O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1: Goto0Δ←┘(第二线元数据要素)
S∠下一线元起点里程=>O=本线元起点里程:U=本线元起点X:V=本线元起点Y:G=本线元起算方位角:H=本线元长度:P=起点曲率半径:R=终点曲率半径:Q=0或1、-1: Goto0Δ←┘(第三线元数据要素)
。。。。。。。。。。Goto0Δ←┘(第N-1线元数据要素)
。。。。。。。。。。Goto0Δ←┘(第N线元数据要素)
LB1 0:D=(P-R)÷(2HPR):N=1=>Goto 1:≠>Goto 2Δ←┘
Lbl 1:{TZ}:Z:W=Abs(S-O):Prog "SUB1":X"XS"=X◢
Y"YS"=Y◢
F"FS"=F-90◢
C“XC”:E“YC”:I=0:J=0:Pol(X-C,Y-E):I“I=”◢
J∠0=>J“J=”+