卡西欧4800P计算器程序.docx

1、卡西欧4800P计算器程序对卡西欧4800计算器在编程中的浅见在计算能力飞速发展的今天，各种计算工具应运而生代替了以往我们大量、繁琐的分析计算工作，简化了计算步骤节省了计算时间。在种类繁多的计算工具中适合测量工作的计算器也大有所在。比如有一款SHAPPC-E500计算器，它相当于是基于BASIC语言的微型电脑，功能也相当齐全能编写较复杂的程序、内存也相当大有32KB、64 KB、128 KB、256 KB、几种型号，同时具有输入输出通讯设备。但价格不菲，现在市场价格大约为2000元到3000元，个人经济承受能力有限。通过几年的实际测量工作我个人为认为真正适合测量人员较为专业的计算器应首推基于科

2、学计算器具有简单程序语言的casiox计算器。它有很多优点：一、使用简单，最大的一个优点就是只要具有初中水平会运用数学公式对函数有一般的了解的人，能基本理解casiox的内装函数即可进行简单的编程。非常适合测量初学者和数学程序爱好者学习，也适合专业的测量人员的使用和能力提高。不像其它的专业一定要具有较高的专业技术水平才能进行电脑编程。二、成本低廉，价格在400元左右。三、携带方便，体积很小可随时放在口袋里随拿随用。casio系列较好的编程型号有casio（以下简称）、casio（以下简称），（好象近来还推出了一款casio4850）前者较内存小，只有个字节，能应付一些较为简单的公式计算和科学计

3、算，但由于内存有限，对一些较复杂或子程序过多的程序就力不从心了，不能出色的完成测量任务。就比有较大的改进，内存达到的个字节，而且显示屏是的几倍大，能更准确的显示数据，内装函数字符一目了然。且具有简单的人机对话功能，出现了菜单子菜单。还在增加了啊佛加德罗常数、万有引力长常数、详见操作说明书。有很多很实用的功能如他有一个公式解答功能，其原理是用牛顿法解方程。举个例子：有一方程式：a=2b-c求 当a=2、c=5时的b值。将该方程式存入公式存贮器中，：先按按解答键“SOLVE” a输入2 、c输入5，再按解答键“SOLVE”计算器就会显示：b=3.5。此项功能被称为自动解答功能。同时它也是非常实用的

4、，在实际工作中通常要有一个经常使用的小公式，可借助它来完成。使用的程序语言可以算做简单的BASIC语言，有的命令如GOTO（转移到）、PAUSE（暂停）就与BASIC语言的一模一样。现在的程序语言来说说。 其主要命令有： 1、= 条件转移成立符号，其用法相当于BASIC中的IFTHEN（假设语句相当于假如然后，IF相当于条件THEN相当于结果）语句2、条件转移不成立符号，其用法相当于BASIC中的IFELSE语句通常二者连用，相当于BASIC中的IFTHENELSE语句（它的英语形式一般为if ab then cd else if ba the）3、 条件转移结束符号，与=和配合使用，放在条件

5、语句最后面。4、 LbI标记命令。用于将一段语句作转换标记。后可接字母、数字、符号，但不能超过两个字节，如不能用10的数字作行标，否则会出现出错信息。5、Goto （条件）转移命令。前面可加条件语句，与BASIC中的GOTO作用相同。通常与LbI一起用，如果所转移的行号无效，则会显示：GO ERROR（详见说明书）出错信息 6、 Dsz减量循环命令。可减少未知数的数量。7、 Isz增量循环命令。8、 Pause暂停命令。后可接09之间的整数n，可使某一数据显示n/2秒钟，然后继续运行下面的程序。它被认为是一个语句。9、 Fixm变量锁定命令。该命令能使其所有变量值（AZ）均当成定数处理。当程序

6、运行时，将不需要输入变数（“”内的变数除外），而是将存贮器中原有的数值来完成计算。10、 变量输入命令。只程序在循环使用时经常发生改变的数字，如里程、和宽度。它的输入方式可以使很多种如ABA,BA B都可以。注意“”和“”必需成对输入。否则会出现Syn ERROR（详见说明书）出错信息。11、=、条件运算关系算子，常与Goto命令构成条件转换语句。12、Prog在正常情况是下打开程序的快捷键。在编程过程中是运行子程序命令，后接子程序名（一定要加引号，且要注意空格，否则会出现Syn ERROR（详见说明书）的出错信息。 13、换行，只保留计算过程不显示计算结果。当不想对其换行时也可用：代替。14

