CASIO4800全全套路桥测量应用程序Word下载.docx
《CASIO4800全全套路桥测量应用程序Word下载.docx》由会员分享,可在线阅读,更多相关《CASIO4800全全套路桥测量应用程序Word下载.docx(14页珍藏版)》请在冰豆网上搜索。
Prog”ZB”:
X=X+Rec(Q,U+πG÷
180):
X”X=”◢
Y”Y=”◢
O=1Þ
U=180U÷
π:
U”AT=”◢
◣
3.线路高程计算主程序XLGC
V=11:
Lbl0
K”K”:
Q”L”
Prog”KD”
Prog”GC”
C”H=”◢
Goto0
4.边桩放样计算主程序BZFY
{Z}:
Z”1.CJ2.QZ3.QS”
Z=2Þ
Z[11]=0:
Goto1◣
Z=3Þ
Goto1◣
{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
{EBFD}:
B”AQ”:
E”S”:
D”HD”:
F”HY”
Rec(E,Z[10]+πB÷
X=Z[8]+I:
Y=Z[9]+J:
{EBD}:
E”N”:
B”E”:
D”Z”:
F=0:
X=E:
Y=B
Prog“FQ”
G=D+Z[11]-F:
G”H”◢
Prog“FY”
5.线路坐标计算子程序ZB
Prog”YS”
X=74445.797
Y=501515.278
S=771.296-K
B=A+C+π
S>
LÞ
I=SSS÷
6÷
R÷
L
J=S-S^5÷
(40RRLL)
U=B-SS÷
(2RL)-π:
Goto2
U=(2S-L)÷
2
I=R(1-cosU)+Z[5]:
J=RsinU+Z[6]
U=B-(S-L÷
2)÷
R+π
Pol(I,J):
J=J+B-π÷
X=Rec(I,J)+X
U<
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
P=Z[W+7]
K>
Z[W]-PÞ
W=W+1:
W=13Þ
W=14◣
V=W-1Þ
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]
L=K-Z[V]
L≤-TÞ
H=J+RL:
Goto3◣
L≥TÞ
H=J+SL:
A=2T÷
(S-R)
X=L+A(R+S)÷
H=J+XX÷
2÷
A-ARS÷
H=H-Z[1]
A=AbsQ
A≤Z[4]Þ
C=0:
Goto6◣
I=-1
Q>
I=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]=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:
C=0.04(Z[2]-A)-M(Z[2]-Z[4])÷
100
M>
4Þ
100◣
Lbl6
C=H+C
8.反求线路桩号子程序FQ
Z[4]=74445.797
Z[3]=501515.278
Z[4]=XÞ
Z[3]=YÞ
K=771.296:
Q=0:
Goto2◣◣
Q=Z[4]:
K=Z[3]:
G=S+π÷
Prog”ZH”
G=LL÷
R:
Q=L-LLL÷
40÷
R
Pol(G-H,Q-W):
K=J+π÷
2+L÷
cosK<
Pol(H-(R+Z[5]),W-Z[6])
K=771.296-R(π-J)-L÷
Q=R-I
K=1:
U=L
Prog”HQ”
K=771.296-O:
Q=-Q
M=1000
K=Intg(MK+0.5)÷
M
Q=Intg(MQ+0.5)÷
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÷
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-5Þ
Goto8◣
S=O
Goto7
Lbl8
T=KOOO÷
U÷
P=O-O^5÷
(40RRUU)
T=HÞ
P=WÞ
Q=0:
Goto9◣◣
Pol(H-T,W-P)
Q=sin(J+KOO÷
U-π÷
2)
S=-1
S=1◣
Q=SI
Lbl9
11.边桩放样计算子程序FY
V=11
U=Q
Q=-0.75-Z[2]:
Z[3]=-1
U>
Q=0.75+Z[2]:
Z[3]=1◣
X=G-C
X≤0Þ
Goto7◣
N=Int((X-0.1)÷
8.9)+1
N>
5Þ
N=5◣
I=1
O=Z[28+I]
O”M”
Z[28+I]=O
I=I+1
N+1Þ
Goto4◣
I=0
W=3.55+Z[2]:
H=0.04
N-1Þ
Goto6◣
W=W+2+9Z[I+28]
H=H+8.9
Goto5
A=X-H:
A”C=”◢
W=W-AbsU
A≤1Þ
P=WZ[3]◢
A≥8Þ
P=(9Z[I+28]+W+2)Z[3]◢
A=AZ[I+28]+W
Goto8
X=-X
X≤8Þ
A=1.5X+0.75+Z[2]-AbsU◣
X>
8Þ
X≤12Þ
A=12.75+Z[2]+1.75(X-8)-AbsU◣◣
12Þ
A=14.75+Z[2]+1.75(X-8.04)-AbsU◣
A=AZ[3]
A”DB=”◢
12.路面宽度计算子程序KD
Z[2]=10.5
Z[4]=0.5
460Þ
K<
540Þ
Z[4]=0◣◣
AbsQ≤Z[4]Þ
K<
370.6255Þ
I=50:
X=K-370.6255:
Goto2◣
430Þ
K≤467.384Þ
I=41:
X=K-430:
467.384Þ
532.616Þ
Goto3◣◣
K≥532.616Þ
570Þ
X=570-K:
686.596Þ
I=35:
X=K-686.596:
350.4277Þ
I=47:
X=K-350.4277:
K≤463.545Þ
I=44:
463.545Þ
536.455Þ
Goto4◣◣
K≥536.455Þ
I=38:
Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:
Z[2]=299.104÷
sin(1.4543+(K-467.384)÷
280)-280:
Z[2]=280-267.304÷
sin(1.4406+(K-463.545)÷
280)
L=Z[2]+0.75:
L”LD=”◢
Lbl6
二、扩展变量设置数值
扩展变量设置实际数值表
名称
福宁线A14-A
变坡点数目b
2
起超点数目c
3
台阶数目d
6
导线点数目e
10
曲线方程数f
变量总数目
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]
Z[24]
686.596
Z[25]
771.296
Z[26]
Z[27]
Z[28]
Z[29]
第一边坡坡度
Z[30]
第二边坡坡度
Z[31]
第三边坡坡度
Z[32]
第四边坡坡度
Z[33]
第五边坡坡度
Z[34]
第六边坡坡度
Z[35]
4.36072E-07
扩展变量设置实际数值表(续表)
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]