对卡西欧4800计算器编程

1、对卡西欧4800计算器在编程中的浅见 作者: luzhmu  发布日期: 2005-10-08    查看数: 793   出自:  在计算能力飞速发展的今天，各种计算工具应运而生代替了以往我们大量、繁琐的分析计算工作，简化了计算步骤节省了计算时间。在种类繁多的计算工具中适合测量工作的计算器也大有所在。比如有一款SHAPPC-E500计算器，它相当于是基于BASIC语言的微型电脑，功能也相当齐全能编写较复杂的程序、内存也相当大有32KB、64 KB、128 KB、256 KB、几种型号，同时具有输入输出通讯设备。但

2、价格不菲，现在市场价格大约为2000元到3000元，个人经济承受能力有限。通过几年的实际测量工作我个人为认为真正适合测量人员较为专业的计算器应首推基于科学计算器具有简单程序语言的casiox计算器。它有很多优点：一、使用简单，最大的一个优点就是只要具有初中水平会运用数学公式对函数有一般的了解的人，能基本理解casiox的内装函数即可进行简单的编程。非常适合测量初学者和数学程序爱好者学习，也适合专业的测量人员的使用和能力提高。不像其它的专业一定要具有较高的专业技术水平才能进行电脑编程。二、成本低廉，价格在400元左右。三、携带方便，体积很小可随时放在口袋里随拿随用。casio系列较好的编程型号有

3、casio（以下简称）、casio（以下简称），（好象近来还推出了一款casio4850）前者较内存小，只有个字节，能应付一些较为简单的公式计算和科学计算，但由于内存有限，对一些较复杂或子程序过多的程序就力不从心了，不能出色的完成测量任务。就比有较大的改进，内存达到的个字节，而且显示屏是的几倍大，能更准确的显示数据，内装函数字符一目了然。且具有简单的人机对话功能，出现了菜单子菜单。还在增加了啊佛加德罗常数、万有引力长常数、详见操作说明书。有很多很实用的功能如他有一个公式解答功能，其原理是用牛顿法解方程。举个例子：有一方程式：a=2b-c求 当a=2、c=5时的b值。将该方程式存入公式存贮器中，

4、：先按按解答键“SOLVE” a输入2 、c输入5，再按解答键“SOLVE”计算器就会显示：b=3.5。此项功能被称为自动解答功能。同时它也是非常实用的，在实际工作中通常要有一个经常使用的小公式，可借助它来完成。使用的程序语言可以算做简单的BASIC语言，有的命令如GOTO（转移到）、PAUSE（暂停）就与BASIC语言的一模一样。现在的程序语言来说说。 其主要命令有： 1、=> 条件转移成立符号，其用法相当于BASIC中的IFTHEN（假设语句相当于假如然后，IF相当于条件THEN相当于结果）语句2、>条件转移不成立符号，其用法相当于BASIC中的IFELSE语句通常二者连用，相

5、当于BASIC中的IFTHENELSE语句（它的英语形式一般为if ab then cd else if ba the）3、 条件转移结束符号，与=>和>配合使用，放在条件语句最后面。4、 LbI标记命令。用于将一段语句作转换标记。后可接字母、数字、符号，但不能超过两个字节，如不能用10的数字作行标，否则会出现出错信息。5、Goto （条件）转移命令。前面可加条件语句，与BASIC中的GOTO作用相同。通常与LbI一起用，如果所转移的行号无效，则会显示：GO ERROR（详见说明书）出错信息 6、 Dsz减量循环命令。可减少未知数的数量。7、 Isz增量循环命令。8、 Pause暂

6、停命令。后可接09之间的整数n，可使某一数据显示n/2秒钟，然后继续运行下面的程序。它被认为是一个语句。9、 Fixm变量锁定命令。该命令能使其所有变量值（AZ）均当成定数处理。当程序运行时，将不需要输入变数（“”内的变数除外），而是将存贮器中原有的数值来完成计算。10、 变量输入命令。只程序在循环使用时经常发生改变的数字，如里程、和宽度。它的输入方式可以使很多种如ABA,BA B都可以。注意“”和“”必需成对输入。否则会出现Syn ERROR（详见说明书）出错信息。11、=、>、<、条件运算关系算子，常与Goto命令构成条件转换语句。12、Prog在正常情况是下打开程序的快捷键。

