[求助]：公路工程计算程序，大家有福同享啊！！！

左思

PQXZB
P“LX0：1”A：R：H“LS”J“JD”：W：V“X0”：Z“Y0”：C“TH”=（R＋H²÷24÷R）tan(A÷2)+H÷2－H³÷240÷R²◢
L“LH”=πRA÷180＋H◢
E“EH”=（R＋H²÷24÷R）÷cos(A÷2)-R◢
D“ZH”=J-C◢
F“HY”=D＋H◢
G“QZ”=D＋L÷2◢
I“YH”=D＋L-H◢
K“HZ”D＋L◢
Fixm
Lb1 0
{N}
N≤G=＞  M=N-D:≠＞     M=K-N：△M≤H=＞  H=M-M5÷40÷R²÷H²◢
Y=M3÷6÷R÷H－M7÷336÷R3÷H3◢
≠＞     S=180×（M－H÷2）÷π÷R：X=H÷2－H3÷240÷R2+R×sinS◢
Y=H2÷24÷R＋R（1－cosS）◢
△O“PJ”=tan-1（Y÷X）◢
Q“XZ”=（（X2＋Y2）0.5）◢
P=0=＞  Goto 1△
P=1=＞                     Goto 2△  
Lb1 1
U“MB”=W＋O◢
X=V＋QcosU◢
Y=Z＋QsinU◢
Goto 0
Lb1 2
U“MB”=W－O◢
X=V＋QcosU◢
Y=Z＋QsinU◢
Goto 0

本程序中字母含义：
Lx0:1——0表示右偏，1表示左偏
A？———偏角
R？———圆曲线半径
LS？——缓和曲线长
JD？——交点桩号
W？———切线方位角
X0？——ZH或HZ点X坐标
Y0？——ZH或HZ点Y坐标
TH=切线长
LH=曲线长
EH=外距
ZH=桩号
HY=桩号
QZ=桩号
YH=桩号
HZ=桩号
N？———放样点桩号
X=支距   
Y=支距
PJ=偏角
XZ=距离
MB=方位角（为ZH或HZ到放样点直线的方位角）
X=放样点坐标
Y=放样点坐标

注：“？”表示要输入的信息
   “=”表示输出信息

cx508a

呵呵,楼主辛苦了

左思

这是个卡西欧4500和4800P用的程序，也可供4850参考使用！