《卡西欧fx5800P程序.docx》由会员分享，可在线阅读，更多相关《卡西欧fx5800P程序.docx（9页珍藏版）》请在三一办公上搜索。
1、卡西欧fx5800P程序卡西欧fx-5800P程序 1坐标反算(ST) Lb1 1：X1=？A：Y1=？B Lb2 2：X2=？C：Y2=？D S(1-2)=：POL(CA,DB)S IF J0：Then JT：Else J+360T：If End T=：TDMS K=？ If K=1：Then Goto1：If End If K=2：Then Goto2：If End If K=3：Then CA：DB：Goto 2：If End 0 说明： 1、 首先输入架站点坐标X0、Y0。 2、 再输入后视点坐标XP、YP。 3、 计算出OP的边长S和方位角J。 4、 当K1时，重新输入O、P点的坐标
2、。 5、 当K2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。 6、 当K3时，以原P点坐标为架站点坐标O，重新输入新的P点坐标，计算出边长S和方位角J。 2 坐标正算(XY) LbI 0： X0=？A： Y0=？B： P(1Z，2F)=？P If P=1：Then Goto2：Else Goto5： If End LbI 2：XA=？C：YA=？D S(0A)=：POL(CA，DB)S IF J0：Then JF：Else J+360F：If End T(0A )=：FDMSGoto6 Lb1 5：T(0A )=？F Lb16：S(0P )=？S： E(AOP=)？E E+
3、FT：XP=：A+Rec(S，T) X YP=：B+JY If T360：Then T-360T： If End T(0P)=：TDMS K=？K If K=1：Then Goto0：If End If K=2：Then Goto6：If End If K=3：Then XA：YB：T+180F：Goto6：If End 说明： 1、 首先输入架站点O坐标 2、 输入判断值P: 当P=1时输入后视点的坐标，计算出到后视点距离S(0A)=S和方位角T(0A )=F; 当P=2时直接输入后视点的方位角T(0A )=F。 3、 然后输入测点P的平距边长S(0P )=？S，和到测点的夹角CE(AOP=
4、)？E。 4、 计算出P点的坐标P和OP的方位角T(0P)= 5、 当K1时，重复以上步骤。 6、 当K2时，架站点O不变，重新输入另一测点P的边长S和夹角F，计算出P点的坐标和方位。 7、 当K3时，以上一计算点P为架站点，再输入边长和夹角，计算出以支导线形式的坐标和方位。 3 坐标转换(ZH) K=1NO，2Y？K If K=1：Then Goto1：Else Goto 2： If End Lb1 1：XA=？A：YA=？B：XB=？C：YB=？D： XI=？E：YI=？F：XJ=？G：YJ=？H Pol (CA , DB) ：JO：Pol (GE , HF) ：JU：OUT If T0：
5、 Then T+360T： If End X0：A-Ecos(T)+Fsin(T) M Y0：B-Esin(T)- Fcos(T) N T0=：T DMSGoto 3 Lbl 2： X0=？M： Y0=？N： T0=？T Lbl 3： XX=？R： YY？V： P=1SG,，2DD？P If P=1： Then Goto 4：Else Goto 5：If End Lbl 4： X(=：(RM)cos(T)+(VN)sin(T) X Y=：(RM)sin(T)+(VN)cos(T) YGoto 3 Lbl 5： X=：Rcos(T) Vsin(T)+MX Y=：Rsin(T)+Vcos(T)+N
6、YGoto 3 说明： 1、 输入判断值K： a: K1时，输入A、B两点在两坐标系中的各自坐标A、B、A、B，计算出施工坐标系的原点坐标在大地坐标系中的坐标值和X轴的夹角。 b.K1时，直接输入施工坐标系原点在大地坐标系中的坐标和X轴的夹角T0。 2、 输入计算点坐标。 3、 输入判断值P： a: P=1时，计算出P点在施工坐标系中的坐标。 b: P1时，计算出P点在大地坐标系中的坐标。 4 缓和曲线(HQX)(缓和曲线上和两端直线上的坐标正反算程序) Lbl 0：R=？R：L0=？L： G(YXJ=+ OR )= ？G L2L3(240R2) C：L2(24R) P：180L(2R) B：
7、 LL=：(Abs(G)2B)R180+2LS T=：C+(R+P)tan(Abs(G)2) T E=：(R+P)cos(Abs(G)2)RI Lbl A：X(JD)= ？M：Y(JD)= ？N： LK(JD)= ？W：A(FW(ZHJD)= ？A： Abs(G)GH：Abs(G2) Q：A+H(90+Q) K ZH=：WT HY=：WT+L QZ=：WT+S2Z YH=：WT+SL HZ=：WT+S Lbl 8：X=？X：Y=？Y： Abs(G)GH：Abs(G)2Q： L2(24R) O：90L(R) B：LL3(40R2) C： (R+O)cos(Q) D：Dsin(Q)+CRsin(B
8、) T If Y1000：Then Goto 6；If End Pol (XM,YN) E：JF：Rec(I,JK)： QBQ：JAbs(J) P：Pol(DI,J) If Abs(J)Q：Then ZHJR180E：H(RI) F：Goto B：If End K+(90QB)PC：ZPH(QR180+L) D： TRec(E,FC) E：HJF If E0：Then D+PHEE：PHJF：GotoB：If End ES： Lbl 9：SS5(40R2L2) V：PHS3(6RL) C：540C(S) U： Pol (EV,FC)：Rec(I,JU)：S+IS If Abs(I)0.0001
9、：Then Goto 9：If End D+SPHE：PJF：Goto B Lbl 6：XZU：Abs(U)UP：QBQ If QR180PU：Then Rec(RHY,180UHP(R)： Pol(DI,J)：M+ Rec(I,KPJ) E：N+JF：Goto B：If End KPH(90QB) C：Z+P(QR180+L) D：P(DX) U If U0：Then Pol (TU,PY)：M+Rec(I,C+J) E： N+JF：Goto B：If End UU5(40R2L2) O：HPU3(6RL) B： 90U2PH(RL) Q：Pol (TO+PYsin(Q),B+PYcos(Q
10、)： M+Rec(I,C+J) E：N+JF Lbl B：X= OR DK=：E Y= OR PIAN=：F Goto 8 程序说明： 1、首先输入曲线参数R=，G= ：L0=。计算输出曲线总长LL，切线长，外矢距，切曲差 、输入曲线转角点坐标；曲线转角点桩号LK(JD)，直缓点至转角点的方位角FW(ZH-JD)。计算输出直缓点桩号，缓园点桩号，曲中点桩号，圆缓点桩号，缓直点桩号。 、输入待求点的数据X=,Y=： 、已知该缓和曲线段或相邻两端直线段范围内的任意桩号值和偏离值。即桩号，偏离值。自动计算出该桩号偏离点的坐标X= ， Y= 、已知该缓和曲线段或相邻两端直线段范围内的任意点坐标值X=,
11、Y=，。自动计算出该点所在的桩号X = ，和偏离中心的位置Y(Y=负值时表示为左偏离)。 4、重新输入下一点的数据X=,Y=。 。 5 边长交会(BJH) XA=？A：YA=？B：XB=？A：YB=？D Lbl A：S(AP)= ？E：S(BP)= ？F Pol (CA,DB) S：JT (S2+E2F2)2SP：Abs(E2P2) H A+Pcos(T)Hsin(T) M B+Psin(T)Hcos(T) N APcos(T)Hsin(T) X B+Psin(T)Hcos(T) Y Pol (XA,YB)：JU：If TU0：Then Goto 2：If End Lbl 2：MG：NL：XY
12、：YW：Goto 3 Lbl 3：K=？K If K0：Then Goto 5：Else Goto 6：If End Lbl 5：XP=：V YP=：WGoto A Lbl 6：XP=：GYP=：L Goto A 说明： 1、 2、 输入已知点坐标A、B，输入待定点至已知点的距离S、S。 输入判断值K，当K为正值时输出右边点坐标，当K为负值时输出左边点坐标。 6 方向交会 Lbl 1：XA=？A：YA=？B：XB=？C：YB=？D Pol (CA,DB) S If J0：Then J360T：Else JT：If End S(AB)= ：S FW(AB)= ：T DMS Lbl 2：X0=？E
13、：Y0=？F Pol (AE,BF) V：If J0：Then J360W：Else JW：If End S(0A)= ：V FW(0P)= ：W DMS Lbl 3：FW(0P)= ？G GWM：1tan(M) Q：W180TN：1tan(N) R：QRU (AQERBF)UX (BQFRAE)UY Pol (XA,YB) O： Pol (XE,YF) P： XP=：XYP=：Y S(AP)= ：OS(0P)= ：P Goto 3 7 后方交会Lbl 1：XA=？A：YA=？B：XB=？C：YB=？D：XC=？M：YC=？N Lbl 2：E(APB)= ？E：J(BPC)= ？F (DB)t
14、an(E)CAQ (CA)tan(E)DBW -(ND)tan(F)MCR -(MC)tan(F)NDT (QR) (WT) K QWKU：-RTKO U(1K2) P：PKL：CPX：DLY XP=：XYP=：Y Pol (AX,BY) ：If J0：Then J360J：If End S(PA)= ：IFWJ(PA)= ：J DMS Pol (CX,DY) ：If J0：Then J360J：If End S(PB)= ：IFWJ(PB)= ：J DMS Pol (MX,NY) ：If J0：Then J360J：If End S(PC)= ：IFWJ(PC)= ：J DMSGoto 1
15、说明： 1、 先输入已知点A、B、C的坐标，再输入AB的夹角E和BC的夹角F。2、 计算出末知点的坐标X、Y。 3、 计算出末知点到各已知点的边长(S)和方位角(J)。 4、 输入时必须是面向已知点从左至右输入 8、竖曲线 “LK(JD)=”？M： “H(JD)=”？N：“R=”？R：“I1=”？I：“I2”J IJP： ？ If P0：Then 1K：Else 1K：If End “T=”：Abs200）T 2“E=”：:T2RE LBI 1：“LK=”？L： If LMT：Then GOTO 6： Else GOTO 2：If End LBI 2:If LM：Then GOTO 7： Else GOTO 3：If End LBI 3:If LMT：Then GOTO 8： Else GOTO 9：If End LBI 6：“H=”：I100NHGOTO 1 LBI 7：“H=”：I100NK22RHGOTO 1 LBI 8：“H=”：J100NK22RHGOTO 1 LBI 9：“H=”：J100NHGOTO 1 说明： 1、 输入竖曲线交点的桩号LK(JD)=，高程H(JD)=，曲线半径R。.曲线前进方向的第一坡度I1，第二坡度I2 2、 输入坡度上桩号值。 3、 计算出任意桩号的高程值。