7、在编程过程中是运行子程序命令，后接子程序名（一定要加引号，且要注意空格，否则会出现Syn ERROR（详见说明书）的出错信息。 13、换行，只保留计算过程不显示计算结果。当不想对其换行时也可用：代替。14、2 / 59数据显示命令。该命令输入后会自动换行。保留计算过程并显示计算结果。有一条总原则即：学会运用程序的语言，尽可能使程序变得简明扼要；我们编写程序应该尽可能地使程序变得简明扼要，能省略的要一定省略。烦琐的语句过多的字节只能使计算器的运算速度变慢没有任何好处，而且相当站用内存。学会节省字节和使用符号是相当重要的。尤其要灵活运用计算器语句因为它会使你更多的节省字节达到预期效果。比如下程序就

8、灵活运用了 Dsz （减量循环命令）。比如使其能输入10个数值，并计算10个数值的平均值。一般程序求10个数字的平均值需要有11个数字的提示符号。但学会灵活运用了 Dsz （减量循环命令）那么只要有三个就可以了，这样就大大节省了字节的占用。 例程序如下：A=10C=0Lbi 1BC=B+CDsz AGoto 1C÷10但要注意的是：如果你是初学者或你对程序的编程不熟练，首先一定要先按照你的思路把程序步骤一步一步的列好在确定它能正确的计算后在想办法对其进行精简修改，否则只会使程序出现过多的错误；尽可能使程序所包含的子程序减少；子程序过多就会造成程序结构松散，有的计算器主程序需要三个或四

9、子程序，过多的子程序只会引起程序之间紊乱、混淆。子程序过多对在使用时查找也比较麻烦。而且子程序过多如果其中某个环节出现错误很难发现其错误所在，在编写程序时要尽量的少编写子程序，即使要编写子程序时也要注意尤其在容易出错的地方要多加注意。有弊就有利如果你对子程序了解得多了那么可以几个主程序合用一个之程序也到到了要求的减少程序的字节使程序更简化。例程序如下：CX CDLbi 1 Lbi 1Prog”V” Prog”V”B=L-(K-S) B=L+(K-S) Goto 1 Goto 1VY=A2B2+B2X2÷A尽量少用或不使用扩充变数存贮器，如A1、A2等：使用扩充存贮器是一个利少弊多的做

10、法。每扩充一个存贮器就要减少10个字节的容量，而每个扩充存贮器至少要占四个字节，比一个AZ变量净增三个。有时你会觉得变量存贮器不够用。其实不尽然，一般程序变量数很少会超过26个，只是你不懂得去使用。一般来说，两个相对独立的程序步骤之间根本不需要考虑变量重复问题。针对某一个程序，只要不是固定变量（内的变量），也就是那些通过计算出来的用于下一步计算的数值。我们就可以通过重复赋值来得到某些计算量。反正在下一轮循环中该量是变化的。明白了各种命令的含义和注意事项就可以编程了。举例有公式如下：CX 程序名称 Lbl 0 起始标记命令语句 QMNFJ 数据输入语句 （指公式循环运算时的不变量） KDE 数据

11、输入语句（指公式循环运算时变量）S=KQ:G=F+J 公式运算命令 X=M+ScosF 公式运算命令 Y=M+SsinF 公式运算命令Prog j 运行子程序命令Goto 0 循环运算语句J 子程序名称H=X+DcosG 公式运算、数据显示语 I=Y+DsinG 公式运算、数据显示语T=XEcosG 公式运算、数据显示语U=YEsinG 公式运算、数据显示语最后计算器状态设定语句是大家最容易忽视的。如果将单位进行预设那么计算器就会默认其使用单位在进行下一单位换算时要一定要进行单位转换，否者会使计算结果错误。在显示屏幕的左下角可以清楚地发现小提示符号：如D代表度为现在的缺省单位、R代表弧度为现在

12、的缺省单位、G 代表梯度为现在的缺省单位。 首页   GPS测量  工程测量  遥感测量  地籍测量  控制测量  数字测图  地图制图  数据处理  测绘仪器  软件应用  房产测量  地理信息  测量管理  程序开发  理论文章  其他  文章更新列表&#

