5800修改程序(卵形曲线)

《5800修改程序(卵形曲线)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、5800计算器（卵型曲线）自动程序一、文件名（LXQX）主程序1→M:“M=1,DATEFILE”?M:IFM=2:THEN“XA”?A:“YA”?B:“FW”?C:“1/RA”?D:“1/RB”?Z:“DKA”?F:“DKB”?G:IFEND↙“X0”?E:“Y0”?O↙Lb10:“DKI”?H:IFM=1:THENProg“LXQX-YS”:IFENG↙IFH＞G:THENGoto1:ELSE(Z-D)/Abs(G-F)→P:Abs(H-F)→K:P×K→S:C+(S+2D)K×90/л→Q:C+(S/4+2D)K×45/(2л)

2、→V:C+(3S/4+2D)K×135/(2л)→N:C+(S/2+2D)K×45/л→J↙“X=”:A+K/12*(cos(C)+4(cos(V)+cos(N))+2cos(J)+cos(Q))→X◢“Y=”:B+K/12*(sin(C)+4(sin(V)+sin(N))+2sin(J)+sin(Q))→Y◢IFEND↙“LR”?T:IFT=2:THEN“LD=”?L:“RA=”?W:“XW=”:X+Lcos(Q+W)→X◣“YW=”:Y+Lsin(Q+W)→Y◣IFEND↙“QH”?U:IFU=3:THEN“LQ=”?R:“XQ=

3、”:X+Rcos(Q)→X◣“YQ=”:Y+Lsin(Q)→Y◣IFEND↙po1(X-E,Y-O)↙IFJ<0:THENJ+360→J:IFEND↙“J=”:J▼DMS◣↙“I=”:I◣Goto0↙Lb11:IFH＞G+0.0001:THENGoto0:IFEND:X→A:Y→B:G→F:Q→C:Goto0↙三、曲线要素数据库IFH≦曲线计算段终点里程:THENXA→A:YA→B:FW→C:1/RA→D:1/RB→Z:DKA→F:DKB→G:GOTO2:IFEND↙直到输完全部要素Lbl2↙说明：1.该程序对任意曲线都实用。输入：M

4、=1为自动调用数据库M=2为手动输入数据XA？YA？：要求输入曲线计算起点X，Y坐标；FW？：要求输入曲线计算起点的切线方位角（沿计算方向）；1/RA？：要求输入曲线起点半径的倒数(左偏为负，右偏为正)；1/RB？：要求输入曲线终点半径的倒数(左偏为负，右偏为正)；DKA？：要求输入曲线计算段起点里程（以米为单位，反算时为负值）；DKB？：要求输入曲线计算段终点里程（以米为单位，反算时为负值）；DKI？：要求输入曲线计算段内待求点里程（以米为单位，反算时为负值）；LR=？：是否测设左右点，输0为只计算线路中心，2为计算左右；LD？：左

5、右距离（左为负，右为正）；RA?:结构物与线路前进方向夹角（左为负，右为正）；QH=？：是否计算相对左右点的前后点坐标，输3时则计算；LQ？：相对左右点的前后距离（前为正，后为负。此式为平行切线方向）；X0？Y0？：为置镜点坐标；输出：Q=：输出求得的曲线（某一里程的）切线方位角；X=，Y=：输出曲线上某一里程的中点坐标；XWYW=：输出曲线上某一里程左右点坐标；XQYQ=：输出曲线上某一里程相对左右点的前后点坐标；J：为待测点方位角；I：为置镜点到待测点距离。3．利用此程式计算需分段进行，线形复杂时，经几条高速公路匝道实例计算与设计

6、值有误差，最大不到十公分，可采用正算一半，反算一半的方法，使成果与设计符合。