计算器小程序

1、直線坐標計算程序Lb1 0MX0NY0Q，K，JD= Q-TX=M+DcosI+Kcos (I+J)Y=N+DsinI+Ksin (I+J) Goto 0X0、Y0起點T 曲線終點里程Q 計算點里程I 直線方位角K 外移距離J 外移方向角 左轉爲-， 右轉爲+線路中、邊樁坐標計算程序AZJ：R：CLs：DJDK：P=C2/(24R)-C4/2688R3Q=C/2-C3/(240R2)B=90C/(R)T=(R+P)tan(AbsA/2)+QE=(R+P)/cos(AbsA/2)-RL=(AbsA-2B)R/180+2CGZH=D-THHY=G+CIQZ=G+L/2KYH=G+L-CMHZ=G+

2、LNXJ：WYJ：FFWJ：J：A0=S=-1：S=1U=F+A/2+90S：V=E+R：B=N+VcosUO=W+VsinULb1 1：Z：ZG=L=D-Z：V=F+180：U=F：Goto2ZH=L=Z-G：V=L-L5/90(RC)2：L=30SL2/(RC)：P=F+180：Q=F+L：U=F+3L：Goto4ZK=L=F+A/2+180+90S+180S(Z-I)/(R)：U=L+90S：Goto5ZM=L=M-Z：V=L-L5/90/(RC)2：L=30SL2/(RC)：P=F+A：Q=P+180-L：U=Q-2L-180：Goto4ZM=L=Z-M+T：V=F+A：U=V：Got

3、o2Lb1 2：X=N+LcosVY=W+LsinVGoto 6：Lb1 3：EG：PXL=X+Ecos(U-90+G) QYL=Y+Esin(U-90+G) PXR=X+Ecos (U+90+G) QYR=Y+Esin(U+90+G) Goto 1：Lb1 4：X=N+TcosP+VcosQY=W+TsinP+VsinQGoto 6：Lb1 5：X=B+RcosLY=O+RsinLGoto 6：Lb1 6：J=1=Goto3Goto1ZJ-線偏角 左爲-，右爲+Ls-緩和曲線長度JDK-交點里程R-曲線半徑XJ-交點X坐標YJ-交點Y坐標FWJ-起始方位角J-計算中線時爲0，計算外移距時爲1

4、Z-計算里程E-邊樁外移距G斜交角度，左斜爲“-”，右斜爲“+”緩緩和曲線偏角計算程序Lb1 0QE=Q-ZF=T-ZI=30/R/L(E-F)(E+2F)Goto 0Q-計算點里程Z-直緩點里程T-置鏡點里程R-曲線半徑L-緩和曲線長度線路高程計算程序文件1 程序名：SQX ABCD：Lbl 0：ERF：REF：G=(D-B)÷(C-A)：H=(F-D)÷(E-C)：L=R×Abs(G-H)÷2 Lbl 1：K：K0>Goto 2KC+L>L=-Abs L：Prog "SHU"：M=D+(K-C)H+J：>

5、;M=D+(K-C)H："AFTER QX"L=Abs L：KC>Prog "SHU"：M=B+(K-A)G+JKC-L>M=B+(K-A)GM=1000M：Prog "SSWR"：I=M÷1000 K=K+20：Goto 1：Lbl 2：A=C：B=D：C=E：D=F：Goto 0文件2 程序名：SHU J=(K-C+L)2÷(2R)：G-H>0>J=-J文件3 程序名：SSWR M-Int M<0.5>M=Int M：>M=Int M+1A-前一變坡

6、點里程B-前一變坡點高程C-中間變坡點里程D-中間變坡點高程R-中間變坡點豎曲線半徑E-後一變坡點里程F-後一變坡點高程說說明：此程序可以配備數據庫，以減少數據輸入。用PROG轉換到重新建立的文件名中。直線偏移量檢查計算程序(CASIO fx -4500PA計算器)Lb1 1M"X0"：N"Y0"：O"X1"：P"Y1"Fixm:X，YPol(O-M，P-N)：J0=W=J+360：W=JPol(X-M，Y-N)：D=I:J0=A=J+360：A=JK=D×cos(A-W) L=D×sin(A-

7、W) Goto 1X0、Y0 -起點坐標X1、Y1 -軸線方向點坐標X、Y -計算點坐標(測點坐標)J -斜交角度R -距起點距離L -直線偏移量“+”爲軸線右側，“-”爲軸線左側邊樁放樣移動計算程序(CASIO fx -4500PA計算器)Lb1 1M"X0"：N"Y0"：E"X1"：F"Y1"Fixm:X，Y，HPol(X-M，Y-N)：D=I：J0=A=J+360：A=JPol(E-M，F-N)：J0=C=J+360：C=JK= D×sin(A-C) L=(Abs(H-U) ×Z+B)/c

8、osG-DGoto 1X0、Y0 -線路中樁坐標X1、Y1 -線路邊樁方向坐標(可任意寬度)X、Y -計算點坐標(測點坐標)H -測點高程U -起算點設計高程B -起算點設計寬度Z -邊坡坡率J -有斜交進斜交角，無進爲0K -方向偏移值 “+”爲右側，“-”爲左側L -放樣長度偏差值 “+”爲短，“-”爲長坐標反算計算程序(CASIO fx -4500PA計算器)Lb1 0M"X0"：N"Y0"X，YPol(X-M，Y-N)：D=VW0=I=W+360：I=WGoto 0Lb1 0M"X0"：N"Y0"Fixm:

9、X，YPol(X-M，Y-N)：I"DIST="J0=J=JW+360Goto 0X0、Y0 -原點坐標X、Y -計算點坐標(測點坐標)D -計算距離I -計算方位角坐標正算計算程序(CASIO fx -4500PA計算器)Lb1 0M"X0"：N"Y0"D，I，JRec(D，I)X=M+V+Kcos(I+J) Y=N+W+Ksin(I+J) Goto 0X0、Y0 -原點坐標X、Y -計算點坐標(測點坐標)D -已知距離I -已知方位角K -外移距離J -外移方向夾角線型計算程序主程序 ULAYOUT.1 COMPUTER.2 LO

10、CATION.3MPI.XNPI.YCAZ1GAZ2RRADIUSHLSKPI STA：U=1=VOCC.XWOCC.YU=3=Goto 2Lbi 1：SD：SSTA.ASKDDIST.L-R+Lbi 2：P=Abs(G-C)：A=(G-C)÷P：P180=P=360-P：A=-AI=0.5H-H3÷240R2：J=H2÷24R-H4÷2688R3：Z=(R+J)÷cos(0.5p)T=(R+J)tan(0.5P)+II=90H÷R：J=H+R(P-2I)÷360：Q=K-T+J：U=3=Z1=Q-J：Z2=Q+J： XY：

11、ProgLOCATION：Goto 2SQ=B=Q+J：A=-A：Z=GSQ=B=K-T：Z=C+180E=M+TcosZ：F=N+TsinZ：B=S-BLbi 2：Abs(S-Q) J=Z=Z+180： Goto 7Lbi 3：I=RH：B0=O=1：O=-1B=AbsB：BH=Goto 5Lbi 4：X=B-B5÷40I2：Y=B3÷6I-B7÷336I3：L=Z+90AB2÷I+90O：Goto 6Lbi 5：I=0.5H-H3÷240R2：P=90(2B-H)÷R：J=H2÷24R-H4÷2688R3：L=

12、Z+AP+90O：X=RsinP+I：Y=R(1-cosP)+JLbi 6：Pol(X，AY)：Rec(I，J+Z)：E=E+I：F=F+J：P=D：Q=L：Goto 8Lbi 7： SQ=Z=Z+180Pol(B，D)：P=I：Q=J+ZLbi 8：Rec(P，Q)：X=E+I：Y=F+J：U=1=Goto 9XYGoto 1Lbi 9：Pol(X-V，Y-W)：J0=J=J+360ProgDFM：ILAYOUT.DIST=IP：PMEAS.DIST：JDIFF.DIST=P-IGoto 1子程序 1 DFMFix 4：P=Int J+Int (Frac J×60)÷10

13、2+Frac 60J×6×10-3：P"AZ1°°°"=P注：103爲計算器上10x符號子程序 2LOCATIONLbi 0：Pol(X-M，Y-N)：Rec(I，J-G+0.5AP)：X=I：Y=J：Pol(X，Y-AZ)：J<0=>J=J+360L=-90A：L<0=>L=L+360O=J-L：AbsO>0.5P-90H/R=>Goto 1S=AOR÷180+Q：D=-A(I-R)：Goto 8Lbi 1：X0=B=1：B=-1E=BTcos(0.5P)：F=ATsin(0.

14、5P)：O=0.5ABP： O0=O=O+360Pol(X，Y-AT÷sin(0.5P)：J0=J=J+360Lbi 3：X0=S=Z1： S=Z2L=J-L：AbsL0.5P=Goto 5Lbi 4：Pol(X-E，Y-F)：J0=J=J+360Rec(I，J-O)：S=S+I：D=J：Goto 8Lbi 5：Z=-ABRH：Z5=-BHLbi 6：L=Pol(X-E，Y-F)：Z3=Rec(I，J-O)：Z4=JZ50=L=-LAbsLAbsZ5=L=Z5Lbi 7：X=L-L5÷40÷Z2+L9÷3456÷Z4Y=L3÷6

15、47;Z-L7÷336÷Z3+L11÷42240÷Z5Q=Pol(X-Z3，Y-Z4)Z6=90L2÷Z÷-90T=Qsin(Z6-J)AbsTAbsZ5=L=0：Goto 7AbsT0.002=L=L+T：Goto 7： L=L+S： J0=Q=-QS=L：D=QLbi 8：S"STA.LOCATION"=SD"DIST.L-R+"=D說明：使用該程序時應先將計算器增加6个变量存儲器器，方法爲输入shift defm 6，按exe，然後進入程序區編寫3個程序。字符說明：PI.X、PI.Y交點坐標AZ1、AZ2 切線方位角1及2RADIUS 半徑LS 緩和曲線長度PI STA 交點樁號OCC.X、OCCY 測站點坐標主程序：LAYOUT.1表示放样COMPUTER.2表示计算坐标LOCATION.3表示已知坐标反求桩号及距离“STA ASK”所求点的桩号“DIST L-R+”所