Category Archives: Автоматизация

Read(f1,a[i3)

For i:=1 to 23 do

Read(fl, ix[i]); for i:=l to 23 do read(fl, iyCil); for i:=l to 22 do read(fl, al[13); for i:=l to 22 do read(fl, ixlCi]); for i:=l to 22 do read(fl, iyl[i]);

Nachalo;

Textbackground(O); clrscr; Chapka; xxl:=64; yyl:=6; for i:=l to 3 do aa[i]:=0; for i:=l to 3 do begin

Ocno_curs(xxl, y^l/xxl+12/yyl/3/’y’); yyl:=yyl+4; end; yyl:=6; repeat

Ocno_curs(xxl/yyl, xxl+12/yyl/1/’ y ‘); key:=readkey; case key of

Chr(80):begin

Ocno_curs(xxl, y^l/xxl+12/y^l,3/’ y’);

If yyl<13 then begin

Yyl:=yyl+4; end

Else begin yyl:=6; End; end

Chr(72):begin ocno_curs(xxl, yyl, xxl+12,yyl, 3,’y’);

If yyl>6 then begin

Yyl:=yyl-4;

End

Else

Begin

Yyl:=14;

End; end;

Chr(13):vvod_dan(yyl);

Chr(27):QUITE;

End;

Until false

5.4.4. ПРИМЕРЫ РАСЧЕТОВ

В качестве примера приняты исходные данные практического расчета, изложенного в главе 4 настоящшг пособия.

Результаты расчета сохраняются в отдельном файле, наименование которого назначается пользователем и представляет собой две таблицы. Одна таблица-"Исходные данные", где приведены введенные величины. Другая таблица "Результаты расчета", состоит для прог­раммы "8ТЕИ 1" из семи величин, которые представляют собой площадь сечения равнополочного уголка для различных вариантов. Таблица "Результаты расчета", для программы ‘"ТЕИ 2" состоит из семи величин, которые представляют собой площадь сечения подобранного профиля (швеллера или двутавра) для различных вариантов. Таблица "Результаты расчета", для программы "БТЕИ 3" состоит из шести ве­личин, которые представляют собой площадь сечения одной ветви, минимальное расстояние между центрами тяжести ветвей и максимальное расстояние между узлами решетки для двух вариантов.

В приведенных ниже таблицах приведены результаты расчета по программе ^ТЕИ 1".

ИСХОДНЫЕ ДАННЫЕ

1. УСИЛИЕ СЖАТИЯ, кг

185160.0

2. РАСЧЕТНАЯ ДЛИНА, см

870.0

3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/см,2

2400.0

РЕЗУЛЬТАТЫ РАСЧЕТА

1. СЕЧЕНИЕ ИЗ ОДНОГО УГОЛКА ПЛОЩАДЬЮ А =

0.00

2. ТАВРОВОЕ СЕЧЕНИЕ ИЗ ДВУХ УГОЛКОВ ПЛОЩАДЬЮ А =

87.70

3. КРЕСТОВОЕ СЕЧЕНИЕ ИЗ ДВУХ УГОЛКОВ ПЛОЩАДЬЮ А =

78.40

4. КОРОБЧАТОЕ СЕЧЕНИЕ ИЗ ДВУХ УГОЛКОВ ПЛОЩАДЬЮ А =

78.40

5. КОРОБЧАТОЕ СЕЧЕНИЕ ИЗ ЧЕТЫРЕХ УГОЛКОВ ПЛОЩАДЬЮ А =

31.40

6. КРЕСТОВОЕ СЕЧЕНИЕ ИЗ ЧЕТЫРЕХ УГОЛКОВ ПЛОЩАДЬЮ А =

37.40

1. ДВУТАВРОВОЕ СЕЧЕНИЕ ИЗ ЧЕТЫРЕХ УГОЛКОВ ПЛОЩАДЬЮ А =

47.10

В приведенных ниже таблицах приведены результаты расчета по программе "8ТЕИ 2"7

ИСХОДНЫЕ ДАННЫЕ

1. УСИЛИЕ СЖАТИЯ, кг

185160.0

2. РАСЧЕТНАЯ ДЛИНА, см

870.0

3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/см,2

2400.0

РЕЗУЛЬТАТЫ РАСЧЕТА

1. СЕЧЕНИЕ ИЗ ДВУТАВРА А =

0.00

2. СЕЧЕНИЕ ИЗ ДВУХ ДВУТАВРОВ А =

84.70

3. СЕЧЕНИЕ ИЗ ШВЕЛЛЕРА А =

0.00

4. СЕЧЕНИЕ ДВУТАВРОВОЕ ИЗ ДВУХ ШЕЛЛЕРОВ А =

0.00

5. СЕЧЕНИЕ КОРОБЧАТОЕ ИЗ ДВУХ ШВЕЛЛЕРОВ А =

40.50

6. СЕЧЕНИЕ ИЗ КОЛОННОГО ДВУТАВРА А =

152.00

7. СЕЧЕНИЕ ИЗ КОЛОННОГО УШИРЕННОГО ДВУТАВРА А =

138.00

В приведенных ниже таблицах приведены результаты расчета по программе "8ТЕИ 3".

ИСХОДНЫЕ ДАННЫЕ

1. УСИЛИЕ СЖАТИЯ, кг

185160.0

2. РАСЧЕТНАЯ ДЛИНА, см

870.0

3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/смл

2400.0

РЕЗУЛЬТАТЫ РАСЧЕТА

1. СЕЧЕНИЕ ИЗ ДВУХ ДВУТАВРОВ А =

53.80

2. МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕЖДУ Ц. Т. ВЕТВЕЙ Ь =

26.47

3. МАКСИМАЛЬНОЕ РАССТОЯНИЕ МЕВДУ УЗЛАМИ РЕШЕТКИ 1 =

111.63

4. СЕЧЕНИЕ ИЗ ДВУХ ШВЕЛЛЕРОВ А =

53.40

5. МИНИМАЛЬНОЕ РАССТОЯНИЕ МЕВДУ Ц. Т. ВЕТВЕЙ Ь =

27.79

6. МАКСИМАЛЬНОЕ РАССТОЯНИЕ МЕЭДУ УЗЛАМИ РЕШЕТКИ 1 =

123.98

СПИСОК ЛИТЕРАТУРЫ

1. СНиП 11-23-81*. Стальные коне тру кции. — М.: ЦИТП Госстроя СССР,1995.

2. СНиП 2.01.07-85. Нагрузки и воздействия. — М.: ЦИТП Госстроя СССР,1988.

СНиП 2.03.01-84*. Бетонные и железобетонные конструкции. — М.: ЦИТП Госстроя,1996




.