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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

PRINT #1, TAB(6); " Угол внутреннего трения, в град."; i; "-го слоя: "; Fi(i)
PRINT #1, TAB(6); " Удельное сцепление грунта "; i; "-го слоя : "; C(i); "кПа"
PRINT #1, TAB(6); " Табличный коэффициент Mi (i="; i; "): "; M(i)
PRINT #1, TAB(6); " Табличный коэффициент Ni (i="; i; "): "; N(i)
PRINT #1, TAB(6); " Коэффициент, зависящий от вида грунта h("; i; "): "; h(i)
PRINT #1, TAB(6); " Коэффициент Пуассона nu(i="; i; "): "; Gamma(i)
PRINT #1, TAB(6); " Удельный вес "; i; "-го грунта : "; H2(i); "кН/м^3"
PRINT #1, TAB(6); " Табличный коэффициент Eps("; i; ")= "; Eps(i)
PRINT #1, TAB(6); " Расстояние от уровня планировки до середины "; i; "-го слоя: "; H3(i); "м"
PRINT #1, TAB(6); " Модуль деформации "; i; "-го грунта: "; E(i); "кПа"
NEXT i
PRINT #1, TAB(6); " Удельный вес грунта под острием сваи: "; H2; "кН/м^3"
PRINT #1, TAB(6); " Расстояние от уровня планировки до острия сваи: "; H3; "м"
PRINT #1, TAB(17); "Р Е З У Л Ь Т А Т Ы Р А С Ч Е Т А"
FOR i = 1 TO N
PRINT #1, TAB(6); "Po("; i; ")= "; Po(i)
PRINT #1, TAB(6); "Pp("; i; ")= "; Pp(i)
PRINT #1, TAB(6); "P("; i; ")= "; P(i)
NEXT i
PRINT #1, TAB(6); "Po'= "; Po1
PRINT #1, TAB(6); "Pp'= "; Pp1
PRINT #1, TAB(6); "P'= "; P1
PRINT #1, TAB(6); "Результат Fd="; Fd
CLOSE #1
END
ПРИЛОЖЕНИЕ 2
DIM Fsm(10, 1000), Ft(1000)
CLS
PRINT "Введите имя файла для записи расчета "
INPUT "например: C:\MYFILE.TXT ", F$
CLS
PRINT SPC(20); "Тамбовский Государственный "
PRINT SPC(20); "Технический Университет"
PRINT TAB(20); "Кафедра-Конструкции Зданий"
PRINT TAB(25); " и Сооружений"
PRINT TAB(9); "Расчет осадки основания для пирамидальных свай"
DO
CLS
PRINT TAB(9); "Расчет осадки основания для пирамидальных свай"
PRINT TAB(19); "И С Х О Д Н Ы Е Д А Н Н Ы Е"
PRINT "Введите следующие величины:"
pi = 3.14159265359#
INPUT " Угол сбега сваи, в град.: ", Alpha1
Alpha1 = Alpha1 * pi / 180
INPUT " Сторона сечения нижнего конца сваи, в м: ", Db
INPUT " Сторона сечения верхнего конца сваи, в м: ", Dt
INPUT " Длина сваи, в м: ", l
INPUT " Расстояние от уровня планировки до острия сваи, в м: ", Ll
INPUT " Угол внутреннего трения под нижним концом сваи, в град.: ", Fi
Fi = Fi * pi / 180
INPUT " Удельное сцепление под нижним концом сваи, в кПа: ", C
10 DO
INPUT " Количество слоёв N= ", n
LOOP UNTIL (n > 0)
FOR i = 1 TO n
PRINT " Число нагрузок для "; i;
INPUT "-го слоя грунта M= ", m(i)
PRINT "Для "; i; "-го слоя грунта"
FOR j = 1 TO m(i)
PRINT j; "-ая расчётнуая нагрузка на грунт по боковой поверхности сваи:";
INPUT " ", Fsm(i, j)
NEXT j
NEXT i
INPUT "Введите количество нагрузок под нижним концом сваи ", m
FOR j = 1 TO m
PRINT j; "-ая расчётнуая нагрузка на грунт под нижним концом сваи:";
INPUT " ", Ft(j)
NEXT j
INPUT " Табличный коэффициент A= ", K
INPUT " Табличный коэффициент B= ", B

Страницы