卡西欧4850万能放线程序

《卡西欧4850万能放线程序》由会员分享，可在线阅读，更多相关《卡西欧4850万能放线程序（5页珍藏版）》请在金锄头文库上搜索。

1、卡西欧 4850 万能放线程序 卡西欧计算器程序 2009-10-13 17:54 阅读 19 评论 0 字号： 大 中 小 主程序：ZBJS M:fixm:LbI0:M0=KS:KS: NE:NELbI1:F=0:G=0:L=0:Prog”R” :G=0=G=LPol(Q-V,T-W):Z=J:Pol(V-X,W-Y):Q=Z- J:Z=J:QQ=Q+360 Q180=Q=Q-360T=R-1=(R+TL224)tg(AbsQ2)+L2-T2L3240:U=K-U:UL=X=Uprog”HU”:Goto2U=U-L:J=RabsQ180-L:UJ=X=L:Prog”HU”:U=90UR:X=

2、X+Rec(2RsinU,U+L):Y=Y+J:L=L+2U:Goto2T=-T:Z=Z+Q:X=L-U+J:Prog”HU”:X=-X:L=-L:LbI2:QY=-Y:L=-L:J=G: G=F:F=IX=V+Rec(Pol(X-T,Y),J+Z):Y=W+J:L=L+Z:MK=K+Rec (Pol(N-X,E-Y),J-L):AbsI0.1=Goto1”K=”:K”S=”:S=JGoto3? X=X+Rec(S,L+90):”X=”:X”Y=”:Y=Y+JLbI3:Prog”H”:H=(K-U) (W-V)(Z-U)+V:Z=Z-O:U=U+J:KZ=H=H+(K-Z)22RKH=H+(U

3、- K)22I”H=”:H=H-0.000Goto0 子程序：HU X0=F=2:G=2:Y=0:L=0:Goto2F=0=F=2:G=2:Goto1XG=G=F:F=- F:Goto1Y=F:F=X(-Y-2)G+Z:G=4G(Y+2):XG=G=-F: G=ZLbI1:I=R- 1L-1:Y=IX36-I3X7336:L=90IX2兀:X=X-I2X540:LbI2? 子程序：D Q=V:T=W:V=X:W=Y:Z=U? 子程序：C Z=U:W=V:R=I:O=J 子程序：R(曲线要素数据库) P10 X=:Y=:Prog”D”:(交点坐标，后向前输) P9 X=:Y=:Prog”D”:

4、P8 X=:Y=:U=(P9 交点的第一缓和曲线起点里程)： KU=R= (平曲线半径)：L=(缓和曲线缓和段长度)：Goto1Prog”D”: PN (输入方法同 P8) P1 X=:Y=:U=：KU=R=：L=:LbI1? 子程序：H(竖曲线要素) P10 U=(竖曲线变坡点里程，从后向前输)：V=(设计高程)： I=(竖曲线半径，凸为“-”、凹为“+”)J=(切线长):Prog”C”: P9 U=:V=:I=：J=：KU= Goto1Prog”C”: PN (输入方法同 P9) P1 U=:V=:I=：J=：LbI1? 注： K=所求点里程 S=边距，左“-”、右“+” M正算为“+”反

