casio5800交点法程序

CASIO fx-5800P CYT 综合曲线坐标计算程序

说明：本程序适用于计算器 CASIO fx-5800P，可计算：第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角，反算里程和偏距。

数据库名：YT

Goto 1

Lbl 1：If Z<10000：Then 3378226.731→U：456053.721→V：3373351.385→N：458628.379→E：9557.84→D：2040→R：260→S：280→T：-14°18ˊ10″→A：Return：IfEnd

Lbl 1：If Z<………………………………………………

…………………………………………虚型搏……………………

Lbl 1：If Z<本交点HZ里程或下个交点ZH里程：Then 前交点坐标X→U：前交点坐标Y→V：本交点坐标租销X→N：本交点坐标Y→E：交点里程→D：曲线半径→R：第一缓和曲线长→S：第二缓和曲线长→T：转角→A：Return：IfEnd

Lbl 1每增加一行则为增加一个交点要素,……表示下一个交点要素。

注：

1、◢ 为显示指令。

2、 ↙为回车(EXE)标识。

3、()括号内为注解不用输入。

计算参数：

1=>XY

2=>DK

J? 2(输入1表示调用数据库,输入2表示手动输入数据)

1、QJD(X)=? 3378226.731(前交点坐差祥标X)

2、QJD(Y)=? 456053.721(前交点坐标Y)

3、JD(X)=? 3373351.385(本交点坐标X)

4、JD(Y)=? 458628.379(本交点坐标Y)

5、JD(DK)=? 9557.84(本交点里程)

6、R=? 2040(曲线半径)

7、LS1?= 260(第一缓和曲线长)

8、LS2?= 280(第二缓和曲线长)

9、α?= -14°18ˊ10″(转角)

10、JSDK?= 9500(计算里程)

11、W?= 10(偏距：左为负,有为正数)

12、α?= 90(偏角)

………………………………

13、FWJ=146°34ˊ4.38″(切线方位角)

14、X= 3373402.498(计算结果坐标X)

15、Y= 458602.6783(计算结果坐标Y)

16、ZH=09+170.838,X=3373693.598,Y=458447.6569,FWJ=152°9′41.68″

17、HY=09+430.838,X=3373466.361,Y=458573.9060,FWJ=148°30′37.36″

18、QZ=09+550.461,X=3373366.244,Y=458639.3431,FWJ=145°9′2.25″

19、HY=09+670.084,X=3373270.134,Y=458710.5365,FWJ=141°47′27.15″

20、HZ=09+950.084,X=3373058.317,Y=458893.5689,FWJ=137°51′31.68″

其实就是将公式代码化，然后设定参数和计算步奏，最后加以整合，进行运算贺轿，一般最简单的，编程步奏就是1、设定参数（单位、小数位、数据库旁庆建立）2、设定计算式，显示结尾（回车结尾不显结果、直角三角显结果）3最后以END结束，这是基本的，往后就相应的添加就行了

我以ABC，给你讲一下，要算A+B=C,在计算器中就输入

FiX 3："A="?A:"B="?B↙

"禅启肆C=":A+B->C◢

"END"↙

你是想了解函数吧

1.

Norm 1 指数显示

Norm 2 小数显示

2.

?→x 只显示 ？

字符 ?→x 显示 字符 ？

？x 显示 x?

“字符”？x 显示 字符 ？

有→则不显示该变量当前值

3.（判断表达式） 语句1 : 语句2。。。

如果判断表达式为真（或非零），则不跳过语句1.

如果判断表达式为假（或是零），则会跳过语句1.

4. If...then…else…ifend

如果语句为真，则执行then（不执行else）,然后执行ifend.

如果语句为假，则执行else（不执行then）,然后执行ifend.

5. Break 中断语句

中断For，Do，While循环，并从该循环的下个命令起继续运行

6. Dsz

使控制变量递减一，在变量的值为零时执行转移

7. Isz

Isz<变量>:<语句1><语句2>，变量应为A~Z

以 1 为增量逐次增加变量的值，当变量的值不等于0 时，执行语句1，否则执行语句2

8. Cls

Dsz<变量>:<语句1> <语句2>。变量应为A~Z。

以1 为减量逐次减小变量的值，当变量的值不等于0 时，执行语句1，否则执行语句2

9. Locate 定位显示语句

句法 1：Locate <列数>, <行数>,<数值>

句法2：Locate <列数>, <行数>,<表达式>

句法3：Locate <列数>, <行数>, "字符串"

fx-5800P 的屏幕最多可以显示4 行、16 列字符，因此定位语句中的列数值应为大于等于1、小于等于16 的整数，行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n

无条件转移至 Lbi n 位置

11. Getkey

返回与上次按键相对应的代码,Getkey=

12. DO ~ LpWhile循环语句

