fx5800小程序.docx

1、fx5800小程序 5800计算器由坐标计算面积小程序ClrMemory:1N:LbI 0:E:F:XO?X:Y0?Y:(XF-EY)/2G:Q+GQ:XE:YF:Abs(Q)S:Fix 1: S=:Locate 6,4,S Norm 2: N=:Locate 6,4,N N+1N:Goto 0:(说明：至少输入三点坐标，才能计算正确的面积，N为了计输了的点数）线路坐标正反算，竖曲线计算及边坡放样程序坐 标 计 算 程 序可计算中边桩及进行坐标反算，边坡放样PAN(主 程 序)：LbI 0 “1.SZXY, XY SZ”:?NIf N=1:Then Goto 1：If EndIf N=2:Th

2、en Goto 21：If EndLbI 1:“DKI=”?S:S终止桩号= Goto 1 : S Goto 1 ：“BJ=”？Z: Prog “PAN-1”: Prog “PAN-2”:If Z=0:Then 90T:EIse “PJ=” ?T:IfEndXS=XYS=YFS=F-90DMSGoto 1LbI 2:“DKI=”?S:S终止桩号= Goto 2 : S Goto 2 ：0Z:90T:Prog “PAN-1”:Prog “PAN-2”: “XC=”?N :YC=?E: Prog “PAN-3”If I0:Then “YOU,I=”: I If EndIf D0:Then “ZUO

3、,I=”: I If EndZHUANG,HAO=KGoto 2PAN-1:(平曲线数据库)If S(线元终点桩号):Then线元起点桩号O：线元终点桩号H: 线元起始切线方位角G: 线元起点坐标X: 线元起点坐标Y: 线元起点半径P: 线元终点半径R: 偏转方向常量Q:If End.Q值当线元向左偏时输负值，当线元向右偏时输正值。当线元与直线相接时半径输10的45次方，与圆曲线相接时半径输圆曲线半径。PAN-2:(平曲线正算程序)1PC(P-R)（2（H-O）PR）D180EAbs（S-O）W:0.1739274226A:0.3260725774B:0.0694318442K:0.33000

4、94782L:1-LF:1-KM:U+W(Acos（G+QEKW(C+KWD)）+Bcos（G+QELW(C+LWD)）+Bcos（G+QEFW(C+FWD)）+Acos（G+QEMW(C+MWD)）) X:V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) YG+QEW(C+WD)+90FReturnPAN-3: (平曲线反算程序)0Z: 90T:Pol(N-X, E-Y)If J0:Then J+360J:If EndF-JC:S+IsinCK:IcosCIReturnGoto DP

5、AN-4:（竖曲线计算子程序）Prog“PAN-5”:Q-TC: Q+TDIf SC:Then Goto 1: EIseIf SQ:Then Goto 2: EIseIf SD:Then Goto 3: If End :If End :If EndLbI 1:E+（Q-S）AH: Goto 4LbI 2:E+（Q-S）A+(S-C)2 /2/RH: Goto 4LbI 3:E+（S-Q）B+(S-D)2/2/RH: Goto 4LbI 4:HH: ReturnPAN-5:（竖曲线数据库，支持断链）If S=84100:Then84100+3.45S: Return: If EndIf S=87

6、900:Then87900+12.85S: Return: If EndIf S本段竖曲线终点桩号:Then 竖曲线交点高程E: 前坡坡率A:后坡破率B:交点桩号Q: 竖曲线半径R: 切线长T Return ：If End.竖曲线数据库输入说明：S为计算里程，破率输入时以交点为起算点，上坡输正值，下坡输负值。竖曲线半径输入，当竖曲线为凹曲线时半径输正值，当竖曲线为凸曲线时半径输负值。PAN-SQX(竖曲线计算主程序)：LbI 0：“DK=”：？S:S Goto 0： S线路终点桩号= Goto 0：Prog “PAN-4”:“BJ=”:?B:H-B*横坡H：“H=”：HGoto 0PAN-BI

