fx5800P计算器编程共16页文档.docx

资源描述

fx5800P计算器编程共16页文档.docx

《fx5800P计算器编程共16页文档.docx》由会员分享，可在线阅读，更多相关《fx5800P计算器编程共16页文档.docx（30页珍藏版）》请在冰豆网上搜索。

fx5800P计算器编程共16页文档.docx

fx5800P计算器编程共16页文档

fx-5800P计算器编程

观察内容的选择，我本着先静后动，由近及远的原则，有目的、有计划的先安排与幼儿生活接近的，能理解的观察内容。

随机观察也是不可少的，是相当有趣的，如蜻蜓、蚯蚓、毛毛虫等，孩子一边观察，一边提问，兴趣很浓。

我提供的观察对象，注意形象逼真，色彩鲜明，大小适中，引导幼儿多角度多层面地进行观察，保证每个幼儿看得到，看得清。

看得清才能说得正确。

在观察过程中指导。

我注意帮助幼儿学习正确的观察方法，即按顺序观察和抓住事物的不同特征重点观察，观察与说话相结合，在观察中积累词汇，理解词汇，如一次我抓住时机，引导幼儿观察雷雨，雷雨前天空急剧变化，乌云密布，我问幼儿乌云是什么样子的，有的孩子说：

乌云像大海的波浪。

有的孩子说“乌云跑得飞快。

”我加以肯定说“这是乌云滚滚。

”当幼儿看到闪电时，我告诉他“这叫电光闪闪。

”接着幼儿听到雷声惊叫起来，我抓住时机说：

“这就是雷声隆隆。

”一会儿下起了大雨，我问：

“雨下得怎样?

”幼儿说大极了，我就舀一盆水往下一倒，作比较观察，让幼儿掌握“倾盆大雨”这个词。

雨后，我又带幼儿观察晴朗的天空，朗诵自编的一首儿歌：

“蓝天高，白云飘，鸟儿飞，树儿摇，太阳公公咪咪笑。

”这样抓住特征见景生情，幼儿不仅印象深刻，对雷雨前后气象变化的词语学得快，记得牢，而且会应用。

我还在观察的基础上，引导幼儿联想，让他们与以往学的词语、生活经验联系起来，在发展想象力中发展语言。

如啄木鸟的嘴是长长的，尖尖的，硬硬的，像医生用的手术刀―样，给大树开刀治病。

通过联想，幼儿能够生动形象地描述观察对象。

基于串列输入数据的边长与坐标方位角计算程序P0801

其实,任何一门学科都离不开死记硬背,关键是记忆有技巧,“死记”之后会“活用”。

不记住那些基础知识,怎么会向高层次进军?

尤其是语文学科涉猎的范围很广,要真正提高学生的写作水平,单靠分析文章的写作技巧是远远不够的,必须从基础知识抓起,每天挤一点时间让学生“死记”名篇佳句、名言警句,以及丰富的词语、新颖的材料等。

这样,就会在有限的时间、空间里给学生的脑海里注入无限的内容。

日积月累,积少成多,从而收到水滴石穿,绳锯木断的功效。

fx-5800P设有ListX、ListY、ListFreq三个串列，串列的功能是用于存储单、双变量统计计算的样本数据，以便于用户查看与编辑样本数据。

在编程中也可用串列存储已知数据或程序计算结果，本程序是用于存储程序计算所需要的已知数据。

要练说，先练胆。

说话胆小是幼儿语言发展的障碍。

不少幼儿当众说话时显得胆怯：

有的结巴重复，面红耳赤；有的声音极低，自讲自听；有的低头不语，扯衣服，扭身子。

总之，说话时外部表现不自然。

我抓住练胆这个关键，面向全体，偏向差生。

一是和幼儿建立和谐的语言交流关系。

每当和幼儿讲话时，我总是笑脸相迎，声音亲切，动作亲昵，消除幼儿畏惧心理，让他能主动的、无拘无束地和我交谈。

二是注重培养幼儿敢于当众说话的习惯。

或在课堂教学中，改变过去老师讲学生听的传统的教学模式，取消了先举手后发言的约束，多采取自由讨论和谈话的形式，给每个幼儿较多的当众说话的机会，培养幼儿爱说话敢说话的兴趣，对一些说话有困难的幼儿，我总是认真地耐心地听，热情地帮助和鼓励他把话说完、说好，增强其说话的勇气和把话说好的信心。

三是要提明确的说话要求，在说话训练中不断提高，我要求每个幼儿在说话时要仪态大方，口齿清楚，声音响亮，学会用眼神。

对说得好的幼儿，即使是某一方面，我都抓住教育，提出表扬，并要其他幼儿模仿。

长期坚持，不断训练，幼儿说话胆量也在不断提高。

程序名：

P0801

"COOR

SIDEAndBEARP0801"

显示程序标题

Deg:

Fix3

十进制度，3位固定小数显示

"POINTNUM=":

提取与显示串列中的坐标点数

Lbl0:

"STARTn="?

输入站点点号

IfO≤0OrO>N:

Then"STARTnOVER!

Goto0:

IfEnd

判断站点点号的合法性

