CASIO程序线路计算60版附加.docx

上传人:b****5 文档编号:29597671 上传时间:2023-07-25 格式:DOCX 页数:15 大小:18.11KB
下载 相关 举报
CASIO程序线路计算60版附加.docx_第1页
第1页 / 共15页
CASIO程序线路计算60版附加.docx_第2页
第2页 / 共15页
CASIO程序线路计算60版附加.docx_第3页
第3页 / 共15页
CASIO程序线路计算60版附加.docx_第4页
第4页 / 共15页
CASIO程序线路计算60版附加.docx_第5页
第5页 / 共15页
点击查看更多>>
下载资源
资源描述

CASIO程序线路计算60版附加.docx

《CASIO程序线路计算60版附加.docx》由会员分享,可在线阅读,更多相关《CASIO程序线路计算60版附加.docx(15页珍藏版)》请在冰豆网上搜索。

CASIO程序线路计算60版附加.docx

CASIO程序线路计算60版附加

一、程序设计

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

V=19:

Fixm:

Rad

{OEFG}:

O”1.XL2.SD”:

E”DZ”:

F”DH”:

G”AH”

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

D=πG÷180-J

Lbl1

O1Goto2◣

{KQ}:

K”KF”:

Q”BL”

Prog”ZB”

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

Y=Y+J

Goto3

Lbl2

{XY}:

X”XF”:

Y”YF”

Lbl3

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

I”S=”◢

I=J+D

I>2πI=I-2π◣

I<0I=I+2π◣

I=180I÷π

I”A=”◢

Goto1

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

Rad

Fixm

{O}:

O”1.ZX2.BX”

Q=0

Lbl1

{K}:

K”K”

O1{QG}:

Q”L”:

G”AJ”◣

Prog”ZB”:

X=X+Rec(Q,U+πG÷180):

Y=Y+J

X”X=”◢

Y”Y=”◢

O=1U=180U÷π:

U”AT=”◢

Goto1

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

V=11:

Fixm

Lbl0

{KQ}:

K”K”:

Q”L”

Prog”KD”

Prog”GC”

C”H=”◢

Goto0

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

Fixm

Rad

{Z}:

Z”1.CJ2.QZ3.QS”

Z=2Z[11]=0:

Goto1◣

Z=3Goto1◣

{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

Lbl1

Z=2Goto2◣

{EBFD}:

B”AQ”:

E”S”:

D”HD”:

F”HY”

Rec(E,Z[10]+πB÷180):

X=Z[8]+I:

Y=Z[9]+J:

Goto3

Lbl2

{EBD}:

E”N”:

B”E”:

D”Z”:

F=0:

X=E:

Y=B

Lbl3

Prog“FQ”

G=D+Z[11]-F:

G”H”◢

Prog“FY”

Goto1

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

Prog”YS”

X=74445.797

Y=501515.278

S=771.296-K

B=A+C+π

S>LGoto1◣

I=SSS÷6÷R÷L

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

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

Goto2

Lbl1

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

I=R(1-cosU)+Z[5]:

J=RsinU+Z[6]

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

Lbl2

Pol(I,J):

J=J+B-π÷2

X=Rec(I,J)+X

Y=Y+J

U<0U=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

Lbl1

P=Z[W+7]

K>Z[W]-PW=W+1:

Goto1◣

W=13W=14◣

V=W-1Goto2◣

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]

Lbl2

L=K-Z[V]

L≤-TH=J+RL:

Goto3◣

L≥TH=J+SL:

Goto3◣

A=2T÷(S-R)

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

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

Lbl3

H=H-Z[1]

A=AbsQ

A≤Z[4]C=0:

Goto6◣

I=-1

Q>0I=1◣

Lbl4

Y=23

Lbl5

K≥Z[Y]Y=Y+1:

Goto5◣

O=Z[Y+2]:

X=Z[Y+3]:

O=IO:

X=IX

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

Z[Y+3]=0X=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:

Goto6◣

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

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

Lbl6

C=H+C

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

Prog”YS”

Z[4]=74445.797

Z[3]=501515.278

Z[4]=XZ[3]=YK=771.296:

Q=0:

Goto2◣◣

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

cosK<0Goto1◣

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

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

Q=R-I

Goto2

Lbl1

K=1:

U=L

Prog”HQ”

K=771.296-O:

Q=-Q

Lbl2

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=IcosG:

W=IsinG

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

Lbl7

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)<1E-5Goto8◣

S=O

Goto7

Lbl8

T=KOOO÷6÷U÷R

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

T=HP=WQ=0:

Goto9◣◣

Pol(H-T,W-P)

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

S=-1

Q>0S=1◣

Q=SI

Lbl9

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

V=11

U=Q

Prog”KD”

Q=-0.75-Z[2]:

Z[3]=-1

U>0Q=0.75+Z[2]:

Z[3]=1◣

Prog”GC”

X=G-C

X≤0Goto7◣

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

N>5N=5◣

I=1

Lbl2

O=Z[28+I]

{O}:

O”M”

Z[28+I]=O

I=I+1

I>N+1Goto4◣

Goto2

Lbl4

I=0

W=3.55+Z[2]:

H=0.04

Lbl5

I=I+1

I>N-1Goto6◣

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

H=H+8.9

Goto5

Lbl6

A=X-H:

A”C=”◢

W=W-AbsU

A≤1P=WZ[3]◢

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

A=AZ[I+28]+W

Goto8

Lbl7

X=-X

X≤8A=1.5X+0.75+Z[2]-AbsU◣

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

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

Lbl8

A=AZ[3]

A”DB=”◢

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

Z[2]=10.5

Z[4]=0.5

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

AbsQ≤Z[4]Goto6◣

Q>0Goto1◣

K<370.6255I=50:

X=K-370.6255:

Goto2◣

K>430K≤467.384I=41:

X=K-430:

Goto2◣◣

K>467.384K<532.616Goto3◣◣

K≥532.616K<570I=41:

X=570-K:

Goto2◣◣

K>686.596I=35:

X=K-686.596:

Goto2◣

Goto5◣

Lbl1

K<350.4277I=47:

X=K-350.4277:

Goto2◣

K>430K≤463.545I=44:

X=K-430:

Goto2◣◣

K>463.545K<536.455Goto4◣◣

K≥536.455K<570I=44:

X=570-K:

Goto2◣◣

K>686.596I=38:

X=K-686.596:

Goto2◣

Goto5◣

Lbl2

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

Goto5

Lbl3

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

Goto5

Lbl4

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

Lbl5

L=Z[2]+0.75:

L”LD=”◢

Lbl6

 

二、扩展变量设置数值

扩展变量设置实际数值表

名称

福宁线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]

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

当前位置:首页 > 自然科学 > 数学

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

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