首页

  1. 首页
  2. 测绘论文
  3. 内容

CASIO4800路桥测量应用程序

一、程序设计

1. 测量放样计算主程序 CLFY

V=19:Fixm:Rad

{OEFG}:O”1.XL 2.SD”:E”DZ”:F”DH”:G”AH”

Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])

D=πG ÷ 180-J

Lbl 1

O ¹ 1 Þ Goto 2 ◣

{KQ}:K”KF”:Q”BL”

Prog ”ZB”

X=X+Rec(Q,U+π ÷ 2):Y=Y+J

Goto 3

Lbl 2

{XY}:X”XF”:Y”YF”

Lbl 3

Pol(X-Z[E+52],Y-Z[E+62])

I”S=” ◢

I=J+D

I>2π Þ I=I-2π ◣

I<0 Þ I=I+2π ◣

I=180I ÷ π

I”A=” ◢

Goto 1

2 .线路坐标计算主程序 XLZB

Rad

Fixm

{O}:O”1.ZX 2.BX”

Q=0

Lbl 1

{K}:K”K”

O ¹ 1 Þ {QG}:Q”L”:G”AJ” ◣

Prog ”ZB”:X=X+Rec(Q,U+πG ÷ 180):Y=Y+J

X”X=” ◢

Y”Y=” ◢

O=1 Þ U=180U ÷ π:U”AT=” ◢

Goto 1

3 .线路高程计算主程序 XLGC

V=11:Fixm

Lbl 0

{KQ}:K”K”:Q”L”

Prog ”KD”

Prog ”GC”

C”H=” ◢

Goto 0

4 .边桩放样计算主程序 BZFY

Fixm

Rad

{Z}:Z”1.CJ 2.QZ 3.QS”

Z=2 Þ Z[11]=0:Goto 1 ◣

Z=3 Þ Goto 1 ◣

