4800坐标反算:lq52搜集??人气: 636??来源:网络? 【字体: javascript:doZoom(16) \t _self 大 javascript:doZoom(14) \t _self 中 javascript:doZoom(12) \t _self 小】【 javascript:() 打印】【 javascript:() 关闭】 ====?1?==
线路中边桩任意里程坐标正反算改编程序(CASIO fx-5800P)1. 正算子程序(SUB1) ?????????????????????????????????????????????????????? A=:B=:K=:L=:F=1-L:M=1-K:X=UW(Acos(G(1PKWD))Bcos(G(1PLWD))Bcos(G(1PFWD))Acos(G(1PMWD))):Y=VW(Asin
曲線任意里程中边桩正反算5800p TYQXJS(主程序名)LbI 0:4→Dimz:Cls→XY→SZ→N:ClsXOU: YOV: SOO:FOG: LSH: ROP:RNR:Q1÷P→C:(P-R)÷(2HPR) →D:180÷π→EN=2=>Goto 2LbI 1:Cls:S:Z:Abs(S-O)→WProgSUB1:ClsXS=:X◢YS=:Y◢FS=:F-90 ?DMS◢Goto 1L
GAUSSLE坐标正反算fx-4850程序源程序1、正算主程序??ZBZS“K”?K:“L(-Z??+Y)”?L:90→M:(注:此处若不给M赋值,则可计算斜交点)Prog”DAT” : (P-R)÷(2(H-O)PR) →DAbs(K-O) →J:Prog“SUB1”“X=”:X ◢“Y=”: Y◢2、正算子程序 SUB14→Defm 01184634425→A: 0239314335
卡西欧5800坐标正反算程序主程序(TYQXJS)Lb1 4:=>XY:=>SZ:N:S:ProgSUB0 ↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=>Goto 1:Goto 2: ↙Lb1 1:Z:Abs(S-O) →W: ProgSUB1:XS=:X◢YS=:Y◢F-90→F:FS=F▲DMS◢ Goto 4↙Lb1 2:X:Y:X→I:Y→J:ProgSUB2:OW
Fx-5800计算任意里程坐标程序(交点计算法)主程序: XY Lb1 0 K=K:If K=1:Then Prog Y1: Else Prog Y2:IfEnd: Goto 1: Lb1 1 : (RH2÷24÷R-H4÷2688÷R3)tan(J÷2)H÷2- H3÷(240R2)→T: P-T((÷R)πR÷180°2H) ÷2→Z Lb1 2 :W>P-T>Goto 3 :??A-
卡西欧5800程序坐标正反算修改 ZX-WN (其他的程序不用改所有程序输完后退出进行扩展变量:5→Dimz按EXE出现Done就OK了) WN(子程序 不运行) ZS=1FS=2 N: 1÷P →C:(P-R)÷(2HPR)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd← ┚ LbI 1:1 →I:0 →Z : Abs(K- O ) →
#
#
5800计算器全线坐标计算放样正反算(定稿)主程序??坐标正反算程序名称:ZBZFSLB1??A↙Cls : Fix 4 : 30→Dim Z :0=ZS1=FSZ ↙If??Z=0:Then??Goto B:IfEnd↙(Z=0进入里程点坐标正算)If??Z=1:Then??ProgFSLCBZ : Goto A:IfEnd↙(Z=1进入反算里程边桩)Lb1 B??↙K=K :(计算里程) Pr
违法有害信息,请在下方选择原因提交举报