fx5800缓和曲线计算程序

FX5800计算器的积分程序（正反算、全线路、新线路）终极版

相关搜索: 计算器, 正反, 线路, 积分, 程序 FX5800计算器的积分程序（正反算、全线路、新线路）终极版

ZHUCHENGXU 主程序

\输入1正算，输入2反算

“NEW=0,OLD ≠0”?Z

If Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifen

d:Q=2=>Goto 2

Lbl 1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?L

Lbl Z:Z=1=> Prog“01”：Z=2=> Prog“02” 选择数据库文件，可增加

H- F→X:0.5(E-D)÷(G-F)→N

C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P

A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V

Q=2=>Goto 4：Cls：Fix 3

\，1，U：\，2，V：“FWJ=”：P?DMS◢

Norm 2：Cls：Goto 1

Lbl 2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S

“KMDG=”？H ：90→O:0→L：Goto Z （H线路范围内的任意桩号）

Lbl 4:Pol（R-U，S-V）：J<0 => J+360→J

While abs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=> P+360→P:IF P-J>0:then -I→L:else

I→L ifend

Goto 3: Whileend：H+Icos（J-P）→H:Goto Z

Lbl 3:Cls：Fix 3

“KM=”: Locate 4，1，H：“PY=”: Locate 4，2，L◢

Norm 2：Cls：Goto 2 01（数据库子程序）

If H<=第一曲线终点桩号：then 第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起

点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend

????? 程序说明：

1、 该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），

也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；

2、 （NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3?代

替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素

X0：曲线起点X坐标； Y0：曲线起点Y坐标； C0:曲线起点方位角；

R0-1、 RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；

SP、 EP：曲线起点桩号，终点桩号；

KM：待求点桩号； PJ：正斜交的设定；

PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；

3、 正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求

点坐标，显示待求点桩号及偏中距离；

4、 正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。 5、 此程序显示较直观，结果在同一屏幕显示。注* ：程序中乘号用*标示，其余为X。

卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版

(2011-08-08 21:50:08) 转载 标签：

5800全线正反算 杂谈

本程序是本人在承秦高速8标施工中根据蓝星程序2.3更改结果，修正了一些错误，去除一些功能，可以

计算路基任意点坐标，设计高程.隧道欠超挖放样计算。支持断链，隧道超欠挖，支持N条线路输入，计算精度1mm.与原程序主要功能（采用交点法方式计算多条线路坐标正反算，要计算复杂线型及立交匝道， 包括C型，S型、卵型、回头曲线等；请使用线元法2-XY。欢迎广大朋友提出建议共同学习。本程序经作者实践证明真情奉献，如需转载请注明出处！作者：张涛 1.主程序：一般坐标计算及放样程序-----交点法

程序名:1-JD Clrmat：Clrvar:

Lal 0:10→DimZ:Norm 2:1→A: ＂A: XY=1,KMD=2＂? A:A=1=>Goto 1:A=2=>Goto 2: （选择正算还是反算）

Lal 1:

Lal A:Prog＂QX＂:（选线，默认（线路1） X1=1，（线路2） X2=2......... 90→A: ＂PJ＂?A:A→Z[1]: （默认与道路切线方向90度）

Lal B:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停止，输 入- 2转反算），偏距默认中桩0，左为-，右为+，）

Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3: ＂X=＂:Locate 6,4,X: ＂

Y=＂:Locate 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角）

Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部分可以省略）

Prog＂5-SD＂:＂-CW +QW=＂:M◢ （隧道超欠挖，如不需要此部分可以省略） LpWhile Z≠-1(Goto B此处也可以用这个命令)

Lal 2 Prog＂QX＂: （选线，默认（线路1） X1=1，（线路2） X2=2.........）

Lal C:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: （反算时输入大概桩号，输入-1则停止，输入-2正算）Prog＂

K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate 6,4,Z: ＂D=＂:Locate 6,4,D◢ Prog “S-Z”: Prog “3-GC”: “H=”：H◢

Prog＂5-SD＂:＂-CW +QW=＂:M◢

