卡西欧5800基本测量程序完整版.docx

卡西欧5800基本测量程序完整版.docx

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

卡西欧5800基本测量程序完整版

卡西欧5800基本测量程序（完整版）

卡西欧5800程序

（完整版）

说明：

本程序适用于公路、桥梁、隧道测量。

本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。

主程序:

MAIN

＂ZH（θ）F（１）＂?

M↓（0为正算、1为反算）

IfM=θ:

Then＂ZHUANGHAO＂?

A：

＂KUANDU＂?

W:

Else＂Ｘ＝＂?

H：

＂Ｙ＝＂?

W:

＂Ｚ＝＂？

Ｑ：

IfEnd↓

（第一个交点参数）

（交点桩号）…→P:

（切线长度）…→T:

（曲线总长）…→S:

（圆半径）…→R=:

（缓和曲线长）…→L:

（第一方位角）…→U:

（第二方位角）…→V:

（交点X坐标）…→N:

（交点Y坐标）…→E:

（第一直线长、无为0）…→D:

（第一坡度）…→Z〔8〕:

（第二坡度）…→Z〔9〕:

（缓和曲线超高段长度）…→Z〔10〕:

（曲线偏向,右偏为+1,左偏为-1）…→K↓

IfM=θ:

ThenIfA

Thengoto1:

IfEnd:

IfEnd↓

Prog＂ZFXZ＂↓

IfK=θ:

Thengoto2:

IfEnd↓

…………（中间交点参数）

Prog＂ZFXZ＂↓

IfK=θ:

Thengoto2:

IfEnd↓

…………（最后一个交点参数）

IfM=θ:

ThenIfA>P-T+S+D:

ThenGoto1:

IfEnd:

IfEnd↓

Prog＂ZFXZ＂↓

IfK=θ:

Thengoto2:

IfEnd↓

Lb11：

＂NOTASK＂↓

Lb12：

IfM=1:

ThenIfA=1:

Then＂ZHUANGHAO＂:

Z◢

＂SJKUANDU＂:

B◢

IfEnd:

IfEnd↓

＂-------END-------＂

KUANDU（拓展功能程序，用于反算）

1→Ｍ:

Prog＂MAIN＂↓

Z→A:

W→E:

θ→W↓

Prog＂GAOCHENG＂↓

E→W↓

Q-F→P↓

IfP≤……（从小至大）:

Then……→D:

Goto1:

IfEnd↓

……（同上）

Lb11↓

＂……＂:

D◢

（同上）◢

＂----------END---------＂

YUAN

K（B÷（2R））→F↓

2RSin（KFr）→C↓

J+Fr→J↓

Prog＂XZBH＂

HHQX

B-B^5÷（9θ（RL）2）→C↓

KB2÷（6RL）→F↓

J+Fr→J↓

Prog＂XZBH＂

PYJS

IfO=θ:

Then＂YUAN＂:

J+Fr→J:

IfEnd↓

IfO=1:

Then＂HHQX＂:

J+2Fr→J:

IfEnd↓

IfO=2:

Then＂LINE＂:

J+18θ→J:

IfEnd↓

W→C↓

IfA>P-T+S-L:

ThenJ-9θ→J:

ElseJ+9θ→J:

IfEnd↓

Prog＂XZBH＂↓

"X=":

X◢

"Y=":

Y◢

QXCS（有改）

Prog＂QDZB＂↓

IfA≤P-T+L:

ThenA-P+T→B:

U→J:

1→O:

Prog＂HHQX＂:

Goto1:

IfEnd↓

IfA≤P-T+S-L:

ThenA-P+T-L→B:

θ→0:

L-L^3÷（90R2）→C:

KL÷（6R）→F:

U+Fr→J:

Prog＂XZBH＂:

U+3Fr→J:

Prog＂YUAN＂:

Goto1:

IfEnd↓

IfA≤P-T+S:

ThenP-T+S-A→B:

1→O:

-K→K:

V+180→J:

Prog＂HHQX＂:

Goto1:

IfEnd↓

IfA≤P-T+S+D:

Then2→O:

A-P+T-S→C:

Prog＂XZBH＂:

IfEnd↓

Lb11：

↓

Prog＂PYJS＂↓

Prog＂GA0CHENG＂

