计算器程序.docx

1、计算器程序线路平曲线坐标计算程序(For4850P)一、主程序：HAN2Lbl A:SDO:SK=:DDP=:OANG=:ZNO.=1,2,SD=3=1=Goto X:Z=2=Goto Y:Goto WLbl X:S593.652=J=1:Prog DAT5:Goto 0S852.072=J=2:Prog DAT5:Goto 0S1033.94=J=3:Prog DAT5:Goto 0S1170.162=J=4:Prog DAT5:Goto 0S6275.818=J=18:Prog DAT5:Goto 0Lbl Y:S997.192=J=1:Prog DAT6:Goto 0S2208.389=

2、J=2:Prog DAT6:Goto 0S5565.209=J=3:Prog DAT6:Goto 0S7113.552=J=4:Prog DAT6:Goto 0S17189.541=J=8:Prog DAT6:Goto 0Lbl W:AXJBYJLLS1MLS2FF0EPJKJDRLbl 0:P=L224R-L42688R3:Q=L2-L3240R2+L534560R4:G=RAbs E180+L:I=M224R-M42688R3:C=(R+P)cos tan-1(R+I)(R+P)-cos Abs E)sin Abs E)-R:C:C=M2-M3240R2+M534560R4:T=(R+I-

3、(R+P) cos AbsE)sin Abs E+Q:T:N=(R+P-(R+I) cos Abs E)sin Abs E+C:N:H=K-T:H:I=H+L:I:I=H+G-M:I:I=H+G:ILbl 1:EC=-1:C=1SH=Goto 3SH+L=Goto 4SH+G-M=Goto 5SH+G=Goto 6:Goto 7Lbl 2:Fix3:X=:X=X:Pause 0:Y=:Y=YFW=:Prog FW4:JDMS Goto ALbl 3:J=F:X=A-T cos J+(S-H) cos J+D cos (J+O):Y=B-T sin J+(S-H)sin J+Dsin (J+O)

4、:Goto 2Lbl 4:V=S-H:Prog H1.S:J=F:I=T:Prog H2.S:J=F+90 CV2(RL):Prog FW4:X=X+Dcos (J+O):Y=Y+D sin (J+O):Goto 2Lbl 5:V=2(S-H)-L:W=90 VR:U=R sin W+Q:W=R(1-cos W)+p:J=F:I=T:ProgH2.S:J=F+90 CVR:Prog FW4:X=X+D cos (J+O):Y=Y+D sin (J+O):Goto 2Lbl 6:V=H+G-S:L=M:Prog H1.S:U= -U:J=F+E:I= -N :ProgH2.S:J=F+E-90

5、CV2(RM):Prog FW4:X=X+D cos (J+O):Y=Y+D sin (J+O):Goto 2Lbl 7:V=S-H-G:J=F+E:X=A+(N+V) cos J+D cos (J+O):Y=B+(N+V) sin J+D sin (J+O):Goto 2二、子程序：1、文件名：H1.SQ=6:G=1U=(-1)(G-1)V (4G-3)(2G-2)!(4G-3)2 (2G-2)(RL)(2G-2),G,1,Q)W=(-1)(G-1)V (4G-1)(2G-1)!(4G-1)2 (2G-1)(RL)(2G-1),G,1,Q)2、文件名：H2.SX=A-I cos J+U co

6、s J - CW sin J:Y=B-I sin J+U sin J + CW cos J3、文件名：FW4JJ=J+360:J360=J=J-360:J=J4、数据库1：DAT5J=1=A=6136.073:B=3300.4972:L=35:M=35:F=171366.9:E=745829:K=529.067:R=87.72J=N=A=*:B=*:L=*:M=*:F=*:E=*:K=*:R=*5、数据库2：DAT6J=1=A=63559.945:B=531452.29:L=0:M=0:F=2861656.9:E=104640.7:K=528.306:R=5000J=N=A=*:B=*:L=*