LpWhile Z≠-1(Goto C此处也可以用这个命令) 2．线路中线元段判别子程序（K）

程序名：K

If Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog “X1”:Return:IfEnd：If Z[3]=2:Then Prog

“X2”:Return:IfEnd：If Z[3]=n:Then Prog “Xn”:Return:IfEnd.....（后面可以增加N条线路！！但需要在QX程序里面 ＂QX:?=0,X1=1,X2=2，Xn=n＂做更改）。 3．线路选择子程序(线路选择输0时。则输曲线参数（QX）

程序名：QX

1→A: ＂QX:?=0,X1=1,X2=2＂?A:A→Z[3]:

If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FWJ”?G:”ZJ”?P :”LS1”?H:”LS2”?N:?R:IFEnd 4.交点法正算子程序(Z)

程序名：Z

H2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:

H÷2-H∧(3)÷240÷R2+H∧(5)÷34560÷R∧(4)-H∧(7)÷8386560÷R∧(6)+H ∧(9)÷3158507520÷R∧(8)→B: (H2-N2)÷24÷R÷sin(Abs(P))-(H∧(4)-N∧(4))÷2688÷R∧(3)÷sin(Abs(P→E: (R+A)tan(Abs(P)÷2)+B-E→T:

P÷Abs(P→W:H→C:0→M: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3)÷tan(Abs(P)÷2))+N÷2-N∧(3)

÷240÷R2+E→Z[6]：O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:

If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:

If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd: If Z≤Z[7]: Then 180(Z-O+T-0.5H)÷R÷Π→S :A+R(1-Cos(S→B：H÷2 -H ∧(3) ÷R2÷240+Rsin(S→A:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:

If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd:

Z- Z[7]-N+ Z[6]→S:G+P→Z[2]:

LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return: LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J

5. 交点法反算子程序(Ｂ)

程序名：B

0→D:Do:Z+D→Z:Prog”Z”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D>.001:Z+D→Z:S→D

6. 计算缓和曲线段坐标增量及偏角子程序(HX)

程序名：HX

S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:

S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:

90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd 7．坐标参数矩阵调用程序（F） 程序名：F

Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G:

Mat F[1,5]→H: Mat F[1,6]→H: Mat F[1,7]→P: Mat F[1,8]→R: 8.线路1坐标计算要素程序

程序名：X1（线路1坐标计算要素程序）

If Z≤241.086:Then [[336.478，2600441.639，514392.519， 280。20’28.78”，106.667，81.667，203。08’28.32”，60]]→Mat F:Prog”F”: Return:IfEnd 线路1坐标计算要素程序

9.程序名：X2（线路2坐标计算要素程序）

If Z≤273.006:Then [[171.674，2600784.547，514635.863，58。49’17.2”，93.889，125，68。09’,26.91”，180]]→Mat F:Prog”F”: Return: IfEnd

说明：1、交点法：If Z≤计算交点段终点桩号：Then[[交点桩号，交点X坐标，交点Y坐标，起点至交点方

位角，交点前段缓和曲线长度，交点后段缓和交点转角，圆半径]] →Mat F: Prog”F”: Return: IfEnd （转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）如整条线无曲线，全为

直线段，则交点为终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为1，其它全为0。

10.程序名：S-Z

Z→S:D→Z（转换Z和S，D和Z进行高程计算，超欠挖计算） 使用说明

1、规定

(1) 坐标计算以交点方式计算，一般情况下一个交点计算一段线是：直线+缓和曲线+圆曲线+缓和曲线+直线。在匝道中先根据实际线来调整，可以单独计算一段不完整的缓和曲线+圆曲线。也可以单独计算一段缓和曲线或一段圆曲线。无缓和曲线时，缓和长度输0。

(2) 程序中：×10-9 为10的负9次方即0.000000001; Π为圆周率即3.1415926; √为根号；＂ Ｘ=＂： 2、输入与显示说明 输入提示部分：

“QX:X1=1,X2=2”?选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输1为第一条线路。输2为第二条线路，本程序暂设计实例为2条线路。

ＫＭ？正算时所求点的里程（反算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路。