Do <语句块> LpWhile<条件>

先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。无,论条件是否为真，语句块至少被执行一次。

13. Pol

计算两坐标点之间距离,坐标为（4，4）,与原点的距离就扮察是POL（4，4）=4√2

14. Abs

求绝对值

15. Fix

取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数

16. Rnd

随机函数

17. 角度单位设置语句

Deg：设置角度单位为十进制度，按 键输入Deg。执行该语句后，状态行显示。

Rad：设置角度单位为弧度，按 键输入Rad。执行该语句后，状态行显示。

Grd：设置角度单位为哥恩，按 键输入Grd。执行该语句后，状态行显示。

18. Dim

定义变量

19. RCL

键面命令，Rcl A 显示变量A的当前值

20. STO

键面命令,STO A 给变量A赋值，显示→A

21. INS

键面命令,切换键标记样式，覆盖与插入切换

22. ←

键面命令，角度度分秒格式与小数格式转换

23. ▶DMS

常将反三角函数计算出的十进制角度转换成六十进制度分秒形式，cos-1(x)▶DMS

24. Pol

键面命令，将直角坐标转换为极坐标，Pol（△x,△y）

25. Rec

键面命令，将极坐标转换为直角坐标，Rec(r,θ)

26. CALC

键面命令，对一个表达式的变量代入不同的值

27. And，Or，Not

<条件1>And<条件2>，<条件1>与<条件2>同时为真时为真。

<条件1>Or<条件2>，<条件1>与<条件2>有一个为真时为真。

Not<条件>，<条件>为假时为真。

28. If~Then~Else~IfEnd

句法1：If <条件> Then <语句块>IfEnd

条件为真时执行Then 后的语句块，否则从IfEnd 后开始执行

句法2：If <条件> Then <语句块1>Else<语句块2>IfEnd

条件为真时执行语句块1，否则执行语句块2，然后执行IfEnd 后的语句

29. For~To~Step~Next

句法1：For <始值><控制变量>To<终值> <语句块> Next控顷友制变量的取值从始值开始，步长为1，重复执行语句块，直至终值为止。一般始值小于终值，如果始值大于终值，则不执行语句块而是直接厅乎茄执行Next 后的语句。

句法2：For <始值><控制变量>To<终值>Step<步长> <语句块> Next

它与 For~To~Next 句法的功能相同，唯一区别是增加了步长语句Step

30. While~WhileEnd 循环语句

句法：While <条件> <语句块>WhileEnd

先测试条件，当条件为真时执行语句块，然后再测试条件，条件为真时重复执行语句块，直到,条件为假时执行WhileEnd 后的语句结束循环

31. Prog~Return 调子程序语句

句法：Prog "subfilename"

按键 输入Prog。

fx-5800P 的子程序是独立于主程序的程序，它也保存在计算器内存中，主程序与子程序的变量都是全局的，子程序执行完成后通过Return 语句返回主程序，继续执行主程序中Prog 语句后的语句.

32. Return 返主程序语句

在子程序中应至少有一条Return 语句，当执行到该语句时，控制执行返回调用该子程序的主程序。主程序中一般不应有Return 语句，若在主程序中使用了Return 语句，程序执行到该语句时会停止执行。

33.Stop 终止程序语句

程序被Stop 语句终止后就不再执行任何语句，通常用于调试程序设置临时中断点，程序调试通过后，将其删除。

34. 清除语句

① Cls：清除屏幕显示的文字、表达式及计算结果。

② ClrStat：清除统计串列List X，List Y，List Freq。

③ ClrMemory：清除字母变量A~Z 与数值答案寄存器。

④ ClrMat：清除矩阵Mat A~Mat F 与矩阵答案寄存器Mat Ans

的内容与维数。

⑤ ClrVar：清除内置公式变量及用户自定义公式变量的值。

其中后四个语句为按(CLR)键调出清除语句菜单选择。

额外变量 Z[n]的数值没有专门的语句命令清除，只能执行语句0 DimZ 清除。

35. 数值显示格式设置语句

Fix <n>：n 为0~9 间的整数，设置以n 位固定小数格式显示计算结果，按键输

入Fix。执行该语句后，状态行显示FIX。

Sci <n>：n 为0~9 间的整数，设置以n 位固定小数科学格式显示计算结果，按键

输入Sci。执行该语句后，状态行显示SCI。

Norm <n>：n 为1 或2，设置以正常格式显示计算结果，按键输入Norm。

ENG：其下有EngOn 与EngOff 两个语句，EngOn 为打开工程格式显示；按

键输入EngOn，执行该语句后，状态行显示ENG；EngOff 为关闭工程格式显示，按

键输入 EngOff，执行该语句后，状态行的ENG 消失。

36. END

结束程序运行

---