7、:M=*:F=*:E=*:K=*:R=*三、说明：1、输入部分：NO.=1,2,SD=3输入1进行第一条线路正算，输入2进行第二条线路正算，输入3进行人工正算XJ交点X坐标（利用数据库全线贯通计算时不出现提问，以下类同）YJ交点X坐标LS1前缓长（如仅为圆曲线时，输入零）LS2后缓长（如仅为圆曲线时，输入零）F0起始方位角PJ曲线偏角（左负右正）JD交点里程R圆曲线半径2、显示部分：X= 所求点X坐标Y= 所求点Y坐标FW=所求点切线方位角3、功能：本程序适用于对称或非对称的完整曲线的正算Casio fx-4800P平曲线坐标计算程序程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、

8、左、右桩坐标。 程序说明：K0：起始桩号 X0：起始X坐标 Y0：起始Y坐标 ALF：起始方位角 R：半径 LS：缓和曲线长 N：曲线左转N=1，右转N=2 K：待求桩号 LL、LR：左、右桩距离 Q：左、右桩与中线斜交角 求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。 一、 直线段 文件名：ZX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 0:K:X”XZ”=O+(K-L)cosW Y”YZ”=P+(K-L)sinW B:S”XL”=X-B”LL”cos(W+Q) T”YL”=Y-Bsin(W+Q) C:U”XR”=X+C”LR”cos

9、(W+Q) V”YR”=Y+Csin(W+Q) Goto 0 注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。 二、 圆曲线段 文件名：YQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:K: J=(-1)N (K-L)R180:D=2Rsin(-1)N J2): X”XZ”=O+Dcos(W+J2) Y”YZ”=P+Dsin(W+J2) B:S”XL”=X-B”LL”cos(W+J+Q) T”YL”=Y-Bsin(W+J+Q) C:U”XR”=X+C”LR”cos(W+J+Q) V”YR”=

10、Y+Csin(W+J+Q) Goto 1 注：若没有直接HY点方位角，则ALFHY=ALFZHLs/2/R180/,(左转-，右转+)。 三、 缓和曲线 文件名：HHQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: M”LS”:Lbl 3:K: I=(-1)N(K-L)2MR6180: D=(K-L)-(K-L)590(RM)2: X”XZ”=O+Dcos(W+I) Y”YZ”=P+Dsin(W+I) B:S”XL”=X-B”LL”cos(W+3I+Q) T”YL”=Y-Bsin(W+3I+Q) C:U”XR”=X+C”LR”cos(W+3I+Q) V”YR”=Y

11、+Csin(W+3I+Q) Goto 3 注：1、坐标计算方法是根据偏角法原理； 2、缓和曲线（ZHHY或YHHZ）以ZH（或HZ）为起始点； 3、平曲线左转（ZHHY段N=1，YHHZ段N=2），曲线右转（ZHHY段N=2，YHHZ段N=1）。 铁路曲线坐标计算程序一、主程序：M（M是文件名，下同)L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”H”ZHJD”I”A”J”L0”K”L1”RL2 Pol(C-A,D-B):M=WL3 Lbl 2:W=90:NOWZ:Z”DK”N”Z/!/Y(1/2/3)”:N=2=Goto 1O”M”

12、W”A”L4 Lbl 1:P=Z-G:S=E:T=F:U=H:V=H:FixmL5 P0=Prog 3:=PJ=Prog 1:=PJ+K=Prog 2:V=90J/R+180-1R-1(P-J)PJ+K=Prog 4:V=H+VL6 PJ+K=P=2J+K-P:S=Q:T=L:P0=Prog 1:X=-X:U=H+I:Prog 4: V=U-V:=U=H+I:V=U:P=-P:Prog 3L7 N2=P=O:U=V-W:N=3=P=-PS=X:T=Y:Prog 3L8 Pol(X-A,Y-B):W=W-M:WW=W+360L9 W:”=”V:”S=”X:”X=”Y:”Y=”Goto 2二、子程

