卡西欧5800基本测量程序完整版文档格式.docx

卡西欧5800基本测量程序完整版文档格式.docx

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

Prog＂ZFXＺ＂↓

IfK=θ:

Thｅn　ｇotｏ2　:

ＩfＥnd↓

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

ＩｆＭ＝θ:

TｈｅnＩｆＡ>

P-T+S＋Ｄ:

Tｈen　Ｇotｏ１:

IfＥnｄ：

ＩfEｎｄ↓

Prog＂ZFXZ"

ＩfＫ=θ:

Ｔhｅｎ　goｔo２：

Lb11:

ＮＯTASＫ＂↓

Lｂ1２：

ＩｆＭ=1:

Then　Ｉf　A=1:

Ｔhen"

ＺHUANＧHAＯ"

:

Ｚ◢

＂ＳJＫUAN　DＵ＂:

B◢

ＩfＥｎd:

＂-－－--－-END-------"

KUAＮ　DＵ（拓展功能程序，用于反算）

1→M:

Proｇ＂MAIN"

Z→Ａ：

Ｗ→E:

θ→W↓

Pｒog"

ＧAOCHENＧ＂↓

E→W↓

Q－F→P↓

ＩfＰ≤……（从小至大）:

Then……→D:

Goto　１:

IfＥｎd↓

……（同上）

Lb１1↓

＂……"

D◢

（同上）◢

＂－---－-－--－ＥＮＤ－--------"

YUＡＮ

Ｋ（B÷

（2R））→F↓

２RＳiｎ（K　Fr）→Ｃ↓

Ｊ+Fr→J↓

Ｐroｇ"

XＺBＨ"

HHQX

B-B^5÷

（9θ（RＬ）2）→C↓

KB2÷

（６RL）→Ｆ↓

J+Fr→J↓

Ｐrog"

XZBH＂

PYJS

If　O＝θ:

Tｈen＂YUAＮ"

：

Ｊ+Ｆr→J：

ＩｆＥnd↓

IfＯ=1：

Then＂ＨHQＸ"

Ｊ+2Fｒ→Ｊ:

IfＯ＝2:

Ｔhen＂LIＮE"

Ｊ+18θ→J:

ＩfＥｎd↓

W→C↓

IｆA>

Ｐ-T+S－L:

Thｅn　J-９θ→J:

ElsｅJ＋９θ→J：

Ｐrｏg＂XZＢH＂↓

X="

X◢

＂Y=＂:

Y◢

QXCS（有改）

Prog"

QＤZB"

IfA≤P-Ｔ+L:

ThenＡ-P＋T→Ｂ:

U→J：

1→O：

　Ｐrｏg＂HHQX"

Ｇoto1:

IfＡ≤P－T+S-L:

ThenＡ-Ｐ+T－Ｌ→B:

θ→0:

Ｌ-Ｌ^3÷

（90Ｒ２）→C：

KＬ÷

（6R）→F:

Ｕ+Fr→J:

Ｐrog＂ＸＺＢH"

U+3Fr→J：

Prog＂ＹUAN＂:

Goto1:

ＩfA≤P－T+S:

ThenP－T+S-A→B:

1→Ｏ：

－K→K:

Ｖ＋180→J:

Pｒog＂HHQX"

　Goｔo1:

ＩｆEnd↓

IfA≤P-T+S+Ｄ:

Thｅn2→O:

A-P+T－Ｓ→C：

Proｇ"

XZBH＂:

IfEｎd↓

Ｌb11：

ＰYJS＂↓

Prog＂ＧA0　CHEＮG"

QDZB

N→X:

E→Y：

Ｔ→C↓

P-Ｔ+S-L:

Thｅn　V→J:

ElseU+１８θ→J:

Ｐrog＂XＺＢＨ＂↓

X→Z〔5〕:

Y→Z〔6〕

JDTZ

Ｉf　Z〔１〕＜　θ:

Tｈｅn　Z〔1〕+　36θ→Z[1]:

IｆEnｄ↓

ＩfＺ〔1〕≥　３6θ:

ThenＺ〔1〕-３6θ→Z［１］:

ＩｆEｎｄ↓

ＩｆZ〔2〕<

　θ:

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

If　Ｚ〔２〕≥36θ:

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

FＷJ

θ→I:

θ→J↓

Pol（H-Ｇ,Ｗ-Z）　↓

Ｊ<

θ⇒Ｊ+36θ→J↓

Ｊ→F

DOTLINE

Pol（H－Ｘ,W-Y）：

I→N↓

Poｌ（G－H,Z-W）:

I→E↓

Poｌ（X-Ｇ，Y-Z）:

Ｉ→D↓

（Ｎ+E+D）÷

2→I↓

√（Ｉ（I－Ｎ）（I-E）（Ｉ-Ｄ））→I↓

２I÷

D→I↓

ＺSPD

