卡西欧FD-10计算器坐标360度连算程序
卡西欧5800多功能实用坐标正反算小程序(附后方交会程序)
Goto0:
Lbl3:Cls：”X1=”?A:”Y1=”?B:?F: ”X2=”?X:”Y2=”?Y:
(X-A)cos(F)+(Y-B)sin(F)→I:
(Y-B)cos(F)-(X-A)sin(F)→Z:
Cls:“L=”: “Z=”:Locate4,1,I:Locate 4,2,Z◢
Goto0
注：程序中的“=>”是一个双箭号， 按FUNCTION选3下翻两页选3 即可输入。方Biblioteka 角L距离Z
偏距
R
斜交偏距的转角（顺时针为正数，正交输入0）
2程序名：HFJH（距离后方交会）
LBI 1 :〝XA〞?A :〝YA〞?B :〝XB〞?C :〝YB〞?D :〝D1〞?E :〝D2〞?F :?Q : 0→J : POL（C－A , D－B）→G : J+Q Cos－1（（GG+EE－FF）÷（2GE））→H :〝XP=〞: A+E Cos（H）→X▲〝YP=〞: B+E Sin（H）→Y▲Goto1
显示及操作说明：
显示
功能
1.XY→LF
2.LF→XY
3.XYF→LZ
1.输入两点坐标计算距离与方位角
2.输入起点坐标及方位角、距离、偏距、偏距的转角
3.输入起点坐标及方位角，输入实测坐标，计算实测点与起点的垂直距离和垂直偏距
显示
输入及显示说明
X1、Y1
第一点（起点）坐标
X2、Y2
卡西欧易学易用程序集
1、极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名G1：
G1说明（从1到7，以下程序均为上面是程序，下面是说明）：
2、已知边长方位角计算坐标程序，程序名G2：
3、建筑轴线偏移程序(或扩大基础程序)。程序名G3
4、测角前方交会坐标计算，程序名G4
5、测角后方交会坐标计算，程序名G5
6、坐标转换计算程序，程序名G6
7、直线中边桩坐标计算程序,程序名G7
8、圆曲线中边桩坐标计算程序,程序名G8
9、完整缓和曲线中边桩坐标计算程序,程序名G9
卡西欧fx系列电子计算器全型号使用说明书
是一个FX-82ES计算机，按下MODE键会显示出三个功能。
同时按下SHIFT-7-ON键（此功能用于出厂测试计算器，嘿嘿），并连按多次SHIFT后，会出现如（图二）所显示的内容。
其中P3便代表FX-82ES的模式，现在我们就要将其修改为FX-991ES的模式。
图(二)图(三)关闭计算器，拆开计算器，可以看到如（图三）的电路板。
找到P4引脚，可以看到当中有条裂缝，用指甲将上面的（尤其是裂缝中的）氧化层刮去，随后用软性铅笔（如2B）在裂缝上涂满，确保裂缝中有足够的碳粉可以导通P4引脚后。
打开计算器，按下MODE，可以看到如图(四)的画面,变成8种模式功能，原来只有3种）这说明你的计算器改装成功了。
图(四)同时按下SHIFT-7-ON键，并连按多次SHIFT后，可以看到如（图五）的画面，P?说明你的计算器连接了两个P引脚，变得十分怪胎了，不过这并不影响使用。
其实，P引脚是用来设置计算机型号的。
卡西欧公司从成本上考虑，将一些计算器使用相同的电路板，只是通过P来设置型号。
可以看到FX-82ES计算器的P3引脚是连通的，而其它的引脚都有一条裂缝。
如果你有兴趣，可以尝试连通其它的，会出现不同的功能，不过连接P4后的功能是最多的，与FX-991ES的功能完全一样。
（如果错了，橡皮擦擦了就好了）改装后的计算器有部分按键与原计算器不同，这里提供了对照表（图六）希望注意。
附：1.卡西欧FX-991ES说明书下载地址：/CALC/DOWNLOAD/CN/MANUAL/2.卡西欧FX-82ES大家可以去本地的文具批发市场和是小一些的商场，和是网络商店，你可以去里面逛逛，一般批发价为48元，零售价为55元左右（如果是大商场80多）。
而FX-991ES的价格为120-160元之间（如果是大商场300多）3.考研规定FX-911ES计算机是肯定能用的，FX-82ES是更不用说了。
所以改装的FX-82ES考研不管能不能用，自己用都是最不错的选择。
CASIO计算器在坐标放样中的运用
文章编号:1671-2579(2007)01-0021-02CASIO计算器在坐标放样中的运用张 英(中铁二十四局上海铁建工程有限公司,上海市 200070) 摘 要:全站仪和坐标的使用,加快了工程放样的速度与准确度。
而在施工测量现场所用临时放样点的坐标,有些是内业工作中无法考虑计算出来的,需要在现场快速准确地计算,CASIO 科学计算器中的程序计算则很好地解决了这一问题。
关键词:放样点;坐标;测量;CASIO 科学计算器收稿日期:2006-03-10作者简介:张 英,男,助理工程师.E -mail :rain.z @1 前言全站仪的运用,加快了工程施工测量中的定位、放点。
而与全站仪的交互方法,现在大多数是用坐标。
工程中坐标系统建立完成后,整个工程的位置与平面形状也就确定了。
所以,在工程测量中使用全站仪,也就是使用坐标。
设计图纸不可能把一个工程中的所有坐标点给出,而施工测量中为了方便,又需要一些点的坐标值。
这部分点的坐标计算也就成为测量的重点。
目前,坐标计算有多种方法,手算结合简单计算器计算、Excel 中利用函数或宏中的Vba 计算等。
上述方法大部分是内业完成的,在施工现场中手算结合简单的科学计算器比较慢,Excel 计算则需要计算机的平台;而施工中使用的临时放样点是不在工程中的点的坐标。
此点就是为施工方便所用,位置根据现场情况而定,所以放样点坐标需要现场计算出来。
CASIO 科学计算器中的程序计算能很好地解决这一问题。
2 CASIO 中计算器程序以CASIO f x -4500PA 计算为例,对坐标放样中的几种曲线坐标计算程序介绍如下。
2.1 直线段未知点的坐标计算此种情况是在已知点坐标和直线方位角,求离已知点一定距离点的坐标。
程序如下:ZUO BIAO 程序文件名称A “X 0”B “Y 0”R “FW J ”L “J L ”参数输入E “X ”=A +L co s R 4所求点X 坐标F “Y ”=B +L sin R 所求点Y 坐标参数输入中A “X 0”B “Y 0”也就是已知点的坐标(X 0,Y 0)用A 、B 表示。
卡西欧fx导线标计算程序
卡西欧fx导线标计算程序————————————————————————————————作者：————————————————————————————————日期：卡西欧fx-4800计算器（2007年07月08日）一.计算线路平曲线坐标计算主程序XYZ2及子程序XYZ1：子程序名XYZ1X=S×(1-S∧4÷40÷A∧4+S∧8÷3456÷A∧8-S∧12÷599040÷A∧12)Y=S∧3÷6÷A2×(1-S∧4÷56÷A∧4+S∧8÷7040÷A∧8-S∧12÷1612800÷A∧12)主程序名XYZ2{BOT}: ZJ'' KØ'' E'' XØ''H'' YØ''C'' AØ''A''√RL'':Z=1 F=K-J: G=Ø: D=ØZ=2 L=K-J:D=(AbsL÷R)r: F=R×sin(L÷R)r:G=F×tan(D÷2)Z=3 S=K-J:D=9Ø×R×S2÷(π×A2×AbsR):prog''XYZ1'':F=X:G=Y×AbsR÷RZ=4 S=A2÷AbsR:P=K-J:L=S-AbsP:C=C+9Ø×A2÷(π×R×AbsR): D=-9Ø×L2×AbsR÷(π×R×A2):prog''XYZ1'':F=X:G=Y:S=L:prog''XYZ1'':F=P×(F-X)÷AbsP:G=P×(Y-G)×AbsR÷(R×AbsP)C+D ◢X=E+F×cosC+G×cos(C+9Ø)+B×cos(C+D+O)+T×cos(C+D) ◢Y=H+F×sinC+G×sin(C+9Ø)+B×sin(C+D+O)+T×sin(C+D)说明：①、 Z表示平曲线的线型：Z=1表示直线，Z=2表示圆曲线，Z=3表示缓和曲线，Z=4表示不完全缓和曲线。
关于卡西欧计算器使用技巧
关于卡西欧计算器计算器常用命令格式1．SHIFT→Defm→N(变量个数)→EXE:扩充变量存储器(显示方式为Z[1] Z[2]......Z[n]；2．Fix:指定小数位数；Sci:指定有效位数；3．Eng:用工学记法显示计算结果；4．Scl:清除统计存储器内容；5．Norm:为转换成指数形式指定范围；6．Mcl:清除所有变量；7．Int:选此项并输入一个数值可得到其整数部分（取整）；8．Abs:选此项并输入一个数值可得到其绝对值；9．Frac:选此项并输入一个数值可得到其分数部分；10．Intg:选此项并输入一个数值可得小于此数值的最大整数；11．Pol(:直角坐标─极坐标转换；12．Rec(:极坐标─直角坐标转换；13．⇒:条件转移成立码；14．≠>:条件转移失败码；15．⊿:条件转移结束码；16．Goto:无条件转移命令；17．◢:结果显示命令18．: ……多重语句命令，用于连接两个算式或命令19．Lbl:标识符命令；20．Dsz: 减量命令；21．Isz:增量命令22，Fixm:变量锁定命令；23．Pause:暂停命令(Pause 3 显示1.5秒)；24．Cls:清屏命令；25．{ }:变量输入命令；26．→DMS:将计算结果换算为六十进制格式；27．Abs:复数的模；28．Arg:复数的辐角；29．Conjg:共轭复数；30．Rep: 复数的实部；31．Imp: 复数的虚部直线上里程偏距反算X:Y:A0= :C“X0”= :D“Y0”= :Pol(X-X0,Y-Y0):J<0⇒J=J+360:≠>J=J:N=J-A0:I=I:F=IsinN :K=S+IcosN:"K=":K◢"F=":F◢A0:起始方位角、S:起算点里程、(X0,Y0):起算点里程坐标、F:偏距(左偏为-,右偏为+)、K:计算点里程、园曲线上里程偏距反算X:Y:Z=1:R= :S= :C= :Y= :V= :W= :O= :起始方位角计算：A=tan¯¹((W-D)/(V-C) 交点至圆心方位角计算: B=A+Z(O+(180-O)/2)圆心坐标计算: T=V(X1)+(R+E)cosB: U=W(Y1)+(R+E)sinB圆心至圆曲线起点方位角计算:N=180+B-(90L/(лR))Pol(X-T,Y-U):F=R-I: K=S+((360+J)-N)×лR/180:"F=":F◢"K=":K◢C,D(X,Y):圆曲线起点坐标、W,V(X1,Y1):交点坐标、L:圆曲线长度A:起始方位角、E:外矢距、R:圆半径、O:转向角、F:偏距Z:曲线左偏Z=-1,曲线右偏Z=1、圆心坐标: T,U(X0,Y0)N:圆心至园曲线起点方位角、S:园曲线点里程、竖曲线路线中桩高程《SQX》主程序{K}：Prog"B"：W=A－B:W＞0⇒U＝-1：≠>U＝1⊿R："T"：T＝Abs(RW/2) ◢"E"：E=T²÷2R◢C＝K-J：K≦J⇒I=A：≠>I=B ⊿H：AbsC≦T⇒H=H+CI+U(T- Abs C) ²÷2R："H="：H◢⊿≠>H=G+CI："H="：H◢⊿《B》数据库K＞？⇒A=？：B=？：R=？：J=？：H=？⊿(数据库中K:为竖曲线起点里程) K＞？⇒A=？：B=？：R=？：…………⊿附注：1、K所求的桩号：A=前坡度：B=后坡度：R=半径：J=交点桩号：G=变坡点控制高程：2、注意A、B的正负。
用计算机pol计算方位角,卡西欧计算方位角计算器算方位角.doc
⽤计算机pol计算⽅位⾓,卡西欧计算⽅位⾓计算器算⽅位⾓.doc卡西欧计算⽅位⾓ 计算器算⽅位⾓导读：就爱阅读⽹友为您分享以下“计算器算⽅位⾓”资讯，希望对您有所帮助，感谢您对92的⽀持!最简单之坐标⽅位⾓计算⼦程序⼀、源程序(FWJ)J=0：D=Pol(U-X, V-Y)：F=J：F<0=>F=F+360△⼆、说明1、该⼦程序适⽤于CASIO fx-4800计算器及CASIO fx-4850计算器。
对于CASIO fx-4500计算器，注意调整Pol()计算结果之储存变量结果即可。
2、该⼦程序⼊⼝参数X、Y为直线起点(或测站点)之坐标，U、V为直线⽌点(或后视点)之坐标，返回值D为起点⾄⽌点间之平距、F为起 点⾄⽌点之⽅位⾓。
使⽤计算器⾃带之坐标变换函数Pol()快速准确地反算任意两点间之平距和坐标⽅位向⾓，可避免⽅位⾓所在象限之复杂判断。
⾄于tandeyong所给之程序是坐标计算，与坐标⽅位⾓计算题意不相符。
1.调⽤坐标⽅位计算之主程序⽰例(ZCX)Lbl 1：{XYUV}：X”X1”：Y”Y1”：U”X2”：V”Y2”←┘ 输⼊两点之坐标(x1,y1)、(x2,y2)Prog “FWJ”←┘ 调⽤坐标⽅位⾓计算⼦程序“FWJ”D”D”=D 显⽰两点(x1,y1)、(x2,y2)间之平距F”“F”=F 显⽰点(x1,y1)⾄(x2,y2)之坐标⽅位⾓Goto 1←┘2.算例已知两点P1(19827.336, 28506.838)、P2(19742.686, 28652.914)间之距离和⽅位⾓。
(1)选择程序”ZCX”并启动它(2)输⼊ X1? 19827.336 (↙代表蓝⾊之[EXE]键)Y1? 28506.838X2? 19742.686 ↙Y2? 28652.914 ↙(3)显⽰D=168.8307445F=120.0919859(以度为单位, 即120°05′31.15〃)我不⽤这个型号，不⼀定说的⼗分准确，但你看了以后应该能明⽩将直⾓坐标转化为极坐标：例如将(1,1)转化为极坐标，只要输⼊“Pol(1,1) =”就⾏了，它会显⽰r=1.414....,θ=45 (如果你⽤Deg模式)或者r=1.414....,θ=0.785...(如果你⽤Rad模式)将极坐标转化为直⾓坐标⽤ Rec()，⽤法相似我⽤的计算器，Pol 在“+”键上，Rec 在“-”键上再有就是如果要计算⼤量如 330°+4∠60°这样的式⼦，可以利⽤复数模式，然后把实轴当成x轴，把虚轴当成y轴。
卡西欧计算器程序
CASIO fx —5800 计算器工程测量与公路测量程序1、坐标正算＂X0=″X:＂Y0=″Y:＂I= ″I:＂J=″JX+ICos(J)→ U:Y+ISin(J)→ V＂X=″:U （待求点的 X 坐标）＂Y=″:V （待求点的 Y 坐标）说明： X0 Y0 ：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″X:＂Y1=″Y:＂X2=″U:＂ Y2=″V?Pol(U-X,V-Y):?J<0 J+360→ J＂I= ″:I＂J=″:J DMSGOTO 0说明： X1Y1 ：第一点的坐标，X2Y2 第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″X: ＂Y0=″Y:＂ FWJ=″D: ＂ QDHAO=″G: ＂ ZDHAO=″C: ＂ R=″RLbl 1＂DQHAO=″LL<G Or L ＞ C GOTO 2＂P Y=″K180(L- G)÷ ( π R) → E2RSin→ FReC(Abs(F),D+ ：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→ o:o<0 360+o→ 0o＂F WJ=″:o? DMSGoto 1Lbl 2＂END″说明： X0Y0 ：起始点的坐标， FWJ：起始点的方位角， QDHAO ：起点里程， ZDHAO 终点里程，R：半径， DQHAO ：待求点里程， PY ：偏移量4、竖曲线＂QZHAO ″=J:＂H+B″=B:＂I1=″C:＂I2=″D:＂R=″R:＂T=″T:((D-C)÷100)÷Abs((D- C)÷ 100)→ A:Abs(D-C)÷ 100)→ S＂T″:SJ-T→ XJ＋T→ YLbl 0＂DQ=″LIf L<X:Then Goto 1:Else If? L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L -J)100+A(L÷- J+T)? ÷(2R) →HGoto 0Lbl 1＂END″说明： QZHAO ：曲中点里程， H+B ：曲中点高程， I1：第一坡度， I2：第二坡度， R：半径，T：切线长， DQ：待求点里程。
卡西欧测量常用程序
（卡西欧）FX-5800计算器公路测量常用程序 [图片]一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) F ix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E)→X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)W Ｓ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+W Ｓ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
坐标边桩中桩计算程序casio计算器
计算示例已知：JD1 X:38327 Y:949876.806JD2 X:38957.002 Y:95298.524曲线半径R:70m曲线偏角PJ：偏左96°44'49.91"缓和曲线长度LS：40mZH桩号：K1+617.416 HY桩号：K1+657.416YH桩号：K1+735.613 HZ桩号：K1+775.613求算：JD1交点曲线HZ点K1+210.040至JD2交点曲线HZ点K1+775.613段内公路中线任意桩号的中桩坐标和任意宽度边桩坐标。
启动主程序，程序运行过程如下：７.源程序清单主程序文件名CENTERLINE COMP) Defm4Prog ”SUB1” H ”L -1 OR R 1” O ”PJ ” S ”LS ” R ”R ”L=RO π÷180＋S P=S²÷24÷R －S 4÷2384÷R 3 Q=S ÷2－S 3÷240÷R² T=（R ＋P ）tan(O ÷2)＋Q V ”(X0,Y0)=>]ZH ” G ”ZH ” Lb1 {E}E ”K ”:E ≤G=>Prog ”SUB5”N=E-G:N>L+0.001”ERROR ” N ≤S=>Prog ”SUB2”: ≠=> N ≤L-S=>Prog ”SUB3”:≠=>Prog SUB4E-G ≤L-S=>U=tan -1(Z ÷W):≠=>U= tan -1 (Z ÷W)＋I= (W²+Z²):Z÷J=F +HUE-G ≤L-S=>C”ZHX ”=A+VcosF◢ ZHY ”=B+VsinF ◢ X=Int((C+IcosJ)×1000＋0.5)÷1000◢ Y=Int((D+IsinJ)×1000＋0.5)÷1000◢ Lb12:{M}M ”SIDELINE ”M ≠0 =>Prog ”SIDELINE Goto1子程序文件名 SUB1 (COMP) {AB} {CD} A ”X0” B ”Y0 C ”X1” D ”Y1” X=C-A Y=D-BK= (X ²+Y ²)◢X>0=>F=tan -1(Y ÷X): ≠ =>X<0 =>F=tan -1(Y ÷X)+180: ≠=>Y<0 =>F=270:≠=>F=90F ”AZIMUTH ” ◢子程序文件名 SUB2 (COMP)W=N-N 5÷40÷R ²÷S ²Z=N 3÷(6RS)－N 7÷(336R 3S 3) 子程序文件名 SUB3 (COMP) Z[1]=180(N-S ÷2)÷R ÷л W=Q+RsinZ[1]Z=P+R(1-cosZ[1])子程序文件名(COMP)N=L-NProg ”SUB2” W=T －WC ”JDX ”=A+(V+T)cosF ◢D ”JDY ”=B+(V+T)sinF ◢子程序文件名(COMP)I=V －G+EX=Int((A+IcosF)×1000＋0.5)÷1000◢ Y=Int((B+IsinF)×1000＋0.5)÷1000◢子程序文件名(COMP) W=0Z=0{W} {Z}W ”L(－1) OR R(1) Z ”—I —”E ≤G=>E ≤G+S => Z[2]=F+90HN ²÷R ÷S ÷л:≠=> E ≤G+L －S => Z[2]=F+90H(2N －S)÷R ÷л: ≠=> Z[2]=F+H(O －90N ²÷R ÷S ÷л) Lb1 0Z[3]=Int((X+Zcos(Z[2]+90W))×1000＋0.5)÷1000◢ Z[4]=Int((Y+Zsin(Z[2]+90W))×1000＋0.5)÷1000◢。
卡西欧计算器坐标的正反算
可以算任意斜交涵洞轴线的坐标，增加T为斜交角度，规定T为涵轴右侧方向与“线路前进方向切线”之间的夹角，当涵轴与线路正交时，T=90,其他操作与原程序一样；1. 正算子程序(SUB1) [color=Red]A=0.26：B=0.74：K=0.02：L=0.82：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LW D))+Bcos(G+57.2958QFW(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1/ P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW (1/P+MWD)))：F=G+57.2958QW(1/P+WD)+90：X=X+Zcos(F-90+T)：Y=Y+Zsin(F-90+T)2. 反算子程序(SUB2)W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90))：Z=0：Lbl 0：Prog "SUB1"：L=(G-90)+5 7.2958QW(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二.增设数据库程序（ＳＪＫ主程序）Lb1 4："1.SZ => XY"："2.XY => SZ"：｛NS｝：S∠下一线元起点里程＝＞O =本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H =本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Prog“TYQXJS”：Goto0Δ←┘(第一线元数据要素)S∠下一线元起点里程＝＞O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Goto0Δ←┘(第二线元数据要素)S∠下一线元起点里程＝＞O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Goto0Δ←┘(第三线元数据要素)。
卡西欧5800p三维坐标计算程序(交点法)
卡西欧5800p 三维坐标计算程序(交点法)ROAD-000 Deg: Fix 3:20 →DimZ ↙ "ZS[1],FS[2]"?J If J=l: Then Goto θ:Else Goto 4: IfEnd ↙ Lbl θ↙ "XS"?U:"YS"?V ↙ Lbl 1↙ "KP"?P ↙ Prog "ROAD- DATA "↙ M+0→N ↙ Prog "ROAD- SUB1 "↙ Prog "ROAD- SUB2 "↙Cls ：＂XP=＂:Locate6,1,F:（X 坐标在第一行第六列显示）＂YP=＂:Locate5,2,G: （Y 坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate12,3,＂FWJ=＂: （桩号在第三行第四列显示） Z ▶DMS ◢ Prog ＂SQX-JDF ＂ （方位角在第四行显示） If U=θ:Then Goto 3:Else Pol(F-U,G-V):IfEnd ↙Lbl 2↙ If J<θ: Then J+360→J: IfEnd ↙"A1=":J ▶DMS ◢ "Dl=":I ◢ Lbl 3↙"DANGLE"(输入边距夹角)?H:If H=θ:Then Goto 1:IfEnd:?D (输入边距)↙ "XB=":F+DCos(Z+H)→Z[11]:"YB=":G+DSin(Z+H)→Z[12]:Cls ：＂XB=＂:Locate6,1, Z[11]: （X 坐标在第一行第六列显示）＂YB=＂:Locate5,2, Z[12]: （Y 坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate9,3,＂BJ=＂:Locate12,3,D: （桩号在第三行第四列显示） Prog ＂SQX-JDF ＂If U=θ:Then Goto 3:Else Pol(Z[ll]-U,Z[12]-V):IfEnd ↙Goto 2 ↙ Lbl4 ↙ "XB"?U:"YB"?V:"KP"?P ↙Lbl 5↙ Prog"ROAD-DATA"↙ M+0→N ↙Prog "ROAD-SUB1 "↙ Prog "ROAD-SUB2 "↙Z-90→A ↙ (V-G)Cos(A)-(U-F)Sin(A)→H ↙If Abs(H)>0.0001:ThenP+H →P:Goto 5:IfEnd ↙"K=":P ◢ "D=":(G-V)÷Sin(A)→D ◢ Goto4↙ROAD-SUBlIf O<θ: Then -1→W ：Else1→W:IFEnd: WO →A ↙B 2÷24÷R- B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]↙C 2+24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]↙B÷2- B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]↙C÷2- C^(3)÷240÷R2+C^(5)÷3456÷R^(4)→Z[9]↙Z[8]+(R+Z[7]-(R+Z[6])Cos(A))÷Sin(A)→Z[18]↙Z[9]+(R+Z[6]-(R+Z[7])Cos(A))÷ Sin(A)→T↙RAπ÷180+(B+C)÷2→L↙ L-B-C→Z[19]↙(R+(Z[6]+Z[7])÷2)÷Cos(A÷2)-R→E↙K-Z[18]→Z[1]↙ Z[1]+B→Z[2]↙ Z[2]+ Z[19]÷2→Z[3]↙Z[1]+L- C→Z[4]↙ Z[4]+C→Z[5]↙ROAD-SUB2X- Z[18]cos(M)→F:Y- Z[18]in(M)→G↙If P>Z[1]:Then Goto 1: IfEnd↙X-F:Y→G:P-K→Z[16]:θ→Z(17]:M→A:M→Z:Goto 5↙Lbl1↙ If P>Z[2]: Then Goto2: IfEnd↙P-Z[1]→L:L→Z[14]: B→Z[15]: Prog "ROAD- SUB3"↙WZ[17]→Z[17]:M→A:M+90WL2÷(BRπ)→Z: Goto5↙Lbl2↙ If P>Z[4]: Then Goto 3: IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→A↙RSin(A)+Z[8]→Z[16]:W(R(l-Cos(A))+Z[6])→Z[17]↙M+WA→Z: M→A: Goto 5↙Lbl3↙ If P>Z[5]:Then Goto 4: IfEnd↙Z[5]-P→L:L→Z[14]:C→Z[15]: Prog "ROAD- SUB3"↙X+TCos(N)→F: Y+TSin(N)→G↙-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ)→Z:Goto5↙Lbl4↙X→F:Y→G:P-Z[5]+T→Z[16]:θ→Z[17]:N→A:N→Z:Goto5↙Lbl5↙F+Z[16]Cos(A)-Z[17]Sin(A)→F↙G+Z[16]sin(A)+Z[17]Cos(A)→G↙If Z<θ: Then Z+360 →Z: IfEnd↙ROAD-SUB3If Z[ 14] =θ:Thenθ→Z[16]:θ→Z[l7]:Else↙Z[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[l4]^(9)÷3456÷(RZ[l5])^(4)→Z[16]↙Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↙IfEnd↙ROAD-DATA4695.549→D:6239.502→E:If P≦E:Then5065.776 → K:64971.195→X: 4498337.276→Y: 271°38’42.5”→M: -35°33°8.7°→ O: 600→R:80→B:80 → C: Goto 1:IfEnd↙E→D: 6721.764 → E:If P≦E: Then 6490.625 → K: 65936.919→ X: 498586.969→Y: 236°05'33.8"→M: 34° 36' 47.3" → O: 500→ R:120→B: 130→C:Goto 1:IfEnd↙E → D: xxx →E:If P≦E: Then …… Goto l:IfEnd↙Lbl 1:If P<4695.549 Or P>xxx:Then Cls:Locate 5,2,"KPERROR"◢Stop: Ifend: Return↙数据库说明:计算起点或本交点ZH桩号→D:计算终点或下一个交点ZH点桩号→E:If P ≦E:Then本交点桩号→K:交点X坐标→X:交点Y坐标→Y:交点上直线方位角→M:交点转角(左负右正)→O:本交点平曲线半径→R:第一缓和曲线长度→B:第二缓和曲线长度→C:Goto 1: IfEnd↙"使用使用说明：1、以道路中线的前进方向（即站在线路中线面向大里程方向）区分左右。
卡西欧财务计算器计算模式实例
卡西欧财务计算器计算模式实例一、CASIO FC100- 200V 入门1、开机 ON2、关机 SHIFT +AC =OFF3、设置与记忆（存储）清除SHIFT +9 =CLRClear? 清除吗？SETUP ：EXE 清除设置请按EXEMemory ：EXE 清除记忆（存储）请按EXEAll ：EXE 清除所有请按EXEReset All ? 重新设置所有吗？[EXE]：Yes 选择“是的”，请按EXE[ESC]：Cancel 选择“取消”，请按 ESCClear Setup ? 清除设置吗？[EXE]：Yes 选择“是的”，请按EXE[ESC]：Cancel 选择“取消”，请按 ESCClear Memory ? 清除记忆（存储）吗？[EXE]：Yes 选择“是的”，请按EXE[ESC]：Cancel 选择“取消”，请按 ESCComplete ! 更改工作完成！Press[AC] Key 请按AC 键4、Replay 是计算器指令状态移动方向键 上下左右均可移动，按左箭头指令光标跑到最右边，按右箭头指令光标跑到最左边。
5、Solve 不能按EXE 键执行的，都是按这个键来求解。
6、EXE 四则运算的执行、输入的确认7、ESC 取消 返回上一个界面 当计算器没反应时都是按这个键8、DEL 删除刚刚输入的一个数字9、AC 清除刚刚输入的一行数字10、∧ 乘方 例如5乘5次方，输入5∧5即可11、开x 次方开方 shift+∧=()23x = 12、开机出现的就是加减乘除四则运算的模式COMP ，中间用其他模式后，如果需要用该模式计算，请直接按COMP 键调用这个模式。
13、计算器的屏幕小，提供的功能多，因此，往往一个键提供两个功能，一个功能直接按，另一个功能要 按SHIFT 后再按该键才行。
如55的计算，直接输入5，再按∧，再输入5，然后按EXE 即运算出结果。
又如324的计算，按SHIFT，然后按∧，调出，向左移动方向键使光标到达x 的前面，输入3，右移光标到达根号里面，输入24，再按EXE 即运算出结果。
卡西欧4800 4850计算器程序
卡西欧4800\4850计算器计算程序及说明一：坐标反算：(ZBFS)1 程序步骤：C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”▲J≤Ｏ＝＞J=J+360△J”A1-2=”2 操作过程：ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→输入Y2值→EXE→EXE→EXE注：①：S1-2:计算得出的距离。
②：A1-2:计算得出的角度。
（按shift°′″转换为60进制的角度）③：此程序可循环计算。
3 案例：已知：D1坐标（7811.23，606.136），D2坐标（7805.915，431.910）求解： a D1-D2(A1-2)=268°15′09.56 ″S D1-D2(S1-2)=174.3071二：坐标正算：(ZBZS)1 程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R) ▲Y”Y2”=D+J2 操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离值→EXE→输入A1-2角度（例268°15′09.56 ″）值→EXE→EXE注：①：X2计算得出坐标，Y2计算得出坐标。
②：此程序可循环计算。
3 案例：已知：D1坐标（7811.23，606.136），两点距离：S D1-D2(S1-2)=174.3071方位角：a D1-D2(A1-2)=268°15′09.56 ″ 求解：D2坐标（7805.915，431.910三：线路曲线计算程序:（XLQXJS）(万能公式)1 程序步骤：1.Lbl 0:{E G}：A“XA”：B“YA”：C“CA”：D“1/RA”：E“1/RB”：F“DKA”： G“DKA”2.Lbl 1:{H O R}:H“DKI”：O“DL”：R“DR”：H＞G=﹥Goto 3⊿3.P=(E-D)/Abs(G-F):Q=Abs(H-F):I=P×Q:T=D+I4.J=C+(I+2D)×Q×90/π ▲5.M=C+(I/4+2D)Q×45/(2π):N=C+(3I/4+2D)Q×135/(2π):6.K=C+(I/2+2D)Q×45/π7.X=A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 ▲8.Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 ▲9.U“XL”=X+Ocos(J-90) ▲10.V“YL”=Y+Osin(J-90) ▲11.W“XR”=X+Rcos(J+90) ▲12.Z“YR”=Y+ Rsin(J+90) ▲13. A=X：B=Y：C=J：D=T：F=H：Goto 1Lbl 3: A=X：B=Y：D=E：F=G：C=J：Goto 0程序说明：A- 曲线元起点A的坐标；B- 曲线元起点B的坐标；C- 曲线元起点A的切线坐标方位角；F- 曲线元起点A的里程；G- 曲线元起点B的里程；H- 曲线上待求点i的里程；D- 曲线元起点A的曲率；E- 曲线元终点B的曲率；XL-左边线点位X坐标；YL-左边线点位Y坐标；XR-右边线点位X坐标；YR-右边线点位Y坐标；X- 中线点位纵坐标；Y- 中线点位横坐标；DL-左边线距中线平距；DR-右边线距中线平距；该程序需要输入的数据为：（1）.曲线元起点A的坐标及切线坐标方位角，计算器上用“XA”，“YA”，“CA”显示；（2）.曲线元起点A和B的曲率，计算器上用I÷RA，I÷RB 显示（曲线左偏时取“-”）；（3）.曲线元起点A和终点B的里程，计算器上用“DKA”，“DKB”显示；（4）.输入待求点里程和该点距左右的水平距离，计算器上用“DKI”，“DL”，“DR”显示；每算完一个待求点的中线及边线坐标，程序又让输入下一点的“DKI”，“DL”，“DR”当输入的“DKI”大于“DKB”时程序中显示“1÷RB”和“DKB”，此时输入下一个曲线元起点的曲率和里程，然后重复步骤（4），即可计算下一个曲线中线及边线点位坐标。
卡西欧计算程序语言
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<条件>先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。