线路计算程序汇编

公 路 工 程

Fx 一 4500 4800 线 路 计 算 程 序 汇 编

4850PA

1

、、（卡西欧计算器）

Fx—4500 、4800 、4850PA（卡西欧计算器）

一． 坐标计算（中、边桩）、 文件名 ZB

L1 D″JD″：A：{R}：C″Ls″ L2 P=C2/24R-C4/2688R3 L3 Q=C/2-C3/240R2 L4 B=90C/πR L5 T=（R+P）tan（Abs A/2）+Q◢

L6 W″E″=（R+P）/cos（A/2）-R◢

L7 L=(Abs（A-2B)）πR /180+2C◢ L8 G″ZH″=D-T◢ H″HY″=G+C◢ I″QZ″=G+L/2◢ K″YH″=G+L-C◢

L9 M″HZ″=G+L◢ L10 N ：E ：F ：J L11 A<0=>S=-1：≠=>S=1⊿ L12 U=F+A/2+90S

L13 V=W+R L14 B=N+VcosU

L15 O=E+VsinU L16 W=6.5

L17 Lb1 1 L18 {Z}

L19 Z≤G=>L=T+G-Z L20 V=F+180

L21 U=F L22 Goto 2⊿

L23 Z≤H=>L=Z-G L24 V=L-L5/90（RC）2 L25 L=30SL2/(πRC) L26 P=F+180

L27 Q=F+L L28 U=F+3L L29 Goto 4⊿

L30 Z≤K=>L=F+A/2+180+90S+180（Z-I）S/πR L31 U=L+90S L32 Goto 5 ⊿

L33 Z≤M=>L=M-Z L34 V=L-L5/90（RC）2 L35 L=30SL2/(πCR ) L36 P=F+A

2

L37 Q=F+A+180-L L38 U=F+A-3L

L39 Goto 4⊿ L40 Z>M=>L=Z-M+T

L41 U=F+A L42 V=U L43 Goto 2 ⊿ L44 Lb1 2

L45 X=N+LcosV ◢ L46 Y=E+LsinV◢ L47 Goto 6 L48 Lb1 3 L49 {W}

L50 P″XL″=X+Wcos（U-90）◢ Q″YL″=Y+Wsin（U-90）◢ P″XR″=X+Wcos（U+90）◢ Q″YR″=Y+Wsin（U+90）◢ L51 Goto 1 L52 Lb1 4

L53 X=N+T cosP+VcosQ ◢ Y=E+TsinP+VsinQ L54 L55 Lb1 5

L56 X=B+RcosL◢ Y=O+RsinL◢ L57 Goto 6 L58 Lb1 6

L59 J=1=>Goto 3⊿ L60 Goto 1 （共计667步，计算器 “θ”为零， “O”为英文字母O）

ZB—坐标 JD—交点桩号 Ls—缓和曲线长度（单位m） A— 偏角值（转角值），左偏为“-”，右偏为“+” R—曲线半径 T—切线长 E—外矢距

L—曲线全长 ZH HY QZ YH HZ—要素点里程桩号

N—交点X坐标 E—交点Y坐标 F—交点i-1至交点i的方位角

J—输入“零”（θ）为中桩坐标计算 输入“1”为边桩坐标计算

X—所求桩号X坐标 Y—所求桩号Y坐标 W—输入所求边桩到中桩的垂距（单位为m） XL—左边桩X坐标 YL—左边桩Y坐标

3

Goto 6

XR—右边桩X坐标 YR—右边桩Y坐标 Z—待求点桩号

JD10 ZH HZ HZ ZY YZ JD9 JD1

注： 以上示意图，利用JD10的数据，可以自JD9的HZ点计算到JD11的ZY点，其它类推。

二． 用坐标法计算面积

文件名 S

L1 N:I=1 L2 X:Y L3 A=X:B=Y:C=X:D=Y L4 I=Z:S=0 L5 LbI 0:I:{XY}:X:Y L6 S=S+(CY-DX)/2 L7 C=X：D=Y L8 I=N => Goto 1⊿ L9 I=I+1：Goto 0 ⊿ L10 LbI 1:S=S+(CB-AD)/2

说明：N为输入转折点个数

4