主线匝道施工放样程序4850PB.docx

主线匝道施工放样程序4850PB.docx

《主线匝道施工放样程序4850PB.docx》由会员分享，可在线阅读，更多相关《主线匝道施工放样程序4850PB.docx（20页珍藏版）》请在冰豆网上搜索。

主线匝道施工放样程序4850PB

GISGFYCX－B放样程序

（fx-4850P）

Mｃｌ

Defm45

Lbl7

{X}∶X″K1=″∶Z[25]＝X

{X}∶X″K2＝″：

X∶Z[26]＝X

Cls

Z[26]＝2＝＞Goto0⊿

{X}∶X″XA=″∶Z[27]=X∶X＝0＝＞ＧotoY⊿

{Y}∶Y″YA=″∶Z[28]=Y

Cls

{X}∶X″XB＝″∶{Y}∶Y″YB＝″∶Z[23]＝X∶Z[24]＝Y

Pol（Z[23]-Z[27]¸Z[24]-Z[28]）∶J＜0＝＞J＋360→J⊿

″F=″∶JDMS◣

Z[40]=J

″D=″∶I◣（计算后视点方位角距离）

Cls

Lbl0

LblY

{M}∶M″M＝″

M＝10＝＞Goto8⊿

M＝1＝＞Pｒｏｇ″AA″∶GotoA⊿

M＝2＝＞Pｒｏｇ″BB″∶GotoA⊿

M＝3＝＞Pｒｏｇ″CC″∶GotoA⊿

M＝4＝＞Pｒｏｇ″DD″∶GotoA⊿

M＝5＝＞Pｒｏｇ″LA″∶GotoA⊿

M＝11＝＞Pｒｏｇ″AAA″∶GotoA⊿

M＝12＝＞Pｒｏｇ″BBB″∶GotoA⊿

M＝13＝＞Pｒｏｇ″CCC″∶GotoA⊿

M＝14＝＞Pｒｏｇ″DDD″∶GotoA⊿

LblY

Cls

Lbl8

{K}∶K″CD＝″∶Cls

K＝0＝＞Goto7⊿

K≤161240.227＝＞Pｒｏｇ″JD21″∶GotoA⊿

K≤163826.133＝＞Pｒｏｇ″JD22″∶GotoA⊿

K≤166083.699＝＞Pｒｏｇ″JD23″∶GotoA⊿

K≤167003.247＝＞Pｒｏｇ″JD24″∶GotoA⊿

K≤168133.984＝＞Pｒｏｇ″JD25″∶GotoA⊿

K≤168746.094＝＞Pｒｏｇ″JD26″∶GotoA⊿

K≤169293.139＝＞Pｒｏｇ″JD27″∶GotoA⊿

K≤170166.502＝＞Pｒｏｇ″JD28″∶GotoA⊿

K≤171127.165＝＞Pｒｏｇ″JD29″∶GotoA⊿

K≤175428.300＝＞Pｒｏｇ″JD30″∶GotoA⊿

K≤178669.069＝＞Pｒｏｇ″JD31″∶GotoA⊿

K≤179805.707＝＞Pｒｏｇ″JD32″∶GotoA⊿

K≤181350.250＝＞Pｒｏｇ″JD33″∶GotoA⊿

K≤184137.466＝＞Pｒｏｇ″JD34″∶GotoA⊿

K≤186078.570＝＞Pｒｏｇ″JD35″∶GotoA⊿

K≤188716.259＝＞Pｒｏｇ″JD36″∶GotoA⊿

LblA

Z[1]“P1”=S2/24/R-S4/2688/R3（后切线常数）

Z[2]“P2”=W2/24/R-W4/2688/R3（前切线常数）

Z[3]“Q1”=S/2-S3/24零/R2+S5/3456零/R4（后切线常数）

Z[4]“Q2”=W/2-W3/24零/R2+W5/3456零/R4（前切线常数）

Z[5]=tan-1（（（R+Z[2]）/（R+Z[1]）-cosA）/sinA）（反算角度）31.5920

Z[6]“T1”=（R+Z[1]）tanZ[5]+Z[3]（后切线长）

Z[7]“T2”=（R+Z[2]）tan（A-Z[5]）+Z[4]（前切线长）

Z[8]“B零1”=18零S/2/R/π（Z[10]过度常数）

Z[9]“B零2”=180W/2/R/π（Z[10]过度常数）

Z[10]=Ａ-Ｚ[8]-Z[9]（计算园曲线长过度常数）

Z[11]“LY”=πRZ[10]/180（园曲线长）