Lbl1:

"ENDn="?

输入站点点号

IfE≤0OrE>NOrE=O:

Then"ENDnOVER!

Goto1:

IfEnd

判断端点点号的合法性

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

Cls

调用极坐标函数计算

J<0

J+360

判断方位角

"D（m）=":

显示站点→镜点的平距

"α（Deg）=":

显示站点→镜点的方位角

Goto0

运行程序前，需按

（COMP）

（CLR）

键，执行ClrStat命令，清除统计串列的数据；按

（STAT）

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

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

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

点号

ListX

ListY

ListFreq

4381.411

3629.849

4578.226

3531.110

4568.252

3689.568

4511.233

3880.836

4360.708

3882.016

4588.143

4106.347

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″

显示坐标方位角

STARTn=?

输入站点号5

ENDn=?

输入站点号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＂：

WhileEnd:

WhileZ[3]=37:

Prog＂3GC＂：

WhileEnd:

WhileZ[3]=21:

Prog＂4GD＂：

WhileEnd:

WhileZ[3]=22:

Prog＂5BP＂：

WhileEnd:

WhileZ[3]=23:

Prog＂6FM＂：

WhileEnd:

WhileZ[3]=31:

Prog＂7ZP＂：

WhileEnd:

WhileZ[3]=32:

Prog＂8JS＂：

WhileEnd:

WhileZ[3]=33:

Prog＂9SD＂：

WhileEnd:

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

"FYJ=":

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

I◢（放样距离）Goto 2↙

提问人的追问 2019-08-2921:

fx5800计算器要的

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

LU-XIAN

Clrstat:

20→Dimz:

Fix6:

Lib0:

"NO.J

（2）="?

"R="?

"L（H）="?

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:

（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:

（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]◢"Y-ZH=":

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

I-I^（3）/（40R^

（2））+I^（5）/（3456*R^（4））-I^（7）/（599040R^（6）→z[5]:

"X-HY=":

z[1]+z[5]/cos（30I/（πR））*cos（J-180+30WI/（πR））◢

"Y-HY=":

z[2]+z[5]/cos（30I/（Rπ））*sin（J-180+30WI/（πR））◢

"B（Y）=":

O+（-W）*（180I/（2πR）◢"X-YH=":

z[3]+z[5]/cos（30I/（πR））*cos（O+180-30WI/（πR））◢"Y-YH=":

z[4]+z[5]/cos（30I/（πR））*sin（O+180-30WI/（πR））◢Goto0←

NO.JD

（2）,R,L（H）分别为：

交点里程，半径，缓和曲线长;T,L（Y）,NO.ZH,NO.HZ,

X-ZH,Y-ZH,X-HZ,Y-HZ,X-HY,Y-HY,X-YH,Y-YH,B（YH）分别为:

切线长，圆曲线长，直缓点里程，缓直点里程，四大主点的坐标和圆缓点方位角

方位角计算程序：

FANG-WEI

Clrstat:

Deg:

"X1="?

"Y1="?

"X2="?

"Y2="?

"X3="?

"Y3="?

F←

C-A→X:

D-B→Y:

Arg（X+Yi）→J:

J<0＝＞J+360→J:

E-C→M:

F-D→U:

Arg（M+Ui）→O:

O<0＝＞O+360→O:

"J=":

J▲DME◢←"O=":

O▲DME◢

X1,Y1,X2,Y2,X3,Y3:

分别为三个交点的坐标。

J,O为方位角

曲线上任意点坐标和切线方位角计算程序：

LU-XIAN-1

Clrstat:

Fix9:

6→Dimz:

"NO-ZH="?

"NO-HZ="?

"X-ZH="?

"Y-HZ="?

"X-HY="?

"Y-HY="?

"R="?

"L（Y）="?

"A1="?

"A2="?

Lbi0:

"KP="?

"W="?

J-L→M:

Z-L→Q:

IfP＜MAndP＞J:

ThenGoto1:

IfEnd:

IfP＜QAndP＞M:

ThenGoto2:

IfEnd:

IfP＜ZAndP＞Q:

ThenGoto3:

IfEnd:

IfP＜J:

ThenGoto4:

IfEnd:

IfP＞Z:

ThenGoto5:

Lbi:

P-J→z[2]:

z[2]-z[2]^（5）/（40R^

（2）L

（2））+z[2]^（9）/（3456R^（4）-z[2]^（13）/（R^（6）L^（6））→z[1]:

"X（ZH-HY）=":

C+z[1]/cos（z[2]^

（2）/（6RL））*cos（A+Wz[2]^

（2）/（6RL））◢"Y（ZH-HY）=":

D+

z[1]/cos（z[2]^

（2）/（6RL））*sin（A+Wz[2]^

（2）/（6RL））◢"AI=":

A+

W（z[2]^

（2）/（2RL））◢Goto0←Lbi2:

P-M→z[3]:

"X（HY-YH）=":

G+

2Rsin（z[3]/（2R））*cos（A+W（L+z[3]）/（2R））◢"Y（HY-YH）=":

H+2Rsin（

Z[3]/（2R））*sin（A+W（L+z[3]）/（2R））◢"AI=":