7、、数据显示命令。该命令输入后会自动换行。保留计算过程并显示计算结果。有一条总原则即：学会运用程序的语言，尽可能使程序变得简明扼要；我们编写程序应该尽可能地使程序变得简明扼要，能省略的要一定省略。烦琐的语句过多的字节只能使计算器的运算速度变慢没有任何好处，而且相当站用内存。学会节省字节和使用符号是相当重要的。尤其要灵活运用计算器语句因为它会使你更多的节省字节达到预期效果。比如下程序就灵活运用了 Dsz （减量循环命令）。比如使其能输入10个数值，并计算10个数值的平均值。一般程序求10个数字的平均值需要有11个数字的提示符号。但学会灵活运用了 Dsz （减量循环命令）那么只要有三个就可以了，这样

8、就大大节省了字节的占用。 例程序如下：A=10C=0Lbi 1BC=B+CDsz AGoto 1C10但要注意的是：如果你是初学者或你对程序的编程不熟练，首先一定要先按照你的思路把程序步骤一步一步的列好在确定它能正确的计算后在想办法对其进行精简修改，否则只会使程序出现过多的错误；尽可能使程序所包含的子程序减少；子程序过多就会造成程序结构松散，有的计算器主程序需要三个或四子程序，过多的子程序只会引起程序之间紊乱、混淆。子程序过多对在使用时查找也比较麻烦。而且子程序过多如果其中某个环节出现错误很难发现其错误所在，在编写程序时要尽量的少编写子程序，即使要编写子程序时也要注意尤其在容易出错的地方要多加

9、注意。有弊就有利如果你对子程序了解得多了那么可以几个主程序合用一个之程序也到到了要求的减少程序的字节使程序更简化。例程序如下：CX CDLbi 1 Lbi 1Prog”V” Prog”V”B=L-(K-S) B=L+(K-S) Goto 1 Goto 1VY=A2B2+B2X2A尽量少用或不使用扩充变数存贮器，如A1、A2等：使用扩充存贮器是一个利少弊多的做法。每扩充一个存贮器就要减少10个字节的容量，而每个扩充存贮器至少要占四个字节，比一个AZ变量净增三个。有时你会觉得变量存贮器不够用。其实不尽然，一般程序变量数很少会超过26个，只是你不懂得去使用。一般来说，两个相对独立的程序步骤之间根本不

10、需要考虑变量重复问题。针对某一个程序，只要不是固定变量（内的变量），也就是那些通过计算出来的用于下一步计算的数值。我们就可以通过重复赋值来得到某些计算量。反正在下一轮循环中该量是变化的。明白了各种命令的含义和注意事项就可以编程了。举例有公式如下：CX 程序名称 Lbl 0 起始标记命令语句 QMNFJ 数据输入语句 （指公式循环运算时的不变量） KDE 数据输入语句（指公式循环运算时变量）S=KQ:G=F+J 公式运算命令 X=M+ScosF 公式运算命令 Y=M+SsinF 公式运算命令Prog j 运行子程序命令Goto 0 循环运算语句J 子程序名称H=X+DcosG 公式运算、数据显示

11、语 I=Y+DsinG 公式运算、数据显示语T=XEcosG 公式运算、数据显示语U=YEsinG 公式运算、数据显示语最后计算器状态设定语句是大家最容易忽视的。如果将单位进行预设那么计算器就会默认其使用单位在进行下一单位换算时要一定要进行单位转换，否者会使计算结果错误。在显示屏幕的左下角可以清楚地发现小提示符号：如D代表度为现在的缺省单位、R代表弧度为现在的缺省单位、G 代表梯度为现在的缺省单位。首页 GPS测量工程测量遥感测量地籍测量控制测量数字测图地图制图数据处理测绘仪器软件应用房产测量地理信息测量管理程序开发理论文章其他 文章更新列表游客发布论文 所属分类：程序开发 来源： 作者： 更

