ВУЗ:
Составители:
Рубрика:
ro = l * (Db ^ 2 + 2 * l * TAN(Alpha1) * (Db + 2 * l * TAN(Alpha1) / 3)) / (Dt ^ 2)
PRINT " ro="; ro
PRINT #1, TAB(6); " ro="; ro
FOR i = 1 TO n
PRINT "Для "; i; "-го слоя"
Po(i) = aGamma(i) * aH2(i) * aH3(i) / (1 - aGamma(i))
Pp(i) = Po(i) * (1 + SIN(aFi(i))) + aC(i) * COS(aFi(i))
PRINT " Po="; Po(i)
PRINT " Pp="; Pp(i)
FOR j = 1 TO m(i)
Pes(i, j) = (Fsm(i, j) - aA(i) * COS(Alpha1) * aC(i)) / (aA(i) * COS(Alpha1) * (TAN(Alpha1) + TAN(aFi(i))))
aSm(i, j) = ro * 2 * (1 + aGamma(i)) * (1 - 2 * aGamma(i)) / aE(i)
Ex(i) = (1 + SIN(aFi(i))) / SIN(aFi(i))
Dro(i) = (Pes(i, j) + aC(i) / TAN(aFi(i))) / (Pp(i) + aC(i) / TAN(aFi(i)))
IF Dro(i) > 0 THEN
aSm(i, j) = aSm(i, j) * (Pp(i) * (Dro(i) ^ Ex(i)) - Pes(i, j))
ELSE GOTO 10
END IF
S(i, j) = S(i, j) + aSm(i, j)
NEXT j
NEXT i
FOR i = 1 TO n
PRINT #1, TAB(6); "Для "; i; "-го слоя"
PRINT #1, TAB(6); " Po="; Po(i)
PRINT #1, TAB(6); " Pp="; Pp(i)
NEXT i
PRINT TAB(10); "╔═══╦═════════╦═══════════╦════════════════╗"
PRINT TAB(10); "║ № ║ Fs,кН ║ Pfs,кПа ║ S,см ║"
PRINT TAB(10); "╠═══╬═════════╬═══════════╬════════════════╣"
FOR i = 1 TO n
FOR j = 1 TO m(i)
PRINT TAB(10); "║"; i; "║"; TAB(16); Fsm(i, j); TAB(24); "║"; TAB(26); Pes(i, j); TAB(37); "║"; TAB(39); S(i, j) * 100; TAB(54); "║"
NEXT j
IF i < n THEN PRINT TAB(10); "╠═══╬═════════╬═══════════╬════════════════╣"
NEXT i
PRINT TAB(10); "╚═══╩═════════╩═══════════╩════════════════╝"
PRINT #1, TAB(10); "╔═══╦═════════╦════════════╦════════════════╗"
PRINT #1, TAB(10); "║ № ║ Fs,кН ║ Pfs,кПа ║ S,см ║"
PRINT #1, TAB(10); "╠═══╬═════════╬════════════╬════════════════╣"
FOR i = 1 TO n
FOR j = 1 TO m(i)
PRINT #1, TAB(10); "║"; i; "║"; TAB(16); Fsm(i, j); TAB(24); "║"; TAB(26); Pes(i, j); TAB(37); "║"; TAB(39); S(i, j) * 100; TAB(54); "║"
NEXT j
IF i < n THEN PRINT #1, TAB(10); "╠═══╬═════════╬════════════╬════════════════╣"
NEXT i
PRINT #1, TAB(10); "╚═══╩═════════╩════════════╩════════════════╝"
PRINT
Gamma = aGamma(n)
Po1 = Gamma * aH2 * Ll / (1 - Gamma)
Pp1 = Po1 * (1 + SIN(Fi)) + C * COS(Fi)
PRINT " Pp'="; Pp1
PRINT #1, TAB(6); " Pp'="; Pp1
FOR j = 1 TO m
Pft(j) = ((K * Ft(j)) / (Db ^ 2)) - B * C
aSh(j) = Db * D * .3 * (1 + Gamma) * (1 - 2 * Gamma) / aE(n)
aSh(j) = aSh(j) * (Pp1 * ((Pft(j) + C / TAN(Fi)) / (Pp1 + C / TAN(Fi))) ^ ((1 + SIN(Fi)) / SIN(Fi)) - Pft(j))
NEXT j
PRINT TAB(10); "Расчет осадок под нижним концом сваи"
PRINT TAB(9); "╔════════════╦════════════╦════════════════╗"
PRINT TAB(9); "║ Ft,кН ║ Pft,кПа ║ S,см ║"
PRINT TAB(9); "╠════════════╬════════════╬════════════════╣"
FOR j = 1 TO m
PRINT TAB(9); "║"; TAB(14); Ft(j); TAB(22); "║"; TAB(25); Pft(j); TAB(35); "║"; TAB(37); aSh(j) * 100; TAB(52); "║"
NEXT j
PRINT TAB(9); "╚════════════╩════════════╩════════════════╝"