Ｉf　A≤P-T+S+D：

TheｎProg＂ＱXCＳ"

θ→K:

IfEnｄ↓

FSPD

IfＫ=-1:

ThenIｆ　Z〔1〕<

Ｚ〔2〕：

Ｔｈen　IfF≤Z〔1〕:

Tｈｅn　Goto1:

IfEnd:

IfF≥Z〔2〕:

Ｔｈen　Ｇoto１　:

IfEnd：

ElｓeＩf　Ｆ≤Z〔1〕:

Ｔhen　F≥Z〔2〕:

ThｅnGｏto1　:

IfＥnd:

IfＥｎｄ↓

IfK=1:

Ｔｈeｎ　IfＺ〔1〕>

Z〔2〕:

Ｔhｅn　IfF≥Z〔1〕：

ThｅnＧoto1　:

IｆEnd　:

ＩfF≤Ｚ〔2〕：

Then　Ｇoｔo1:

Eｌse　IfF≥Z〔1〕:

ThenＩfF≤Z[２]:

Ｔhen　Goto　1:

ＩfＥnd:

ＩｆEnd：

IｆEｎd↓

θ→A:

Ｇoto２↓

If　O=θ：

ＴhenProg"

FSYＵAN＂:

IfO＝1:

ThenProg＂ＦSＨHQX"

IfEnｄ↓

1→A↓

Ｌb１2

FＳTJ

Ｕ-90K→Z［1]↓

V-９０K→Ｚ[2]↓

Ｐrｏｇ"

ＪＤTZ＂↓

P－T→A↓

－１→Ｏ↓

JDZＢ"

Prog＂ＦSPD＂↓

IｆA＝θ:

ＴhｅnGoｔo　1:

IfEｎd↓（有改）

Ｚ[1]→Ｚ[1]:

Z［1]+K（L÷

（2R））r→Z［2]:

１→O↓

Ｐrｏｇ＂ＪDTZ"

Prog＂JDＺB＂↓

FＳPD"

ＩfＡ=１：

Then　θ→Ｋ：

Gｏｔo２　:

Z[5］→X:

Z[6］→Y：

（ＫＬ）÷

L-L＾3÷

（90Ｒ2）→C：

U+Fｒ→J↓

XＺBH"

U+３Fｒ＋90K→Ｊ:

R→C↓

Prog＂XZＢＨ"

X→Ｇ:

Y→Z↓

Prｏg＂FＷJ"

Z[2]→Ｚ[１]：

Z[1］+K（（S－2L）÷

R）ｒ→Z[２]：

θ→0↓

Prog＂ＪＤTＺ"

ＦSPD＂↓

IfA=1：

Tｈenθ→Ｋ：

Goｔｏ2:

V+9θＫ→Ｚ[１]:

Ｚ[1]+K（L÷

（2Ｒ））r→Z[2]：

1→Ｏ↓

ＪDTZ＂↓

Ｐ-T+S→A↓

Ｐrog＂JDZB＂↓

Prｏｇ＂FSPD"

ＩｆA=1:

Tｈenθ→K:

Goto2：

IfＥnｄ↓

Lb1１↓

IfD>

θ:

ThｅnP－T+S→A:

Pｒｏg＂ＦSLＩNＥ"

IfA=1:

Thｅn　θ→K:

Lb12

ＦSＹUＡN

ＹＵAＮ"

36θ+K（F-Ｚ［１］）→F↓

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

P-T+L+πRF÷

1８θ→Z:

If　K＝1:

ThｅnR-I→Ｂ:

Eｌｓe　I-R→Ｂ:

FＳHHQＸ

HHＱX"

Ｚ[５］→Ｘ：

Z[6]→Y　↓

Z［１］+1８θ→Ｊ:

Ｒ→C↓

Ｐｒog＂XZBH"

X→G:

Ｚ［５]→X：

Z[６]→Y↓

DＯTＬINE"

IfI<

１:

Tｈenθ→B:

Goto3：

　Elｓe　I→B:

　Ｐrog＂FＳHHQＸ１"

I→Z[7]:

B+Ｉ÷

1０→B:

Ｐrｏg"

FSHHQX1＂:

IfI>

Ｚ[7]　:

ThenGｏtｏ　1:

Else:

Goｔo２:

ＩfEnd:

Lb11↓

Ｂ－Ｉ÷

2→B:

Prog＂FSＨＨＱX1＂↓

IｆI<

1:

Tｈeｎ-I→I：

Ｇoｔｏ３:

ElseGoto　1:

Lb１2↓

B＋Ｉ÷

2→Ｂ:

Ｐroｇ＂ＦＳHHQＸ1"

ＩfＩ<

ThenGｏto３:

ＥlseGoｔo2:

ＩfEnd↓（有改）

Lb１３↓

IfA>

P-T+Ｌ：

TｈenP－T+S-Ｂ-I→Z:

ElseＰ-T＋Ｂ＋I→Z：

IfK＝1:

Ｔheｎ　IfＡ<

Ｐ-T＋S-L:

ＴheｎD-E→Ｂ:

ElseE-Ｄ→B:

IfEｎｄ:

IｆK＝－1:

ThｅnIf　A<

P－T＋Ｓ－L:

ThenＥ-D→B:

ElsｅD-Ｅ→B:

IｆＥｎd：

IfEnd

FSHHQX１

Z[５]→Ｘ:

Z[6]→Y:

Z[1]+9θＫ→Ｊ↓

Prog＂HHQX＂↓

X→Z［3］：

Y→Z［4]↓

R→C:

Ｊ+２Fr＋9θK→J↓

Prｏｇ"

XZBH＂↓

Ｘ→Ｇ:

Ｙ→Z↓

Ｚ[3]→X:

Z［4]→Y↓

Ｐrog＂DOＴＬINE＂

JＤZB

Ｐｒog"

QDZB＂↓

Ｚ［５]→Ｚ[３]:

Ｚ[6]→Ｚ[4]↓

ＩfO=-1:

ThenP－T＋S→Ａ：

　Pｒｏｇ"

QDZB"

Ｚ[3]→Z［5]：

Z［4］→Z[６]:

Elsｅ　Z[1]+9θK＋K（L÷

（6R））ｒ→J:

Ｌ-L＾3÷

（９θR2）→C：

Ｐrog＂XZBH"

IｆEnｄ↓

（Ｚ[6]-Y+Xtan（Z［2］）-Z[5]tan（Z[1]））÷

（tan（Ｚ[2］）-ｔaｎ（Ｚ[1］））→Ｇ↓

taｎZ[2］（Ｇ-X）＋Y→Z↓

FWＪ"

ZＦＸZ

If　M＝θ:

Theｎ　Pｒog"

ＺＳPＤ＂:

Ｅlse　Prｏｇ＂ＦＳＴJ＂：

FＳLＩＮE

Pｒog＂QDZＢ"

X→G：

Ｙ→Ｚ:

Ｊ→N↓

Prｏg"

ＦWＪ＂↓

N→J：

F-J→F↓

Icoｓ（F）→G↓

IｆG≤D:

ThｅnIfA>

Ｐ-T+S-L:

ＴhenP-Ｔ+S＋G→Z:

Isｉn（F）→Ｂ:

ElseP-T－G→Z:

-Isin（F）→B:

IｆEnd:

1→A:

２→O:

　Ｅlse　θ→A:

IfEnd

XZBH

X+Cｃos（J）→Ｘ↓

Y＋Csin（Ｊ）→Ｙ

HEＮG　PO

If　A≤P－T＋L-Z[1０]:

ThenＺ[8]→V:

Gｏtｏ1:

IfA≤Ｐ-T＋L:

Theｎ（Ｚ[9]-Z[8]）÷

Z[1０]→E:

Z［8]＋（Ａ-P＋T-L+Z[１０]）E→V:

Gｏｔｏ1:

If　A≤P-T+S－Ｌ:

TｈｅｎZ[9］→Ｖ:

Goｔo1:

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

Then（Z[8]-Z［9］）÷

Ｚ[10］→E:

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

　Goto1:

Z［8]→Ｖ↓

Lb11

GAOCHＥＮG

……（交点桩号）→O:

……（交点高程）→D:

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

……（切线长度）→G:

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

ＩfA≤Ｏ-Ｇ：

Tｈeｎθ→K：

Goｔo1:

ＩｆA≤O＋G:

Thｅn1→Ｋ:

Gｏto1：

ＩfEnd↓　　　　　　　　　　（K=0为直线、K=1为凸圆、Ｋ=－1为凹圆）

Ｌｂ11:

Pｒｏg"

HＥＮＧPO＂↓

K（Ａ-Ｏ+G）2÷

（２R）→P　↓

D＋N（A-O）-P+ＷV→Ｆ↓

DM"

F◢

FＷJJS（测回法测坐标）

Ａ＂XＡ"

B＂YＡ"

C＂XB＂:

D＂ＹB"

K"

CHＡNG　DU"

G＂JＩAＯDＵ"

I=0:

J=0:

Pｏl（C-A,Ｄ－B）:

0⇒J=J+3６0⊿↓

E=J+G↓

Ｊ"

FWJ"

◢

X＂Ｘ"

=A+KcosＥ◢

Y＂Y"

＝B＋KｓinＥ◢

＂－-－－---ＥND--－-－--＂

＂JIAO　ＤU＂顺时钟为正、逆时针为负，＂ＸA＂、＂YA＂为测站点坐标、＂ＸB"

、"

YB＂为后视点坐标,"

Ｘ＂、"

Ｙ＂为前视即待测点坐标,"

ＣHAＮG　ＤＵ＂为测站点到待测点距离。