12、新日期：2006-8-25 阅读次数：156 文章更新列表查看公告列表公路编程实例ZBZS坐标正算主程序Deg:FixmLbl 0:O:O“1,47264-50167.162,50150-50673.503,50700-54700”Lbl 1:ZKB:Z:K:B:O=1=Goto 2O=2=Goto 3O=3=Goto 4Lbl 2:Z47264=Goto 5Z50167.16=Goto 5Z48708.52=Prog“55”: Goto 6Z49310.50=Prog“56”: Goto 6Z49874.21=Prog“57”: Goto 6Prog“57-1”: Goto 6Lbl 3:Z

13、50150=Goto 5Z50673.5=Goto 5Prog“58”: Goto 6Lbl 4:Z50700=Goto 5Z54700=Goto 5Z51265.12=Prog“59”: Goto 6Z52266.78=Prog“60”: Goto 6Z53341.82=Prog“61”: Goto 6Z53868.03=Prog“62”: Goto 6Prog“63”: Goto 6Lbl 5:“ZH ERROR”Goto 0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:YPol（X-Q,Y-U）:J0=J=360+J:I=Intg（1000I+.5）1000“

14、L=”:I:Pause 0:“T=”:JDMSGoto 1说明：本程序适用于casio4850计算器。把线路从断链处分为三段，O的取值，待求点在第一段输1，第二段输2，第三段输3。Z、待求点的桩号。K、待求点在左幅输0右幅输1。B、待求点距中距离。Goto 5前的桩号为起止点或断链点桩号。 Prog“xx”:Goto 6前的桩号为曲线组合的HZ点桩号。Q、U为测站坐标，运行程序前先存入。ZHFS桩号反算主程序Deg:FixmLbl 0:TL:T:L:T=Int T+Frac 100T36+（Int 100T100T-Int T）.6X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause

15、 0:“Y=”:YLbl 1:Prog“55”:Prog“YS”:Z48980=Goto 2Prog“FQ” Z47264=Goto BGoto Z Lbl 2:Prog“56”:Prog“YS”:Z49437.85=Goto 3Prog“FQ”: Goto ZLbl 3:Prog“57”:Prog“YS”:Z49874.21=Goto 4Prog“FQ”: Goto ZLbl 4:Prog“57-1”:Prog“YS”:Z50354.96=Goto 5Prog“FQ”Z50167.16 =Z=Z-17.16Goto ZLbl 5:Prog“58”:Prog“YS”:Z50931.36=Got

16、o 6Prog“FQ”Z50673.5 =Z=Z+26.5Goto Z Lbl 6:Prog“59”:Prog“YS”:Z51953.51=Goto 7Prog“FQ”: Goto ZLbl 7:Prog“60”:Prog“YS”:Z52546.8=Goto 8Prog“FQ”: Goto ZLbl 8:Prog“61”:Prog“YS”:Z53477.04=Goto 9Prog“FQ”: Goto ZLbl 9:Prog“62”:Prog“YS”:Z54118.18=Goto AProg“FQ”: Goto ZLbl A:Prog“63”:Prog“YS”:Z54700=Goto BProg

17、“FQ”: Goto ZLbl B:“CX ERROR” Goto 0Lbl Z:Z=Intg（1000Z+.5）1000:B=Intg（1000B+.5）1000:“LC=”:Z:Pause 0:“BJ=”:BGoto 0说明：T、L测点相对测站的方位角和距离，T的取值例：123456输为12.3456。Q、U为测站坐标，程序运行前先存入。Goto 2前的桩号为第2个曲线组合的ZH点桩号，以后类推。“BJ”显示正值则测点在线路右幅，显示负值则测点在线路左幅。DQXY单曲线坐标正算子程序S=.5Abs（C-A）:G=（C-A）2SC-A-180=S=180-S:G=-GC-A180=S=180

18、-S:G=-GT=（R+N224R）tan S+N2-N3240R2:L=RS90+N:K=0=K=-1ZD-T=Goto 1ZD-T+L=Goto 2ZD-T+N=Goto 3ZD-T+L-N=Goto 4Lbl 0:M=A+G（90+90NR+180（Z-D+T-N）R）-180X=E+Rec（R+ N224R）cos S,C+G（90-S）:Y=F+JX=X+Rec（R-GKB,M）:Y=Y+J: Goto 5Lbl 1:X=E-Rec（D-Z,A）:Y=F-J:X=X+Rec（B,A+90K）:Y=Y+J: Goto 5Lbl 2:X=E+Rec（Z-D+2T-L,C）:Y=F+J:X

