卡西欧5800计算器坐标正反算程序

1、卡西欧5800计算器坐标正反算程序 讲你个讲3位粉丝1楼主程序 坐标正反算程序名称：ZBZFSLb1 A30Dim Z :"0=ZS,1=FS"?Z If Z=0:Then Goto B:IfEnd (Z=0进入里程点坐标正算）If Z=1:Then Prog"FSLCZ " (Z=1进入反算里程边桩）Lb1 B Prog”ZBZS” 子程序反算里程桩 名称：FSLCZLb1 1"XK="?X:"YK="?Y（输入任意测点的X、Y坐标）“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快

2、速度）Lb1 2Prog"SJK ":T-90 W:W<0=>360+WW:Abs(Y-Z19)*Cos(W)-(X-Z18)*Sin(W)SIf S<0.0001:Then Goto 4:Else Goto 3:IfendLb1 3K+SK: Prog"SJK":T-90 W:W<0=>360+WW:Abs(Y-Z19)*Cos W-(X-Z18)*Sin (W)QIf Q<0.0001 :Then QS: Goto 4:Else if Q<S: Then K+QK: Goto 2 :Else if Q>

3、S :Then K-QK:Goto 2:Ifend:Ifend:IfendLb1 4Pol (X-Z18,Y-Z19:"DP(-Z+Y)=":I(偏距）"K=":K+SK（里程）Goto 1子程序坐标正算 名称：ZBZSLb1 0 “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)J<0=>J+360J:"FH=":

4、JDMS(后视方位角)Lb1 1“K=”?K ：（输入所需计算里程）Prog"SJK "XI : Z18 YI: Z19 Pol(Z18-M,Z19-N): J<0=>J+360J“PJ=”?P (输入桩与线路夹角)“PD=”?D （输入桩距中线的距离）Z18+D*Cos(T+P) Z20 Z19+D*Sin(T+P) Z21 “X=”: Z20 （放样坐标X）“Y=”: Z21 （放样坐标Y）Pol(Z20-M,Z21-N):"D=":I（放样距）J<0=>J+360J:"F=":JDMS（放样方位角）Got

5、o 1子程序数据库 名称：SJKif K<本段曲线终点里程 And K上段曲线终点里程 ：Then 本段曲线终点里程Z1 : 上段曲线终点里程（第一段曲线输起点的里程）Z2 ：1O （注：左偏曲线输入-1O,右偏曲线输入1O）: 半径R : 曲线偏角A:第一缓和曲线Z6 : 第二缓和曲线Z7 : 交点 XB :交点 YC : 小里程向交点方位角E : 交点向大里程方位角F : Prog”JSPB”:Return: IfendifProg”JSPB”:Return:Ifend（曲线段分段输入）补充直线段输入如下 (只需输线路的最后一段直线数据）if K<本段直线终点里程 And K本

6、段直线起点里程:Then 本段直线终点里程Z3:终点XZ16:终点YZ17:方位角E: Z16+ (K- Z3)*Cos(E)Z18:Z17+ (K- Z3)*Sin(E)Z19 : Return:Ifend子程序计算判别 名称：JSPBLb1 2 （曲线要素计算）Z6/2- Z63/(240*R2)+ Z65/(34560*R4) Z8 （M1）Z7/2- Z73/(240*R2)+ Z75/(34560*R4) Z9 （M2）Z62/(24*R)- Z64/(2688*R3) Z10 （P1）Z72/(24*R)- Z74/(2688*R3) Z11 （P2）2009-12-31 20:0

7、8回复 讲你个讲3位粉丝2楼*A*R/180+0.5*( Z6+ Z7)Z25 （曲线总长）90* Z6/(R*) Z14 （第一缓和曲线总偏角）90* Z7/(R*) Z15 （第二缓和曲线总偏角,可以省略）Z8（R+Z10)Tan(A/2)-(Z10-Z11 )/Sin( A)Z12 (切线T1)Z9（R+Z11)Tan(A/2)+(Z10-Z11 )/Sin (A）Z13 (切线T2)B+ Z12*Cos (E+180) Z16 （ZH点X）C+ Z12*Sin(E+180) Z17 （ZH点Y）Z1- Z25Z3 (ZH点里程)Z3+ Z6Z4 (HY点里程)Z1- Z7Z5 (YH点

8、里程)Goto 3 LB1 3 (判断里程点与曲线关系)if KZ3 And K> Z2 : Then Goto 4 : Ifend if KZ4 And K> Z3 : Then Goto 5 : Ifend if KZ5 And K> Z4 : Then Goto 6 : Ifend if KZ1 And K> Z5 : Then Goto 7 : Ifend Lb1 4 （里程小于直缓点直线独立坐标）K- Z3 Z23 : 0Z24 : ET : Goto 8Lb1 5 （第一缓和曲线独立坐标）K- Z3 H H-H5/(40*R2* Z62)+H9/(3456*

9、R4* Z64) Z23 H3/(6*R* Z6)-H7/(336*R3* Z63) Z24 90*H2/( R* Z6) T if O>0 ：Then T +ET : Eles E-T T : T<0=>360+TT : Ifend Goto 8 Lb1 6 （圆曲线独立坐标）K- Z4 H H*180/( R*)+ Z14T R*Sin(T)+ Z8Z23 R*(1-Cos(T)+ Z10Z24 if O>0 ：Then T +ET : Eles E-T T : T<0=>360+TT : Ifend Goto 8 Lb1 7 （第二缓和曲线独立坐标）Z

10、1 -K H H-H5/(40*R2* Z72)+H9/(3456*R4* Z74) UH3/(6*R* Z7)-H7/(336*R3* Z73) V 90*H2/( R* Z7) T Z13Cos(A)+ Z12-U*Cos(A)-V*Sin(A)Z23 Z13*Sin(A)-U*Sin(A)+V*Cos(A)Z24 if O>0 ：Then F-TT : T<0=>360+TT : Else F+T T : Ifend Goto 8 Lb1 8if O<0 : Then - Z24Z24 : Ifend Z16+Z23*Cos(E) -Z24*Sin（E）Z18 Z

11、17+Z23*Sin(E)+Z24*Cos(E)Z19 Return此程序大约占计算器2900字节！2009-12-31 20:08回复 125.77.14.*3楼此程序本人已亲自验算，无误！2010-1-1 08:15回复 124.31.192.*4楼子程序反算里程桩 名称：FSLCZLb1 1"XK="?X:"YK="?Y（输入任意测点的X、Y坐标）“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）Lb1 2Prog"SJK ":T-90 W:W<0=>360+WW:Abs(Y-Z1

12、9)*Cos(W)-(X-Z18)*Sin(W)SIf S<0.0001:Then Goto 4:Else Goto 3:IfendLb1 3K+SK: Prog"SJK":T-90 W:W<0=>360+WW:Abs(Y-Z19)*Cos W-(X-Z18)*Sin (W)QIf Q<0.0001 :Then QS: Goto 4:Else if Q<S: Then K+QK: Goto 2 :Else if Q>S :Then K-QK:Goto 2:Ifend:Ifend:IfendLb1 4Pol (X-Z18,Y-Z19:"DP(-Z+Y)=":I(偏距）"K=":K+SK（里程）Goto 1Lb1 4Pol (X-Z18,Y-Z19:-差个撒样"DP(-Z+Y)=":I(偏距）"K=":K+SK（里程）Goto 12010-1-16 19:38回复 mmmmmm080位粉丝5楼反算还是不太好啊2010-3-8 08:41回复 116.115.217