13、160; 游客发布论文 所属分类：程序开发 来源： 作者： 更新日期：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”:

14、 Goto 6Z49310.50=Prog“56”: Goto 6Z49874.21=Prog“57”: Goto 6Prog“57-1”: Goto 6Lbl 3:Z50150=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

15、0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:YPol（X-Q,Y-U）:J0=J=360+J:I=Intg（1000I+.5）÷1000“L=”:I:Pause 0:“T=”:JDMSGoto 1       说明：本程序适用于casio4850计算器。把线路从断链处分为三段，O的取值，待求点在第一段输1，第二段输2，第三段输3。Z、待求点的桩号。K、待求点在左幅输0右幅输1。B、待求点距中距离。Goto 5前的桩号为起止点或断链点桩号。 Prog“xx”:Goto 6前的桩号为曲线

16、组合的HZ点桩号。Q、U为测站坐标，运行程序前先存入。ZHFS   桩号反算主程序Deg:FixmLbl 0:TL:T:L:T=Int T+Frac 100T÷36+（Int 100T÷100T-Int T）÷.6X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 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 ZL

17、bl 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=Goto 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 8P

18、rog“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“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 &#

19、160;     说明：T、L测点相对测站的方位角和距离，T的取值例：12°3456输为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-S:G=-GT=（R+N2÷24R）tan S+N÷2-N3&

20、#247;240R2:L=RS÷90+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+90N÷R+180（Z-D+T-N）÷R）-180X=E+Rec（R+ N2÷24R）÷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

21、=F+J:X=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（W÷V）:Y=Y+JX=X+Rec（B,A+90GH2÷RN+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（W÷V）:Y=Y+JX=X+Rec（B,C-90GH2÷RN+90K）:Y=Y+J: Goto 5Lbl 5XY  &#

22、160; 缓和曲线参数计算子程序V=H-H5÷40R2N2+H9÷3456R4N4W=H3÷6RN-H7÷336R3N3+H11÷42240R5N5: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+N2÷24R）tan S+N÷2-N3÷240R2:L=RS÷90+N    

23、           Pol（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+L÷2:V=E+Rec（R+N2÷24R）÷cos S,C+G（90-S）:W=F+JO=C+G（90-S）+180:O360=O=O-360Pol（X-V,Y-W）:J0=J=360+JZ=D+G（J-O）R÷180:B=G（R

24、-I）ZD-（L-2N）÷2=Goto 1ZD+（L-2N）÷2=Goto 2Goto ALbl 1:D=D-L÷2:E=E-Rec（T,A）:F=F-J:P=A-90:G=-G:Prog“HHXY”:Z=D+T: Goto ALbl 2:D=D+L÷2: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=G÷46080R6N

25、6:H=X÷3840R5N5:I=13G÷5760R4N4:J=GY÷384R4N4K=X÷48R3N3:M=G÷15R2N2:O=GY÷8R2N2:P=X÷2RN: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-V÷W:Abs（T-Z）1E-5=Goto 3Z=T:Goto 2Lbl 3:V=G（T3÷6RN-T7÷336R3N3+T11

26、÷42240R5N5）W=T-T5÷40 R2N2+T9÷3456R4N4V=X=W=Y=B=0:Goto 5Pol（X-V,Y-W）:B=sin（J+90GT2÷RN-90）:S=-1:B0=S=1B=SILbl 555  5563为平曲线参数置数子程序D=48212.03:E=42650.6693:F=16021.6936:A=247°5658:C=151°5602:R=826.192:N=60 56D=49148.91:E=41425.5219:F=16674.9305:A=151°5602:C=1

27、85°5602:R=354.724:N=120 57D=49661.59:E=40908.3058:F=16621.1706:A=185°5602:C=151°5414:R=600:N=80 57-1D=50019.67:E=40582.613:F=16795.0457:A=151°5414:C=172°5103:R=570.059:N=8058D=50498.68:E=40087.8038:F=16857.11:A=172°5103:C=184°4817:R=1250:N=6059D=51112.95:E=39501.14

