曲线（含缓和曲线）坐标推算程序QXPY

L1
Lb1
0：｛EG｝：A“XA”：B“YA”：C“CA”：D“1/（RA）”：E“1/（RB）”：F“DKA”：G“DKB”
L2
Lb1
1：｛HLR｝：H“DKI”：L“DL”：R“DR” ：H>G 　Goto 3
L3
P=(E－D)/Abs(G－F)：Q=Abs(H－F)：I=P×Q：T=D+IL4
J=C+(I+2D)×Q×90/π◢
L5
M=C+（I/4+2D）×Q×45/（2π）：N=C+（3I/4+2D）×Q×135/（2π）
L6
K=C+（I/2+2D）×Q×45/π
L7
X=A+Q/12×（cosC+4×（cosM+cosN）+2cosK+cosJ）◢
L8
Y=B+Q/12×（sinC+4×（sinM+sinN）+2sinK+sinJ）◢
L9
U“XL”=X+L×cos（J－90）◢ V“YL”=Y+L×sin（J－90）◢
L10
W“XR”=X+R×cos（J+90）◢ Z“YR”=Y+R×sin（J+90）◢
A=X：B=Y：C=J：D=T：F=H：Goto 1
L11
Lb1
3：A=X：B=Y：D=E：F=G：C=J：Goto 0

说明：(适用于CASIO4500)
1．XA、YA曲线起点坐标
2．CA曲线起点方位角
3．1/RA、1/RB分别为曲线起、终点曲率；左偏为“－”、右偏为“+”
4．DKA、DKB起终点里程桩号
5．DKI 待求点里程桩号
6．DL、DR 左偏距离、右偏距离
7．缓和曲线起点（ZH）曲率为0，终点（HY）为1/R，（R为圆曲线半径）
8．本程序使用时应分段推算。

不错，考下来看看，谢谢了

这个程序很久了，也很多，采用辛普生公式嘛

把这些个东东放到测量地堪板块啊,避免造成资源浪费嘛!再说这个小程序很老了的说.

分段计算还是可以，对复曲钱和卵形曲线有点问题