卡西欧5800线路放样程序

QXJS 主程序 

Lbl A:“1.ZH=>XY”:“2.XY=>ZH”:?Q:“ZH”?S:Prog“QXJS-SUB0”↙

Q=1 => Goto1:Q=2 => Goto2:↙

Lbl 1:“ZH-BJ”?Z:Prog“QXJS-SUB1”:“X=”:N◢:“Y=”:E◢:“F=”:F◢: Goto4↙

Lbl 2: “X=”:?B: “Y=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “ZH=”:S◢: “ZH-BJ”:Z◢: GotoA↙

QXJS-SUB0 数据库子程序 

Goto1↙ Lbl 1

IF S<*** （线元终点里程） :Then***→A （线元起点方位角） :***→O （线元起点里程） :***→U （线元起点 X ） :***→V （线元起点 Y ） :***→P （线元起点曲率半径） :***→R （线元终点曲率半径） : ***→L （线元起点至终点长度） : Return:IfEnd↙

IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙

……………………….. 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个 Lbl ，每增加一个工程增加一个文件。 

QXJS-SUB1 正算子程序 

0.5 （ 1÷R-1÷P ） ÷L→D:S-O→X↙

U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙

V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙

A+(X÷P+DX2)×180÷π→F↙

N+Zcos(F+90) →N:E+Zsin(F+90) →E 

QXJS-SUB2 反算子程序 

Lbl 1:0→Z ： 1→Q ： Prog“QXJS-SUB0”: Prog“QXJS-SUB1”↙

Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙

Abs(W)>0.0001 => Goto1↙

Lbl 2: 0→Z ： Prog“QXJS-SUB1”:(C-E) ÷sin(F+90) →Z 

三、使用说明 

1 、规定 

(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时， P 、 R 取负值，当曲线半径在右时， P 、 R 取正值，当曲线半径为无穷大（即直线）时， P 、 R 以 10 的 45 次代替。 

(2) 当所求点位于中线时， Z=0 ；当位于中线左铡时， Z 取负值；当位于中线中线右 

侧时， Z 取正值。 

(3) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 

弧的半径。 

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的 45 次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 

(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的 

值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等 

于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 

2 、输入与显示说明 

输入部分： 

1. ZH=>XY

2. XY=>ZH”

Q ? 选择计算方式，输入 1 表示进行由里程、边距计算坐标 ；输入 2 表示由坐标反算里程和边距。 

卡西欧FX5800全线贯通万能正、反算程序

时间:2010-01-27 23:56:25   来源:本站  作者:xdw_815101  我要投稿  我要收藏  投稿指南

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

ZHUCHENGXU    主程序

"1.ZS,2.FS" ?→Q              输入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:Ifend: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

"Xn=":Locate  4，1，U："Yn=": Locate  5，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。