28、3:F=16807.7977:A=184°4817:C=206°3023:R=600:N=8060D=52113.01:E=38603.5949:F=16360.1705:A=206°3023:C=237°0319:R=400:N=10061D=52962.43:E=38138.5471:F=15642.5421:A=237°0319:C=193°1744:R=910:N=10062D=53677.91:E=37406.98:F=15469.6681:A=193°1744:C=228°5555:R=500:N=80

29、63D=54344.49:E=36962.0015:F=14959.0062:A=228°5555:C=181°2744: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年7月5日编写的“CASIO fx-4800P线路计算 6.0版程序设计”中“反求缓曲

30、长度子程序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   

31、 .75为1/2中央分隔带宽O=1=Goto 2O=2=Goto 3O=3=Goto 4               11.25为路面半幅宽度Lbl 2:Z47264=Goto 5Z50167.16=Goto 5Prog“A”: Prog“SQ”: Prog“O”: Goto 6Lbl 3:Z50150=Goto 5Z50673.5=Goto 5Prog“B”: Prog“SQ”: Prog“P”: Goto 6Lbl 4:Z50700

32、=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）I÷100+（Z-D+T）2÷2RN: Goto 2Lbl 1:H=G-（D-Z）I÷100: Goto2Lbl 2CG    超高计算子程序（弯道未设加宽）P=2VS&#

33、247;（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）WK÷100:Y=H-（B-.75）WK÷100E=-1=H=X:H=YGoto 5Lbl 1:H=H-（B-.75）V÷100: Goto 5Lbl 2:X=H-（B-.75）V÷100:Y=H+（V+W）F÷S-V）（B-.75）÷100E=-1 =K=-1 =H=X: H=YK=1=H=X

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

35、横坡均按正数取值。坡比取值示例：2.5%取2.5。AZ47635=Goto 1Z48680.5=Goto 2Z49200=Goto 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

36、: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=835.84:I=-2.5:J=-1.2:R=22000:T=14

37、3:N=1: Goto 9Lbl 1:D=50920:G=978.89:I=-6:J=-3:R=2500:T=37.5:N=1: Goto 9Lbl 2:D=51080:G=974.09:I=-3:J=-6:R=3000:T=45:N=-1: Goto 9Lbl 3:D=51760:G=933.29:I=-6:J=-3:R=3000:T=45:N=1: Goto 9Lbl 4:D=51920:G=928.49:I=-3:J=-6:R=2200:T=33:N=-1: Goto 9Lbl 5:D=52500:G=893.69:I=-6:J=-2:R=2300:T=46:N=1: Goto 9Lbl

38、 6:D=52680:G=890.09:I=-2:J=-5:R=2500:T=47.44:N=-1: Goto 9Lbl 7:D=52900:G=877.34:I=-5:J=-3:R=3600:T=50.32:N=1: Goto 9Lbl 8:D=53700:G=853.34:I=-3:J=-2.5:R=40000:T=100:N=1: Goto 9Lbl 9    A、B、C 为竖曲线参数置数子程序OZ48708.52 =Goto 1Z49310.5 =Goto 2Z49874.21 =Goto 3Lbl 0:M=49874.21:S=80:L=288

39、.41:W=3:E=1: Goto 4Lbl 1:M=47264:S=60:L=1444.52:W=2:E=-1: Goto 4Lbl 2:M=48980:S=120:L=330.5:W=5:E=1: Goto 4Lbl 3:M=49437.85:S=80:L=436.36:W=3:E=-1: Goto 4Lbl 4PM=50337.8:S=60:L=320.8:W=2:E=1QZ51265.12 =Goto 1Z52266.78 =Goto 2Z53341.82 =Goto 3Z53868.03 =Goto 4Lbl 0:M=54118.18:S=100:L=431.41:W=5:E=-1:

40、 Goto 5Lbl 1:M=50957.86:S=80:L=307.26:W=3:E=1: Goto 5Lbl 2:M=51953.51:S=100:L=313.27:W=5:E=1: Goto 5Lbl 3:M=52546.8:S=100:L=795.02:W=2:E=-1: Goto 5Lbl 4:M=53477.04:S=80:L=390.99:W=4:E=1: Goto 5Lbl 5     O、P、Q 为平曲线参数置数子程序-【目前共有 0 条对该新闻的评论】【查看参与评论】 收集来自网上，版权归原来作者所有 ,如果侵犯您的版权，请

