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

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

1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚

01739274226→A： 03260725774→B： 00694318442→K： 03300094782→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)＜0001: 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≤1269（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤1769 And K＞1269: Then Goto B:Else If K≤259562 And K＞1769: Then Goto C:Else If K≤309562 And K＞259562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚

LbI A:92094336（起点X坐标）→U:8287962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:1269（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto W

LbI B:91990134→U:8360388→V:1269→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W

LbI C:91947609→U:8386570→V:1769→O:154°44＇51＂→G:82662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W

LbI D:91867101→U:8399992→V:259562→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． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于

1、简明步骤：

新建程序名称

具体：按“mode” →按“prog”→按“NEW”,输入程序名字后开始输入程序内容。

2、输入方法

1）数字输入：直接按数字键。

2）红色字母或符号输入：按ALPHA+字母键（或符号）。

3）**字符输入：按shift+字符键

4）命令输入：按Function→Prog后，找到命令后按对应数字。

主程序名：5JD

24→Dimz↙

Cls :＂XC＂U :＂YC＂V :＂K（JD）＂K :＂X（JD）＂X :

＂Y（JD）＂Y :＂LS1＂B :＂LS2＂C : R :

＂（ZH）FWJ°＂M : ＂α（Z-,Y+）°＂O : M+O→N :

Prog ＂JDA＂↙

Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢

Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢

Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢

LbI 0 : ＂K×+×××＂P : ＂Z＂D : If D≠0 :Then ＂RJ＂H : IfEnd : Prog ＂JDB＂↙

If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢

Pol(F-U,G-V : Cls : ＂S(L)=＂: Locate 6,1,I : ＂F(L)=＂:

360Frac((J+360)÷360▼DMS◢

Goto 0 : IfEnd↙

If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G : ＂QXFWJ(Z)=＂: Z▼DMS◢

Pol(F-U,G-V : Cls : ＂S(Z)=＂: Locate 6,1,I : ＂F(Z)=＂:

360Frac((J+360)÷360▼DMS◢

Goto 0 : IfEnd↙

If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢

Pol(F-U,G-V : Cls : ＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂:

360Frac((J+360)÷360▼DMS◢

Goto 0 : IfEnd↙

子程序1名： JDA

If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙

B2 ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙

C2 ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙

B÷2-B^(3)÷240÷R2 →Z[8] ↙

C÷2-C^(3)÷240÷R2 →Z[9] ↙

Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙

Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙

RAπ÷180+(B+C) ÷2→L↙

RAπ÷180-(B+C) ÷2→Q↙

(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙

K-S→Z[1] ↙↙

Z[1]+B→Z[2] ↙↙

Z[2]+Q÷2→Z[3]↙

Z[1]+L-C→Z[4]↙

Z[4]+C→Z[5]↙

子程序2名： JDB

X-Scos(M)→Z[19]:

Y-Ssin(M)→Z[20]↙

X+Tcos(N)→Z[21]:

Y+Tsin(N)→Z[22]↙

If P＞Z[1]:Then Goto 1 :IfEnd↙

Z[1]-P→L↙

X-(S+L)cos(M)+Dcos(Z+H)→F↙

Y-(S+L)sin(M)+Dsin(Z+H)→G↙

M→Z : Goto 5↙

LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙

P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙

Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙

Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙

M+90WL2 ÷(BRπ)→Z↙

Goto 5↙

LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙

P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙

Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙

Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙

Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙

M+WZ[11]→Z↙

Goto 5↙

LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙

Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂JDC＂↙

Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙

Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙

N-90WL2 ÷(CRπ)→Z↙

Goto 5↙

LbI 4 : P-Z[5]→L↙

X+(T+L)cos(N)+Dcos(Z+H)→F↙

Y+(T+L)sin(N)+Dsin(Z+H)→G↙

N→Z↙

Goto 5↙

LbI 5 : 360Frac((Z+360)÷360→Z↙

子程序3名： JDC

If Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙

Z[12]- Z[12]^(5)÷40÷(RZ[13])2+ Z[12]^(9)÷3456÷(RZ[13])^(4) →Z[14]↙

Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+ Z[12]^(11) ÷42240÷(RZ[13])^(5)→Z[15] ↙

IfEnd↙

程序说明：

已知数据输入：

XC 测站X坐标

YC 测站Y坐标

K（JD）交点桩号

X（JD）交点X坐标

Y（JD）交点Y坐标

LS1 第一缓和曲线长度

LS2 第二缓和曲线长度

R 圆曲线半径

（ZH）FWJ°交点前（即前交点至本交点也即ZH点）的正切线方位角

α（Z-,Y+）本交点处线路转角（左转为负，右转为正，度分秒输入）

K×+××× 待求桩号

Z 待求桩号距中距离（左负值，右正值，中为0）

RJ 斜交右角（线路切线前进方向与边桩右侧夹角）

计算结果显示：

T1=第一切线长

T2=第二切线长

L=曲线总长

LY=圆曲线长

E=曲线外距

K(ZH)=直缓点桩号

K(HY)=缓圆点桩号

K(QZ)=曲中点桩号

K(YH)=圆缓点桩号

K(HZ)=缓直点桩号

X= Y=待求点的坐标（其中：L-左 Z-中 R-右）

QXFWJ(Z)=待求点的中桩切线方位角（当求中桩坐标时显示）

S= F=测站至待求点的水平距离、方位角（其中L-左 Z-中 R-右）

以上就是关于卡西欧FX-5800P坐标正反算程序怎么编辑全部的内容，包括:卡西欧FX-5800P坐标正反算程序怎么编辑、5800计算器进入程序的3种途径、求5800交点计算（中、边桩）坐标程序，还有计算说明。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！