QDZB

N→X:

E→Y:

T→C↓

IfA>P-T+S-L:

ThenV→J:

ElseU+18θ→J:

IfEnd↓

Prog＂XZBH＂↓

X→Z〔5〕:

Y→Z〔6〕

JDTZ

IfZ〔1〕<θ:

ThenZ〔1〕+36θ→Z[1]:

IfEnd↓

IfZ〔1〕≥36θ:

ThenZ〔1〕-36θ→Z[1]:

IfEnd↓

IfZ〔2〕<θ:

ThenZ〔2〕+36θ→Z[2]:

IfEnd↓

IfZ〔2〕≥36θ:

ThenZ〔2〕-36θ→Z[2]:

IfEnd↓

FWJ

θ→I:

θ→J↓

Pol（H-G,W-Z）↓

J<θ⇒J+36θ→J↓

J→F

DOTLINE

Pol（H-X,W-Y）:

I→N↓

Pol（G-H,Z-W）:

I→E↓

Pol（X-G,Y-Z）:

I→D↓

（N+E+D）÷2→I↓

√（I（I-N）（I-E）（I-D））→I↓

2I÷D→I↓

ZSPD

IfA≤P-T+S+D:

ThenProg＂QXCS＂:

θ→K:

IfEnd↓

FSPD

IfK=-1:

ThenIfZ〔1〕

ThenIfF≤Z〔1〕:

ThenGoto1:

IfEnd:

IfF≥Z〔2〕:

ThenGoto1:

IfEnd:

ElseIfF≤Z〔1〕:

ThenF≥Z〔2〕:

ThenGoto1:

IfEnd:

IfEnd:

IfEnd:

IfEnd↓

IfK=1:

ThenIfZ〔1〕>Z〔2〕:

ThenIfF≥Z〔1〕:

ThenGoto1:

IfEnd:

IfF≤Z〔2〕:

ThenGoto1:

IfEnd:

ElseIfF≥Z〔1〕:

ThenIfF≤Z[2]:

ThenGoto1:

IfEnd:

IfEnd:

IfEnd:

IfEnd↓

θ→A:

Goto2↓

Lb11↓

IfO=θ:

ThenProg＂FSYUAN＂:

IfEnd↓

IfO=1:

ThenProg＂FSHHQX＂:

IfEnd↓

1→A↓

Lb12

FSTJ

U-90K→Z[1]↓

V-90K→Z[2]↓

Prog＂JDTZ＂↓

P-T→A↓

-1→O↓

Prog＂JDZB＂↓

Prog＂FSPD＂↓

IfA=θ:

ThenGoto1:

IfEnd↓（有改）

Z[1]→Z[1]:

Z[1]+K（L÷（2R））r→Z[2]:

1→O↓

Prog＂JDTZ＂↓

Prog＂JDZB＂↓

Prog＂FSPD＂↓

IfA=1:

Thenθ→K:

Goto2:

IfEnd↓

Z[5]→X:

Z[6]→Y:

（KL）÷（6R）→F:

L-L^3÷（90R2）→C:

U+Fr→J↓

Prog＂XZBH＂↓

U+3Fr+90K→J:

R→C↓

Prog＂XZBH＂↓

X→G:

Y→Z↓

Prog＂FWJ＂↓

Z[2]→Z[1]:

Z[1]+K（（S-2L）÷R）r→Z[2]:

θ→0↓

Prog＂JDTZ＂↓

Prog＂FSPD＂↓

IfA=1:

Thenθ→K:

Goto2:

IfEnd↓

-K→K:

V+9θK→Z[1]:

Z[1]+K（L÷（2R））r→Z[2]:

1→O↓

Prog＂JDTZ＂↓

P-T+S→A↓

Prog＂JDZB＂↓

Prog＂FSPD＂↓

IfA=1:

Thenθ→K:

Goto2:

IfEnd↓

Lb11↓

IfD>θ:

ThenP-T+S→A:

Prog＂FSLINE＂:

IfA=1:

Thenθ→K:

IfEnd:

IfEnd↓

Lb12

FSYUAN

＂YUAN＂↓

36θ+K（F-Z[1]）→F↓

F≥36θ⇒F-36θ→F⊿↓

