谁有5800的程序啊

坐标CASIO FX—5800 P程序

源程序

1 正算主程序 程序名： XLZBZB

LbI 1：“K”？K ：“L(-Z +Y)” ？L：90→M ：（注：此处若给M赋值，则可计算斜角。M是指图纸上的斜交右角）

Prog“DAT” ：（P - R）÷（2（H-O）PR）→D↙ (注：↙表示按EXE键即可)

Abs（K-O）→J：Prog“SUB1” ↙(注：↙表示按EXE键即可)

“X=” : X ◢

“Y=” ：Y ◢

Goto 1 ↙ (注：↙表示按EXE键即可)

2 XLZBZB

使用说明：K 正算时所求点的里程： L(-Z+Y) 正算时所求点距该里程中线的边距（左侧取负值，右侧取正值，在中线上取零（即数字0））

3 正算子程序 程序名：SUB1

4→DimZ ↙ (注：↙表示按EXE键即可)

01184634425→A： 02393143352→B： 02844444444→Z[4]: 00469100770→C: 02307653449→E: 05→Z[1] ↙ (注：↙表示按EXE键即可)

I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD) ×180÷π)+Z[4]cos(G+QZ[1]J(1÷P+Z[1]JD) ×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD) ×180÷π)+Acos(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π)) →X ↙ (注：↙表示按EXE键即可)

S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD) ×180÷π)+Z[4]sin(G+QZ[1]J(1÷P+Z[1]JD) ×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD) ×180÷π)+Asin(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π)) →Y ↙ (注：↙表示按EXE键即可)

G+QJ(1÷P+JD) ×180÷π+M →F: X+LcosF →X: Y+LsinF→Y ↙ (注：↙表示按EXE键即可，π表示3141592653)

4 曲线元要素数据库 程序名：DAT

If K＜本段曲线终点桩号： Then 本段线元起点的X坐标→I： 本段线元起点的Y坐标→S： 本段线元起点里程→O： 本段线元起点切线方位角→G: 本段线元终点里程→H: 本段线元起点曲率半径→P： 本段线元终点曲率半径→R： 本段线元左右偏标志→Q： Eise If K＜ 二段曲线终点桩号： Then 二段线元起点的X坐标→I：二段线元起点的Y坐标→S：二段线元起点里程→O：二段线元起点切线方位角→G: 二段线元终点里程→H: 二段线元起点曲率半径→P： 二段线元终点曲率半径→R： 二段线元左右偏标志→Q：…………………

（注：如有多个曲线元要素，还要继续添加到数据库DAT中）

I= 线元起点的X坐标： S= 线元起点的Y坐标: O= 线元起点里程:

G= 线元起点切线方位角: H= 线元终点里程 P= 线元起点曲率半径

R= 线元终点曲率半径 Q= 线元左右偏标志（注： 左偏为-1， 右偏为+1 ）

（注：如有多个曲线元要素，还要继续添加到数据库DAT中,曲率半径直径输入半径值）

5 坐标反算 程序名： ZBFS

LBI 0:“X1=”X:“Y1=”Y:“X2=”A:“Y2=”B◢

POL（A-X,B-Y）:J〈0

=〉J+360→J◢

“I=”:I◢

“J=”:J▲DMS ◢

Goto 0 ↙ (注：↙表示按EXE键即可)

6 任意多边形的面积 程序名： RYDBX S

0→S :A ：B ：C ：D ↙(注：↙表示按EXE键即可)

Lbl 1: “X”→X : “Y” →Y ↙(注：↙表示按EXE键即可)

0→I:0→J : P0l(C-A , D-B) : I→G : J→H :

P0l(X-A , Y-B) : X→C : Y→D : I→K : J→N :

“M=”:05GKsin(Abs(N-H))→M ↙(注：↙表示按EXE键即可)

“S=”:S+M→S ▲ 平方米

“U=”:S÷666667→U ▲ 亩

Goto 1

（注：0表示数字零）

说明：点位必须按顺序输入成封闭形图型！

A B C D 为第一，二两点坐标（常量），X Y……为第三，四，五，六点坐标（变量）。

例：X1=10000 , Y1=20000

X2=500000 , Y2=600000

X3=700000 , Y3=400000 三角形面积 107000M2 16050亩

X4=800000 , Y4=300000 四边形面积 160500M2 24075亩

X5=650000 , Y5=100000 五边形面积 218500M2 32775亩

X6=550000 , Y6=50000 六边形面积 230500M2 34575亩

说明：

一、程序功能及原理

1功能说明：

本程序由两个主程序——正算主程序(GSZS)、反算主程序(GSFS)和两个子程——正算子程序(SUB1)、线元数据库(DAT-M)构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本程序可以在CASIO fx-4800P计算器及 CASIO fx-4850P计算器上运行。由于加入了数据库(DAT-M)，可实现坐标正反算的全线贯通。

