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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

INPUT " Табличный коэффициент D= ", D
PRINT "Если вы уверены в данных нажмите 1";
INPUT ": ", Qw
LOOP UNTIL Qw = 1
DIM aA(n), aFi(n), aC(n), aK(n), aB(n), aD(n), ah(n), aGamma(n), aH2(n), aEps(n), aH3(n), aE(n)
DIM Po(n), Pp(n), Pes(n, 10), Ex(n), Dro(n), aSh(m), S(n, 10), aSm(n, 10), Pft(m)
PRINT
FOR i = 1 TO n
DO
PRINT " Площадь боковой поверхности сваи в пределах "; i; "-го слоя, в м^2";
INPUT ": ", aA(i)
PRINT " Угол внутреннего трения "; i; "-го слоя, в град.";
INPUT ": ", aFi(i)
aFi(i) = aFi(i) * pi / 180
PRINT " Удельное сцепление грунта "; i; "-го слоя, в кПа";
INPUT ": ", aC(i)
PRINT " Коэффициент, зависящий от вида грунта h("; i; ")";
INPUT "= ", ah(i)
PRINT " Коэффициент Пуассона nu("; i; ")";
INPUT "= ", aGamma(i)
PRINT " Удельный вес грунта "; i; "-го слоя, в кН/м^3";
INPUT ": ", aH2(i)
PRINT " Расстояние от уровня планировки до середины "; i; "-го слоя";
INPUT ": ", aH3(i)
PRINT " Модуль деформации "; i; "-го грунта, в кПа";
INPUT ": ", aE(i)
PRINT "Если вы уверены в данных нажмите 1";
INPUT ": ", Bu
LOOP UNTIL Bu = 1
NEXT i
INPUT " Удельный вес грунта под остриём сваи, в кН/м^3 ", aH2
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(15); "Расчет осадки основания для пирамидальных свай"
PRINT #1, TAB(24); "И С Х О Д Н Ы Е Д А Н Н Ы Е"
PRINT #1, TAB(6); "Угол сбега сваи, в град.: "; Alpha1 * 180 / pi
PRINT #1, TAB(6); "Сторона сечения нижнего конца сваи, в м: "; Db
PRINT #1, TAB(6); "Сторона сечения верхнего конца сваи, в м:"; Dt
PRINT #1, TAB(6); "Длина сваи, в м:"; l
PRINT #1, TAB(6); "Угол внутреннего трения под нижним концом сваи, в град.:"; Fi * 180 / pi
PRINT #1, TAB(6); "Удельное сцепление под нижним концом сваи, в кПа:"; C
PRINT #1, TAB(6); "Табличный коэффициент А="; K
PRINT #1, TAB(6); "Табличный коэффициент B="; B
PRINT #1, TAB(6); "Табличный коэффициент D="; D
FOR i = 1 TO n
PRINT #1,
PRINT #1, TAB(6); "Площадь боковой поверхности сваи в пределах "; i; "-го слоя "; aA(i); " м^2"
PRINT #1, TAB(6); "Угол внутреннего трения "; i; "-го слоя fi="; aFi(i) * 180 / pi; " град."
PRINT #1, TAB(6); "Удельное сцепление грунта "; i; "-го слоя c="; aC(i); " кПа"
PRINT #1, TAB(6); "Коэффициент, зависящий от вида грунта h("; i; ")="; ah(i)
PRINT #1, TAB(6); "Коэффициент Пуассона nu("; i; ")="; aGamma(i)
PRINT #1, TAB(6); "Удельный вес "; i; "-го грунта"; aH2(i); " кН/м^3"
PRINT #1, TAB(6); "Расстояние от уровня планировки до середины "; i; "-го слоя"; aH3(i); " м"
PRINT #1, TAB(6); "Модуль деформации "; i; "-го грунта E="; aE(i); " кПа"
NEXT i
FOR i = 1 TO n
FOR j = 1 TO m(i)
S(i, m(i)) = 0
NEXT j
NEXT i
PRINT
PRINT "Р Е З У Л Ь Т А Т Ы"
PRINT #1, TAB(29); "Р Е З У Л Ь Т А Т Ы"
P1 = p(n)

Страницы