19、=X+Rec（B,C+90K）:Y=Y+J: Goto 5Lbl 3:X=E-Rec（T,A）:Y=F-J:H=Z-D+T:Prog“XY”X=X+Rec（P,A+Gtan-1（WV）:Y=Y+JX=X+Rec（B,A+90GH2RN+90K）:Y=Y+J: Goto 5Lbl 4:X=E+Rec（T,C）:Y=F+J:H=D-T+L-Z:Prog“XY”X=X+Rec（P,C+180-Gtan-1（WV）:Y=Y+JX=X+Rec（B,C-90GH2RN+90K）:Y=Y+J: Goto 5Lbl 5XY缓和曲线参数计算子程序V=H-H540R2N2+H93456R4N4W=H36RN-H7

20、336R3N3+H1142240R5N5:P=（V2+W2）YS曲线要素计算子程序S=.5Abs（C-A）:G=（C-A）2SC-A-180=S=180-S:G=-GC-A180=S=180-S:G=-GT=（R+N224R）tan S+N2-N3240R2:L=RS90+NPol（X-E,Y-F）:J=J-C:Z=Icos J-T:Z=D-T+L+ZFQ单曲线反求桩号子程序ZD-T+L=Z:B=Isin J:Goto AD=D-T+L2:V=E+Rec（R+N224R）cos S,C+G（90-S）:W=F+JO=C+G（90-S）+180:O360=O=O-360Pol（X-V,Y-W）:

21、J0=J=360+JZ=D+G（J-O）R180:B=G（R-I）ZD-（L-2N）2=Goto 1ZD+（L-2N）2=Goto 2Goto ALbl 1:D=D-L2:E=E-Rec（T,A）:F=F-J:P=A-90:G=-G:Prog“HHXY”:Z=D+T: Goto ALbl 2:D=D+L2:E=E+Rec（T,C）:F=F+J:P=C+90:Prog“HHXY”:Z=D-T: B=-B:Goto ALbl AHHXY反求缓和曲线长度子程序Pol（X-E,Y-F）:J=J-P:X=Icos J:Y=Isin JB=G46080R6N6:H=X3840R5N5:I=13G5760R

22、4N4:J=GY384R4N4K=X48R3N3:M=G15R2N2:O=GY8R2N2:P=X2RN:S=GY:Z=YLbl 2:V=BZ13+HZ10-IZ9+JZ8-KZ6+MZ5-OZ4+PZ2-GZ+SW=13BZ12+10HZ9-9IZ8+8JZ7-6KZ5+5MZ4-4OZ3+2PZ-GT=Z-VW:Abs（T-Z）1E-5=Goto 3Z=T:Goto 2Lbl 3:V=G（T36RN-T7336R3N3+T1142240R5N5）W=T-T540 R2N2+T93456R4N4V=X=W=Y=B=0:Goto 5Pol（X-V,Y-W）:B=sin（J+90GT2RN-90）

23、:S=-1:B0=S=1B=SILbl 5555563为平曲线参数置数子程序D=48212.03:E=42650.6693:F=16021.6936:A=2475658:C=1515602:R=826.192:N=60 56D=49148.91:E=41425.5219:F=16674.9305:A=1515602:C=1855602:R=354.724:N=120 57D=49661.59:E=40908.3058:F=16621.1706:A=1855602:C=1515414:R=600:N=80 57-1D=50019.67:E=40582.613:F=16795.0457:A=151

24、5414:C=1725103:R=570.059:N=8058D=50498.68:E=40087.8038:F=16857.11:A=1725103:C=1844817:R=1250:N=6059D=51112.95:E=39501.143:F=16807.7977:A=1844817:C=2063023:R=600:N=8060D=52113.01:E=38603.5949:F=16360.1705:A=2063023:C=2370319:R=400:N=10061D=52962.43:E=38138.5471:F=15642.5421:A=2370319:C=1931744:R=910:

