fx5800程序(支持不对称型).docx

《fx5800程序(支持不对称型).docx》由会员分享，可在线阅读，更多相关《fx5800程序(支持不对称型).docx（10页珍藏版）》请在第一文库网上搜索。

1、卡西欧fx5800程序1、 主线坐标计算主程序 A01ZB (子程序名B0ZB)10DimZ ( K待求点桩号)Lbl 9:Norm 1:K？K:ProgBOZB”:F-T-A:A+S-B:A+W-D: D-ZCIf K1OTEIse V-H:-JrJ:1-O:l-T:lfend:N+OTcos(H)Z1+OTsin(H)Z2oto 0:LblO ( K待求点桩号)KGoto 1:KGoto 2:KGoto 3:KGoto 4:KD=Goto 5:Lbl 1:0-Z3:H+JZ3-Z4:(K-A)cos(H)-Z7:(K-A)sin(H)f Z8:Goto 6Lbl 20(K-A)2RSteZ

2、3iH+3JZ3Z4(K-A)-(K-A)(5)90R2S2Z10Z10cos(H+JZ3)Z710sin(H+JZ3)Z8oto 6Lbl 3:90S/R/ r+180(K-B)R jZ3+JZ3Z4Rsin(Z3)+S2-SA(3)240R 八 2-Z9R(1-cos(Z3)+S224RZ10Z9cos(H)-JZ10sin(H)Z7: Z9sin(H)+JZ10cos(H)Z8oto6Lbl430(K-D)(2)RZ tZ3+3JZ3Z4(D-K)-(D-K)(5)90R(2)Z(2)Z10-Z10cos(H+JZ3)Z7 Z10sin(H+JZ3)Z8oto 6Lbl 50Z3-JZ3

3、Z4K-D)cos(H)Z7(K-D)sin(H)Z8oto6Lbl 6边桩坐标Norm 1:HR=:Z4DMS,显示中线的方位角(度分秒)Fix 3,X=,Z1+Z7X.“Y=:Z2+Z8YNorm 1:HJ？Q:“DL？P:Fix3:XL=:X+Pcos(Z4-Q)rZ5.“YL=”:Y+Psin(Z4-Q)Z6，Norm 1,DR,7LFix 3:XR=:X+Lcos(Z4-Q+180)X,YR=,Y+Lsin(Z4-Q+180)-Y，Norm 1,10x K(+,-)”？G:K+10G-K:Goto 9主程序完子程序(数据库，输入方法范例)B0ZB(1) If K 5491.752 :

4、Then 2261.857 -F: 4071637.716 N:503054.9294 E: -1 -J: 5596 R 0 S: 0 Z: 1558.817 T:1558.817: 3040.5543 -W: 1862547.8 -U: 1551755-VJfend(2) If K 5491.752 :Then 5835.603 - F: 4068320.948 N:504580.5701 E: 1 J: 5600 R: 0 S: 350 Z: 343.851 T:503.665 1: 846.6609 W: 155o17,55,z : 162o 10z14,3z, VJfend(3) If

5、 K 6688.413 :Then 7080.791 - F: 4067134,749 N:504962.0879 -E:-J: 5600 -R: 350 -S: 0 -Z: 742.378 T:576.31 1: 1314.6514 -W: 162010V43 -U: 150o30z37.5zz VJfendF二交点里程N=交点坐标XE=交点坐标YJ=转向左=-1 ,右二1R=半径S二前缓和曲线全长Z二后缓和曲线全长T二前切线长匚后切线长W二曲线总长u二前方位角v=后方位角全线要素可全部输入要素表见电子表0123456789 数字ABCDEFGHIJKLMNOPQRSTUVWXYZ 字母工转

