[原创]：任意坐标系曲线正算程序

hnlyjcw

任意坐标系曲线正算程序

TZEN

有谁能提供由坐标反算出对应的中桩和距中桩距离的数学算法公式吗？

castwaymen

何必搞下载呢？
原程序就一点点

任意坐标系下曲线正算程序

主程序
[QX ZS]
N″AZ(+):AY(-)=″:R″R=″:S″LS=″:T″T=″:M″L=″
K″L(ZH)=″:P″X(ZH)=″:Q″Y(ZH)=″:Z″FWJ=″
LbI 3:｛C｝
C″LI CHEN=″:L=C-K:A=Abs N
L≤S=>Prog″H″:B=90L2÷（RSπ）：Go to 2
≠＞L≤M-S=> Prog″Y″
B=（180L-90S）÷（Rπ）：Go to 2
≠＞L=M=>X=T+Tcos A:Y=Tsin A:B=A: Go to 2
≠＞L=M-L：Prog″H″
D=√（X2+Y2）
J=180+A-tan-1(Y÷X)
X=T+Tcos A+Dcos J：Y=Tsin A+Dsin J
B=A-90L2÷(RSπ)
L=M-L:Go to 2:LbI 2
N＞0=＞Y=-Y:B=-B: ⊿
B=Z+B
V″X″=P+Xcos Z-Ysin I◢
W″Y″=Q+Xsin Z+Ycos I◢
B＜0=>B=B+360：⊿
B″QIE XIAN FWJ″=B◢
Go to 3

子程序
[H]
X=L-L∧5÷（40R2S2）
Y=L∧3÷（6RS）-L∧7÷（336R∧3S∧3）

[Y]
O=180（L-S）÷（Rπ）+180S÷（2Rπ）
X=Rsin O+ S÷2-S∧3÷（240R2）
Y=R（1-cos O）+ S2÷（24R）
说明:N″AZ(+):AY(-)=″左/右偏角，左偏时偏角输“+”，右偏时偏角输“-”；R″R=″曲线半径；S″LS=″缓和曲线长；T″T=″切线长；M″L=″曲线总长；K″L（ZH）=″直缓点ZH里程 ; G″X(ZH)=″:H″Y(ZH)=″直缓点（ZH）坐标；I″FWJ=″为ZH段直线起始方位角；Z″LI CHEN=″输入所求坐标的里程；V″X″、W″Y″输出相应里程线路中线的坐标；B″QIE XIAN FWJ″输出线路中线坐标点的切线方位角。

2005年6月13日