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

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

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

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

卡西欧　58００程序

（完整版）

说明：

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

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

主程序:

MAIN

＂ZH（θ）F（１）＂?

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

ＩfM=θ：

Then＂ＺＨＵAＮG　　HAＯ＂?

A：

＂KUAＮ　ＤU"?

W:

Ｅｌse＂X="？

Ｈ：

"Ｙ＝"？

W:

＂Z=＂?

Q:

ＩfEnd↓

（第一个交点参数）

（交点桩号）…→Ｐ:

（切线长度）…→T:

（曲线总长）…→S:

（圆半径）…→Ｒ=:

（缓和曲线长）…→Ｌ：

（第一方位角）…→U：

（第二方位角）…→V:

（交点X坐标）…→N：

（交点Y坐标）…→E:

（第一直线长、无为０）…→D：

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

（第二坡度）…→Ｚ〔９〕:

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

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

ＩfM＝θ:

ＴhenＩfA

Tｈｅn　goto１:

ＩfEnｄ：

IfEnd↓

Proｇ"ZFＸZ"↓

If　K=θ:

Thｅnｇoｔo2:

IfＥnd↓

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

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２：

IfＥnd↓

Lb11:

"ＮＯTASＫ＂↓

Lｂ1２：

ＩｆＭ=1:

Then　Ｉf　A=1:

Ｔhen"ＺHUANＧHAＯ":

Ｚ◢

＂ＳJＫUAN　DＵ＂:

B◢

ＩfＥｎd:

IfEnd↓

＂-－－--－-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ｒ→Ｊ:

IfEnd↓

IfＯ＝2:

Ｔhen＂LIＮE"：

Ｊ+18θ→J:

ＩfＥｎd↓

W→C↓

IｆA>Ｐ-T+S－L:

Thｅn　J-９θ→J:

ElsｅJ＋９θ→J：

ＩfEnd↓

Ｐ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:

IfEnd↓

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:

ＩfEnd↓

Ｉ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：

↓

Proｇ"ＰYJS＂↓

Prog＂ＧA0　CHEＮG"

QDZB

N→X:

E→Y：

Ｔ→C↓

IｆA>P-Ｔ+S-L:

Thｅn　V→J:

ElseU+１８θ→J:

IfＥｎd↓

Ｐ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Ｅｎd↓

If　Ｚ〔２〕≥36θ:

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

IfEｎd↓

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:

ＩfＥｎd:

IfEnd:

IfＥｎｄ↓

IfK=1:

Ｔｈeｎ　IfＺ〔1〕>Z〔2〕:

Ｔhｅn　IfF≥Z〔1〕：

ThｅnＧoto1　:

IｆEnd　:

ＩfF≤Ｚ〔2〕：

Then　Ｇoｔo1:

IfEnd:

Eｌse　IfF≥Z〔1〕:

ThenＩfF≤Z[２]:

Ｔhen　Goto　1:

ＩfＥnd:

ＩｆEnd：

ＩｆEnd：

IｆEｎd↓

θ→A:

Ｇoto２↓

Lb１1↓

If　O=θ：

ＴhenProg"FSYＵAN＂:

IfＥnd↓

IfO＝1:

ThenProg＂ＦSＨHQX":

IfEnｄ↓

1→A↓

Ｌb１2

FＳTJ

Ｕ-90K→Z［1]↓

V-９０K→Ｚ[2]↓

Ｐrｏｇ"ＪＤTZ＂↓

P－T→A↓

－１→Ｏ↓

Pｒog"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＂↓

Prog"FＳPD"↓

ＩfＡ=１：

Then　θ→Ｋ：

Gｏｔo２　:

ＩｆEnd↓

Z[5］→X:

Z[6］→Y：

（ＫＬ）÷（6R）→F:

L-L＾3÷（90Ｒ2）→C：

U+Fｒ→J↓

Prog"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Ｚ"↓

Prog"ＦSPD＂↓

IfA=1：

Tｈenθ→Ｋ：

Goｔｏ2:

IfEnｄ↓

－K→K:

V+9θＫ→Ｚ[１]:

Ｚ[1]+K（L÷（2Ｒ））r→Z[2]：

1→Ｏ↓

Proｇ"Ｊ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:

IfEnd:

ＩｆEnd↓

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→Ｂ:

IfEnd↓

FＳHHQＸ

"HHＱX"↓

Ｚ[５］→Ｘ：

Z[6]→Y　↓

Z［１］+1８θ→Ｊ:

Ｒ→C↓

Ｐｒog＂XZBH"↓

X→G:

Y→Z↓

Ｚ［５]→X：

Z[６]→Y↓

Pｒog"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:

IfEnd↓

Lb11↓

Ｂ－Ｉ÷2→B:

Prog＂FSＨＨＱX1＂↓

IｆI<1:

Tｈeｎ-I→I：

Ｇoｔｏ３:

ElseGoto　1:

IfＥnd↓

Lb１2↓

B＋Ｉ÷2→Ｂ:

Ｐroｇ＂ＦＳHHQＸ1"↓

ＩfＩ<1:

ThenGｏto３:

ＥlseGoｔo2:

ＩfEnd↓（有改）

Lb１３↓

IfA>P-T+Ｌ：

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

ElseＰ-T＋Ｂ＋I→Z：

IfEnd↓

IfK＝1:

Ｔheｎ　IfＡ<Ｐ-T＋S-L:

ＴheｎD-E→Ｂ:

ElseE-Ｄ→B:

IfEｎｄ:

ＩfＥnd↓

IｆK＝－1:

ThｅnIf　A

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↓

Prog"FWＪ"

ZＦＸZ

If　M＝θ:

Theｎ　Pｒog"ＺＳPＤ＂:

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

IfEnd

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:

IfEnd↓

IfA≤Ｐ-T＋L:

Theｎ（Ｚ[9]-Z[8]）÷Z[1０]→E:

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

Gｏｔｏ1:

ＩfEnd↓

If　A≤P-T+S－Ｌ:

TｈｅｎZ[9］→Ｖ:

Goｔo1:

IfEnｄ↓

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

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

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

　Goto1:

IｆEnｄ↓

Z［8]→Ｖ↓

Lb11

GAOCHＥＮG

……（交点桩号）→O:

……（交点高程）→D:

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

……（切线长度）→G:

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

ＩfA≤Ｏ-Ｇ：

Tｈeｎθ→K：

Goｔo1:

IfEnd↓

Ｉｆ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　ＤＵ＂为测站点到待测点距离。