41、来信告诉我们，我们会马上做出整理，谢谢Copyright © 2004 测量论文中心 All Rights Reserved                                  (适用于无缓和曲线的平曲线)本程序系本人精心编制而成,公路

42、全线只需要一个数据库,欢迎各位测友下载试用！知识共享是本人的宗旨。联系方式：  QQ 303223247漂人 更多程序请参附件(点击下载)：主程序名:ZBJS(坐标计算) J=E-D:J=Arg(cosJ+sinJ):H=AbsJ÷J:T=Rtan （JH÷2）:L= JHR÷180: KC-TI=C-K:F=0:Goto 1 KC-T+LW=K-C+T:F=180W÷R:I=T-RsinF+(R-RcosF) Lb1 1:S“PJU”:Z“PJIAO”: “X=”:A-cos(D-HArgI)AbsI+Scos(D+HF+Z) “Y

43、=”:B-sin(D-HArgI)AbsI+Ssin(D+HF+Z) 数据库:SJK (全线交点要素一个数据库)KYZ点桩号A=本交点X坐标:B=本交点Y坐标:C=本交点桩号: D=前直线方位角:E=后直线方位角:R=曲线半径:Goto 0 Lbl 0:Prog“ZBJS” 程序说明: K?             输入桩号 PJU?         输入边桩至中桩的斜距 PJIAO? 

