開挖(回填)邊坡放樣程序

  • A+
所屬分類:卡西歐5800
還沒添加站長微信的請抓緊

開挖(回填)邊坡放樣程序
作者:徐金樹
已知中樁坐標、方位角、路基寬度、開挖(回填)各級邊坡比,求開挖(回填)最高(低)邊線的寬度及坐標。
編程:名稱:B.P
(4800計算器)
Lbl 0←┚ {ABCEFGH} ◢
H“H”I“I”:

P=H÷I ◢ N=Int P ◢
A“K1”B“K2”C“K3”D“K4”E“K5”F“KX”S“S”:
L=S+2N+F(H-IN)+I(A+B+C+D+E) ◢
W“X0”V“Y0” J“F0”←┚ K“K:Z-,Y+” ←┚
X=W+Lcos(J+K)◢
Y=V+Lsin(J+K)◢

Goto 0←┚

注:A、B、C、D、E、G爲第一、二、三、四、五、六級台階邊坡比值,“HT”爲高差,“HN”爲每級台階高度,台階寬“TZ”,S爲半幅設計路基寬度,F0爲路線方位角,L爲開挖(回填)邊線寬度,X0、Y0爲起點中樁坐標。
(5800計算器) 

“P0”?M::“X0”?W:“Y0”?V:“f0”?J ←┚
“H0”?R:“I:-,+”?I:“HN”?H:?S ←┚
Lbl 0←┚
“PX”?P : P-M→U←┚
W+U×cos(J)→X :V+U×sin(J)→y ←┚
R+I U→Z←┚
Lbl 1←┚
“O:0,1”?O←┚
“HT”?T ←┚
“XN=”:
T÷H→Q ◢
“N=”:Int(Q)→N ◢
“K1”?A:“K2”?B:“K3”?C:“K4”?D:
“K5”?E:“KX”?G:“K:Z-,Y+”?K←┚

“L=”:S+2N+G(T-HN)+H(A+B+C+D+E)→L ◢
“X=”:X+L×cos(J+K)→X◢
“Y=”:Y+L×sin(J+K)→y◢
“Z=”:Z+T→Z◢
O=1=>Goto 1 ←┚
Goto 0←┚

  • 我的微信
  • 這是我的微信掃一掃
  • weinxin
  • 我的微信公衆號
  • 我的微信公衆號掃一掃
  • weinxin
avatar

發表評論

您必須登錄才能發表評論!