卡西欧5800计算器编程入门程序集

合集下载

CASIO 5800综合曲线坐标计算程序(使用中)

CASIO 5800综合曲线坐标计算程序(使用中)

C A SI O f x-5800P综合曲线坐标计算程序说明:该程序适用于计算器C ASI O f x-5800P,可计算线路中心的缓和曲线、圆曲线、直线段,中、边桩坐标及切线方位角。

1、α? 输入转角:左转为负,右转为正2、R?输入圆曲线半径3、LS? 输入缓和曲线长度4、J D(DK)?输入交点里程桩号5、X(JD)?输入本交点X 坐标6、Y(JD)?输入本交点Y 坐标7、F W J?输入待求点切线方位角9、J? 输入0 程序计算中桩,输入 1 程序计算边桩10、JSDK? 输入里程桩号主程序名:ZHQ X1. Deg:Fix 4↙2. Lb1 A↙3. "α"?A:?R:"LS"?C:"JD(DK)"?D:"X(JD)"?N:"Y(JD)"?E:"FWJ"?F↙4. Lb1 B↙5. ?J ↙6. C∧2÷24÷R-C∧(4)÷2688÷R∧(3)→P↙7. C÷2-C∧(3)÷240÷R∧2→Q↙8. 90×C÷兀÷R→B↙9. "T=":(R+P)tan(Abs(A)÷2)+Q→T◢10. "E=":(R+P)÷c o s(A÷2)-R→W◢11. "L=":(Abs(A)-2×B)兀R÷180+2×C→L◢12. "ZH=":D-T→G◢13. "HY=":G+C→H◢14. "QZ=":G+L÷2→I◢15. "YH=":G+L-C→K◢16. "HZ=":G+L→M◢17. If A<0:Th en-1→S:E l se1→S:If End↙(本行中0 为数字)18. F+A÷2+90×S→U↙19. W+R→V↙20. N+V×cos(U)→B↙21. E+V×sin(U)→O↙(本行中O 为字母)22. Lbl 1 ↙23. "JS DK"?Z↙24. If Z≤G:Th en T+G-Z→L ↙25. F+180→V ↙26. "FW J=":F→U◢27. Goto 2 ↙28. IfEnd ↙29. If Z≤H:Th en Z-G→L ↙30. L-L∧(5)÷(90×R∧2×C∧2)→V↙31. 30×L∧2×S÷(兀RC)→L ↙32. F+180→P ↙33. F+L→Q↙34. "FW J=":F+3×L→U◢35. Goto 4 ↙36. IfEnd ↙37. If Z≤K:Th en F+A÷2+90×S+180+180(Z-I)×S÷R÷兀→L↙38. "FW J=":L+90×S→U:If U≥360:The n U-360→U◢39. Else U→U◢40. IfEnd:G o to5:If End↙41. If Z≤M:Th en M-Z→L↙42. L-L∧(5)÷(90×R∧2×C∧2)→V↙43. 30×S×L∧2÷(兀RC)→L ↙44. F+A→P ↙45. F+A+180-L→Q↙46. "FW J=":F-3×L+A→U:If U≥360:Th en U-360→U◢47. Else U→U◢48. IfEnd:G o to4:If End↙49. If Z>M:Then Z-M+T→L↙50. F+A→U ↙51. U→V ↙52.G o to2 ↙53. Lbl 2 ↙54. "X=":N+L×cos(V)→X◢55. "Y=":E+L×sin(V)→Y◢56. G o to6 ↙57. If End↙58. Lbl 3 ↙59. ?W60. "XL=":X+W×cos(U-90)→P◢61. "YL=":Y+W×sin(U-90)→Q◢62. "XR=":X+W×cos(U+90)→P◢63. "XL=":Y+W×sin(U+90)→Q◢64. G o to1 ↙65. Lbl 4 ↙66. "X=":N+T×cos(P)+V×cos(Q)→X◢67. "Y=":E+T×sin(P)+V×cos(Q)→Y◢68. G o to6 ↙69.Lbl 5 ↙70. "X=":B+R×cos(L)→X◢71. "Y=":O+R×sin(L)→Y◢(本行中O 为字母)72. G o to6 ↙73. Lbl 6 ↙74. J=1 G o to3 ↙75. G o to1 ↙。

卡西欧FX5800P编程计算器应用及程序

卡西欧FX5800P编程计算器应用及程序

