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

上传人:b****1 文档编号:2089610 上传时间:2022-10-26 格式:DOCX 页数:8 大小:16.95KB
下载 相关 举报
卡西欧5800基本测量程序完整版.docx_第1页
第1页 / 共8页
卡西欧5800基本测量程序完整版.docx_第2页
第2页 / 共8页
卡西欧5800基本测量程序完整版.docx_第3页
第3页 / 共8页
卡西欧5800基本测量程序完整版.docx_第4页
第4页 / 共8页
卡西欧5800基本测量程序完整版.docx_第5页
第5页 / 共8页
点击查看更多>>
下载资源
资源描述

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

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

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

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

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

 

卡西欧5800程序

(完整版)

说明:

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

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

主程序:

MAIN

"ZH(θ)F(1)"?

M↓(0为正算、1为反算)

IfM=θ:

Then"ZHUANGHAO"?

A:

"KUANDU"?

W:

Else"X="?

H:

"Y="?

W:

"Z="?

Q:

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

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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 解决方案 > 商业计划

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1