组合程序5可实现M线的正算贯通，组合程序7可实现M线的反算贯通，组合程序6可实现坐标计算到放样一体化。

2．计算原理：

利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。

利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。

二、使用说明

1、规定

(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q= -1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

(2) 当所求点位于中线时，L=0；当位于中线左侧时，L取负值；当位于中线右侧时，L取正值。

(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。

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

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

(7)曲线元要素数据库（DAT-M）可根据线型不同分为各个线元段输入到DAT-M中，即分为直线段、缓和曲线、圆曲线等。

(8)正算时可仅输入里程和边距及右交角可实现全线计算，但反算时只能通过首先输入里程K值读取数据库DAT-M，计算器自动将里程K所在线元数据赋给反算主程序GSFS进行试算，试算出的里程和边距须带入正算主程序GSZS中计算坐标，若坐标吻合则反算正确。

2、输入与显示说明

（1）输入部分：

X0 ？线元起点的X坐标 （在“DAT－M”程序中对应为I）

Y0 ？线元起点的Y坐标（在“DAT－M”程序中对应为S）

K0 ？线元起点里程（在“DAT－M”程序中对应为O）

F0 ？线元起点切线方位角（在“DAT－M”程序中对应为G）

KN ？线元终点里程（在“DAT－M”程序中对应为H）

R0 ？线元起点曲率半径（在“DAT－M”程序中对应为P）

RN ？线元止点曲率半径（在“DAT－M”程序中对应为R）

Q ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0) （在“DAT－M”程序中对应为Q）

K ？ 正算时所求点的里程

L ？ 正算时所求点距中线的边距(左侧取负值，右侧取正值，在中线上取零)

ANG？正算边桩时左右边桩连线与线路中线的右交角

X ？ 反算时所求点的X坐标

Y ？ 反算时所求点的Y坐标

M 斜交右角

线元要素数据库中K≥O=>K＜H=>中的O和H分别为该段线元起点里程和终点里程

A、 B、Z[4] 是Gauss-Legendre求积公式中的插值系数

C 、E、Z[1] 是Gauss-Legendre求积公式中的求积节点

（2）显示部分：

X=××× 正算时，计算得出的所求点的X坐标

Y=××× 正算时，计算得出的所求点的Y坐标

K=××× 反算时，计算得出的所求点的里程

L=××× 反算时，计算得出的所求点的边距

三、算例

某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线元左右偏标志Q）如下：

S0 X0 Y0 F0 LS R0 RN Q

500000 19942837 28343561 125 16 3100 269256 1E45 1E45 0

769256 19787340 28563378 125 16 3100 37492 1E45 22175 -1

806748 19766566 28594574 120 25 5407 112779 22175 22175 -1

919527 19736072 28701893 91 17 3063 80285 22175 9579228 -1

999812 19744038 28781659 80 40 5000 100000 1E45 1E45 0

（注：该算例中线元要素Ls为程序修改前须输入的线元长度，程序修改后改为输入线元终点里程KN）

CASIO-5800公路测量程序(自编) 文件名：HHQX 缓和曲线段内任意点坐标计算程序“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”R“LS(m)=”D“KZH=”G“XZH=”U“YZH=”VLbI 0“KP=”HAbs(H-G)→CC-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →JC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →KQ+N(C^2/(2RD)×(180/Π)) →FU+J×Cos(Q)+K Cos(Q+90N) →AV+J×Sin(Q)+K Sin(Q+90N) →BLbI 1“XP=”：A ◢“YP=”：B ◢“QIE XIAN FWJ=”：F ◢LbI 2“BIAN JU(m)=”SS=0＝＞Goto 0LbI 3“JIA JIAO L(-),R(+) =”EA+S Cos(F+E) →XB+S Sin(F+E) →YLbI 4“X[1]=”：X ◢“Y[1]=”：Y ◢Goto 2 FWJ=---输入交点间方位角ZHUAN XIANG L（-1），R（1）=？---输入曲线转向，左输-1，右输1R（m）=---输入曲线半径LS(m)=---输入缓和曲线长KZH=---输入ZH点桩号XZH= 、YZH=---输入ZH点坐标KP=---输入待求点桩号BIAN JU(m)=---输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入OJIA JIAO L(-),R(+) =---输入边桩与中桩法线方向夹角,左边输负值,右边输正值

答案补充

5800中边桩坐标计算程序ZZZZZZ(主程序)Lb1 1:”NOI”H:Prog”Z1”换行(E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I换行C＋（I＋2D）×Q×90÷π→J换行C＋（I÷8＋2D）×Q×45÷（4π）→M换行C＋（3I÷8＋2D）×Q×135÷（4π）→N换行C＋（5I÷8＋2D）×Q×225÷（4π）→U换行C＋（7I÷8＋2D）×Q×315÷（4π）→V换行C＋（I÷4＋2D）×Q×45÷（2π）→K换行C＋（I÷2＋2D）×Q×45÷π→L换行C＋（3I÷4＋2D）×Q×135÷（2π）→Z换行A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosL＋cosZ）＋cosJ）→X换行B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinL＋sinZ）＋sinJ）→Y换行“X=”:X◢“Y=”:Y◢ “W L“O:"WR"R

答案补充

“XL=”:X＋O×cos（J－90）◢ “YL=”:Y＋O×sin（J－90）◢ “XR=”:X＋R×cos（J＋90）◢ “YR=”:Y＋R×sin（J＋90）◢Goto 1换行 Z1（数据库）If H≤终点桩号：Then起点桩号→F:终点桩号→G：起点X坐标→A:起点Y坐标→B：起点切线方位角→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。N个Lb1 0：Return换行曲率左偏为负右偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。。。等等需要使用时把主程序Z1改为Z2依次类推NOI？为要求点里程

首先把你的说法纠正一下，一个“点”是没有方位角的，方位角是两点或是一线。5800，4800可以直接调用POL（）函数。括号内填两点的坐标差POL（ΔX，

ΔY）记得有逗号。得出的结果有两个，两点间距离和方位角

以输入f(x)计算为例，具体方法如下：

1、这里出现了f(x)=，不能进行常规数学计算。

2、点击一下“MODE”键

4、这时候就清除了设置了，进入正常的计算模式。

4、这时候就清除了设置了，进入正常的计算模式。

这两个都是算三角形的，直角三角形，\x0d\POL（3,4）=5 其中3和4属于直角三角形的两个直边长度，得出来的5是直角三角形的斜长。\x0d\REC(1,90）= X=0\x0d\ Y=1 这个是坐标增量，1等于增量的斜边长度（其实和上面的三角形斜长一个道理），90代表角度，也就是坐标中的方位角，当角度等于0~90的时候为第一象限角，这个测量书上面说的很详细，的出来的结果X、Y是三角形的增量值，其实POL是对应于REC的，你可以拿计算器按一下就知道了，在5800里面显示X= Y= 好像是显示的 I= J= 你提取下就知道，直角三角形公式你必须得懂！\x0d\POL（3,4）=5 =√（3²+4²）=5\x0d\REC(1,90）= X=0=1cos（90°）=0\x0d\ Y=1 =1sin（90°）=1

可以登陆亦文轩文具网免费下载测量程序

Fx-5800价格和fx-4850相当，但程序不能共享，Fx-5800的编程语言更接近BASIC程序语言。

2、5800变量输入语句改为，赋值语句改为—＞。程序中和1850一样，除可以使用26个字母变量A~Z存储数据和独立于字母变量存储器的额外变量存储器Z[1]，Z[2]，Z[3]，Z[4]……外，另外可以使用统计串列存储器List X，List Y，List Freq。

3、程序命令由4850的16个增加到了34个，取消了⊿、≠=、｛｝命令，使得由⊿、≠=、｛｝等重要程序命令构成的fx-4850程序无法在5800上运行。

同时，5800的条件语句修改为更易于使用的If~Then~Else~IfEnd形式，新增For~To~Step~Next循环、条件循环Do~LpWhile与While~WhileEnd语句。

4、5800增加了数据通讯功能，使用SB-62数据线连接好两台机器的3Pin通讯口可方便地传输程序与数据，避免了4850只能以手工输入的方式录入程序，容易出现程序输入错误的弊端。

5、5800有矩阵计算功能，可以编写严密平差程序时组成与解算法方程，能够满足测量专业测量平差编程的计算要求。同时字母变量除了可以输入26个大写英文字母外，还能用小写英文字母、希腊字母。

现在购买的可以送大礼包，

FX-5800P计算器大礼包说明：

1FX-5800P计算器

2SB-62(与fx-5800配套进口的数据线)

3casioFX-4800P/4850P与FX-5800P编程计算器功能比较与程序转换覃辉编著 同济大学出版社（与书配套程序）全路段主线坐标正反算（正交/斜交）

匝道全段坐标正反算（正交/斜交) 全路段中边桩高程（带超高，加宽）

有电子版的范例，初学者使用简单，快捷让你短时间成为一个熟练的测量者

4FX-5800P与FX-4800P/FX-4850P语言的对比及特点说明

以上就是关于谁有5800的程序啊全部的内容，包括:谁有5800的程序啊、卡西欧5800输入程序显示错误怎办、5800程序里面需要起点方位角是用这个公式吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！