Prog FXA
Norm 1:?N:N=2=>Goto 0:N=2=>Goto 1:“ =”: ◢
“X0+Y0i”?M:List X[M]+List Y[M]i->C:Lb1 0“X+Yi”?T:T=0=>Goto 1:T->K:?L:List X[T]+List Y[T]i->B:Fix 3:“D=”:Abs(B-C->D◢ Arg(B-C->A:A<0=>A+360->A:“A=”:A▶DMS◢ “X,Yi”:B◢ Norm 1:O->X:Goto 0: Lb1:?X:X=0=>Goto 0:X->O:?Y:?H:X+Yi->S:Abs(S-C->I:Fix 3: If S>D:Then“DV=”:Locate 5,4,I:Else “D∧=”:Locate 5,4,I:IfEnd:Arg(E-C->J: J<0=>J+360->J:J-A->J:J<0=>J+360->J:Abs(Ssin(J->I:If >180:Then “=>”: Loca te 4,4,I:Else“<=”:Locate 4,4,I:IfEnd:Abs(H-L->I:If H>L:Then“hV=”:Locat e 5,4,I◢ Else“h∧=”: Locate 5,4,I◢ IfEnd:K->T:Norm 1:Goto 1:“END”
Abs(A-C Abs((4281.739+3592.881i)-(3885.634+3114.471i) =621.1081219

卡西欧fx-5800编程

卡西欧fx-5800编程

卡西欧计算器编程在计算能力飞速发展的今天,各种计算工具应运而生代替了以往我们大量、繁琐的分析计算工作,简化了计算步骤节省了计算时间。

在种类繁多的计算工具中适合测量工作的计算器也大有所在。

比如有一款SHAPPC-E500计算器,它相当于是基于BASIC 语言的微型电脑,功能也相当齐全能编写较复杂的程序、内存也相当大有32KB、64 KB、128 KB、256 KB、几种型号,同时具有输入输出通讯设备。

但价格不菲,现在市场价格大约为2000元到3000元,个人经济承受能力有限。

通过几年的实际测量工作我个人为认为真正适合测量人员较为专业的计算器应首推基于科学计算器具有简单程序语言的casio4x00计算器。

它有很多优点:一、使用简单,最大的一个优点就是只要具有初中水平会运用数学公式对函数有一般的了解的人,能基本理解casio4x00的内装函数即可进行简单的编程。

非常适合测量初学者和数学程序爱好者学习,也适合专业的测量人员的使用和能力提高。

不像其它的专业一定要具有较高的专业技术水平才能进行电脑编程。

二、成本低廉,价格在400元左右。

三、携带方便,体积很小可随时放在口袋里随拿随用。

casio系列较好的编程型号有casio4500(以下简称4500)、casio4800(以下简称4800),(好象近来还推出了一款casio4850)前者较内存小,只有1103个字节,能应付一些较为简单的公式计算和科学计算,但由于内存有限,对一些较复杂或子程序过多的程序就力不从心了,不能出色的完成测量任务。

4800就比4500有较大的改进,4800内存达到的4500个字节,而且显示屏是4500的几倍大,能更准确的显示数据,内装函数字符一目了然。

且具有简单的人机对话功能,出现了菜单子菜单。

4800还在4500增加了啊佛加德罗常数、万有引力长常数、详见《操作说明书》。

4800有很多很实用的功能如他有一个公式解答功能,其原理是用牛顿法解方程。

卡西欧5800p双坐标系转换计算程序

卡西欧5800p双坐标系转换计算程序

卡西欧5800p双坐标系转换计算程序程序名:ZBZH(坐标转换)“X1=”?A:“Y1=”?B:“X11=”?C:“Y11=”?D:“X2=”?R:“Y2=”?S:“X22=”?U:“Y22=”?V:Pol((R-A),(S-B)):If J≥0:Then J→P:Else J+360°→P:IfEnd↙Pol((U-C),(V-D)):If J≥0:Then J→Q:Else J+360°→Q:IfEnd↙If Q≥P:Then Q-P→M:IfEnd↙If Q<P:Then 360°-P+Q→M:IfEnd↙Lb1 0:“X00=”?E:“Y00=”?F:Pol((E-C),(F-D)):I→I:J→J:J-M→K:I×cos(K)+A →H:I×sin(K)+B→L↙“JJ=”:M?DMS◢“X0=”:H◢“Y0=”:L◢Goto 0↙说明:以上程序按5800计算器编程规则输入即可,“↙”表示程序内的回车符。

要将坐标在两套坐标系(A整体坐标系和B局部坐标系)内进行转化,必须已知两套坐标系的一条公共直线上的两点分别在两套坐标系内的坐标值,且两坐标系为同手坐标系(均为左手或右手系)。

运行程序后按提示输入数据:X1,Y1为第一个点在A坐标系内的坐标;X11,Y11为第一个点在B坐标系内的坐标;X2,Y2为第二个点在A坐标系内的坐标;X22,Y22为第二个点在B坐标系内的坐标;输完上述步骤后提示输入X00和Y00,此处(X00,Y00)坐标值为B坐标系内的点的坐标值,输入完毕进行计算后可将B坐标系内的(X00,Y00)转换成A坐标系内的(X0,Y0),“JJ”表示两套坐标系的夹角。

eg:在整体坐标系和局部坐标系内有公共线段AB,A在整体坐标系和局部坐标系内的坐标分别为[(1062.4905,367.7365),(0,0)];B在整体坐标系和局部坐标系内的坐标分别为[(1276.1609,890.6324),(461.8813,325.1781)];求B坐标系内的(-453.2052,487.1620)转化成A坐标系内的坐标。

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明:输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明:输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”?Z:“QX=”?A:“QY=”?B:“ZX=”?O :“ZY=”?Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”:F ◆DMS ◢Lb1 0 ↙X:?Y ↙Pol (X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos (G)→K:“K=”:K ◢Dsin (G)→C:“C=”:C ◢GoTo 0 ↙说明:QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果:里程桩号,即工程X 坐标C-- 显示计算结果:左右偏距,即工程Y 坐标, 中桩=0 ,左偏= 负值,右偏= 正值。

卡西欧5800p计算器所有编程命令解释

卡西欧5800p计算器所有编程命令解释

卡西欧5800p计算器所有编程命令解释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. IszIsz<变量>:<语句1> <语句2>,变量应为A~Z以 1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句28. ClsDsz<变量>:<语句1> <语句2>。

变量应为A~Z。

以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句29. 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<条件>先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。

卡西欧5800曲线坐标计算程序-正确

卡西欧5800曲线坐标计算程序-正确

CASIO4800改5800p坐标计算程序-角度以度为单位1、该程序适用于计算器CASVO fx-4800P,可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。

2、A?输入转角:左转为负,右转为正3、R?输入圆曲线半径4、LS?输入缓和曲线长度5、JD?输入交点桩号6、J?输入0程序计算中桩,输入1程序计算边桩7、N?E?输入交点X、Y坐标8、FW 待求点切线方位角9、当计算交角为60°时,则公式改为(U+60),(U-120)1 ?A:?R:“LS”?C:“JD”?D2 C∧2/24/R-C∧4/2688/R∧3→P 求缓和曲线内移、值3 C/2-C∧3/240/R∧2→Q 切距差4 90C/兀/R→B 缓和曲线角度β05 (R+P)tan(AbsA/2)+Q→T 切线长6 (R+P)/cos(A/2)-R→W 外矢距7 ((AbsA)-2B)兀R/180+2C→L 缓和曲线长8 D-T→G 直缓点里程9 G+C→H 缓圆点里程10 G+L/2→I 曲中点里程11 G+L-C→K 圆缓点里程12 G+L→M 缓直点里程13 ?N:?E:?F:?Jf为方位角14 If A<0:Then -1→S:Else 1→S:IfEnd15 F+A/2+90S→U16 W+R→V17 N+VcosU→B18 E+VsinU→O19 Lbl 120 ?Z21 If Z≤G:Then T+G-Z→L22 F+180→V23 F→U24 Goto 225 IfEnd26 If Z≤H:Then Z-G→L27 L-L∧5/(90R∧2C∧2)→V28 30L∧2S/(兀RC)→L29 F+180→P30 F+L→Q31 “FW=“:F+3L→U◢32 Goto 433 IfEnd34 If Z≤K:Then F+A/2+90S-180+180(Z-I)S/R/兀→L35 “FW=“:L+90S→U36 Goto 537 IfEnd38 If Z≤M:Then M-Z→L39 L-L∧5/(90R∧2C∧2)→V40 30SL∧2/(兀RC)→L41 F+A→P42 F+A+180-L→Q43 F-3L+A→U44 Goto445 IfEnd46 If Z>M:Then Z-M+T→L47 F+A→U48 U→V49 Goto 250 IfEnd51 Lbl 252 “X=“:N+LcosV→X◢53 “Y=“:E+LsinV→Y◢54 Goto 655 Lbl 356 ?W57 “XL=”:X+Wcos(U-90) ◢58 “YL=”:Y+Wsin(U-90) ◢59 “XR=”:X+Wcos(U+90) ◢60 “YR=”:Y+Wsin (U+90) ◢61 Goto 162 Lbl 463 ”X=“:N+TcosP+VcosQ→X◢64 ”Y=“:E+TsinP+VsinQ→Y◢65 Goto 666 Lbl 567 “X=”:B+R cosL→X◢68 “Y=”:O+RsinL→Y◢69 Goto 670 Lbl 671 J=1=> Goto 372 Goto 1注:◢为输出指令,只要在后面加上,即把前面的结果输出在屏幕上。

卡西欧5800坐标正反算程序

卡西欧5800坐标正反算程序

卡西欧5800坐标正反算程序卡西欧5800坐标正反算程序1.主程序(TYQXJS)Lb1 4:“1.SZ=>XY”:“2.XY=>SZ”:?N:?S:Prog“SUB0”↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=>Goto 1:Goto 2: ↙Lb1 1:?Z:Abs(S-O) →W: Prog“SUB1”:“XS=”:X◢“YS=”:Y◢F-90→F:“FS=”F▲DMS◢ Goto 4↙Lb1 2:?X:?Y:X→I:Y→J:Prog“SUB2”:O+W→S:“S=”:S◢“Z=”:Z◢Goto 4↙2.正算子程序(SUB1)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.330 0094782→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+MW D)))→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+Zcos(F) →X:Y+Zsin(F) →Y↙3. 反算子程序(SUB2)G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lb1 0:Prog“SUB1”:T+QEW(C+WD) →L:(J-Ycos(L)-(I-X)s in(L) →Z:If Abs(Z)〈0.000001:Then 0→Z:Prog“SUB1”:(J-S)÷sin(F) →Z:Else W+Z→W:Goto 0:IfEnd↙4. 数据库子程序(SUB0)Goto1↙同时保存多个曲线时的指针Lb1 1:If S〈 000.000(线元终点里程):Then 000.000→G(线元起点方位角):000.000→O (线元起点里程):000.000→U(线元起点X坐标):000.000→Y(线元起点Y坐标):000.000→P(线元起点曲率半径):000.000→R(线元终点曲率半径):000.000→H(线元起点至终点长度):0或1、-1→Q:Eeturn:IfEnd↙Lb1 1:If S〈 000.000(线元终点里程):Then 000.000→G(线元起点方位角):000.000→O (线元起点里程):000.000→U(线元起点X坐标):000.000→Y(线元起点Y坐标):000.000→P(线元起点曲率半径):000.000→R(线元终点曲率半径):000.000→H(线元起点至终点长度):0或1、-1→Q:Eeturn:IfEnd↙………………….为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lb1,每增加一个工程增加一个文件。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

卡西欧5800计算器编程入门程序集
编程入门程序集:
1.输入输出控制:
程序的第一步是实现输入输出控制,以便用户能够与程序进行交互。

以下是一个简单的输入输出程序示例:
```
PROGRAM HelloWorld;
BEGIN
PRINTLN("Hello, World!");
PAUSE;
END.
```
这个程序会在计算器的屏幕上显示"Hello, World!",并暂停等待用户的确认,直到用户按下任意键时继续执行。

2.简单的计算:
接下来,我们来看一个简单的计算程序示例:
```
PROGRAM SimpleCalculator;
VAR
num1, num2, result: INTEGER;
BEGIN
PRINTLN("Enter the first number: ");
READLN(num1);
PRINTLN("Enter the second number: ");
READLN(num2);
result := num1 + num2;
PRINTLN("The sum is: ");
PRINTLN(result);
PAUSE;
END.
```
这个程序会要求用户输入两个数字,然后计算它们的和,并在屏幕上显示结果。

3.条件语句:
条件语句可以根据条件执行不同的操作。

以下是一个条件语句的示例程序:
```
PROGRAM EvenOrOdd;
VAR
num: INTEGER;
BEGIN
PRINTLN("Enter a number: ");
READLN(num);
IF num MOD 2 = 0 THEN
PRINTLN("The number is even.");
ELSE
PRINTLN("The number is odd.");
PAUSE;
END.
```
这个程序会要求用户输入一个数字,并判断它是偶数还是奇数,并在
屏幕上显示相应的信息。

4.循环:
循环结构允许您重复执行一段代码。

以下是一个计算阶乘的程序示例:```
PROGRAM Factorial;
VAR
num, i, fact: INTEGER;
BEGIN
PRINTLN("Enter a number: ");
READLN(num);
fact := 1;
FOR i := 1 TO num DO
fact := fact * i;
PRINTLN("The factorial of ");
PRINTLN(num);
PRINTLN(" is: ");
PRINTLN(fact);
PAUSE;
END.
```
这个程序会要求用户输入一个数字,并计算它的阶乘,并在屏幕上显示结果。

以上是一个入门级的程序集,帮助您了解如何使用卡西欧5800计算器进行简单的编程。

您可以通过不断实践和学习,进一步探索计算器的编程功能,并开发更多有用的程序。

相关文档
最新文档