7、ANPO(边坡放样主程序):LbI 0：“DK=”：？S:S Goto 0： S线路终点桩号= Goto 0:0Z:90T: Prog “PAN-1”: Prog “PAN-2”: “XC=”:?N: “YC=”:?E: “DMG=”:?G:Prog “PAN-3”: Prog “PAN-4”: Goto 1LbI 0: “BJ=”:?B: H-B*横坡-GP: “P=”：P(可显示也可不显示)If P10:Then Goto P: If EndIf P0:Then GotoT: If EndIf P0:Then “WAI,D=”: D If EndIf D0:Then “XIAO,K=”:

8、K If EndIf KGoto 1:N=2=Goto 2:N=3=Goto 3Lbl 1: “K=”?S：“P=”?Z：Prog “SJ-PM”： Abs(S-O) W：Prog SUB1-ZS： “X=：Locate4,4,X:Y=：Locate4,4,Y:F-90F:S K:Prog“SJ-GC”：“H=”：Locate4,4,HGoto 4Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-PM”： X I： YJ：Prog SUB2-FS：O+WS: “K=： S “P=： ZS K:Prog“SJ-GC” ：“H=”： HGoto 4Lbl 3: “X=”?X：“Y=”？Y:P

9、rog“SJ-PM”： X I： YJ：Prog SUB2-FS：O+WS: “K=： S “P=： ZS K:Prog“SJ-GC” ：“H=”： HProg“SJ-CQW” Goto4SJ-PM（子程序名-平面线形数据库）If S 59227.681（线元起点里程）:Then 2599818.013U（线元起点X坐标）：496887.918V（线元起点Y坐标）：59227.681O（线元起点里程）：20802839”G（线元起点方位角）：100 H（线元长度）：11045P（线元起点曲率半径）：11045R（线元终点曲率半径）：0 Q（线元左右偏标志：左-1右1）：IfEndIf S 59

10、327.681（线元起点里程）:Then 2599730.112U（线元起点X坐标）：496840.237V（线元起点Y坐标）：59327.681O（线元起点里程）：20802839”G（线元起点方位角）：90 H（线元长度）：11045P（线元起点曲率半径）：750R（线元终点曲率半径）：-1 Q（线元左右偏标志：左-1右1）：IfEndSJ-GC（子程序名-竖数据库）If S变坡终点里程And S变坡起点里程：Then大里程坡度A：小里程坡度B：变坡点里程O：变坡点高度G：半径R：Prog“SUB3-GC”:IfEnd(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只

11、需要修改以上的数据或增加一个判断，子程序不用变动。2.如整条线只有一个纵坡比喻为2，那么程序应为If S终点里程And S起点里程：Then 0.02A：0.02B：起点里程O：起点高程G：11045R：Prog“SUB3-GC”:IfEnd)SJ-CQW (子程序名-隧道数据库)“H1=”?F:”P=”?ZIf F-H5.845:Then (Abs (Z)2+(F-H-0.45)2 )-7.45W: IfEnd:If F-H5.845 And F-H-1.169: Then (Abs (Z)-1)2+( Abs (F-H-1.5) 2)-6W :IfEnd:If F-H-1.169: The

12、n (Abs (Z) 2+(H-F+14.05) 2)-16.5W: IfEnd:“+CQ,-CQ=”: WSUB1-ZS(正算子程序)1P C： (P-R)(2HPR) D： 180 E： 0.1739274226A： 0.3260725774 B： 0.0694318442 K： 0.3300094782 L： 1-L F：1-K M： U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X：V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin

13、(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y： G+QEW(C+WD)+90 F： X+Zcos(F) X： Y+Zsin(F) YSUB2-FS(反算子程序)G-90T： Abs(Y-V)cos(T)-(X-U)sin（T）) W： 0 Z：Lbl 0：Prog SUB1-ZS： T+QEW(C+WD) L： (J-Y)cos(L)-(I-X)sin(L) Z：If Abs(Z)1E-6(注：此处1E-6可输入0.000001)：then Goto1：Else W+Z W：Goto 0：IfEndLbl 1： 0 Z：Prog SUB1-ZS： (J-Y)sin(F

14、) ZSUB3-GC（高程子程序）O-SL:A-BW:Abs(R*W2) T:O-TM:O+TPIf SM:ThenG-L*BH:Goto5:Else If SO:Then Goto3:Else If SP:Then Goto4:IfEnd: IfEnd: IfEndLbi3If WO：Then G+(M-S)22R-L*BH:Goto5: Else If WO: Then G-(M-S)22R-L*BH:Goto5: IfEnd: IfEndLbi4If WO：Then G+( S-P)22R-L*AH:Goto5: Else If WO: Then G-( S-P)22R-L*AH:Got

