fx5800程序.docVIP

fx－5800魔鬼程序终结版 程序 DD (线路调度) 2000→Dimz↙ 扩展额外变量（根据内存情况定义） ：Z A B C D E F G↙ 从8条线路中选择1条 Do↙ If Getkey=27：Then 45→Z[41]：305→Z[42]：386→Z[43]：Break：IfEnd↙ If Getkey=51：Then440→Z[41]：672→Z[42]：744→Z[43]：Break：IfEnd↙ If Getkey=52：Then 792→Z[41]：996→Z[42]：1059→Z[43]：Break：IfEnd↙ If Getkey=53：Then1101→Z[41]：1277→Z[42]：1331→Z[43]：Break：IfEnd↙ If Getkey=54：Then1367→Z[41]：1515→Z[42]：1560→Z[43]：Break：IfEnd↙ If Getkey=55：Then1590→Z[41]：1710→Z[42]：1746→Z[43]：Break：IfEnd↙ If Getkey=56：Then1770→Z[41]：1862→Z[42]：1889→Z[43]：Break：IfEnd↙ If Getkey=43： Then1907→Z[41]：1971→Z[42]1989→Z[43]:Break:IfEnd↙ LpWhile Getkey≠73↙ Z[41] 4.数据输入：SRZ[41→C ：Z[42→W ：Z[43→M←┘ ”PW”?N:N≠2013=Step←┘ 输入密码 2013 “ZB1,GC2,CG3” ?N:Cls: 坐标数据按1，高程数据按2，超过数据按3。 N=2＝Goto 2：N=3＝Goto 3： Lbl 1: Z[C→A: ”K”?A: A→Z[C]: 输入线源起点桩号 Z[C+1→A: ”X”?A: A→Z[C+1]: 输入线源起点坐标X Z[C+2→A: ”Y”?A: A→Z[C+2]: 输入线源起点坐标Y Z[C+3→A: ”FW”?A: A→Z[C+3]: 输入线源起点切线方位角 Z[C+4→A: ”P”?A: A→Z[C+4]: 输入线源起点半径 Z[C+5→A: ”R”?A: A→Z[C+5]: 输入线源终点半径 Z[C+7→A: ”Q”?A: A→Z[C+7]: 输入线源方向，直线输入0，左转输入-1，右转输入1 C+7→C: Goto 1←┘ Lbl 2: Z[W→A: ”GC”?A: A→Z[W]: 输入变坡点高程 Z[W+1→A: ”JD”?A: A→Z[W+1]: 输入边坡点桩号 Z[W+2→A: ”R”?A: A→Z[W+2]: 输入竖曲线半径 （起点与终点半径输入0） W+3→W: Goto 2←┘ Lbl 3: Z[M→A: ”Q(-Z+Y)”?A: A→Z[M]: 输入平曲线方向，左转输入-1 右转输入1。 Z[M+1→A: ”QK”?A: A→Z[M+1]: 输入超高起点桩号 Z[M+2→A: ”HY”?A: A→Z[M+2]: 输入缓圆点桩号 Z[M+3→A: ”YH”?A: A→Z[M+3]: 输入圆缓点桩号 Z[M+4→A: ”ZK”?A: A→Z[M+4]: 输入超高终点桩号 Z[M+5→A: ”ⅰ”?A: A→Z[M+5]: 输入超高最大横坡 M+6→M: Goto 3←┘ 1.正算主程序 GSZS？K：L(-Z ,+Y) ？L：W(+Q, -H) ?W：”α” ？M： ProgSUB1：X+Lcos(F+M→X：Y+Lsin(F+M→Y：T(0,1)？T ： If T=0：Then X+Wcos(F)→X ： Y+Wsin(F)→Y： Eles X+Wcos(F+M-90→X： Y+Wsin(F+M-90→Y： If End：Cls: FWJ=: Loscate 5,1,F°: ”X=”：Loscate 3,2,X : ”Y=”：Loscate 3,2,Y←┘ Prog SJGC ： ＂GC=＂： 2. 反算主程序 GSFS ?X：X→U：?Y: Y→V ：Z[41→C: Z[C]+Abs((Y-Z[C+2])Cos(Z[C+3]-90)-(X-Z[C+1])Sin(Z[C+3]-90))→K: Lbl 0：Prog SUB1：Pol(U-X,V-Y):→K Abs(I)＞0.001= Goto 0：→A:Cls:”K=”:Locate3,1, K : ”L=” Locate3,2,A←┘ 3. 正算子程序(SUB1) 不独立运行，供其他程序调用 Z[41→C: Lbl