Z[12]=“Lh”=S+W+Z[11]（曲线全长）

Z[13]=（直缓点）469.93

Z[14]=“HY”=Z[13]+S（缓园点）

Z[15]=“YH”=Z[14]+Z[11]（园缓点）

Z[16]=“HZ”=Z[13]+Z[12]（缓直点）

判别中桩里程位于曲线何处

K≤Z[13]=＞GoTo1⊿

K≤Z[14]=＞GoTo2⊿

K≤Z[15]=＞GoTo3⊿

K≤Z[16]=＞GoTo4⊿

K＞Z[16]=＞GoTo9⊿

LbI1:

L=Z[13]-K:

V=Q

U＝Q＋180

Z[42]＝L

GoTo5

LbI2:

L=K-Z[13]:

Z[42]=√根号（（L3/（6RS）-L7/（336R3S3）+L11/（42240R5S5））2+（L-L5/（40R2S2）+L9/（3456R4S4））2）:

U=Q+3零L2B/πRS

V=Q+9零L2B/πRS

:

Goto5

LbI3

L=K-Z[14]:

Z[17]=Rsin（90（S+2L）/（πR））+Z[3]:

Z[18]=R（1-cos（90（S+2L）/πR））+Z[1]:

Z[42]=√（Z[17]2+Z[18]2）:

U=Q+Btan-1（Z[18]/Z[17]）

V=Q+9零B（S+2L）/πR

Goto5

LbI4

L=Z[16]-K:

Z[19]=Z[7]sinA-（L-L5/（4零R2W2）+L9/（3456R4W4））sinA+（L3/（6RW）-L7/（336R3W3）+L11/（4224零R5W5））cosA:

:

Z[20]=Z[6]+Z[7]cosA-（L-L5/（4零R2W2）+L9/（3456R4W4））cosA-（L3/（6RW）-L7/（336R3W3）+L11/（4224零R5W5））sinA

Z[42]=√（Z[19]2+Z[20]2

U=Q+Btan-1（Z[19]/Z[20]）

V=Q+BA-9零BL2/πRW

Goto5

LbI5

X=O+Z[42]cosU◣

Y=P+Z[42]sinU◣

Z[23]＝X∶Z[24]＝Y

Z[25]=1＝＞Pｒｏｇ″FD″⊿

Z[26]＝2＝＞GotoT⊿

Cls

LbI6:

{N}∶N″SZ＝″Z[21]=N∶Z[21]=0＝＞GotoV⊿

″XZ=″∶Z[23]=X＋Z[21]cos（V－90）◣

″YZ＝″∶Z[24]＝Y＋Z[21]sin（V－90）◣∶

Z[25]=1＝＞Pｒｏｇ″FD″⊿

LbIV

{N}∶N″SY＝″Z[22]=N∶Z[22]＝0＝＞Goto0

″XY＝″∶Z[23]＝X＋Z[22]cos（V＋90）◣

″YY＝″∶Z[24]=Y＋Z[22]sin（V＋90）◣

Z[25]=1＝＞Pｒｏｇ″FD″⊿

Goto0

LbI9

V=Q＋BA

″X＝″∶X=Ｏ＋Z[6]cosQ＋（Z[7]+（K-Z[16]））cos（Q+BA）◣

″Y＝″∶Y=P＋Z[6]sinQ＋（Z[7]+（K-Z[16]））sin（Q+BA）◣

Z[23]＝X∶Z[24]＝Y

Z[25]=1＝＞Pｒｏｇ″FD″⊿

Z[26]＝2＝＞GotoT⊿

Goto6

LbIT

{N}∶N“A＝″[31]=N∶{N}∶N″S＝″∶Z[32]=N∶Z[33]=Z[32]÷sin（Z[31]）

″X1=″∶Z[34]=X＋Z[33]cos（V）◣

″Y1＝″∶Z[35]=Y＋Z[33]sin（V]）◣

Cls

″X2＝″∶Z[36]=X＋Z[33]cos（V＋180]）◣

″Y2＝″∶Z[37]=Y＋Z[33]sin（V＋180]）◣

Cls

{N}∶N″SZ1＝″∶Z[38]=N

″XZ3=″∶X=Z[34]＋Z[38]cos（V-Z[31]）◣

″YZ3＝″∶Y=Z[35]＋Z[38]sin（V-Z[31]）◣

Cls

″XZ4＝″∶X=Z[36]＋Z[38]cos（V-Z[31]）◣

″YZ4＝″∶Y=Z[37]＋Z[38]sin（V-Z[31]]）◣