15、o5: IfEnd: IfEndLbi5HH: Return说明：(正算1秒，反算和超欠挖5秒完成)所有程序名。不同线路，只需改动SJ-PM，SJ-GC，SJ-CQW三个子程序里的内容，其它不变。1为正算，2为反算，3为超欠挖.K= 正算时，输入所求点里程。反算时得出里程结果X=，Y= 正算时得出结果。反算时输入实测坐标P= 正算时输入偏距。反算时得出偏距H= 正算时得出高程。反算时得出高程H1=超欠挖时输入实测高程+CQ,-CQ= 得出超欠挖值注，超欠挖输入时显示里程，编距，设计高程，不需输入。只输入实测量高程H1 5800p全线高程计算程序 带数据库 竖曲线全线高程计算程序Lbl 1：“k

16、=”？H：Prog子程序C-DF：Abs(RF/2)T：R(Abs(F)/F)RIf HB-T：Then 0K：Else If HB+T：Then 0K：DC Else H-B+TK：IfEnd：IfEndH=:A-(B-H)C-K2/2RG：G=：GGoto1子程序IF H第二竖曲线起点桩号：Then第一竖曲线交点高程A：交点桩号B：前坡C：后坡D：曲线半径R：（Else）:IfEnd 继续添加曲线要素10-11-6楼主：WJ强少作者： 本文已被浏览2458次5800超欠挖程序1. 主程序(NTSSD-CQW)Lbl 1：5DimZ：（增加Z型5个变量）600S：（输入近似里程）Prog“S

17、UB0”(定义所在线元数据库)1PC: (P-R)(2HPR) D:180E:“X=”？X：“Y=”？Y：XI：YJ：(输入实测XY坐标,)“H=”？ Z1: (输入实测高程)“R=”？ Z2: (输入断面理论半径)Prog“SUB2”：(调用反算子程序,由反算两次调用正算子程序)O+WS：“K=”：S“BIANJULI=”：Z(得到桩号及离中心桩距离)Abs(Z)B：(将变量值另存,利于后面计算)617.42C：(定义此段竖曲线变坡点桩号，也可？C：输入)71.1D：(定义此段竖曲线此段竖曲线变坡点高程)1I： (定义此段竖曲线后坡点坡度)-0.6J：(定义此段竖曲线前坡点坡度)1500R：

18、(定义此段竖曲线变坡半径值)-1Q：(判断是凸凹曲线类型, -1Q：I1Q )240L： (定义此段竖曲线曲线长)120T： (定义此段竖曲线切线长)0.48E：(定义此段竖曲线外距)497.42M：(定义此段竖曲线变坡曲线起点桩号)737.42N：(定义此段竖曲线变坡曲线终点桩号)SK： (将变量值另存,利于后面计算)Prog“SUB3”： (调用高程计算子函数)Fix 3：（输出保留3位小数）1.5+ZZ：(将路面设计值加减设计值得到开挖圆心高程)开平方根(Z1-Z)2+B2)X：(得到实测点到圆心的距离)“CQW=”:X-Z2A：(将实测点半径减理论半径即为超欠挖) ClrMemory:

19、Goto 12.SUB0 数据库子程序Goto1 同时保存多个曲线时的指针Lbl 1：IF S*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）: *H（线元起点至终点长度）：0或1、-1Q：Return:IfEndLbl 1：IF S*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）: *H（线元起点至终点长度）：0或1、-1Q：Return:IfEnd.为了便于解读

