CASIOfx-4800计算器测量程序.docVIP

θ——代表零 CASIO fx-4800计算器测量程序 S 直线或曲线任意里程点测设或墩台定位及路基边桩放样计算程序 Prog“Y”  N—输入缓长，R—输入半径，Z—输入曲线偏角，ZH:DK=?—输入ZH点的里程; T“T=” ◢ ZH:X=?—输入ZH点的X坐标,ZH:Y=?—输入ZH点的Y坐标值; S“L” ◢ QD:X=?—输入前一交点的X坐标, QD:Y=?—输入前一交点的Y坐标值; F“Eθ” ◢ CDFY:DK=?—输入需要计算点(放样点)的里程; Prog“B9”  I? —曲线偏角为左输入1,曲线偏角为右输入0, E? —输入墩台的E值或路基边桩E值, 曲线内侧输入E值输入负数, 曲线外侧输入E值输入正数, 测中线点E值输入0; G 子程序名 Lbi W XA?—输入置镜点的X坐标, K=Z[1θ]  YA?—输入置镜点的Y坐标, {K,E} XB?—输入后视点的X坐标, K“CDFY:DK=”:E“E”：I YB?—输入后视点的Y坐标。 L=K-H 显示：O=置镜点至后视点的距离； Z[1θ]=K F=置镜点至放样点的距离； Z[15]=L =，W=放样顺拨角度； Z[5]=Z[3]：Z[6]=Z[4]  U：A-B=置镜点至后视点的方位角； Z[3]=X：Z[4]=Y U：A-X，Y=置镜点至放样点的方位角； Lθ= Prog“B4” :≠=L≤N =Prog“B1” :≠=L≤(S-N) =Prog“B2” :≠=L≤S =Prog“K” :≠=L≥S =Prog“B3” △△△△△ I=θ=Y=Y:≠= I≠θ=Y=θ-Y △△ G=tan-1(Y/X)  Q=√(X2+Y2)  Z[15]θ=Q=-Q△ J=Z[14]-Z[8]:K=Z[13]-Z[7]: Prog“F1”  T=Z[2]  L=T+G+18θ L≥36θ=L=L-36θ△ X=Z[7]+Q*COS L◢ Y=Z[8]+Q*SIN L◢ Prog“N”  Z[18] ≠θ=Prog“Fθ” △(若不放墩台的横向护桩可将该句删除) Goto W B1 子程序名 X=L-L^5/4θ/R^2/N^2+E*COS(27θ+9θL^2/π/R/N)  Y=L^3/6/R/N-L^7/336/R^3/N^3+E*SIN(27θ+9θL^2/π/R/N)  B2 子程序名 X=M+(R+E)SIN(18θ(L-θ.5N)/ π/R)  Y=P+R-(R+E)COS(18θ(L-θ.5N)/ π/R)  注: θ—表示为零,既0数。 N1 子程序名 G=D-B:Q=C-A:J=:X-A:L=Y-B O=√(G2+Q2)  “O=”  Pause 2 F=√(L2+J2)  Q=tan-1(G/Q)  Q≤θ= Prog“B5” :≠=Q＞θ =Prog“B1” △△ O=tan-1(L/J)  O≤θ= Prog“B7” :≠=O＞θ =Prog“B8” △△ W=V-U:W≤θ=W=36θ+W△ W“=，W=” ◢ U“U:A—B=” ◢ V“V:A—X，Y=” ◢ K 子程序名 L=S-L:G=L-L^5/(4θR^2N^2):Q=L^3/6/R/N-L^7/(336R^3N^3):J=27θ+Z-9θL^2/(πRN)  T=Z[16]:Z[17]=E E＜θ=J=9θ+Z-9θL^2/(πRN) △ E＜θ=E=-E △ X=-G*COS Z-Q*SIN Z+T(1+COS Z)+E*COS J Y=-G*SIN Z+Q*COS Z+T*SIN Z+E*SIN J E=Z[17]  B4 子程序名 X=L:Y=-E B3 子程序名 L=L-S T=Z[16]  E＞θ= Prog“F12” △ E=-E X=T+(T+