计算器小程序.doc

直線坐標計算程序 Lb1 0 M＂X0＂ N＂Y0＂ {QK，J} D= Q-T X=M+DcosI+Kcos (I+J)◢ Y=N+DsinI+Ksin (I+J) ◢ Goto 0 X0、Y0…………起點 T …………曲線終點里程 Q …………計算點里程 I …………直線方位角 K …………外移距離 J …………外移方向角 左轉爲＂-＂， 右轉爲＂+＂ 線路中、邊樁坐標計算程序 A＂＂C＂Ls＂D＂＂P=C2/(24R)-C4/2688R3 Q=C/2-C3/(240R2) B=90C/(πR) T=(R+P)tan(AbsA/2)+Q◢ E=(R+P)/cos(AbsA/2)-R◢ L=(AbsA-2B)πR/180+2C◢ G＂ZH＂=D-T◢ H＂HY＂=G+C◢ I＂QZ＂=G+L/2◢ K＂YH＂=G+L-C◢ M＂HZ＂=G+L◢ N＂＂W＂＂F＂＂J：A＜0=＞S=-1：≠＞S=1⊿U=F+A/2+90S：V=E+R：B=N+VcosU◢ O=W+VsinU◢ Lb1{Z}：Z≤G=＞L=D-Z：V=F+180：U=F：Goto2⊿Z≤H=＞L=Z-G：V=L-L5/90(RC)2：L=30SL2/(πRC)=F+180：Q=F+L：U=F+3L：Goto4⊿Z≤K=＞L=F+A/2+180+90S+180S(Z-I)/(πR⊿Z≤M=＞πRC)：P=F+A：Q=P+180-L：U=Q-2L-180：Goto4⊿ Z＞M=＞⊿ Lb1 2：X=N+LcosV◢ Y=W+LsinV◢ Goto 6：Lb1 3：{EG}：P＂＂ ◢ Q＂＂ ◢ P＂＂ ◢ Q＂＂ ◢ Goto 1：Lb1 4：X=N+TcosP+VcosQ◢ Y=W+TsinP+VsinQ◢ Goto 6：Lb1 5：X=B+RcosL◢ Y=O+RsinL◢ Goto 6：Lb1 6：J=1=＞⊿Goto1 ZJ------線偏角 左爲＂-＂，右爲＂+＂ Ls------緩和曲線長度 JDK------交點里程 R------曲線半徑 XJ------交點X坐標 YJ------交點Y坐標 FWJ------起始方位角 J------計算中線時爲＂＂＂＂……………斜交角度，左斜爲“-”，右斜爲“+” 緩緩和曲線偏角計算程序 Lb1 0 {Q} E=Q-Z F=T-Z I=30/π/R/L(E-F)(E+2F) Goto 0 Q------計算點里程 Z------直緩點里程 T------置鏡點里程 R------曲線半徑 L------緩和曲線長度 線路高程計算程序 文件1 程序名：SQX?ABCDLbl 0：{ERF}：REF：G=(D-B)÷(C-A)：H=(F-D)÷(E-C)：L=R×Abs(G-H)÷2 Lbl 1：{K}：K≤0＝Goto 2K≤C+L＝L=-Abs LProg SHU：M=D+(K-C)H+J：≠M=D+(K-C)H：AFTER QX⊿L=Abs L：K≤C＝Prog SHUM=B+(K-A)G+J⊿K≤C-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-H0＝J=-J 文件3 程序名：SSWR?M-Int M0.5＝M=Int M≠M=Int M+1⊿ A----前一變坡點里程 B----前一變坡點高程 C----中間變坡點里程 D----中間變坡點高程 R----中間變坡點豎曲線半徑 E----後一變坡點里程 F----後一變坡點高程說 說明：此程序可以配備數據庫，以減少數據輸入。用PROG轉換到重新建立的文件名中。 直線偏移量檢查計算程序 (CASIO fx ---4500PA計算器) Lb1 1 MX0：NY0：OX1：PY1 Fixm:｛X，Y｝ Pol(O-M，P-N)：J＜0=＞W=J+360：≠＞W=J⊿ Pol(X-M，Y-N)：D=I:J＜0=＞A=J+360：≠＞A=J⊿ K=D×cos(A-W) ◢ L=D×sin(A-W) ◢ Goto 1 X0、Y0 ------起點坐標 X1、Y1 ------軸線方向點坐標 X、Y ------計算點坐標(測點坐標) J ------斜交角度 R -------距起點距離 L -------直線偏移量“+”爲軸線右側，“-”爲軸線左側 邊樁放樣移動計算程序 (CASIO fx ---4500PA計算器) Lb1 1 MX0：NY0：EX1：FY1 Fix