44、    输入边桩方向与路线前进方向的右夹角 (n是圆周率,如程序用于4800计算器，显示部分需要更改才能正常：“X=”：更改为X“X=”=                                    

45、                 “Y=”：更改为Y“Y=”= 谢谢发贴！ 平均用户评分：+5 【测量空间】大中小主程序名:ZBJS(坐标计算)J=E-D:J=Arg(cosJ+sinJ):H=AbsJ÷J:P=R+G2÷24R:Q=G÷2-G3÷240R2:M=JH÷2:N=90÷R:V=RG:T=PtanM+Q:L=M÷N+G:U=C-T:S“PJU”:Z“PJI

46、AO”:KU=>I=C-K:F=0:Goto 1KU+G=>W=K-U:Lb1 2:F=NW2÷G:I=T-W+W5÷40V2+W3÷6V:Goto 1KU+L-G=>W=K-U-G:F=N(2W+G):I=T-RsinF-Q+(P-RcosF):Goto 1KU+L=>W=U+L-K:D=E+180:H=-H:S=-S:Goto 2Lb1 1:“X=”:A-cos(D-HArgI)AbsI+Scos(D+HF+Z)“Y=”:B-sin(D-HArgI)AbsI+Ssin(D+HF+Z)数据库:SJK(全线交点要素)KHZ点桩号=>A

47、=本交点X坐标:B=本交点Y坐标:C=本交点桩号:D=前直线方位角:E=后直线方位角:R=曲线半径:G=缓和曲线长:Goto 0Lbl 0:Prog“ZBJS”程序说明:K? 输入桩号PJU? 输入边桩至中桩的斜距PJIAO? 输入边桩方向与路线前进方向的右夹角(如程序用于4800，显示部分需要更改才能正常： “X=”：更改为X“X”=；   “Y=”：更改为Y“Y”= 程序名：ZDZH(主点桩号计算)Q=C“LS”/2-C3/240R2:P=C2/24R-C4/2384R3:T=(R+P)tan(AbsJ“PJ”/2)+Q:L=RAbsJ/180+C:

48、B=Z“JDZH”-T:“ZH=”:B“HY=”:B+C“QZ=”:B+L/2“YH=”:B+L-C“HZ=”:B+L程序说明:LS? 输入缓和曲线长R? 输入半径PJ? 偏角JDZH? 交点桩号程序名：WJPQXA “PJ”:E:L“LS”:N=1÷cos(0.5A):M=E÷(N-1):W=NL2÷(24N-24):Q=M2-4W:Q0“R=”:0.5(M+Q)程序说明:本程序适用于外距控制单交点平曲线PJ? 输入路线转角E? 输入外距LS? 输入缓和曲线长2006-03-2817:52:15大中小程序名:LZXJD(两直线交点)A"X1"

49、:B"Y1":C"X2":D"Y2":E"X3":F"Y3":G"X4":H"Y4":N=C-A:O=D-B:P=G-E:Q=H-F:K=QN-OP:U=NB-OA:V=PF-QE:"X=":(PU-NV)/K"Y=":(QU-OV)/K程序说明:X1? 输入第一点X坐标Y1? 输入第一点Y坐标X2? 输入第二点X坐标Y2? 输入第二点Y坐标X3? 输入第三点X坐标Y3? 输入第三点Y坐标X4? 输入第四点X坐标Y4

50、? 输入第四点Y坐 casio4850全线坐标计算程序     一、LXZB（坐标计算主程序）LbI  Z：PA=×××：V=××°××××：C=×××：D=×××：P直线的终点桩号Prog“ZX.SUB”：Goto Z（以上各字母含义详直线坐标计算子程序说明） A=×××：V=××°&#

51、215;×××：C=×××：D=×××：R=×××：I=（1或-1）P圆曲线终点桩号Prog“YQX.SUB”：Goto Z（以上各字母含义详圆曲线坐标计算子程序说明）A=×××：V=××°××××：C=×××：D=×××：B=×××：W=××°&#

52、215;×××：E=×××：F=×××：R=×××：L=×××：I=（1或-1）PHY点桩号Prog“HQ1.SUB”：Goto ZPYH点桩号Prog“HYQ.SUB”：Goto ZPHZ点桩号Prog“HQ2.SUB”：Goto Z（以上各字母含义详（HQ1.SUB、HYQ.SUB、HQ2.SUB）坐标计算子程序说明）该主程序是简单的示例说明，具体的应根据图纸的线型组合，随机应变的做顺序调整，并将其输入Casio

53、4850计算器。二、ZX.SUB（直线坐标计算子程序）G=P-A：T=V“X=”：X=C+GcosT “Y=”：Y=D+GsinT Q：Q=1 =>Prog“BZ.SUB”说明：G：所求桩号至起算点的距离P：所求点的桩号A：起算点的桩号T：所求桩号的方位角V：起始方位角C、D：起算点的X、Y坐标X、Y：显示所求桩号的坐标Q：参数，为1时计算边标坐标，为0时不计算三、YQX.SUB（圆曲线坐标计算子程序）G=P-AH=Rsin(G÷R)×(180÷)J=(R(1-cos(G÷R)×(180÷)IT=V

54、+(G÷R)×(180÷)I“X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV Q:Q=1 =>Prog“BZ.SUB”说明：G：所求桩号至起算点的距离P：所求点的桩号A：起算点的桩号(指ZY点)R：圆曲线半径T：所求桩号的方位角V：起始方位角(指ZY点的方位角)C、D：起算点（ZY点）的X、Y坐标X、Y：显示所求桩号的坐标I：参数，（左偏为1，右偏为1）Q：参数，为1时计算边标坐标，为0时不计算四、HQ1.SUB（第一缓和曲线坐标计算子程序）G=P-AH=G-G5÷(40R2L2)+G

55、9÷（3456R4L4）-G13÷（599040 R6L6）J=(G3÷(6RL)-G7÷(336R3L3)+G11÷(42240R5L5)IT=V+90G2÷(RL)I“X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV Q:Q=1 =>Prog“BZ.SUB”说明：G：所求桩号至起算点的距离P：所求点的桩号A：起算点的桩号(指ZH点)R：曲线半径L：缓和曲线长LsT：所求桩号的方位角V：起始方位角(指ZH点的方位角)C、D：起算点（ZH点）的X、Y坐标X、

56、Y：显示所求桩号的坐标I：参数，（左偏为1，右偏为1）Q：参数，为1时计算边标坐标，为0时不计算五、HYQ.SUB（带缓和曲线的圆曲线坐标计算子程序）G=P-AH=Rsin(L÷2÷R)×180÷+(G-L)÷R×180÷)+L÷2-L3÷(240R2)J=(R(1-cos(L÷2÷R)×180÷+(G-L)÷R×180÷)+L2÷(24R)-L4÷(2688R3)IT=V+90L÷(R)I+(180(G-

57、L)÷(R)I“X=”:X=C+HcosV-JsinV “Y=”:Y=D+HsinV+JcosV Q:Q=1 =>Prog“BZ.SUB”说明：G：所求桩号至起算点的距离P：所求点的桩号A：起算点的桩号(指ZH点)R：曲线半径L：缓和曲线长LsT：所求桩号的方位角V：起始方位角(指路线前进方向ZH点的方位角)C、D：起算点（ZH点）的X、Y坐标X、Y：显示所求桩号的坐标I：参数，（左偏为1，右偏为1）Q：参数，为1时计算边标坐标，为0时不计算六、HQ2.SUB（第二缓和曲线坐标计算子程序）G=B-PH=G-G5÷(40R2L2)+G9&#

58、247;（3456R4L4）-G13÷（599040 R6L6）J=-(G3÷(6RL)-G7÷(336R3L3)+G11÷(42240R5L5)IT=W-90G2÷(RL)I“X=”:X=E-HcosW+JsinW “Y=”:Y=F-HsinW-JcosW Q:Q=1 =>Prog“BZ.SUB”说明：G：所求桩号至起算点的距离P：所求点的桩号B：起算点的桩号(指HZ点桩号)R：曲线半径L：缓和曲线长LsT：所求桩号的方位角W：起始方位角(指路线前进方向HZ点的方位角)E、F：起算点（HZ点）的X

59、、Y坐标X、Y：显示所求桩号的坐标I：参数，（左偏为1，右偏为1）Q：参数，为1时计算边标坐标，为0时不计算七、BZ.SUB（边桩坐标计算子程序）O，S：O“ZBK”：S“YBK”： “XZ=”：M=X-O cos(T+90)  “YZ=”：N=Y-O sin(T+90)  “XY=”：K=X+S cos(T+90)  “YY=”：U=Y+S sin(T+90)  说明：ZBK：中桩至左边桩的距离YBK：中桩至右边桩的距离XZ、YZ：显示所计算左边桩的X、Y坐标XY

60、、YY：显示所计算右边桩的X、Y坐标 线路中边桩任意里程坐标正反算改编程序CASIO4850 Posted by 忘不了糊涂 2006-10-5 23:45:00含数据库、测站放样计算（第五次修改-正式版）1.加编数据库及计算总调度程序,计算中不必逐项输入"线元要素",提高运算速度，避免现场忙中出错2.可加入多条线路的数据库,内业输入数据,外业一目了然3.计算直观,人性化4.正算直接输入里程和边距,反算输入近似里程便可5.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样6.愿收获与大家共享,同时也希望大家提出心得和宝贵建议7.核心计算程序摘自

61、“yshf”      一.改动后的程序清单，增设数据库程序,可输入n条线路的数据库    1.(QXZDJS   计算总调度程序)M=1=>Prog "SJK1":Prog "SUBSJK".M=n=>Prog "SJKn":Prog "SUBSJK"  2.(SJK1   数据库程序)"1.SZ => XY"："2.XY => S

62、Z"：N,S：N：S"DKI"S本线元终点里程U=本线元起点X坐标：V=本线元起点Y坐标：G=本线元起点正切线方位角：P=本线元起点曲率半径：R=本线元终点曲率半径：O=本线元起点里程：H=本线元终点里程：Q=本线元左直右偏向(0或1、-1):Goto0S下一线元终点里程=O=。： Goto0LB1 0    3.(SUBSJK   运算主程序)UVGPROHQ：U"XA"：V"YA"：G"FA"：P"RA"：R"RB&quo

63、t;：O"DKA"：H"DKB"：QDeg:S>H=>Goto AD=(P-R)÷2PR(H-O)：N=1=>Goto 1：>Goto 2Lbl 1：Z：Z：W=Abs(S-O)：Prog "SUB1"："XS="：X"YS="：Y"QX-FWJ="：F=F-90DMSI=0：J=0：Pol（X-C"XC"，Y-E"YC"）：J<0J=J+360：“FWJ=”:JDMS“I=”：IGoto ALbl 2：XY：I=X：J=