相关文档

• FX5800坐标正反算.docx

  FX-5800正算反算正算Lbl 0：X0C:Y0B:LL:AALbl 1: Rec(LA):IC→I：JB→J：X=:I◢ Y=:J◢Goto 0反算Lbl 0:X0A:Y0Ｂ：ＸＸ:ＹＹＬbl 1:Pol((X-A)(Y-B)) If J＜0:Then J360→J:Else J→J:Ifend S=:I◢ A=: J DMS◢ :

• FX5800计算器公路全线坐标正反算计算程序.doc

  5800计算器公路全线坐标正反算计算程序FX5800全线贯通万能正反算程序(一体化超好用短小易懂)FX5800计算器的积分程序(正反算全线贯通新线路)终极版ZHUCHENGXU主程序1.ZS2.FS →Q←┘输入1正算输入2反算NEW=0OLD≠0Z←┘IfZ=0:ThenX0=A:Y0=B:C0=C:1R0=D:1RI=E:SP=F:EP=G:Ifend:Q=2=>Goto 2←┘Lb

• FX5800计算器公路全线坐标正反算计算程序.doc

  5800计算器公路全线坐标正反算计算程序FX5800全线贯通万能正反算程序（一体化超好用短小易懂）FX5800计算器的积分程序（正反算全线贯通新线路）终极版ZHUCHENGXU主程序 →Q←┘输入1正算输入2反算NEW=0OLD≠0Z←┘IfZ=0:ThenX0=A:Y0=B:C0=C:1R0=D:1RI=E:SP=F:EP=G:Ifend:Q=2=>Goto 2←┘Lbl1 :KM=<0 S

• 5800线路坐标正反算程序.doc

  曲線任意里程中边桩正反算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

• 坐标正反算.doc

  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:SS=0=>Goto 0 (注:当S输入0时程序会由LbI 0开始重新运行)Z:Abs(S-O)→WProgSUB1:ClsXS=:X◢YS=:Y◢FS=:F-90 ▼DMS◢

• CASIO4850P-坐标正算坐标反算程序.doc

  程序源清单清单中子程序4和子程序7中的数值为示例高速公路全段的曲线元素(直曲表及逐桩坐标表由海地2000公路优化设计系统生成逐桩坐标表用于检验程序输入的正确性详见后附录一)ZBJS L1 Defm 35:Z[26]=0:Z［27］=1:Prog 1ZBFS L1 Defm 34:Fixm:｛XY｝:Z［33］=XXp:Z［34］=YYp:Z［26］=2π:Z［27］=1:Prog 11

• 卡西欧5800坐标正反算程序.doc

  卡西欧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

• 坐标正反算程序（交点法5800）.doc

  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-

• 坐标正反算(1).doc

  Zbzfs（程序名）“1=＞ZX2=＞YX3=＞A4=＞B 5=＞C6=＞D7=＞BZZX8=＞BZYX9=＞FS”N: （此处有几段竖曲线就输到几，底下Goto Lbl要记得对应）180÷∏→E:N=1=＞Goto1:N=2=＞Goto2:N=3=＞Goto3:N=4=＞Goto4:N=5=＞Goto5:N=6=＞Goto6:N=7=＞Goto7:N=8=＞Goto8:N=9=＞Goto9:

• 卡西欧5800程序坐标正反算[1].doc

  卡西欧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- Ｏ ) →