P-T+L+πRF÷18θ→Z:

IfK=1:

ThenR-I→B:

ElseI-R→B:

IfEnd↓

FSHHQX

＂HHQX＂↓

Z[5]→X:

Z[6]→Y↓

Z[1]+18θ→J:

R→C↓

Prog＂XZBH＂↓

X→G:

Y→Z↓

Z[5]→X:

Z[6]→Y↓

Prog＂DOTLINE＂↓

IfI<1:

Thenθ→B:

Goto3:

ElseI→B:

Prog＂FSHHQX1＂:

I→Z[7]:

B+I÷10→B:

Prog＂FSHHQX1＂:

IfI>Z[7]:

ThenGoto1:

Else:

Goto2:

IfEnd:

IfEnd↓

Lb11↓

B-I÷2→B:

Prog＂FSHHQX1＂↓

IfI<1:

Then-I→I:

Goto3:

ElseGoto1:

IfEnd↓

Lb12↓

B+I÷2→B:

Prog＂FSHHQX1＂↓

IfI<1:

ThenGoto3:

ElseGoto2:

IfEnd↓（有改）

Lb13↓

IfA>P-T+L:

ThenP-T+S-B-I→Z:

ElseP-T+B+I→Z:

IfEnd↓

IfK=1:

ThenIfA

ThenD-E→B:

ElseE-D→B:

IfEnd:

IfEnd↓

IfK=-1:

ThenIfA

ThenE-D→B:

ElseD-E→B:

IfEnd:

IfEnd

FSHHQX1

Z[5]→X:

Z[6]→Y:

Z[1]+9θK→J↓

Prog＂HHQX＂↓

X→Z[3]:

Y→Z[4]↓

R→C:

J+2Fr+9θK→J↓

Prog＂XZBH＂↓

X→G:

Y→Z↓

Z[3]→X:

Z[4]→Y↓

Prog＂DOTLINE＂

JDZB

Prog＂QDZB＂↓

Z[5]→Z[3]:

Z[6]→Z[4]↓

IfO=-1:

ThenP-T+S→A:

Prog＂QDZB＂:

Z[3]→Z[5]:

Z[4]→Z[6]:

ElseZ[1]+9θK+K（L÷（6R））r→J:

L-L^3÷（9θR2）→C:

Prog＂XZBH＂:

IfEnd↓

（Z[6]-Y+Xtan（Z[2]）-Z[5]tan（Z[1]））÷（tan（Z[2]）-tan（Z[1]））→G↓

tanZ[2]（G-X）+Y→Z↓

Prog＂FWJ＂

ZFXZ

IfM=θ:

ThenProg＂ZSPD＂:

ElseProg＂FSTJ＂:

IfEnd

FSLINE

Prog＂QDZB＂↓

X→G:

Y→Z:

J→N↓

Prog＂FWJ＂↓

N→J:

F-J→F↓

Icos（F）→G↓

IfG≤D:

ThenIfA>P-T+S-L:

ThenP-T+S+G→Z:

Isin（F）→B:

ElseP-T-G→Z:

-Isin（F）→B:

IfEnd:

1→A:

2→O:

Elseθ→A:

IfEnd

XZBH

X+Ccos（J）→X↓

Y+Csin（J）→Y

HENGPO

IfA≤P-T+L-Z[10]:

ThenZ[8]→V:

Goto1:

IfEnd↓

IfA≤P-T+L:

Then（Z[9]-Z[8]）÷Z[10]→E:

Z[8]+（A-P+T-L+Z[10]）E→V:

Goto1:

IfEnd↓

IfA≤P-T+S-L:

ThenZ[9]→V:

Goto1:

IfEnd↓

IfA≤P-T+S-L+Z[10]:

Then（Z[8]-Z[9]）÷Z[10]→E:

Z[9]+（A-P+T-S+L）E→V:

Goto1:

IfEnd↓

Z[8]→V↓

Lb11

GAOCHENG

……（交点桩号）→O:

……（交点高程）→D:

……（小桩号坡度）→N:

……（切线长度）→G:

……（圆曲线半径）→R↓

IfA≤O-G:

Thenθ→K:

Goto1:

IfEnd↓

IfA≤O+G:

Then1→K:

Goto1:

IfEnd