Проектирование зданий в особых условиях строительства и эксплуатации. Анотонов В.М - 137 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

Fi(i) = Fi(i) * pi / 180
PRINT " Удельное сцепление грунта "; i;
INPUT "-го слоя : ", C(i)
PRINT " Табличный коэффициент M("; i; ")";
INPUT " = ", M(i)
PRINT " Табличный коэффициент N("; i; ")";
INPUT " = ", N(i)
PRINT " Коэффициент, зависящий от вида грунта hi (i="; i; ")";
INPUT " : ", h(i)
PRINT " Коэффициент Пуассона nu("; i; ")";
INPUT " = ", Gamma(i)
PRINT " Удельный вес "; i;
INPUT "-го грунта : ", H2(i)
PRINT " Табличный коэффициент Eps("; i; ")";
INPUT " = ", Eps(i)
PRINT " Расстояние от уровня планировки до середины "; i;
INPUT "-го слоя : ", H3(i)
PRINT " Модуль деформации "; i;
INPUT "-го грунта, кПа : ", E(i)
NEXT i
INPUT " Удельный вес грунта под острием сваи: ", H2
INPUT " Расстояние от уровня планировки до острия сваи: ", H3
INPUT "Если вы уверены в данных нажмите 1:", K
LOOP UNTIL K = 1
FOR i = 1 TO N
Po(i) = Gamma(i) * H2(i) * H3(i) / (1 - Gamma(i))
Pp(i) = Po(i) * (1 + SIN(Fi(i))) + C(i) * COS(Fi(i))
P(i) = (h(i) * E(i)) / (4 * Pp(i) * (1 - Gamma(i) ^ 2) - 2 * Po(i) * (2 - Gamma(i)))
P(i) = P(i) ^ Eps(i)
P(i) = P(i) * (Pp(i) + C(i) / TAN(Fi(i))) - C(i) / TAN(Fi(i))
NEXT i
Po1 = Gamma(N) * H2 * H3 / (1 - Gamma(N))
Pp1 = Po1 * (1 + SIN(Fi)) + C * COS(Fi)
P1 = (h(N) * E(N)) / (4 * Pp1 * (1 - Gamma(N) ^ 2) - 2 * Po1 * (2 - Gamma(N)))
P1 = P1 ^ Eps(N)
P1 = P1 * (Pp1 + C / TAN(Fi)) - C / TAN(Fi)
FOR i = 1 TO N
Fd = Fd + A(i) * COS(Alpha1) * (P(i) * (TAN(Alpha1) + TAN(Fi(i))) + C(i))
NEXT i
Fd = Fd + Db ^ 2 * (P1 + N(N) * C) / M(N)
FOR i = 1 TO N
PRINT "Po("; i; ")= "; Po(i)
PRINT "Pp("; i; ")= "; Pp(i)
PRINT "P("; i; ")= "; P(i)
NEXT i
PRINT "Po'= "; Po1
PRINT "Pp'= "; Pp1
PRINT "P'= "; P1
PRINT
PRINT "Результат Fd="; Fd
PRINT
OPEN F$ FOR OUTPUT AS #1 LEN = 512
PRINT #1, TAB(25); "Тамбовский Государственный "
PRINT #1, TAB(27); "Технический Университет"
PRINT #1, TAB(25); "Кафедра-Конструкции Зданий"
PRINT #1, TAB(32); " и Сооружений"
PRINT #1, TAB(17); "Расчет несущей способности пирамидальных свай"
Alpha1 = Alpha1 * 180 / pi
PRINT #1, TAB(24); "И С Х О Д Н Ы Е Д А Н Н Ы Е"
PRINT #1, TAB(6); "Угол сбега сваи,гpад.: "; Alpha1
PRINT #1, TAB(6); "Сторона сечения нижнего конца сваи : "; Db
Fi = Fi * 180 / pi
PRINT #1, TAB(6); "Угол внутреннего трения под нижним концом сваи, гpад.: "; Fi
PRINT #1, TAB(6); "Удельное сцепление под нижним концом сваи : "; C
PRINT #1, TAB(6); "Длина сваи : "; l
PRINT #1, TAB(6); "Количество слоeв : "; N
FOR i = 1 TO N
PRINT #1, TAB(6); " Площадь боковой поверхности сваи в пределах слоя "; i; ": "; A(i); "м^2"
Fi(i) = Fi(i) * 180 / pi

Страницы