6、移结束符号，显示结果命令DimZ、=x x DMS、Lbl、If、Then、Else、Ifend、Goto、Norm、Fix均为一个整体2、 高程主程序A02GC (子程序名BOGC竖曲线要素，HP1、HP2横坡数据，V=-1为左半幅横坡，其他为右半幅)2DimZLbl 0:?K:ProgB0GC：.005RAbs(l-L)fT:Z-TfA:Z+TfB:K-A-C:B-KD-ZEIf LkThen 1Jlse L-1JJfedIf KB=ODJfendIf KWZ:Then l-Y:C-G:Else KZ=LYGJfendLbl 1:Fix 3,H,H+EY100+JG22RXNorm 1:“

7、HD？U:”Z=-1,Y=T?V:lf V753225:Then 753300Z: 192.576 H:30000 R:0.3 1:0.8LJfendIf K下一竖曲线的前变坡点的桩号:Then下一竖曲线交点里程-Z:下一竖曲线交点高程-H:下一竖曲线半径R:前纵坡-I:后纵坡一Ldfend可输入全线竖曲线要素子程序（横坡数据库）HP1If KW753225:Then -2-0: lfendIf K753225:Then -2+（-1/100）*（K-753225O: lfendIf K753325:Then -3-0: lfendIf K*:Then *-0: lfendIf K横坡变坡点桩

8、号:Then横坡或者公式-0: lfend高程程序就不举例子了3、 卵形曲线（辛普生法则，匝道及主线均可算）此程序为廊坊至涿州段高速路面标的算例。该标段有四个互通区，每个互通区最少有A,B,C,D,E等5条以上匝道，总共三十个左右的匝道。我将数据库全部输完，直接输入桩号、夹角、边距即可求算中边桩坐标。主程序名A03LX 各互通区名称HT1、HT2、HT3等（子程序名1A、1B、1C3A、3B.A、B、C、D、E各匝道。最后都转移至用来计算的子程序ZDJS中)Lbl 0:HT1 HT2 HT3.,7T,A=1 ,B=2,C=3. ? M:?KIf T=1:Then Prog,HT1,Goto O

9、JfendlfT=2:Then Prog,HT2,Goto OJfendIf T=3:Then Prog,HT3,Goto OJfendIf T=4:Then ProgHT4”:Goto O:lfend:Return分程序HT1其他分程序同此LblOIf M=1:Then Prog,1A,Goto 1JfendIf M=2:Then Prog,2A,Goto 1JfendIf M=3:Then Prog,3A,Goto 1Jfendlfend:ReturnLbl 1ProgZDJS”子程序1A、1B等等数据库If K210.004hen 2994.246A128.892B525223.9C12

10、80D1280ZF10.004GJfendIf K210.004:Then 2866.242A 968.619B09.542.6C1280DZ10.004F01.432GJfend子程序ZDJS(Z-D)Abs(G-F)Pbs(K-F)HPHSIf G360:Then Q-360 Q:lfQO:Then Q+360QJfendJfendQQMS，C+45(S4+2D)H(2 冗)VC+135(3S4+2D)H(2 h)-N:C+45(S2+2D)H JFix3,X=,A+H12*(cos(C)+4(cos(V)+cos(N)+2cos(J)+cos(Q-180U)一,Y=,B+H12*(sin

11、(C)+4(sin(V)+sin(N)+2sin(J)+sin(Q-180U)YNorm 1:“HJ?W:“DL”?LFix 3:XL=：X+Lcos(QW)f O,uYL=,Y+Lsi(Q-W)U-Norm 1:“DR”？IFix 3,XR=,X+lcos(Q+W)U-“YR=”: Y+lsin(Q+W)lNorm 1:E？R:K+10R-K匝道程序结束坐标正反算程序LblOFix 4:X0?A:Y0？BLbl 4:Norm 2f,TURE=1 ,ELSE=2,7C (正算=1 ,反算=2 )If C=1:Then Goto 1:Else If c=2:Then Goto 2:Else Goto 4:lfEnd:IfEndLbl 1Norm 1:HR？E:“HD？DRec(D,E)Fix4:”XN=:A+l-F，,Y N=”:B+JG,Goto 0Lbl 2Fix 4:XN=？D:YN=？EPol(D-A,E-B)Jf JDMS,Fix 4:HD=:LGoto 0结束