5800匝道程序？

你好，你发给我的是4800的程序，我需要的是5800的匝道程序。你有吗？有的话请发给我下，谢了。429034845@qq.com

Lb1 0
{E G}
A“XA”：B“YA”：C“FA”：D“1÷RA”：E“1÷RB”：F“DKA”：G“DKB”
Lb1 1
Norm
{H}
H“DKI”
P＝(E－D)÷ABS(G－F)
Q＝ABS(H－F)：I＝PQ
J＝C＋90 Q(I＋2D)÷π: J＜0J＝J＋360:≠J≥360 J＝J－360⊿
M＝C＋45 Q(I÷4＋2D)÷(2π)
N＝C＋135Q(3I÷4＋2D)÷(2π)
K＝C＋45Q(I÷2+2D)÷π
Lb1 2
{W}
W＜0 Z＝－1：≠Z＝1⊿
X＝ A＋Q÷12×(COS C＋4(COS M＋COS N)＋2COS K＋COS J)＋ZWCOS(J＋90Z)▲
Y＝ B＋Q÷12×(SIN C＋4(SIN M＋SIN N)＋2SIN K＋SIN J)＋ZWSIN(J＋90Z)▲
J“FWJ＝”▲
Goto 2

说明:A、B、C：本段曲线的起点x、y坐标和方位角；
　　D、E：起点的半径和终点半径，注意要输入为1/R格式。
　　F、G：本段曲线终点的x、y坐标；
　　H：要求点的里程；
　　W：路线边桩距离，中桩输入0，其他左-右+；
　　J：所求里程中桩方位角。

检举 回答人的补充 2009-07-20 02:09 万能曲线计算程序FX4800记算器（卵形曲线）程序
一、文件名（LXQX）主程序
LbI 0:｛DZG｝:A“XA”:B“YA”:C“FW”:D“1/RA”:Z“1/RB”:F“DKA”:G“DKB”←
LbI 1:｛H｝:H“DKI”:H>G => Goto 2⊿P=(Z-D)/Abs(G-F):K= Abs(H-F):S=P×K:Q=C+(S+2D)K×90/∏:V=C+(S/4+2D)K×45/(2∏):N=C+(3S/4+2D)K×135/(2∏):J=C+(S/2+2D)K×45/∏←
X=A+K/12×(cosC+4(cosV+cosN)+2cosJ+cosQ)▲Y=B+K/12×(sinC+4(sinV+sinN)+2sinJ+sinQ) ▲
｛T｝:T“LR”:T=2=>｛LW｝:L“LD=”:W“RA=”:X“XW”=X+Lcos(Q+W) ▲Y“YW”=Y+Lsin(Q+W) ▲⊿ ｛R｝:R“QH=”:R=3=>｛L｝:L“LQ=”:X“XQ”=X+LcosQ▲Y“YQ”=Y+LsinQ▲⊿
M=X:U=Y:Prog“XY”:Goto 1←
LbI 2:H>G+0.0001=>Goto1⊿A=X:B=Y:F=G:C=Q:Goto 0←
二、坐标反算（XY）
E“X0”:O“Y0”:M“X1”:U“Y1”:POI(M-E,U-O):J<0=>J=J+360⊿J▲I▲
说明：1.该程序对任意曲线都适用。
2.对该程序要求输入数据的说明：
输入： XA？YA？：要求输入曲线计算起点X，Y坐标；
FW？ ：要求输入曲线计算起点的切线方位角（沿计算方向）；
1/RA ：要求输入曲线起点半径的倒数（左偏为负，右偏为正）；
1/RB ：要求输入曲线终点半径的倒数（左偏为负，右偏为正）；
DKA？ ：要求输入曲线计算段起点里程（以米为单位，反算时为负值）；
DKB？ ：要求输入曲线计算段终点里程（以米为单位，反算时为负值）；
DKI？ ：要求输入曲线计算段内测点里程（以米为单位，反算时为负值）；
LR=？ ：是否测设左右点，输0为只计算线路中心，2为计算左右;
LD？ ：左右距离（左为负，右为正）；
RA？ ：结构物与线路前进方向夹角（左为负，右为正）；
QH？ ：是否计算相对左右点的前后点坐标，输3时则计算；
LQ？ ：相对左右点的前后距离。(前正后负，此为平行切线方向)；
X0？Y0？：置镜点坐标
输出： Q= ：输出求得的曲线（某一里程的）切线方位角；
X=，Y= ：输出曲线某一里程的中点坐标；
XW=，YW= ：输出曲线某一里程的左右点坐标；
XQ=，YQ= ：输出曲线某一里程相对左右点的前后点坐标
J ：为待测点的方位角；
I ：为置镜点到待测点的距离；
3. 利用此程式计算需分段进行，线形复杂时，可采用正算一半，反算一半的方法，使结果与设计符合。

5800计算器线路、匝道中边桩万能程序 彭赐明改编网上类似程序于河南高速郑漯8标 LB1 1↙ Cls : Fix 4 : Deg :"XZJ="?R◢ (输入置镜点X） "YZJ="?S◢ (输入置镜点Y） LB1 2↙ "K="?K◢ (输入计算点里程） If K<第一线元终点里程 ：THEN 线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto 3:IfEnd↙ ………………………………（线元数据分段输入） LB1 3↙ W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X /C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角） A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z : B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y : "XI=":Z◢(计算点中心X） "YI=":Y◢(计算点中心Y） "PJ="?P◢(输入计算点边桩偏角左－右＋） "PD="?Q◢(输入计算点边桩偏距） Rec(Q,V+P):Z+I→Z :Y+J→Y: "XP=":Z◢(计算点边桩X） "YP=":Y◢(计算点边桩Y） Pol(Z-R,Y-S):J<0=>J+360→J: "FYJ=":J→DMS◢(放样方位角） "FYD=":I◢(放样距离） Goto 2↙ 2009-2-27

http://blog.sina.com.cn/s/blog_55cd03230100aku9.html