13、序：1L1 V=90P2(RJ)-1L2 X=P-Pxy5(40R2J2)-1L3 Y=PV/540三、子程序：2L1 Y=180-1R-1(P-0.5J)L2 X=RsinY+J/2- Jxy3/240/R2L3 Y=J/24/R+R-RcosY四、子程序：3L1 X=S+PcosUL2 Y=T+PsinU五、子程序：4L1 IY=-Y:V=-VL2 S=S+XcosU-YsinUL3 Y=T+XsinU+YcosUL4 X=S说明：1、该程序适用于计算器 CASIO fx-4500PA。2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标ZHX,ZHY；缓直点坐标H

14、ZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角ZHJD；曲线偏角（曲线左偏为负，右偏为正）A；缓和曲线长L0；圆曲线长L1;圆曲线半径R；计算点里程DK；计算曲线的左边点或者右边点）Z/!/Y(1/2/3)，曲线的右边输入1，左边输入3，线路上输入2；左边的点与当前里程点的连线的距离和当前里程点切线的逆时针方向的角度A（如果上一项不选择2的话）。3、计算结果显示的数据是：极角、极距和坐标。4、该程序适用于极坐标法测量曲线时的数据（极角和极距）计算，以及曲线坐标计算。曲线上任意点中边桩坐标计算程序(CASIO fx-4800P可全线计算)曲线上任意点中边桩坐标计算程序(CASI

15、O fx-4800P可全线计算)主:PQXLbi 0：prog“TAD”Goto 1Lbi 1:Z1“ZH-X”=M+Tcos（F+180）:Z2“ZH-Y”=N+Tsin（F+180）：V1“HZ-X”=M+Tcos（F+Z）：V2“HZ-Y”=N+Tsin（F+Z）：H=0=Goto 2:D=H:prog“QXY”:A“HY-X”= Z1+I cos(F+SZAbsZ) ：C“HY-Y”= Z2+I sin(F+SZAbsZ):Q“YH-X”= V1+I cos(F+Z+180-SZAbsZ ) ：E“YH-Y”= V2+ Isin(F+Z+180-SZAbsZ ) Lbi 2:KG=D=

16、Abs(G-K):O=M:P=N:I=D+T:J=F+180:W=F:Goto 4H=0Goto 3KG+H=D=Abs(K-G):O=Z1:P=Z2:prog“QXY” :J=F+SZAbsZ:W=F+3SZAbsZ: Goto 4Lbi 3:KG+L-H=D=Abs(K-G-H):H=0=H=1:O=Z1:P=Z2:H=H:O=A:P=C:prog“QXY”H=1=Q=0I=D:J=F+(Q+E)ZAbsZ:W=F+(Q+2E)ZAbsZ: Goto 4KV=D=Abs(V-K):O=V1:P=V2:prog“QXY”:F=F+Z+180: :J=F-SZAbsZ:W=F-3SZAbsZ:

17、U=180+U: Goto 4Lbi 4:X=O+IcosJ+Bcos(W+U)Y=P+IsinJ+Bsin(W+U) I=0：J=0：I=POL（X-x0，Y-y0：JM=xxx:N=xxx: F=xxx: Z=xxx: R=xxx: H=xxx: T=xxx: L=xxx: G=xxx: V=xxx:Kxxx=M=xxx:N=xxx: F=xxx: Z=xxx: R=xxx: H=xxx: T=xxx: L=xxx: G=xxx: V=xxx:Kxxx=M=xxx 注: K？输入计算点桩号; B？输入距中桩距离,左,右;U？输入与前进方向偏角计算中桩坐标时B、U输入0,M交点X坐标;N交点Y坐标;F路线前进方向方位角;Z转角,左转时连同“-”号输入; R半径;H-缓和曲线长,无缓和曲线时为0;T切线长；L曲线总长;G直缓点桩号;V缓直的桩号在Lbi1行处,把各主点后的“:”改为“”，如Z1“ZH-X”=M+Tcos（F+180）:改成Z1“ZH-X”=M+Tcos（F+180）可直接显示主点桩号坐标,在子程“TAD”内可输入全线角桩资料,K本转角缓直点桩号时输入本转角曲线要素。