Cls

{N}∶N″SY1＝″∶Z[39]=N

″X5=″∶X=Z[34]＋Z[39]cos（V-Z[31]+180）◣

″Y5＝″∶Y=Z[35]＋Z[39]sin（V-Z[31]+180）◣

Cls

″X6＝″∶X=Z[36]＋Z[39]cos（V-Z[31]+180]）◣

″Y6＝″∶Y=Z[37]＋Z[39]sin（V-Z[31]+180]）◣

Goto0

子程序

曲线元素

JD21

Z[13]＝159354.29（ZH）∶O＝2609401.755（ZHX）∶P=150829.977（ZHY）∶Q=168°18′48″∶A=15°52′5″∶R=2500∶S=300（LS1）∶W=300（LS2）∶B=-1∶

JD22

Z[13]=161240.230∶O=2607679.229∶P=151574.988∶Q=152°26′43″∶A=62°9′22″∶R=800∶S=300∶W=300∶B=-1

JD23

Z[13]=163826.130∶O=2607106.050∶P=153921.480∶Q=90°17′21″∶A=73°35′40″∶R=1601.885∶S=200∶W=200∶B=1

JD24

Z[13]=166083.690∶O=2605851.541∶P=155581.058∶Q=163°53′1″∶A=39°35′48″∶R=1041.176∶S=200∶W=200∶B=-1

JD25

Z[13]=167003.240∶O=2605127.075∶P=156105.769∶Q=124°17′13″∶A=25°6′22″∶R=1191.897∶S=200∶W=200∶B=1

JD26

Z[13]=168133.98∶O=2604254.777∶P=156802.059∶Q=149°23′35″∶A=25°27′28″∶R=860∶S=230∶W=230∶B=1

JD27

Z[13]=168746.100∶O=2603679.631∶P=156987.581∶Q=174°51′4″∶A=9°3′28″∶R=2195.234∶S=200∶W=200∶B=-1

JD28

Z[13]=169293.140∶O=2603141.236∶P=157079.397∶Q=165°47′36″∶A=21°23′8″∶R=1804.071∶S=200→S∶W=200∶B=1

JD29

Z[13]=170166.500∶O=2602276.563∶P=157132.497∶Q=187°10′43″∶A=15°28′16″∶R=1405.684∶S=200∶W=200∶B=-1

JD30

Z[13]=171127.170∶O=2601322.587∶P=157193.069∶Q=171°42′27″∶A=28°34′29″∶R=1200∶S=200∶W=200∶B=1

JD31

Z[13]=175428.300∶O=2597254.658∶P=155896.714∶Q=200°16′56″∶A=45°15′23″∶R=1200∶S=200∶W=200∶B=-1

JD32

Z[13]=178669.070∶O=2594249.334∶P=156825.761∶Q=155°1′33″∶A=22°8′7″∶R=1500∶S=200∶W=200∶B=1

JD33

Z[13]=179805.710∶O=2593142.689∶P=157029.132∶Q=177°9′40″∶A=14°53′14″∶R=2000∶S=200∶W=200∶B=-1

JD34

Z[13]=181350.220∶O=2591651.805∶P=157408.207∶Q=162°16′26″∶A=7°43′41″∶R=6000∶S=0∶W=0∶B=-1

JD35

Z[13]=184137.46∶O=2589113.920∶P=158555.882∶Q=154°32′44″∶A=15°19′28″∶R=6000∶S=0∶W=0∶B=1

JD36

Z[13]=188044.67∶O=2585319.956∶P=159450.445∶Q=169°52′12″∶A=7°19′26″∶R=5253.969∶S=0∶W=0∶B=1

以下为匝道及联线子程序库

羊街立交匝道数据库

AA

″CD＝″?

→K

K≤569.93＝＞GotoB

K≤823.61＝＞GotoC

K≤916.73＝＞GotoD

LbIB

469.93→Z[13]

2608752。

093→O

151111.024→P

86°2′8.5″→Q

66°6′37.9″→A

65→R

50→S

0→W

1→B

GotoW

LbIC

569.93→Z[13]

2608717.279→O

151197.032→P

152°8′46.3″→Q

182°38′3.5″→A

64→R

0→S

99.349→W

1→B

GotoW

LbID

821.06→Z[13]

2608699.172→O

151057。

197→P

334°45′5.9″→Q

2°12′3.9″→A

2490.75→R

0→S

0→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

BB

″CD＝″?

→K

K≤354.62＝＞GotoB

K≤437.21＝＞GotoC