20、，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件3. 正算子程序(SUB1)0.1739274226A： 0.3260725774B： 0.0694318442K： 0.3300094782L： 1-LF： 1-KMU+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)X： V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y：G+QEW(C+W

21、D)+90F： X+Zcos（F）X： Y+Zsin（F）Y4. 反算子程序(SUB2)G-90T： Abs(Y-V)cos(T)-(X-U)sin(T) W： 0Z：Lbl 0：Prog SUB1：T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）Z：IF Abs（Z） M AndKC :Then (K-M)2/(2R) P:D+(K-C)I/100+QPZ: Return:IfEndIF K C AndKN :Then (K-M)2/(2R) P:D+(K-C)J/100+QPZ: Return:IfEndIF K N: Then D+(K-C)J/100Z: R

22、eturn:IfEnd经反复核对的，绝对能用，5800P上运行要4秒出结果。 Casio5800交点法与线元法（积木法）匝道坐标正反算放样程序Casio5800交点法与线元法（积木法）匝道坐标正反算放样程序Casio5800交点法程序与线元法（积木法）匝道坐标正反算放样程序，程序由一个主程序ZBZFS和8个子程序（JS、XY-A、XY-B、JDYS、1、2、3、4）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标正反算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并能对单

23、一线元进行坐标正反算。1主程序名：ZBZFS（功能：进入计算主程序）65DimzDeg:Fix 31.JD ZFS2. ZHADAO ZFS? I: IZ61: 1.ZHONG SHU JS 2. JS? IIf I=1: Then Goto1: Else Goto2:IfEndLbI 1 :If Z61=1: Then ProgJDYS:ElseCls:K0?A:KN?L :X0?U :Y0?V :F0?W :R0?P :RN?Q:ZX:-1,+1,0?G:IfEndLbI 2 :ProgJS2子程序名：JS（功能：选择正算或反算模式）Cls:XC?H:YC?ZCls:1.ZS2.FS? I

24、: I=2=Goto 3LbI 1 : Cls: If Z61=1: ThenJD ZS KX+XXX?K :Prog4: Else ZHADAO ZS KX+XXX?K :IfEndLbI2: Cls:90B: Cls:RJ Or 0To K?B:B=0 =Goto 1:Z?TProg XY-AX+Tcos(M+B)XY+Tsin(M+B)Y360Frac(M+360)360MPol(X-H,Y-Z : 360Frac(J+360)360J2O: Prog XY-B:Goto 2LbI 3 : Cls: If Z61=1: ThenJD FS KN+?K:X?C:Y?D:Prog4:Else

25、 Cls: ZHADAO FS:X?C:Y?D:IfEndLbI 4 :Prog XY-A(D-Y)sin(M)+(C-X)cos(M)HIf Abs(H)X10-3 :Then K+HK:Goto 4:IfEnd(D-Y)cos(M)T3O: Prog XY-B:Goto 33子程序名： XY-A（功能：坐标计算程序）5N: G(Q-1-P-1)Abs（L-A）F: Abs（K-A）NR: 90RS: W+(FNR+2GP-1)NSM:1EU+R6(Cos (W)+Cos (M) +4（Cos (W+(E+0.5)FR+2GP-1)(E+0.5)S),E,0,(N-1)）+2（Cos (W+

26、(EFR+2GP-1)ES,E,1,(N-1)）X V+R6(sin (W)+sin (M) +4（sin (W+(E+0.5)FR+2GP-1)(E+0.5)S),E,0,(N-1)）+2（sin (W+(EFR+2GP-1)ES,E,1,(N-1)）Y 4子程序名： XY-B（功能：显示正算或反算结果）If O=2:ThenCls :K=:Z=:X=:Y=: Locate 6,1, K : Locate 4, 2, T : Locate 4,3, X : Locate 4,4, YIf T=0 :Then Cls :QF(Z)=: Locate 8,1, M:MDMSIfEndCls :K=:S=: Locate 6,1, K : Locate 4, 2, I : F=:J:JDMSIfEndIf O=3:Then X=:Y=:K=:Z=: Locate 4,1,C: Locate 4, 2, D : Locate 6,3,K :Locate 4,4,TIfEnd:Cls5子程序名:4（功能：将交点参数转为线元计算参数）LbI 1: IF Z480 :Then -1Z62 : Else:1Z