卡西欧5800-交点法-任意里程坐标计算程序(对称型、不对称型、有无缓和曲线、单圆曲线型)

1、Fx-5800p单交点对称型、不对称型、有无缓和曲线单圆曲线型任意里程坐标计算本程序适用于单交点对称型、不对称型、有无缓和曲线单圆曲线型一个交点范围内(含交点前后有直线段时的曲线要素核对和坐标计算,手工输入要素,对设计图纸的“直线、曲线转角表”中的交点数据进行复核验证,专为“线元法的中边桩坐标正反算程序”提供:起点坐标和起点切线方位角等数据!当然本程序也可单独逐交点输入进行放样计算用!本程序由一个主程序QXJS和三个子程序(QXJS1、QXJS2、QXJS3构成,运行时只需运行主程序QXJS即可!主程序名:QXJS24DimzCls :"K(JD"?K :"X(J

2、D"?X :"Y(JD"?Y :"LS1"?B :"LS2"?C : ?R :"FWJ(ZH"?M : "(Z-,Y+"?O : M+ON :Prog "QXJS1"Cls :"T1=":"T2=":"L=":"LY=": Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,QCls :"E=":"

3、K(ZH=": Locate 7,1,E : Locate 7,2,Z1 Cls : "K(HY=":"K(QZ=":"K(YH=":"K(HZ=": Locate 7,1, Z2 : Locate 7,2, Z3 : Locate 7,3, Z4 : Locate 7,4, Z5 LbI 0 : "K×+×××"?P : "Z"?D : If D0 :Then "90°"?H : IfEnd :

4、 Prog " QXJS2"If D<0 :Then Cls : "X(L=":"Y(L=": Loc ate 6,1,F : Locate 6,2,GGoto 0 : IfEndIf D=0 :Then Cls : "X(Z=":"Y(Z=": Locate 6,1,F : Locate 6,2,G:"QXFWJ(Z=": ZDMSGoto 0 : IfEndIf D>0 :Then Cls : "X(R=":"Y(R="

5、: Locate 6,1,F : Locate 6,2,GGoto 0 : IfEnd子程序1名: QXJS1If O<0 :Then -1W : Else 1W : IfEnd : WOA B²÷24÷R-B(4÷2688÷R (3 Z6 C²÷24÷R-C(4÷2688÷R (3 Z7 B÷2-B(3÷240÷R²Z8 C÷2-C(3÷240÷R²Z9 Z8+(R+Z7-(R+Z6cos(A÷si

6、n(ASZ9+(R+Z6-(R+Z7cos(A÷sin(ATRA÷180+(B+C ÷2LRA÷180-(B+C ÷2Q(R+(Z6+Z7÷2÷cos(A÷2-REK-SZ1 Z1+BZ2 Z2+Q÷2Z3Z1+L-CZ4Z4+CZ5子程序2名: QXJS2X-Scos(MZ19:Y-Ssin(MZ20X+Tcos(NZ21:Y+Tsin(NZ22If P>Z1:Then Goto 1 :IfEndZ1-PLX-(S+Lcos(M+Dcos(Z+HFY-(S+Lsin(M+Dsin(Z+HGMZ :

7、 Goto 5LbI 1 : If P>Z2:Then Goto 2 :IfEndP-Z1L:LZ12:BZ13:Prog"QXJS3"Z19+Z14cos(M-WZ15sin(M+Dcos(Z+HFZ20+Z14sin(M+WZ15cos(M+Dsin(Z+HGM+90WL²÷(BRZGoto 5LbI 2 : If P>Z4:Then Goto 3 :IfEndP-Z1L:90(2L-B÷R÷Z11Rsin(Z11+Z8Z14:R(1-cos(Z11+Z6Z15Z19+Z14cos(M-WZ15sin(M+Dcos(Z

8、+HFZ20+Z14sin(M+WZ15cos(M+Dsin(Z+HGM+WZ11ZGoto 5LbI 3 : If P>Z5:The n Goto 4 :IfEndZ5-PL:LZ12:CZ13:Prog"QXJS3"Z21-Z14cos(N-WZ15sin(N+Dcos(Z+HFZ22-Z14sin(N+WZ15cos(N+Dsin(Z+HGN-90WL²÷(CRZGoto 5LbI 4 : P-Z5LX+(T+Lcos(N+Dcos(Z+HFY+(T+Lsin(N+Dsin(Z+HGNZGoto 5Lb I 5 : 360Frac(Z+360

9、÷360Z子程序3名: QXJS3If Z12=0 :Then 0Z14: 0Z15:ElseZ12- Z12(5÷40÷(RZ13²+ Z12(9÷3456÷(RZ13(4 Z14Z12(3÷6÷(RZ13-Z12(7÷336÷(RZ13(3+ Z12(11÷42240÷(RZ13(5Z15 IfEnd程序说明:已知数据输入:K(JD? 交点桩号X(JD? 交点X坐标Y(JD? 交点Y坐标LS1 ? 第一缓和曲线长度LS2 ? 第二缓和曲线长度R ? 圆曲线半径FWJ(ZH? 交点前(即前交点至本交点也即ZH点的正切线方位角(Z-,Y+? 本交点处线路转角(左转为负,右转为正,度分秒输入K×+×××? 待求桩号Z ? 待求桩号距中距离(左负值,右正值,中为090°? 斜交右角(线路切线前进方向与边桩右侧夹角垂直中桩即输90 计