25、N=10062D=53677.91:E=37406.98:F=15469.6681:A=1931744:C=2285555:R=500:N=8063D=54344.49:E=36962.0015:F=14959.0062:A=2285555:C=1812744:R=400:N=80说明：线路起点K47264，止点K54700。共十个交点， 两处断链， 第一处K50+ 167.16K50+150，长17.16M。第二处K50673.5K50700，短26.5M。置数子程序中，D交点桩号。E、F交点坐标。A、C交点前后边正方位角。R曲线半径。N缓和曲线长。程序“HHXY”引用借鉴了徐光辉2000年

26、7月5日编写的“CASIO fx-4800P线路计算 6.0版程序设计”中“反求缓曲长度子程序HQ”的计算式。GCjs路面高程计算主程序Lbl 0:O:O“1,47264-50167.162,50150-50673.503,50700-54700”Lbl 1:Z:K:B:Z:K:B:Fixm意义同坐标正算程序V=2:K=0=K=-1B.75=B=.75B11.25 = Goto 5.75为1/2中央分隔带宽O=1=Goto 2O=2=Goto 3O=3=Goto 411.25为路面半幅宽度Lbl 2:Z47264=Goto 5Z50167.16=Goto 5Prog“A”: Prog“SQ”:

27、 Prog“O”: Goto 6Lbl 3:Z50150=Goto 5Z50673.5=Goto 5Prog“B”: Prog“SQ”: Prog“P”: Goto 6Lbl 4:Z50700=Goto 5Z54700=Goto 5Prog“C”: Prog“SQ”: Prog“Q”: Goto 6Lbl 5:“ZH ERROR”Goto 0Lbl 6:Prog“CG”:“H=”:HGoto 1SQ竖曲线计算子程序ZD-T=Goto 1ZD+T=I=J: Goto 1Lbl 0:H=G-（D-Z）I100+（Z-D+T）22RN: Goto 2Lbl 1:H=G-（D-Z）I100: Goto

28、2Lbl 2CG超高计算子程序（弯道未设加宽）P=2VS（V+W）ZM=Goto 1ZM+L=Goto 1ZM+P=F=Z-M:Goto 2ZM+L-P=F=M+L-Z:Goto 2ZM+S=F=Z-M:Goto 3ZM+L-S=F=M+L-Z:Goto 3Lbl 0:X=H+（B-.75）WK100:Y=H-（B-.75）WK100E=-1=H=X:H=YGoto 5Lbl 1:H=H-（B-.75）V100: Goto 5Lbl 2:X=H-（B-.75）V100:Y=H+（V+W）FS-V）（B-.75）100E=-1 =K=-1 =H=X: H=YK=1=H=X: H=YGoto 5L

29、bl 3:X=H+（V+W）FS-V）（B-.75）K100Y=H-（V+W）FS-V）（B-.75）K100E=-1=H=X: H=YGoto 5Lbl 5说明：竖曲线参数置数子程序中，D竖曲线顶点桩号。G顶点高程。I竖曲线前段纵坡。J竖曲线后段纵坡。R竖曲线半径。T切线长。N凹曲线取1凸曲线取-1。平曲线参数置数子程序中，M起超点桩号。S超高缓和段长。L超高曲线总长。W最大单向横坡坡比。E曲线左偏取-1右偏取1。V直线段双向横坡坡比。纵坡按设计给出的正负取值，横坡均按正数取值。坡比取值示例：2.5%取2.5。AZ47635=Goto 1Z48680.5=Goto 2Z49200=Goto

30、3Z49369.25=Goto 4Lbl 0:D=50040:G=1025.21:I=-6:J=-3:R=4000:T=60.05:N=1: Goto 5Lbl 1:D=47560:G=1135.61:I=-6:J=-3:R=5000:T=75:N=1: Goto 5Lbl 2:D=48640:G=1103.21:I=-3:J=-6:R=2700:T=40.5:N=-1: Goto 5Lbl 3:D=49140:G=1073.21:I=-6:J=-3:R=4000:T=60:N=1: Goto 5Lbl 4:D=49340:G=1067.21:I=-3:J=-6:R=1950:T=29.25:N=-1: Goto 5Lbl 5BD=50220:G=1019.3:I=-3:J=-6:R=3000:T=45.04:N=-1CZ50957.5 =Goto 1Z51125 =Goto 2Z51805 =Goto 3Z51953 =Goto 4Z52546 =Goto 5Z52727.44 =Goto 6Z52950.32 =Goto 7Z53800 =Goto 8Lbl 0:D=54400:G