5、算为“-” 此程序可把全线路要素输入数据库，能执行直线、圆曲线、LS1=LS1 的缓 和曲线的坐标，高程放线正反算。不能执行回头曲线，复曲线和 LS1LS2 的 缓和曲线及卵形曲线 1中边桩计算程序 主程序名XY Lbl 1:KM：K：M：Prog”3”:X=C+Mcos(W-90:Y=D+Msin(W-90:”X=”:X: Pause 0:”Y=”:YGoto1 子程序3 PrOg”QX”： Prog”20” 曲线要素QX 数据实例：某高速公路中线设计如下图所示 KB:E:F:O:P:Q:R: K4570=B=25:E=1000:F=1000:O=100 P=66:Q=4000:R=800:

6、 K5040=B=-17:E=1086.4378:F=1555.1451:O =90:P=91:Q=4570:R=800: K5670=B=35:E=1168.2556:F=2016.0909 :O=120:P=74:Q=5040:R=1000: B=-25:E=1180.9927:F=2636.2334:O=1 50:P=109:Q=5670:R=1500 注：无缓和曲线时，O=0.00001 当输入里程小于 2000 时，为新曲线要素输入，可修改值域范围 计算过程20 Z=O：Prog”8”： A=B/AbsB:L=ABR/180+O:T=(D+RcosN)tan (AB/2)+C-Rsi

7、nN：KQ-T=C=(K-Q)cosP+E：D=(K-Q)sinP+F:W=P： K Q-T+O=Z=K-Q+T：Prog”9”： KQ-T+L-O=Z=O: Prog”9”: V=90(K-Q+T-O)/ R:S=2R sinV:N=W+AV:C=C+S cosN:D=D+S sinN:W=W+2AV: Z=Q-T+L-K: Prog”8”:V=P+B-180-AV:W=P+B-AN:C=S cosV+E+T cos(P+B: D=S sinV+F+T sin(P+B: Z=K-Q+2T-L:W=P+B:C=E+ZcosW:D=F+Z sinW N=Z3 缓和曲线方程式8 V=RO:C=Z-

8、Z5/40V2+Z9/3456V4:D=Z3/6V- Z7/336V3+Z11/42240V5: N=90Z2/V:V=tan-1(D/C:S=(D2+C2)0.5 子程序9 Prog”8”:C=Scos(P+AV)+E-TcosP:D=Ssin(P+AV)+F-TsinP:W=P+AN 2.桩号、边桩距返算程序KM 方式一：试算法（速度慢，程序简单） Fixm:K=Q-T+L-O:Prog”20” Lbl 1:XY Lbl 2:POL(X-C,Y-D:K=Isin(J-W+90)+K:Abs sin(J-W+90) ”K=”:K:Pause0:”M=”:M=Icos(J-W+90Prog”2

9、0”:Goto2 方式二：解算法（程序复杂，计算速度快） Defm5: Lbl 1:Fixm:XY:Pol(X-E,Y-F:Z1=I:Z2=J:cos(J-P K=Q+Icos(J-P: K=Q+Icos(J-P-B)+2T+LKQ-TM=Icos(J-P+90: Goto5Goto2 Lbl 2:Z=O:Porg”8”:U=(D+RcosN)+cos(B/2):Z=P+B/2+90A:C=UcosZ+E:D =UsinZ+F:Pol(X-C,Y-D:Asin(J-P-AN+90 AK=K-AZ1cos(Z2-P+90 )tan(90 (K-Q+T)2/RO):Goto3: Asin(J-P-

10、B+AN+90A0 K=K-AZ 1cos(Z2-P-B-90 )tan(90(K-Q+T-L)2/RO):Goto4: K=Q-T+O+Asin-1 (sin(J-P-AN+90 A)R/180 :M=A(I-R:Goto5 Lbl 3:Z=K-Q+T:Prog”9”Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90 M=Icos(J-W+90 :Goto5: Goto3 Lbl 4:Z=Q-T+L-K:Prog”8”:V=P+B-180-AV:W=P+B- AN:C=cosV+E+Tcos(P+B: Pol(X-C,Y-D:K=K+Isin(J-W+90

11、 :Abs sin(J-W+90 M=Icos(J- W+90: Goto5: Goto4 Lbl 5:”K=”:K:Pause0:”M=”:M 注：程序“20”为中桩计算程序 Q直缓点里程；T切线长，L曲线长； O缓和曲线长；W切线方位角 Pol极坐标转换，为涵数 特别注意数字 0 和字母 O 的区别 缓和曲线上任意点的支距坐标公式： x=l-l5/(40R2Ls2) y=l3/(6RLs)-l7/(336R3Ls3) l-缓和曲线上任意点到或的曲线长，Ls -缓和曲线长，R-曲线 半径 圆曲经上任意点的支距坐标公式： x=RSin+m y=R(1-Cos)+p =180l/(R)0 p=Ls2/(24R) ,0=90Ls/(R),m=Ls/2-Ls3/(240R2) l-圆曲线上任意点到或的曲线长 坐标的平移和和旋转公式为: X=X0+xCosA-ySinA Y=Y0+xSinA+yCosA X,Y -任意点在平面直角坐标系中的坐标 X0,Y0 -局部坐标系的原点在平面直角坐标系中的坐标 x,y -任意点在局部坐标系中的支距坐标 A -局部坐标系中 x 轴正向的方位角