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

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

卡西欧5800线元法程序 卡西欧5800圆曲线编程

卡西欧5800线元法程序 卡西欧5800圆曲线编程

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:990.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:947.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:867.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． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于

卡西欧5800子程序SUB0中的线元起点方位角是指什么？？？？

1.线元起的坐标是ZH点坐标，方位角是也是此点的方位角。

2.终点的坐标是HY点的坐标，方位角是也是此点的方位角。

3.线元法是把一条圆加缓的曲线分成三段，缓和线元上分两段，圆曲线上分一段

关于casio5800 程序 QH2-8

我的也是5800，不过QH2-8N这个程序我没有输入呢，看了那么长就晕了，同事说什么没有曲线要素就没有用的那个程序、问下lz这个程序有用吗？ 那本书的前言不是有那个作者的qq啊，建议lz去问下嘛、

如何学习5800计算器编程？

1，熟悉卡西欧5800里面所有牵扯到测量的功能。x0dx0a2，fx-5800里面的编程语言basic的一些语法，并结合测量的例子来说明。这样跟容易今后上手。x0dx0a3，对一些例子的分析，包括思路和语法讲解。x0dx0a4，在实际工作中，用到最多的函数和程序的分享。x0dx0a声明一点，一定要动手，就是看着文章，手里面要拿个5800，要不然一切都是白扯。这系列fx-5800教程是默认为会用fx-5800输入一些基本的字符的。这些都可以参考fx-5800的说明书。电子版fx-5800说明书下载。x0dx0a这里在灌输一个编程思想。x0dx0a 编程要有个思路，x0dx0a 1、输入部分。x0dx0a 2、计算部分。x0dx0a 3、输出部分。x0dx0a比方说要正算方位角，首先知道A（x,y）,b(m,n) 这是输入部分。x0dx0a计算部分：pol（x-m,y-n）x0dx0a输出部分：i,j （i=两点的距离，j=两点的方位角）x0dx0a这就是编程。测量上的编程，把它转化为5800程序就是x0dx0a1 "x"?x:"y"?: "m"?m:"n"?n x0dx0a2 x0dx0a3 pol(x-m,y-n)x0dx0a4 x0dx0a5 i_：j_

卡西欧5800计算器自己的编的程序如何！！

只要两台计算器用连接线连接就可以!

书不知道在哪买，下面这个或许你要5800中边桩坐标计算程序ZZZZZZ(主程序)Lb1 1:”NO.I”?H:Prog”Z1”换行(E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I换行C＋（I＋2D）×Q×90÷π→J换行C＋（I÷8＋2D）×Q×45÷（4π）→M换行C＋（3I÷8＋2D）×Q×135÷（4π）→N换行C＋（5I÷8＋2D）×Q×225÷（4π）→U换行C＋（7I÷8＋2D）×Q×315÷（4π）→V换行C＋（I÷4＋2D）×Q×45÷（2π）→K换行C＋（I÷2＋2D）×Q×45÷π→L换行C＋（3I÷4＋2D）×Q×135÷（2π）→Z换行A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosL＋cosZ）＋cosJ）→X换行B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinL＋sinZ）＋sinJ）→Y换行“X=”:X◢“Y=”:Y◢ “W L“?O:"WR"?R“XL=”:X＋O×cos（J－90）◢ “YL=”:Y＋O×sin（J－90）◢ “XR=”:X＋R×cos（J＋90）◢ “YR=”:Y＋R×sin（J＋90）◢Goto 1换行 Z1（数据库）If H≤终点桩号：Then起点桩号→F:终点桩号→G：起点X坐标→A:起点Y坐标→B：起点切线方位角→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。N个Lb1 0：Return换行曲率左偏为负右偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。。。等等需要使用时把主程序Z1改为Z2依次类推NO.I？为要求点里程

卡西欧5800计算器怎么输入程序？

以输入f(x)计算为例，具体方法如下：

1、这里出现了f(x)=，不能进行常规数学计算。

2、点击一下“MODE”键

4、这时候就清除了设置了，进入正常的计算模式。

4、这时候就清除了设置了，进入正常的计算模式。

卡西欧5800圆曲线程序

CASIO fx—5800计算器 工程测量与公路测量程序

1、坐标正算

＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J

X+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 DMS

GOTO 0

说明：X1Y1：点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角

3、圆曲线

＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R

Lbl 1

＂DQHAO=″?L

L

＂PY=″?K

180(L-G)÷(πR) →E

2RSin(0.5E) →F

ReC(Abs(F),D+0.5E)：Cls

＂X=″:X+I+KCos(D+E+90) →A

＂Y=″:Y+J+KSin(D+E+90) →B

D+E→o:o<0 360+o→0o

＂FWJ=″:o DMS

Goto 1

Lbl 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(0.5R(D-C) ÷100)→S

＂T″:S

J-T→X

J＋T→Y

Lbl 0

＂DQ=″?L

If L

＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H

Goto 0

Lbl 1

＂END″

说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

5．正算偏移

＂X0=″?A: ＂Y0=″?B:＂FWJ=″?D:

Lbl 0

＂LS=″?L: ＂PY=″?C

ReC(L,D)

＂X=″:A+I+CCos(D+ 90) →X

＂Y=″:B+J+CSin(D+ 90) →Y

Goto 0

说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角

6.公式

＂X0=″?A:＂Y0=″?B:＂FWJ=″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F:

＂ZDHAO″?G

Lbl 1

＂DQHAO=″?H:＂PY=″?o

If H

(E-D)÷Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K

A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:

B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V

＂X=″:U+oCos(J+90) →X

＂Y=″:V+oSin(J+90) →Y

＂FWJ=″: J DMS

Goto 1

Lbl 2

＂END″

说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标

6、标高计算

＂QZHAO=″?J:＂QDHAO=″?G:＂ZDHAO=″?K:＂B—HB=″?B:＂SX=″?Q:＂I1=″?C:

＂I2=″?D:＂R=″?R:＂T=″?T

(D-C)÷100→W:W÷Abs(W)→A:＂T″:0.5RAbs(W) →S

＂o-YIGAO=″?o

J-T→X:J+T→Y

Lbl 1

＂L—DQHAO=″?L:＂PY=″?U:＂XIELV=″?V

If L

＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

＂HO=″:o-H→Z

Goto 1

Lbl 2

L

＂HL=″:B+0.01 (L-J)C+0.01UV+Q →H

＂H0=″:o-H→H

Goto 1

Lab 3

L>K Goto 4

＂HL=″:B+0.01 (L-J)D+0.01UV+Q →H

＂HO=:o-H→Z

Goto 1

Lbl 4: ＂END″

说明：QZHAO：曲中点里程（竖曲线），QDHAO：起点里程，ZDHAO：终点里程，B—HB曲中点高程，SX：上下（路面标高下多少为水稳层面），I1：坡度，I2：第二坡度，R：半径，T切线长，L—DQHAO：待求点里程，PY：偏移（中桩到边桩的距离），XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高