卡西欧5800基本测量程序Word文档格式.docx
《卡西欧5800基本测量程序Word文档格式.docx》由会员分享，可在线阅读，更多相关《卡西欧5800基本测量程序Word文档格式.docx（9页珍藏版）》请在冰豆网上搜索。
Thengoto2:
…………（中间交点参数）
（最后一个交点参数）
ThenIfA>
P-T+S+D:
ThenGoto1:
lfEnd:
lfEndJ
ProgHZFXZJ
Lb11：
＂NOTASK＂J
Lb12:
IfM=1:
ThenIfA=1:
ZHUANGHAO:
Z丄
SJKUANDU:
B丄
END
KUANDU（拓展功能程序，用于反算）
1—M:
Prog1'
MAIN'
J
Z—A：
gE:
0—WJ
ProgGAOCHENGJ
E—WJ
Q-F—PJ
IfP<
……（从小至大）:
Then……—D:
Goto1:
……（同上）
Lb11J
'
……'
:
D丄
（同上）丄
YUAN
K（B+（2R））—FJ
r
2RSin（KF）—CJ
J+Fr—JJ
Prog＂XZBH＂
HHQX
B-BA5-（90（RL）2）—CJ
KB"
-（6RL）—FJ
J+F—JJ
PYJS
IfO=0:
Then＂YUAN＂:
J+F—J:
IfO=1:
Then＂HHQ＂X:
J+2F—J:
IfO=2:
Then＂LINE＂:
J+180—J:
W—CJ
IfA>
P-T+S-L:
ThenJ-90—J:
ElseJ+90—J:
Prog＂XZBH＂J
X="
XA
Y="
YA
QXCS有改）
Prog＂QDZB＂J
IfA<
P-T+L:
ThenA-P+T—B:
U—J:
1—O:
Prog"
HHQX:
Goto
1:
lfEndJ
P-T+S-L:
ThenA-P+T-L—B:
0—0:
L-LA3-（90R2）—C:
KL+（6R）
rr
—F:
U+F—J:
Prog＂XZBH＂:
U+3Fr—J:
Prog＂YUAN＂:
1:
IfA<
P-T+S:
ThenP-T+S-A—B:
-K—K:
V+180—J:
HHQX:
Goto1:
P-T+S+D:
Then2—O:
A-P+T-S—C:
XZBH:
J
Prog＂PYJS＂J
Prog＂GA0CHENG
QDZB
N—X:
E—Y:
T—CJ
ThenV—J:
ElseU+180—J:
Prog＂XZBH＂J
X—Z〔5〕:
Y—Z〔6〕
JDTZ
IfZ〔1〕<
0:
ThenZ〔1〕+360—Z[1]:
IfZ〔1J>
360:
ThenZ〔1〕-360—Z[1]:
IfZ〔2〕<
ThenZ〔2〕+360—Z[2]:
IfZ〔2J>
ThenZ〔2〕-360—Z[2]:
FWJ
0^I:
0^JJ
Pol（H-G,W-Z）J
J<
0?
J+360tJJ
J—F
DOTLINE
Pol（H-X,W-Y）:
I—NJPol（G-H,Z-W）:
I—EJPol（X-G,Y-Z）:
I—DJ
（N+E+D）+2—IJ
V（l（l-N）（l-E）（l-D））—IJ
2I-D—IJ
ZSPD
ThenProgHQXCS:
0—K:
FSPD
IfK=-1:
ThenIfZ〔1〕<
Z〔2〕:
ThenlfF<
Z:
1〕:
ThenGoto
lfF>
Z〔2〕:
ElseIfF<
Then
F>
IfK=1:
ThenIfZ〔1〕>
Z〔2〕:
ThenIfF>
Z〔1〕:
IfEnd:
lfF<
ElseIfF>
Z〔1〕:
IfF<
Z[2]:
lfEnd0^A:
Goto2J
Lb11JlfO=0:
ThenProg＂FSYUA＂N:
lfEndJlfO=1:
ThenProg＂FSHHQ＂X:
1tAJ
Lb12
FSTJ
U-90KtZ[1]J
V-90KtZ[2]J
Prog＂JDTZ＂J
P-TtAJ
-1tOJ
Prog＂JDZB＂J
Prog＂FSPD＂J
IfA=0:
IfEndJ（有改）
Z[1]tZ[1]:
Z[1]+K（L-（2R））rtZ[2]:
1tO；
lfA=1:
Then0tK:
Goto2:
2r
Z[5]tx：
Z[6]tY：
（KL）-（6R）tF:
L-La3-（90R）tc：
U+FtjJ
ProgHXZBHJ
U+3F+903J:
R—CJ
X—G:
Y—ZJ
Prog＂FWJ＂J
Z[2]—Z[1]:
Z[1]+K（（S-2L）-R）—Z[2]:
0—0J
Prog＂JDTZ＂J
Prog＂FSPD＂J
IfA=1:
Then0—K:
Goto2:
-K—K:
V+90K—Z[1]:
Z[1]+K（L-（2R））—Z[2]:
1—Oj
P-T+S—AJ
Prog＂JDZB＂J
IfD>
ThenP-T+S—A:
Prog＂FSLINE＂:
Then0—
K:
FSYUAN
＂YUAN＂J360+K（F-Z[1]）—FJ
360?
F-36厂F/J
P-T+L+nRF+180—Z:
lfK=1:
ThenR-I—B:
ElseI-R—B:
FSHHQX
＂HHQ＂XJ
Z[5]—X:
Z[6]—YJ
Z[1]+180—J:
R—CJ
Prog＂DOTLINE＂J
IfI<
Then0—B:
Goto3:
ElseI—B:
Prog＂FSHHQX＂1:
I—
Z[7]:
B+I-10—B:
FSHHQX1:
Ifl>
Z[7]:
ThenGoto1:
Else:
B-I-2—B:
FSHHQX1J
lfl<
Then-l—l:
ElseGoto1:
Lb12J
B+I-2—B:
ThenGoto3:
ElseGoto2:
IfEndJ（有改）
Lb13J
P-T+L:
ThenP-T+S-B-I—Z:
ElseP-T+B+I—Z:
ThenD-E—B:
ElseE-D—B:
IfEnd
ThenIfA<
ThenE-D—B:
Else
B:
FSHHQX1
Z[5]—X:
Z[6]—Y:
Z[1]+90K—JJ
Prog＂HHQ＂XJ
X—Z[3]:
Y—Z[4]J
R—C:
J+2Fr+90K—JJ
Z[3]—X:
Z[4]—YJ
Prog＂DOTLINE＂
JDZB
Z[5]—Z[3]:
Z[6]—Z[4]J
IfO=-1:
ThenP-T+S—A:
Prog＂QDZB＂:
Z[3]—Z[5]:
Z[4]ElseZ[1]+90K+K（L-（6R））r—J:
L-LA3-（90R2）—C:
XZBH＂:
（Z[6]-Y+Xtan（Z[2]）-Z[5]tan（Z[1]））-（tan（Z[2]）-tan（Z[1]））
GJ
D-E—
—Z[6]:
Prog＂
—
tanZ[2]（G-X）+Y—ZJ
Prog＂FWJ＂
ZFXZ
ThenProg"
ZSPD:
ElseProg"
FSTJ'
:
lfEnd
FSLINE
ProgHQDZBJ
X—G:
Y—Z:
J—NJ
ProgHFWJJ
N—J:
F-J—FJ
Icos（F）—GJ
IfG<
D:
ThenP-T+S+G—Z:
Isin（F）—B:
ElseP-T-G—Z:
-Isin（F）—B:
1—A:
2—O:
Else0—A:
XZBH
X+Ccos（J）—XJ
Y+Csin（J）—Y
HENGPO
P-T+L-Z[10]:
ThenZ[8]—V:
Then（Z[9]-Z[8]）-Z[10]—
E:
Z[8]+（A-P+T-L+Z[10]）E—V:
Goto1:
ThenZ[9]—V:
P-T+S-L+Z[10]:
Then（Z[8]-Z[9]）-Z[10]—
Z[9]+（A-P+T-S+L）E—V:
Z[8]—VJ
Lb11
GAOCHENG
……（交点桩号）—O:
……（交点高程）—D:
……（小桩号坡度）—
N:
……（切线长度）—G:
……（圆曲线半径）—RJ
O-G:
Then0—K:
O+G:
Then1—K:
（K=0为直线、K=1为凸圆、K=-1为凹圆）
Lb11:
Prog＂HENGP＂OJ
2
K（A-O+G+（2R）—PJ
D+N（A-O）-P+WV—FJ
DM"
F丄
FWJJS（测回法测坐标）
A＂XA＂:
B＂YA＂:
C＂XB＂:
D＂YB＂:
K＂CHANGDU＂:
G＂JIAODU＂
l=0:
J=0:
Pol（C-A,D-B）:
0?
J二J+360/J
E=J+GJ
J"
FWJA
XX二A+KcosEA
Y"
Y'
二B+KsinE丄
＂END＂
说明:
JIAODU顺时钟为正、逆时针为负，'
XA、'
YA为测站点坐标、'
XBi、'
YB为后视点坐标，'
X'
、'
为前视即待测点坐标，'
CHANGDU为测站点到待测点距离。
升级会员 