A+W（z[3]+0.5L）/R◢

Goto0←Lbi3:

Z-P→z[4]:

"X（HZ-HY）=":

E+（z[4]-z[4]^（5）/（40R

（2）L^

（2））+z[4]^（9）/（3456R^（4）L^（4））-z[4]^（13）/（599040R^（6）L^（6））/cos（z[4]^

（2）/（6RL））*cos（B+π-Wz[4]^

（2）/（6RL））◢"Y（HZ-HY）=":

F+

（z[4]-z[4]^（5）/（40R^

（2）L^

（2））+z[4]^（9）/（3456R^（4）L^（4））-z[4]^（13）/（599040R^（6）L^（6））/cos（z[4]^

（2）/（6RL））*sin（B+π-Wz[4]^

（2）/（6RL））◢

"AI=":

B-W（z[4]^

（2）/（2RL））◢Goto0←Lib4:

J-P→z[5]:

"X（HOU-ZH）=":

C+z[5]*cos（A+π）◢"Y（HOU-ZH）=":

D+z[5]*sin（A+π）◢

"AI=":

A◢"AI=":

A◢Lbi5:

P-Z→z[6]:

"X（Q-HZ）=":

E+

z[6]*cos（B）◢"Y（Q-HZ）=":

F+z[6]*sin（B）◢"AI=":

B◢Goto0←

NO.ZH,NO.HZ:

为直缓点和缓直点里程；X-ZH,Y-ZH,X-HY,Y-HY为直缓点﹑缓圆点和缓直点的大地坐标；R,L（Y）为曲线的半径和缓和曲线的长；KP为待定点的里程；AI为待定点的切线方位角；X（ZH-HY）,Y（ZH-HY）为待定点在直缓点到缓圆点的坐标；X（HY-YH）,Y（HY-YH）为待定定在缓圆点到圆缓点的坐标；X（HZ-YH）,Y（HZ-YH）为缓直点到圆缓点得坐标；X（HOU-ZH）,Y（HOU-ZH）为后直线上的坐标；X（Q-HZ）,Y（Q-HZ）为前直线上的坐标。

坐标转换程序：

ZUO-BIAO-ZH

Fix3:

"ALFA="?

Lbi0:

"N="?

N←IfN=1:

ThenGoto1:

IfEnd←

IfN=2:

ThenGoto2:

IfEnd←IfN=3:

ThenGoto3:

IfEnd←

Lbi1:

"X0="?

"Y0="?

"XA="?

"YA="?

D←

"XG=":

Z+C*cos（A）-D*sin（A）◢"YG=":

F+C*sin（A）-D*cos（A）◢

Goto0←Lbi2:

"X0="?

"Y0="?

"XG="?

"YG="?

V←

"XA=":

（U-Z）*cos（A）+（V-F）sin（A）◢"YA=":

（Z-U）*sin（A）+（V-F）*cos（A）◢

Goto0←Lbi3:

"XZ="?

"YZ="?

"P="?

"E="?

E←

"XT=":

O+（E+P/2）*cos（A+1.57079632）◢

"YT=":

T+（E+P/2）*sin（A）-D*sin（A+1.57079632）◢Goto0←

ALFA:

为切线方位角（弧度）X0,YO：

为大地坐标系中的坐标

XG,YG:

为转换到大地坐标系中的坐标XA,YA:

为相对坐标

P,E:

分别为线间距和偏距XT,YT：

为里程中心大地坐标

50楼

各位师傅请帮小弟指点一下这个程序如何改和改成5800（有报酬5000筑龙币）

1.主程序（TYQXjs）

bl4:

"1.SZ=>XY"：

"2.XY=>SZ"：

{NS}:

S<769.256（下一线元起点里程）=>O=500（本线元起点里程）：

U=19942.837（线元起点X坐标）：

V=28343.561（线元起点Y坐标）：

G=125°16°31°（线元起点方位角）：

H=269.265（线元长度）：

P=10^（45）（线元起点曲率半径）：

R=10^（45）（线元终点曲率半径）：

Q=0（线元左右偏标志：

左负右正）：

Goto0Δ←┘..........¬

Lbl0:

D=（P-R）÷（2HPR）：

N=1=>Goto1：

≠>Goto2Δ←┘

Lbl1：

{Z}：

Z：

W=Abs（S-O）：

Prog"SUB1"：

X"XS"=X◢

Y"YS"=Y◢

F"FS"=F-90◢

C"XC":

E"YC":

I=0:

J=Y:

POL（X-C,Y-E）:

I"I="◢

J<0=>J"J="+360◢

Goto1←┘

Lbl2：

{XY}：

XY：

I=X：

J=Y：

Prog"SUB2"：

S"S"=O+W◢

Z"Z"=Z◢

Goto2

2.正算子程序（SUB1）

A=0.1739274226：

B=0.3260725774：

K=0.0694318442：

L=0.3300094782：

F=1-L：

M=1-K：

X=U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW

（C+FWD））+Acos（G+QEMW（C+MWD）））：

Y=V+W（Asin（G+QEKW（C+KWD））+Bsin（G+

QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW

展开阅读全文