{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”

Z[8]=Z[M+52]:Z[9]=Z[M+62]

C=Z[N+52]:A=Z[N+62]

Pol(C-Z[8],A-Z[9]):Z[10]=J-πU ÷ 180:Z[11]=G

Lbl 1

Z=2 Þ Goto 2 ◣

{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”

Rec(E,Z[10]+πB ÷ 180):X=Z[8]+I:Y=Z[9]+J:Goto 3

Lbl 2

{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B

Lbl 3

Prog “FQ”

G=D+Z[11]-F:G”H” ◢

Prog “FY”

Goto 1

5. 线路坐标计算子程序 ZB

Prog ”YS”

X=74445.797

Y=501515.278

S=771.296-K

B=A+C+π

S>L Þ Goto 1 ◣

I=SSS ÷ 6 ÷ R ÷ L

J=S-S^5 ÷ (40RRLL)

U=B-SS ÷ (2RL)-π:Goto 2

Lbl 1

U=(2S-L) ÷ R ÷ 2

I=R(1-cos U)+Z[5]:J=Rsin U+Z[6]

U=B-(S-L ÷ 2) ÷ R+π

Lbl 2

Pol(I,J):J=J+B-π ÷ 2

X=Rec(I,J)+X

Y=Y+J

U<0 Þ U=U+2π ◣

6 .曲线要素计算子程序 YS

R=280

L=84.7

S=-0.6769479859

A=-2.415291254

N=-1

C=1.738343268

Z[5]=1.067572917

Z[6]=42.31770592

T=374.9146895

Z[7]=RC+L

7 .线路高程计算子程序 GC

W=13

Lbl 1

P=Z[W+7]

K>Z[W]-P Þ W=W+1:Goto 1 ◣

W=13 Þ W=14 ◣

V=W-1 Þ Goto 2 ◣

V=W-1

J=Z[V+4]

R=(J-Z[V+3]) ÷ (Z[V]-Z[V-1])

S=(Z[V+5]-J) ÷ (Z[V+1]-Z[V])

T=Z[V+7]

Lbl 2

L=K-Z[V]

L ≤ -T Þ H=J+RL:Goto 3 ◣

L ≥ T Þ H=J+SL:Goto 3 ◣

A=2T ÷ (S-R)

X=L+A(R+S) ÷ 2

H=J+XX ÷ 2 ÷ A-ARS ÷ 2

Lbl 3

H=H-Z[1]

A=Abs Q

A ≤ Z[4] Þ C=0:Goto 6 ◣

I=-1

Q>0 Þ I=1 ◣

Lbl 4

Y=23

Lbl 5

K ≥ Z[Y] Þ Y=Y+1:Goto 5 ◣

O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX

Z[Y+2]=0 Þ O=2 ◣

Z[Y+3]=0 Þ X=2 ◣

N=(Z[Y]-K) ÷ (Z[Y]-Z[Y-1])

M=(X-O)(1-3NN+2NNN)+O

A ≤ Z[2] Þ C=(Z[4]-A)M ÷ 100:Goto 6 ◣

C=0.04(Z[2]-A)-M(Z[2]-Z[4]) ÷ 100

M>4 Þ C=(Z[4]-A)M ÷ 100 ◣

Lbl 6

C=H+C

8 .反求线路桩号子程序 FQ

Prog ”YS”

Z[4]=74445.797

Z[3]=501515.278

Z[4]=X Þ Z[3]=Y Þ K=771.296:Q=0:Goto 2 ◣◣

Q=Z[4]:K=Z[3]:G=S+π ÷ 2

Prog ”ZH”

G=LL ÷ 6 ÷ R:Q=L-LLL ÷ 40 ÷ R ÷ R

Pol(G-H,Q-W):K=J+π ÷ 2+L ÷ 2 ÷ R

cos K<0 Þ Goto 1 ◣

Pol(H-(R+Z[5]),W-Z[6])

K=771.296-R(π-J)-L ÷ 2

Q=R-I

Goto 2

Lbl 1

K=1:U=L

Prog ”HQ”

K=771.296-O:Q=-Q

Lbl 2

M=1000

K=Intg (MK+0.5) ÷ M

Q=Intg (MQ+0.5) ÷ M

Z”KD=” ◢

Q”WB=” ◢

9 .坐标转换计算子程序 ZH

H=X-Q:W=Y-K

Pol(H,W)

G=J-G

H=Icos G:W=Isin G

10 .反求缓曲长度子程序 HQ

A=K ÷ 46080 ÷ R^6 ÷ U^6

P=H ÷ 3840 ÷ R^5 ÷ U^5

C=13K ÷ 5760 ÷ R^4 ÷ U^4

T=KW ÷ 384 ÷ R^4 ÷ U^4

G=H ÷ 48 ÷ R^3 ÷ U^3

I=K ÷ (15RRUU)

J=KW ÷ (8RRUU)

L=H ÷ (2RU)

N=KW

S=W

Lbl 7

M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+N

Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-K

O=S-M ÷ Q

Abs (O-S)<1 E -5 Þ Goto 8 ◣

S=O

Goto 7

Lbl 8

T=KOOO ÷ 6 ÷ U ÷ R

P=O-O^5 ÷ (40RRUU)

T=H Þ P=W Þ Q=0:Goto 9 ◣◣

Pol(H-T,W-P)

Q=sin (J+KOO ÷ 2 ÷ R ÷ U-π ÷ 2)

S=-1

Q>0 Þ S=1 ◣

Q=SI

Lbl 9

11 .边桩放样计算子程序 FY

V=11

U=Q

Prog ”KD”

Q=-0.75-Z[2]:Z[3]=-1

U>0 Þ Q=0.75+Z[2]:Z[3]=1 ◣

Prog ”GC”

X=G-C

X ≤ 0 Þ Goto 7 ◣

N=Int ((X-0.1) ÷ 8.9)+1

N>5 Þ N=5 ◣

I=1

Lbl 2

O=Z[28+I]

{O}:O”M”

Z[28+I]=O

I=I+1

I>N+1 Þ Goto 4 ◣

Goto 2

Lbl 4

I=0

W=3.55+Z[2]:H=0.04

Lbl 5

I=I+1

I>N-1 Þ Goto 6 ◣

W=W+2+9Z[I+28]

H=H+8.9

Goto 5

Lbl 6

A=X-H:A”C=” ◢

W=W-Abs U

A ≤ 1 Þ P=WZ[3] ◢

A ≥ 8 Þ P=(9Z[I+28]+W+2)Z[3] ◢

A=AZ[I+28]+W

Goto 8

Lbl 7

X=-X

X ≤ 8 Þ A=1.5X+0.75+Z[2]-Abs U ◣

X>8 Þ X ≤ 12 Þ A=12.75+Z[2]+1.75(X-8)-Abs U ◣◣

X>12 Þ A=14.75+Z[2]+1.75(X-8.04)-Abs U ◣

Lbl 8

A=AZ[3]

A”DB=” ◢

12. 路面宽度计算子程序 KD

Z[2]=10.5

Z[4]=0.5

K>460 Þ K<540 Þ Z[4]=0 ◣◣

Abs Q ≤ Z[4] Þ Goto 6 ◣

Q>0 Þ Goto 1 ◣

K<370.6255 Þ I=50:X=K-370.6255:Goto 2 ◣

K>430 Þ K ≤ 467.384 Þ I=41:X=K-430:Goto 2 ◣◣

K>467.384 Þ K<532.616 Þ Goto 3 ◣◣

K ≥ 532.616 Þ K<570 Þ I=41:X=570-K:Goto 2 ◣◣

K>686.596 Þ I=35:X=K-686.596:Goto 2 ◣

Goto 5 ◣

Lbl 1

K<350.4277 Þ I=47:X=K-350.4277:Goto 2 ◣

K>430 Þ K ≤ 463.545 Þ I=44:X=K-430:Goto 2 ◣◣

K>463.545 Þ K<536.455 Þ Goto 4 ◣◣

K ≥ 536.455 Þ K<570 Þ I=44:X=570-K:Goto 2 ◣◣

K>686.596 Þ I=38:X=K-686.596:Goto 2 ◣

Goto 5 ◣

Lbl 2

Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:Goto 5

Lbl 3

Z[2]=299.104 ÷ sin (1.4543+(K-467.384) ÷ 280)-280:Goto 5

Lbl 4

Z[2]=280-267.304 ÷ sin (1.4406+(K-463.545) ÷ 280)

Lbl 5

L=Z[2]+0.75:L”LD=” ◢

Lbl 6

二、扩展变量设置数值

扩展变量设置实际数值表

 

名 称

福宁线 A14-A

       

变坡点数目 b

2

       

起超点数目 c

3

       

台阶数目 d

6

       

导线点数目 e

10

       

曲线方程数 f

6

       

变量总数目

72

       

Z[1]

0

       

Z[2]

变量 ( 路面宽度 )

       

Z[3]

变量 ( 左右系数 )

       

Z[4]

变量 ( 中央带宽 )

       

Z[5]

       

Z[6]

       

Z[7]

       

Z[8]

       

Z[9]

       

Z[10]

       

Z[11]

       

Z[12]

284.56

       

Z[13]

305.00

       

Z[14]

600.00

       

Z[15]

840.00

       

Z[16]

9.838

       

Z[17]

9.9

       

Z[18]

15.8

       

Z[19]

29

       

Z[20]

20.44576

       

Z[21]

52.5

       

Z[22]

       

Z[23]

284.56

       

Z[24]

686.596

       

Z[25]

771.296

       

Z[26]

3

       

Z[27]

3

       

Z[28]

0

       

Z[29]

第一边坡坡度

       

Z[30]

第二边坡坡度

       

Z[31]

第三边坡坡度

       

Z[32]

第四边坡坡度

       

Z[33]

第五边坡坡度

       

Z[34]

第六边坡坡度

       

Z[35]

4.36072E-07

扩展变量设置实际数值表 ( 续表 )

 

名 称

福宁线 A14-A

       

Z[36]

7.86427E-05

       

Z[37]

3.59504E-04

       

Z[38]

1.01209E-05

       

Z[39]

-1.89E-04

       

Z[40]

2.21E-03

       

Z[41]

-4.00801E-04

       

Z[42]

0.0224987

       

Z[43]

3.79289E-03

       

Z[44]

3.31567E-06

       

Z[45]

-1.99117E-04

       

Z[46]

3.56071E-04

       

Z[47]

-2.23383E-04

       

Z[48]

-1.76709E-03

       

Z[49]

-0.011245

       

Z[50]

-2.25118E-05

       

Z[51]

-1.69988E-04

       

Z[52]

-1.32568E-03

       

Z[53]

         

Z[54]

         

Z[55]

         

Z[56]

         

Z[57]

         

Z[58]

         

Z[59]

         

Z[60]

         

Z[61]

         

Z[62]

         

Z[63]

         

Z[64]

         

Z[65]

         

Z[66]

         

Z[67]

         

Z[68]

         

Z[69]

         

Z[70]

         

Z[71]

         

Z[72]

         

Z[73]

         

Z[74]

         

Z[75]

         

Z[76]

         

相关文章

回到顶部
请复制以下网址分享
CASIO4800路桥测量应用程序
http://m.civilcn.com/cehui/chlw/1357373169172146.html