最新fx5800P计算器编程Word格式.docx

最新fx5800P计算器编程Word格式.docx

《最新fx5800P计算器编程Word格式.docx》由会员分享，可在线阅读，更多相关《最新fx5800P计算器编程Word格式.docx（17页珍藏版）》请在冰豆网上搜索。

Goto0:

IfEnd

判断站点点号的合法性

Lbl1:

ENDn="

E 

输入站点点号

IfE≤0OrE>

NOrE=O:

ENDnOVER!

Goto1:

判断端点点号的合法性

Pol（ListX[E]-ListX[O],ListY[E]-ListY[O]）:

Cls

调用极坐标函数计算

J<

0J+360J 

判断方位角

D（m）="

I 

显示站点→镜点的平距

α（Deg）="

J 

显示站点→镜点的方位角

Goto0

运行程序前，需按（COMP）（CLR）键，执行ClrStat命令，清除统计串列的数据；

按（STAT）（FreqOn）键打开频度串列ListFreq；

按（REG）键进入双变量统计回归计算模式，在统计串列中依次输入图所示的坐标点数据，结果见表1所示

1输入在统计串列的坐标数据

点号

ListX

ListY

ListFreq

1

4381.411

3629.849

2

4578.226

3531.110

3

4568.252

3689.568

4

4511.233

3880.836

5

4360.708

3882.016

6

4588.143

4106.347

7

4406.132

4101.540

每在ListX与ListY行输入一个点的坐标后，ListFreq行的频度自动变为1，它用于统计总点数，请用户不要改变该数值。

完成已知数据输入后，执行程序P0801，用户只需分别输入站点号与镜点号，程序即能自动计算并显示站点→镜点的平距与坐标方位角。

当用户输入的站点号超出总点数或为负数时，程序自动要求用户重新输入站点号；

当用户输入的镜点号超出总点数、为负数或等于站点号时，程序自动要求用户重新输入镜点号。

执行程序P0801，1→7，5→6点的平距与坐标方位角的步骤如下：

屏幕提示

按键

说明

COOR→SIDEAndBEARP0801

POINTNUM=7

显示串列中的总点数

STARTn=?

输入站点号1

ENDn=?

输入站点号7

D（m）=472.338

显示平距

α（Deg）=86°

59′59.69″

显示坐标方位角

输入站点号5

输入站点号6

D（m）=319.454

α（Deg）=44°

36′22.82″

……

只能按键终止运行，终止程序运行后，用户可以随时按（REG）键进入双变量统计回归计算模式，编辑已输入的坐标数据或添加新点的坐标数据。

特别提示：

CASIOfx-5800p大礼包热销中，【购买1台fx-5800p，赠送《CASIOfx-5800p可编程计算器测绘计算实用程序》书籍1本，此书籍中测量程序可直接传输到计算器中，《CASIOfx-5800p新型编程计算器使用方法与编程技巧》1本，fx-5800p间数据传输线（SB-62）1条，《fx-4850p/fx-4800p与fx-5800p编程语言的主要区别》对比表1份】，数量有限，欲购从速，可以到全国各地测绘店购买及常用测量程序传输。

fx-5800p的8大功能优点总结:

优点1、结构化的类BASIC编程语言，程序结构化强，便于编写和阅读，程序代码更加简洁”If～Then～Else～IfEnd,For～To～Step～Next,While～WhileEnd,Do～LpWhile”

优点2、两台fx-5800p间的数据通讯，免除了手工输入程序的麻烦，节省时间，避免输入错误

优点3、fx-5800p大容量的内存及闪存存储功能，断电情况下，程序不会丢失

优点4、fx-5800p自然书写功能，自然书写形式输入与输出不出错

优点5、fx-5800p的夜晶点阵显示屏幕，可以更加清晰的显示数字内容，分辨率高

优点6、强大的数理统计分析，串列数据存储功能，用于编程，可批量存储计算结果，方便查看数据结果

优点7、fx-5800p矩阵计算功能，最大可计算10×

10的矩阵，测量平差方程的解算

优点8、耗电量小，fx-5800p的7号电池方便更换与耐用

一、程序功能

主要功能：

采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；

极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：

1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;

3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算

二、源程序（绿色为程序名；

蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）

0.汇总程序（1、坐标计算放样程序（1XY、A、AB、HX、JS、DX、QX、F、XY、X1）；

2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1）；

3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；

4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；

5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；

6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1）；

7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1）；

8、极坐标计算程序（8JS、JS、DS）；

9、隧道超欠挖计算程序（9SD、A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

0（数子0）

ClrMat:

ClrVar:

12→DimZ：

Norm2:

Do:

＂（XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9）===>

QINGAN1-9＂：

Getkey→Z[3]:

WhileZ[3]=35:

Prog＂1XY＂:

WhileEnd:

WhileZ[3]=36:

Prog＂2ZD＂：

WhileZ[3]=37:

Prog＂3GC＂：

WhileZ[3]=21:

Prog＂4GD＂：

WhileZ[3]=22:

Prog＂5BP＂：

WhileZ[3]=23:

Prog＂6FM＂：

WhileZ[3]=31:

Prog＂7ZP＂：

WhileZ[3]=32:

Prog＂8JS＂：

WhileZ[3]=33:

Prog＂9SD＂：

LpWhileZ[3]≠25:

”XIEXIESHIYONG”:

计算器内程序排例：

0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD

5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1 

1↙Cls:

Fix4:

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+360→J:

FYJ="

J→DMS◢（放样方位角）"

FYD="

I◢（放样距离）Goto 

2↙

提问人的追问 

2010-08-2921:

20

fx5800计算器要的

四大主点的坐标和方位角计算程序：

LU-XIAN

Clrstat:

20→Dimz:

Fix6:

Lib0:

NO.J

（2）="

S:

R="

R:

L（H）="

L:

Prog"

FANG-WEI"

J+180→J:

J-O→K:

K<

0＝＞K+360→K:

K-180→F:

If>

0:

ThenL

（1）:

ElseR

（1）:

IfEnd←L

（1）＝＞-1→W:

R

（1）＝＞1→W:

J+W（I*180/（2πR））→z[6]:

B（HY）="

（z[6]-180）▲DME◢I*180/（2πR）→B:

I/2-I^（3）/（240*R^

（2）→G:

I^

（2）/（24R）→P:

T="

（R+P）*tan（Abs（F）/2）+G→z[7]→◢"

L（Y）="

πR（

Abs（F）-2B）/180→z[8]◢"

NO.ZH="

S-z[7]→z[9]◢"

NO.HZ="

z[9]+

2I+z[8]◢"

X-ZH="

C+z[7]*cos（J）→z[1]◢"

Y-ZH="

D+z[7]*sin（J）

→z[2]◢"

X-HZ="

C+z[7]*cos（O）→z[3]◢"

D+z[7]*sin（O）→z[4]◢

I