4500计算器.doc

1）坐标反算 F D（文件名）（58步骤数） L1 Lbl 0 L2 A：B：{C，D} L3 X＝C－A L4 Y＝D－B L5 N＝Pol (X，Y)▲◢ L6 S＝W L7 S0 ＝ Goto 1 △⊿ L8 S＝W▲ L9 Goto 0 L10 Lbl 1 L11 K＝360+S▲ L12 Goto 0 程序中：A、B——为测站点X、Y的坐标 C、D——为待放点X、Y的坐标 N——为测站点至放样点的平距 S、K——为方位角 坐标角度平距备注X（N）Y（E）测站点定向点计算： 复核： 测量： 扶杆： 日期：20 年 月 日 2）竖曲线上任意点设计高程计算 F S（文件名）（100步骤数） L1 LbI 0 L2 H:T:I:R:A:B:E:Q”(=1,)=-1” L3 {P}:P≤0＝ Goto 1△ L4 X=Abs(A-P) L5 Z=H+QXI+Q(T-X)2/(2R)▲ L6 C=Z+BE▲ L7 Goto 0 L8 LbI 1 L9 {HTIRABE} L10 Goto 0 程序中： H——变坡点高程 T——竖曲线切线长度 I——所求点所在纵坡坡度，上坡取正，下坡取负 R——竖曲线半径 A——变坡点里程桩号 P——所求点桩号 Z——所求点中桩高程 B——所求点中桩至边桩距离 E——路拱横坡度，取负值 C——所求点边桩高程 注：当前半竖曲线各桩号高程计算完毕后，只要给P?输入0就可以计算后半竖曲线。 3）缓和曲线段超高段设计高程计算 F HG(文件名)（160步骤数） L1 LbI 0 L2 E:D:C:A:L L3 {BH}:B0＝ Goto 1: ≠ B≤0＝Goto 2△△ L4 LbI 1 L5 I=Abs(B-A)(E+D)/C-E▲I≤E＝ Goto 3: ≠I≤D＝ Goto 4: ≠Goto 5: △△ L6 LbI 2 L7 {EDCAL}: Goto 0 L8 LbI 3 L9 M=H-LE▲N=H+LI▲Goto 0 L10 LbI 4 L11 P=H-LI▲S=H+LI▲Goto 0 L12 LbI 5 L13 U=H-LD▲V=H+LD▲Goto 0 程序中：E——直线段路拱横坡度（取正值） D——全超高段设计的最大路拱横坡度（取正值） C——缓和曲线长度 A——缓和曲线起点或终点里程桩号（ZH点或HZ点），计算前半缓和曲线，A输入ZH点里程桩号，计算后半缓和曲线，A输入HZ点里程桩号 L——中桩至边桩宽度 B——所求点里程桩号 I——缓和曲线任意点的路拱横坡度 H——缓和曲线任意点中桩设计高程 M、N——ZH点或HZ点至Q点（Q＝2E/（E+D）×C）间与中桩同一断面的边桩高程 U、V——HY点或YH点间与中桩同一断面至边桩高程 4）线路上任意点坐标计算（一） F XY－1(文件名)（997步骤数） L1 Q:J:K:R:F:N:I:G L2 Defm 4 (扩大内存，按MODE ANS 4 ) L3 M=I/2-I3/(240R2) L4 P=I2/(24R)-I4/(2688R3) L5 L=πRN/180+I L6 T=M+(R+P)tan(N/2) L7 A=Q-T:B=A+I:D=A+L:C=D-I L8 Rec(T,F+180) L9 Z[1]=J+V:Z[2]=K+W L10 Rec(T,F+GN) L11 Z[3]=J+V:Z[4]=K+W L12 LbI 0 L13 {HSE} L14 U=S/Abs(S+10E-19):S=AbsS(中的E按EXP ) L15 HA=Goto 1 L16 ≠HB= Goto 2 L17 ≠HC= Goto 3 L18 ≠HD= Goto 4 L19 ≠ Goto 5 △△△△△ L20 LbI 1 L21 Rec(Q-H,F+180) L22 X=J+V:Y=K+W L23 Rec(S,F+180-(180-E)U) L24 X=X+V▲ L2