卡西欧5800完整程序.docx

资源描述

卡西欧5800完整程序.docx

《卡西欧5800完整程序.docx》由会员分享，可在线阅读，更多相关《卡西欧5800完整程序.docx（9页珍藏版）》请在冰豆网上搜索。

卡西欧5800完整程序.docx

卡西欧5800完整程序

卡西欧5800计算程序（请仔细核对）

（程序输完毕后记得先在普通模式扩展变量，输入：

35→Dimz，按EXE键，出现Done,扩展成功）

ZHYHZ（不运行，该程序为主线坐标的计算程序）

E2÷24÷R→Z[1]:

E÷2-E^（3）÷（240R2）→Z[2]:

F2÷24÷R→Z[3]:

F÷2-F^3÷（240R2）→Z[4]:

（R+Z[1]）tan（H÷2）+Z[2]-（Z[1]-Z[3]）÷sin（H）→Z[5]：

（R+Z[3]）tan（H÷2）+Z[4]+（Z[1]-Z[3]）÷sin（H）→Z[6]:

tan-1（（R+Z[1]）÷（Z[5]-Z[2]））→Z[7]:

tan-1（（R+Z[3]）÷（Z[6]-Z[4]））→Z[8]:

E÷R×90°÷π→Z[9]:

F÷R×90°÷π→Z[10]:

G+DH→Z[11]:

A-Z[5]→Z[12]:

Z[12]+E→Z[13]:

Z[13]+（90°-Z[7]-Z[9]）Rπ÷180°→Z[14]:

Z[13]+（H-Z[9]-Z[10]）Rπ÷180°→Z[15]:

Z[15]+F→Z[16]:

B+Z[5]cos（G-180°）→Z[17]:

C+Z[5]sin（G-180°）→Z[18]:

B+Z[6]cos（Z[11]）→Z[19]:

C+Z[6]sin（Z[11]）→Z[20]←┚

IfK≤Z[14]:

ThenE→Q:

K-Z[12]→L:

ElseF→Q:

Z[16]-K→L:

IfEnd←┚

IfK≤Z[12]:

ThenGoto1：

ElseIfK＞Z[12]AndK≤Z[13]:

ThenGoto2:

ElseIfK＞Z[13]AndK≤Z[14]:

ThenGoto3:

ElseIfK＞Z[14]AndK≤Z[15]:

ThenGoto4:

ElseIfK＞Z[15]AndK≤Z[16]:

ThenGoto5:

ElseIfK＞Z[16]:

ThenGoto6:

IfEnd:

IfEnd←┚

LbI1:

G→Z[26]:

Z[17]-Lcos（G-180°）→Z[21]:

Z[18]-Lsin（G-180°）→Z[22]:

Goto9←┚

LbI2:

L-L^5÷（40R2Q2）→Z[23]:

L^（3）÷（6RQ）-L^（7）÷（336R^（3）Q^（3））→Z[24]:

G+DL2×90°÷（QRπ）→Z[26]:

Goto7←┚

LbI3:

（L-Q）×180°÷（Rπ）+Z[9]→Z[25]:

Rsin（Z[25]）+Z[2]→Z[23]:

R（1-cos（Z[25]））+Z[1]→Z[24]:

G+DZ[25]→Z[26]:

Goto7←┚

LbI4:

（L-Q）×180°÷（Rπ）+Z[10]→Z[25]:

Rsin（Z[25]）+Z[4]→Z[23]:

R（1-cos（Z[25]））+Z[3]→Z[24]:

Z[11]-DZ[25]→Z[26]:

Goto8←┚

LbI5:

L-L^5÷（40R2Q2）→Z[23]:

L^（3）÷（6RQ）-L^7÷（336R^（3）Q^（3））→Z[24]:

Z[11]-DL2×90°÷（QRπ）→Z[26]:

Goto8←┚

LbI6:

Z[11]→Z[26]:

Z[19]-L×cosZ[11]→Z[21]:

Z[20]-Lsin（Z[11]）→Z[22]:

Goto9←┚

LbI7:

Z[17]+Z[23]cos（G）+Z[24]cos（G+D×90°）→Z[21]:

Z[18]+

Z[23]sin（G）+Z[24]sin（G+D×90°）→Z[22]:

Goto9←┚

LbI8:

Z[19]+Z[23]cos（Z[11]+180°）+Z[24]cos（Z[11]+D×90°）→Z[21]:

Z[20]+Z[23]sin（Z[11]+180°）+Z[24]sin（Z[11]+D×90°）→Z[22]:

Goto9←┚

LbI9:

＂JJ＂?

＂PJ＂?

＂X=＂：

Z[21]+Pcos（z[26]+N）→X◢

＂Y=＂:

Z[22]+Psin（Z[26]+N）→Y◢

＂QXFWJ=＂:

Z[26]

DMS◢←┚

ZXZB（该程序为主线程序，只运行该程序）

＂CZX＂?

＂CZY＂?

W←┚

LbI0:

＂K＂?

IfK＜54074.263（第1条曲线的终点桩号带大桩号，也就是是缓直点桩号，下面同上）:

ThenGotoA：

ElseIfK＜56247.409（第2条曲线的终点桩号带大桩号）AndK≥54074.263（第1条曲线的终点桩号带大桩号）:

ThenGotoB:

ElseIfK＜58007.266AndK≥56247.409:

ThenGotoC:

IfEnd:

IfEnd←┚（有几条曲线就是几个IfEnd）

LbIA:

53203.87266（第1条曲线的交点桩号）→A:

3560815.660（第1条曲线交点的X坐标）→B:

484158.7230（第1条曲线交点的Y坐标）→C:

76°10＇54.56＂（计算方位角）→G:

16°49＇2.2＂（转角）→H:

-1（路线左右偏，左-，右+）→D:

4500（半径）→R:

430→（第1缓和曲线的长度）E:

430（第2缓和曲线的长度）→F:

Prog＂ZHYHZ＂:

GotoW←┚（下面同上）

LbIB:

55278.9644→A:

3561878.191→B:

485952.830→C:

59°21＇52.34＂→G:

19°22＇48.7＂→H:

+1→D:

4500→R:

430→E:

430→F:

Prog＂ZHYHZ＂:

GotoW←┚

LbIC:

57236.8579→A:

3562263.305→B:

487888.000→C:

78°44＇41＂→G:

14°13＇19.1＂→H:

-1→D:

4500→R:

430→E:

430→F:

Prog＂ZHYHZ＂:

GotoW←┚

LbIW:

＂PJ1＂?

T←┚

IfT=0：

ThenX→Z:

Y→M:

GotoP:

ElseGotoV:

IfEnd←┚

LbIV:

＂JJ1＂?

O←┚

＂X1=＂:

X+Tcos（Z[26]+N+O）→U◢

＂Y1=＂：

Y+Tsin（Z[26]+N+O）→V◢

U→Z:

V→M:

GotoP←┚

LbIP:

Pol（Z-S,M-W）:

IfJ≤0：

ThenJ+360°→J:

IfEnd←┚

＂JL=＂:

I◢

＂FWJ=＂:

DMS◢

Goto0

显示：

1、CZX？

（输入仪站X坐标）

2、CZY？

（输入仪站Y坐标）

3、K？

（输入所求桩号，带大桩号）

4、JJ？

（输入夹角，正交输90°，斜交输夹角）

5、PJ？

（输入偏距，左负右正，中桩输0）

6、X=（所求X坐标）

7、Y=（所求Y坐标）

8、QXFWJ（所求曲线方位角）

9、PJ1?

（输入左右边桩再偏距离，前负后正，不需要再偏输0）

10、JJ1？

（输入左右边桩再偏夹角，上面输0，该步不会显示）

11、X1=（所求左右边桩再偏X坐标）

12、Y1=（所求左右边桩再偏Y坐标）

13、JL=（仪站点至所求点的距离）

14、FWJ=（仪站点至所求点的方位角）

再往下继续计算

Z-ZBFS

LbI0

＂DQX＂?

＂DQY＂?

S←┚

＂JDX＂?

＂JDY＂?

＂A0＂?

＂ZJ＂?

＂Z（-1）Y

（1）＂?

＂R＂?

＂LS1＂?

＂LS2＂?

＂K＂?

K←┚

LbI1←┚

Norm1:

Prog＂ZHYHZ＂:

Pol（W-Z[21],S-Z[22]）:

IfJ＞0：

ThenJ→J:

I→I:

ElseJ+360°→J:

I=I:

IfEnd←┚

J-Z[26]→Z[27]:

Icos（Z[27]）→Z[28]:

K+Z[28]→K:

IfAbs（Z[28]≥0.001：

ThenGoto1：

ElseFix3：

IfEnd：

Isin（Z[27]）→Z[29]:

Fix3:

＂FSJL=＂:

Z[29]◢

＂FSK=＂:

K◢

Goto0

反算时要在反算区域正算一次，获取曲线要素

显示

1、DQX?

（输入反算时的X坐标）

2、DQY?

（输入反算时的Y坐标）

3、然后一直按＂EXE＂出现下面的字符

4、FSJL=（所求反算左右偏距，左负右正）

5、FSK=（所求反算的桩号）

6、再按继续运算

WN（不运行）

＂ZS=1,FS=2＂？

1÷P→C:

（P-R）÷（2HPH）→D:

180÷π→E:

IfN=1:

ThenGoto1:

ElseGoto2:

IfEnd←┚

LbI1:

1→I:

0→Z：

Abs（K-Ｏ）→W:

Prog＂ZS＂←┚

F-90→F←┚

＂JJ＂?

＂PJ＂?

＂ZX=＂：

Z[7]+Lcos（F+K）→Z[3]◢

＂ZY=＂:

Z[8]+Lsin（F+K）→Z[4]◢

＂QXFWJ=＂:

DMS◢

Abs（Z）→Z：

Goto8←┚

LbI2:

＂X＂?

＂Y＂?

Prog＂FS＂:

＂FSZH=＂:

Ｏ+W→K◢

＂FSJL=＂:

Z◢

Lbl8

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

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）））→Z[7]：

V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Z[8]：

G+QEW（C+WD）+90→F：

Z[7]+ZcosF→Z[7]：

Z[8]+ZsinF→Z[8]

3反算子程序（FS）（不运行）

G-90→T：

Abs（（Z[8]-V）cosT-（Z[7]-U）sinT）→W：

0→Z←┚

Lbl0←┚

prog＂ZS＂：

T+QEW（C+WD）→L：

（J-Z[8]）cosL-（I-Z[7]）sinL→Z：

IfAbs（Z）＜0.001:

ThenGoto1：

ElseW+Z→W：

IfEnd:

Goto0←┚

Lbl1：

0→Z：

Prog＂ZS＂：

（J-Y）÷sinF→Z

ZX-WN（运行主程序，该程序适用于匝道，对全段完整非完整曲线计算太过麻烦）

＂CZX＂?

S（仪站X坐标）:

＂CZY＂?

W（仪站Y坐标）

LbI0:

＂K＂?

IfK≤218.50（第1条单一曲线的终点下面同上）:

ThenGotoA：

ElseIfK≤373.307AndK＞218.50:

ThenGotoB:

ElseIfK≤526.691AndK＞373.307:

ThenGotoC：

ElseIfK≤946.255AndK＞526.691:

ThenGotoDIfEnd:

IfEnd:

IfEnd←┚

LbIA:

3803701.508（起点X坐标）→U:

494281.813（起点Y坐标）→V:

0起点桩号→O:

293°47＇49＂（方位角）→G:

218.50（曲线长度）→H:

3990.75（起点半径）→P:

3990.75（止点半径）→R:

+1（路线左右偏，左负右正）→Q:

Prog＂WN＂:

GotoW

LbIB:

3803795.099→U:

494084.403→V:

218.50→O:

296°56＇2.4＂→G:

154.807→H:

10^45→P:

10^45→R:

0→Q:

Prog＂WN＂:

GotoW

LbIC:

3803865.221→U:

493946.388→V:

373.307→O:

296°56＇2.4＂→G:

153.384→H:

10^45→P:

496.5→R:

+1→Q:

Prog＂WN＂:

GotoW

LbID:

3803941.562→U:

493813.538→V:

526.691→O:

305°47＇3.15＂→G:

419.564→H:

496.5→P:

496.5→R:

+1→Q:

Prog＂WN＂:

GotoW

LbIW:

＂PJ1＂?

T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）

IfT=0：

ThenZ[3]→Z:

Z[4]→M:

GotoP:

ElseGotoV:

IfEnd←┚

LbIV:

＂JJ1＂?

O←┚（左右边桩再偏夹角，用180°减去路线夹角）

＂X1=＂:

Z[3]+Tcos（F+K+O）→U◢

＂Y1=＂:

Z[4]+Tsin（F+K+O）→V◢

U→Z:

V→M:

GotoP←┚

LbIP:

Pol（Z-S,M-W）:

IfJ≤0：

ThenJ+360°→J:

IfEnd←┚

＂JL=＂:

I◢（仪站至测点的距离）

＂FWJ=＂:

DMS◢（仪站至测点的方位角）

Goto0

1．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：

当元线为直线时，Q=0°

2．当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值：

当位于中线右侧时，Z取正值°当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替°

3．当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径°

4．当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替°与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径°

5．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°

二、输入与显示说明

1.输入部分：

2..输入

3.ZS=1，FS=2，选择计算方式，输入1正算；输入2反算

4.数据库的输入

5.U？

线元起点的X坐标

6.V？

线元起点的Y坐标

7.O？

线元起点的里程

8.G？

线元的起点切点方位角

9.H？

线元的长度

10.P？

线元起点的曲率的半径

11.R？

线元止点的曲率的半径.

12.ZY？

线元左右偏标志（左偏Q=-1，右偏Q=1，直线段Q=0）

13.计算时：

14.K？

正算时所求的里程

15.JJ？

夹角，（正交90°，斜交直接输角度）

16.PJ？

偏距（左负右正）

17..结果

18.ZX=正算时，计算得出的测点的X坐标

19.ZY=正算时，计算得出的测点的Y坐标

20.QXFWJ=正算时，测点对应中线点的切线方位角

21.PJ1?

：

左右桩号再偏距离，不需要时输0

22.JJ1?

左右边桩再偏角度

23.JL=仪站与测点的距离

24.FWJ=仪站与测点的方位角

25.反算时输入：

26.X？

反算时所求点的X坐标

27.Y？

反算时所求点的Y坐标

28.结果

29.FSZH=反算时，计算得出的所求点的里程

30.FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏）

GCJS

Abs（C-D）×R÷2→Z[1]:

A-Z[1]→Z[2]:

A+Z[1]→Z[3]:

If　D-C＞0：

Then1→E:

Else-1→E:

IfEnd←┚

IfK≤Z[2]：

ThenGoto1：

ElseIfK＞Z[2]AndK≤A:

ThenGoto2:

ElseIfK＞AAndK≤Z[3]:

ThenGoto3:

ElseIFK>Z[3]:

thenGoto4:

IfEnd:

IfEnd←┚

LbI1：

Z[2]-K→L:

B-（Z[1]+L）×C→H:

Goto5←┚

LbI2:

K-Z[2]→L:

B-（Z[1]-L）×C+E×L2÷R÷2→H:

Goto5←┚

LbI3:

Z[3]-K→L:

B+（Z[1]-L）×D+E×L2÷R÷2→H:

Goto5←┚

LbI4:

K-Z[3]→L:

B+（Z[1]+L）×D→H:

Goto5←┚

LbI5:

＂EL=＂：

H◢←┚

主线高程（ZXGC）

LbI0:

＂K＂?

IfK≤552.156（第1条竖曲线的终点下面同上）:

ThenGotoA：

ElseIfK≤1352.805AndK＞552.156:

ThenGotoB:

ElseIfK≤2045.311AndK＞1352.805:

ThenGotoC:

ElseIfK≤2493.942AndK＞2045.311:

ThenGotoD：

ElseIfK≤3265.244AndK＞2493.942:

ThenGotoE：

IfEnd:

IfEnd←┚

LbIA:

501.436（边坡点桩号）→A:

226.395（边坡点高程）→B:

-0.0257（边坡点前坡比）→C:

-0.005（边坡点后坡比）→D:

4900（半径）→R:

Prog＂GCJS＂:

GotoF←┚（下面同上）

LbIB:

1303.305→A:

222.386→B:

-0.005→C:

0.04→D:

2200→R:

Prog＂GCJS＂:

GotoF←┚

LbIC:

1985.311→A:

249.666→B:

0.04→C:

-0.04→D:

1500→R:

Prog＂GCJS＂:

GotoF←┚

LbID:

2425.578→A:

232.055→B:

-0.04→C:

-0.0218→D:

7500→R:

Prog＂GCJS＂:

GotoF←┚

LbIE:

2849.694→A:

222.823→B:

-0.0218→C:

-0.03→D:

6000→R:

Prog＂GCJS＂:

GotoF←┚

LbIF：

IfK≤309.562（第1条曲线的终点）:

ThenGoto1：

ElseIfK≤1053.022（第2条曲线终点）AndK＞309.562:

ThenGoto2:

ElseIfK≤1354.954AndK＞1053.022:

ThenGoto3:

ElseIfK≤1613.025AndK＞1354.954:

ThenGoto4：

ElseIfK≤1863.124AndK＞1613.025:

ThenGoto5：

ElseIfK≤2937.433AndK＞2312.560:

ThenGoto6：

ElseIfK≤3145.553AndK＞2937.433:

ThenGoto7：

IfEnd:

←┚

LbI1:

-0.015（直线段横坡）→F:

-0.02（圆曲线线段横坡）→G:

126.9（第1缓和曲线起点）→I:

176.9（第1缓和曲线终点）→J:

259.562（原曲线终点）→L:

309.562（第2缓和曲线终点）→M:

1（方向,左负右正）→N:

GotoG←┚（下面同上）

LbI2:

-0.015→F:

-0.02→G:

860.749→I:

920.749→J:

993.022→L:

1053.022→M:

-1→N:

GotoG←┚

LbI3:

-0.015→F:

-0.02→G:

1248.441→I:

1283.441→J:

1319.954→L:

1354.954→M:

+1→N:

GotoG←┚

LbI4:

-0.015→F:

-0.02→G:

1439.731→I:

1489.731→J:

1563.025→L:

1613.025→M:

-1→N:

GotoG←┚

LbI5:

-0.015→F:

-0.02→G:

1712.165→I:

1757.165→J:

818.124→L:

1863.124→M:

1→N:

GotoG←┚

LbI6:

-0.015→F:

-0.02→G:

2121.544→I:

2121.544→J:

2312.560→L:

2312.560→M:

1→N:

GotoG←┚

LbI7:

-0.015→F:

-0.02→G:

2752.223→I:

2812.223→J:

2877.433→L:

2937.433→M:

1→N:

GotoG←┚

LbI8:

-0.015→F:

-0.02→G:

3060.515→I:

3060.515→J:

3145.553→L:

3145.553→M:

-1→N:

GotoG←┚

LbIG:

IfK≤I:

ThenGotoH:

ElseIfK≤JAndK＞I:

ThenGotoI:

ElseIfK≤LAndK＞J:

ThenGotoJ:

ElseIfK≤MAndK＞L:

ThenGotoK:

ElseIfK＞M:

ThenGotoL:

IfEnd:

IfEnd←┚

LbIH:

F→Z:

F→Y:

Goto9

LbII:

J=I=＞GotoJ:

（（K-I）×（Abs（F）+Abs（G）））÷（J-I）-Abs（F）→Z[1]:

IfN=-1:

ThenGotoM:

ElseGotoN:

IfEnd←┚

LbIM:

Z[1]→Y:

IfZ[1]≤-F:

ThenF→Z:

Else–Z[1]→Z:

IfEnd:

Goto9

LbIN:

Z[1]→Z:

IfZ[1]≤-F:

ThenF→Y:

Else–Z[1]→Y:

IfEnd:

Goto9

LbIJ:

IfN=-1:

ThenG→Z:

-G→Y:

Else-G→Z:

G→Y:

IfEnd:

Goto9←┚

LbIK:

M=L=＞GotoL:

（M-K）×（Abs（F）+Abs（G））÷（M-L）-Abs（F）→Z[2]:

IfN=-1:

ThenGotoP:

ElseGotoQ:

IfEnd←┚

LbIP:

Z[2]→Y:

IfZ[2]≤-F:

ThenF→Z:

Else–Z[2]→Z:

IfEnd:

Goto9

LbIQ:

Z[2]→Z:

IfZ[2]≤-F:

ThenF→Y:

Else–Z[2]→Y:

IfEnd:

Goto9

LbIL:

F→Z:

F→Y:

Goto9

Lbl9:

＂ZC=1,YC=2＂?

IfX=1:

ThenGotoV:

EIseGotoW:

IfEnd

IblV:

”BJZ”?

”BHZ=”:

H+J×Z◢

Goto0

IblW:

”BJY”?

”BHY=”:

H+S×Y◢

展开阅读全文