K≤×××。

×××＝＞GotoD

LbIB

109.07→Z[13]

2608403.146→O

151213.153→P

334°59′24.4″→Q

46°17′5.7″→A

220→R

100.659→S

35→W

1→B

GotoW

LbIC

354.62→Z[13]

2608638.711→O

151194.145→P

21°16′30.2″→Q

49°7′43.8″→A

66→R

52→S

0→W

-1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

CC

″CD＝″?

→K

K≤111.45＝＞GotoB

K≤557.25＝＞GotoC

LbIB

0→Z[13]

2609159.606→O

150873.99→P

168°19′34.8″→Q

2°5′31.7″→A

3052.322→R

0→S

0→W

-1→B

GotoW

LbIC

222.94→Z[13]

2608942.61→O

150925.057→P

166°14′3.2″→Q

99°48′5.3″→A

150→R

40→S

106.6→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

DD

″CD＝″?

→K

K≤445.23＝＞GotoB

LbIB

47.51→Z[13]

2608725.313→O

150789.688→P

86°2′8.5″→Q

66°24′34.6″→A

300→R

50→S

50→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

LA

（联接线数据库）

″CD＝″?

→K

K≤1153.36＝＞GotoB

LbIB

439.27→Z[13]

2608689.235→O

150204.00→P

266°2′8.5″→Q

93°41′33.3″→A

400→R

60→S

60→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

改移老路数据库

GY

″CD＝″∶K

K≤339.13＝＞GotoB

K≤531.79＝＞GotoC

K≤648.51＝＞GotoD

K≤886＝＞GotoE

LbIB

Z[13]=251.02

O=2608847.23

P=150386.477

Q=269°43′41.7″

A=90°0′0″

R=40

S=0

W=0

B=-1

GotoW

LbIC

Z[13]=399.13

O=2608721。

756

P=150347.072

Q=179°43′41.7″

A=71°4′55.7″

R=60

S=0

W=0

B=-1

GotoW

LbID

Z[13]=531.79

O=2608646.577

P=150443.048

Q=108°38′46″

A=36°15′58.4″

R=100

S=0

W=0

B=1

GotoW

LbIE

Z[13]=648.51

O=2608565.596

P=150523.611

Q=144°54′44.4″

A=10°25′47″

R=500

S=0

W=0

B=-1

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

蒙自立交匝道数据库

AAA

″CD＝″?

→K

K＜414.34＝＞GotoB

K≤608.57＝＞GotoC

K≤1394.63＝＞GotoD

LbIB

164.29→Z[13]

2592356.324→O

157200.381→P

344°49′7″→Q

193°36′47.5″→A

55→R

128.378→S

83.333→W

1→B

GotoW

LbIC

414.34→Z[13]

2592435.507→O

157307.335→P

167°34′51.7″→Q

64°41′34″→A

111→R

0→S

137.8→W

1→B

GotoW

LbID

1129.62→Z[13]

2591957.831→O

156805.229→P

232°16′25.7″→Q

29°21′56.7″→A

400→R

60→S

60→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

BBB

″CD＝″?

→K

K＜128.72＝＞GotoB

K≤333，88＝＞GotoC

K≤600.33＝＞GotoD

LbIB

0→Z[13]

2592436.465→O

157311.732→P

347°35′9.3″→Q

45°17′41.3″→A

115.5→R

0→S

74.838→W

-1→B

GotoW

LbIC

128.73→Z[13]

2592530.894→O

157230.189→P

302°17′28″→Q

38°46′25.3″→A

220→R

39.29→S

130.816→W

1→B

GotoW

LbID

333.88→Z[13]

2592689.678→O

157108.429→P

340°14′23″→Q

15°15′59.4″→A

1000→R

0→S

0→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

CCC

″CD＝″?

→K

K＜199.46＝＞GotoB

K≤720.87＝＞GotoC

LbIB

0→Z[13]

2592709.93→O

157070.201→P

170°8′49.6″→Q

5°41′16.3″→A

2009.25→R

0→S

0→W

-1→B

GotoW

LbIC

199.46→Z[13]

2592515.426→O

157114.023→P

164°27′33.3″→Q

67°48′52.3″→A

350→R

50→S

164.314→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主程序）

DDD

″CD＝″?

→K

K≤456.98＝＞GotoB

LbIB

13.01→Z[13]

2592063.248→O

156954.568→P

52°16′25.7″→Q

111°0′0″→A

200→R

60→S

60→W

1→B

GotoW

LbIW

Return（此语句必须有否则不能返回主）