卡西欧FX-5800P坐标正反算程序怎么编辑?

正算子程序（ZS）（不运行）

1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚

0.1739274226→A： 0.3260725774→B： 0.0694318442→滑蠢K： 0.3300094782→L： 1-L→F： 1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y： G+QEW（C+WD）+90→F： X+ZcosF→X： Y+ZsinF→Y

3反算子程序（FS）（不运行）

G-90→T： Abs（（Y-V））cos（T）-（X-U）sin（T）→W： 0→Z←┚

Lbl 0←┚

prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚

Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z

ZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）

＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）

LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚

LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto W

LbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W

LbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W

LbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto W

LbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）

If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←核激┚

LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角）

＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢

＂Y1=＂ :Z[4]+Tsin（F+N+ O）→V◢

U→Z: V→M: GotoP←┚

LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚

＂JL=＂:I◢（仪站至测点的距离）

＂FWJ=＂:J DMS◢（仪站至测点的方位角）

Goto0

备注：

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

2． 当线元为信氏陪直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。

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

你是想了解函数吧

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

结束程序运行

算

CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：

该程序适用于计算器 CASIO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。

1、DK(JD)？输入交点桩号

2、X(JD)？ 输入交点坐标X

3、Y(JD)？ 输入交点坐标Y

4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致)

5、T2？ 输入第二切线长或好(如果只有一条切线两者都输入一致)

6、FWJ？输入睁辩直线方位角(ZH→JD)

7、A？ 输入转角：左转为负，右转为正

8、R？ 输入圆曲线半径

9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)

10、LY？输入圆曲线长(L-LS1-LS2)

11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)

12、X(ZJD)？输入置镜点坐标X

13、Y(ZJD)？输入置镜点坐标衫早铅Y

14、JSDK？输入前视点里程

15、PL？输入偏距

16、PA？输入偏角

---