Сопротивление материалов Методические указания и варианты исходных данных к курсовому проекту по курсу «Сопротивление материалов»

Скачать 440.37 Kb.

Название	Сопротивление материалов Методические указания и варианты исходных данных к курсовому проекту по курсу «Сопротивление материалов»
страница	6/8
Дата публикации	18.07.2013
Размер	440.37 Kb.
Тип	Методические указания

100-bal.ru > Математика > Методические указания

1 2 3 4 5 6 7 8

Приложение 1. Программа для расчета многопролетной балки

Ниже приводится текст программы на языке ФОРТРАН
DIMENSION XI(20),AMI(20),PI(20),QI(20),NWR(20)

CHARACTER(80) TEXT
C ВВОД ИСХОДНЫХ ДАННЫХ
OPEN (UNIT = 4, FILE = 'INZAD1.TXT')
C ИДЕНТИФИКАЦИОННАЯ СТРОКА

READ (4, '(A80)') TEXT
C КОЛИЧЕСТВО УЗЛОВ,

C КООРДИНАТА, МОМЕНТ, СИЛА, РАСПРЕД. НАГРУЗКА, ШАГ ДЛЯ ВЫДАЧИ

READ (4, 100) NUZ, (XI(I),AMI(I),PI(I),QI(I),I=1,NUZ)

100 FORMAT (I10/(4E10.0))

C НОМЕРА ЗАКРЕПЛЕННЫХ УЗЛОВ

READ (4, 110) NZ1,NZ2

110 FORMAT (2I10)

C МОДУЛЬ УПРУГОСТИ, МОМЕНТ ИНЕРЦИИ, КОЛ-ВО ТОЧЕК ДЛЯ ВЫДАЧИ

READ (4, 120) E,AJ

120 FORMAT (2E10.0)

READ (4, 130) (NWR(I),I=1,NUZ-1)

130 FORMAT (I10)

CLOSE (4)
C ОПРЕДЕЛЕНИЕ ОПОРНЫХ РЕАКЦИЙ

EJ = E*AJ

PI(NZ1) = 0.0

PI(NZ2) = 0.0

R1 =( QTEK (XI(NUZ),1,NUZ,XI,PI,QI)*(XI(NUZ) - XI(NZ2)) -

* AMTEK(XI(NUZ),1,NUZ,XI,AMI,PI,QI))/

* (XI(NZ2) - XI(NZ1))

R2 =(-QTEK (XI(NUZ),1,NUZ,XI,PI,QI)*(XI(NUZ) - XI(NZ1)) +

* AMTEK(XI(NUZ),1,NUZ,XI,AMI,PI,QI))/

* (XI(NZ2) - XI(NZ1))

PI(NZ1) = R1

PI(NZ2) = R2
C ОПРЕДЕЛЕНИЕ ПРОИЗВОЛЬНЫХ ПОСТОЯННЫХ V0, TETA0

V0 = (VTEK(XI(NZ2),0.0,0.0,EJ,NUZ,XI,AMI,PI,QI)*XI(NZ1) -

* VTEK(XI(NZ1),0.0,0.0,EJ,NUZ,XI,AMI,PI,QI)*XI(NZ2))/

* (XI(NZ2) - XI(NZ1))

T0 = (VTEK(XI(NZ1),0.0,0.0,EJ,NUZ,XI,AMI,PI,QI) -

* VTEK(XI(NZ2),0.0,0.0,EJ,NUZ,XI,AMI,PI,QI))/

* (XI(NZ2) - XI(NZ1))
C ВЫВОД РЕЗУЛЬТАТОВ РАСЧЕТА

OPEN (UNIT = 4, FILE = 'OUTZAD1.TXT')

C ИДЕНТИФИКАЦИОННАЯ СТРОКА

WRITE (4, '(A80)') TEXT

C ЗАГОЛОВОК ДЛЯ ИСХОДНЫХ ДАННЫХ

WRITE (4, '(1X)')

WRITE (4,*)

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

WRITE (4, '(1X)')

WRITE (4,*)

* ' X[м] M[кНм] P[кН] q[кН/м]'

WRITE (4,310)

* (I,XI(I),AMI(I)*1E-3,PI(I)*1E-3,QI(I)*1E-3, I=1,NUZ)

310 FORMAT (I3,5X,F8.3,5X,3F10.2)

C ЗАГОЛОВОК ДЛЯ РЕЗУЛЬТАТОВ РАСЧЕТОВ

WRITE (4, '(1X)')

WRITE (4,*)

* ' РЕЗУЛЬТАТЫ РАСЧЕТОВ'

WRITE (4, '(1X)')

WRITE (4,*)

* ' X[м] Q[кН] M[кНм] TETA0[град] V0[мм]'
C ЦИКЛ ПО СИЛОВЫМ УЧАСТКАМ
DO 2 N = 1,NUZ-1

WRITE (4,330)

330 FORMAT (60('-'))

DX = (XI(N+1) - XI(N))/NWR(N)

DO 1 I = 0,NWR(N)

X = XI(N) + I*DX

LEFT = 1

IF (I .EQ. NWR(N)) LEFT = -1

WRITE (4,340) X,

* QTEK(X,LEFT,NUZ,XI,PI,QI)*1E-3,

* AMTEK(X,LEFT,NUZ,XI,AMI,PI,QI)*1E-3,

* TETATEK(X,T0,EJ,NUZ,XI,AMI,PI,QI)*(180/3.1415926),

* VTEK(X,V0,T0,EJ,NUZ,XI,AMI,PI,QI)*1E3

340 FORMAT (1X,F8.3,5X, 2F10.2, 5X, 2F9.3)

1 CONTINUE

2 CONTINUE

WRITE (4,330)

CLOSE (4)

END
C ПОДПРОГРАММА ВЫЧИСЛЕНИЯ Q(x)

FUNCTION QTEK(X,LEFT,NUZ,XI,PI,QI)

DIMENSION XI(1),PI(1),QI(1)

QTEK = 0

XR = X + LEFT*0.001

DO 1 N = 1,NUZ

IF (XI(N) .GT. XR) RETURN

1 QTEK = QTEK + PI(N) + QI(N)*(X - XI(N))

RETURN

END
C ПОДПРОГРАММА ВЫЧИСЛЕНИЯ M(x)

FUNCTION AMTEK(X,LEFT,NUZ,XI,AMI,PI,QI)

DIMENSION XI(1),AMI(1),PI(1),QI(1)

AMTEK = 0

XR = X + LEFT*0.001

DO 1 N = 1,NUZ

IF (XI(N) .GT. XR) RETURN

1 AMTEK = AMTEK +

* AMI(N) +

* PI(N)*(X - XI(N)) +

* QI(N)*(X - XI(N))**2/2.0

RETURN

END
C ПОДПРОГРАММА ВЫЧИСЛЕНИЯ TETA(x)

FUNCTION TETATEK(X,TETA0,EJ,NUZ,XI,AMI,PI,QI)

DIMENSION XI(1),AMI(1),PI(1),QI(1)

TETATEK = TETA0

DO 1 N = 1,NUZ

IF (XI(N) .GT. X) RETURN

1 TETATEK = TETATEK + (

* AMI(N)*(X - XI(N)) +

* PI(N) *(X - XI(N))**2/2.0 +

* QI(N) *(X - XI(N))**3/6.0)/EJ

RETURN

END
C ПОДПРОГРАММА ВЫЧИСЛЕНИЯ V(x)

FUNCTION VTEK(X,V0,TETA0,EJ,NUZ,XI,AMI,PI,QI)

DIMENSION XI(1),AMI(1),PI(1),QI(1)

VTEK = V0 + TETA0*X

DO 1 N = 1,NUZ

IF (XI(N) .GT. X) RETURN

1 VTEK = VTEK + (

* AMI(N)*(X - XI(N))**2/2.0 +

* PI(N) *(X - XI(N))**3/6.0 +

* QI(N) *(X - XI(N))**4/24.0)/EJ

RETURN

END
Для работы программы должен быть задан файл исходных данных под именем 'INZAD1.TXT', текст которого для рассматриваемого варианта приводится ниже:
ИВАНОВ И.И. ГР. ПС-70 ВАР. 30

4 //КОЛ-ВО УЗЛОВ РАСЧ. СХЕМЫ

0.0, 0.0, 0.0, -30.0E3 //Xi, Mi, Pi, qi

1.6, 0.0, -10.0E3, 0.0

3.2, 0.0, 0.0, 30.0E3

4.0, 40.0E3, 0.0, 0.0

1, 3 //НОМЕРА ЗАКРЕПЛЕННЫХ УЗЛОВ

2.0E11, 2790E-8 //E, Jz

8 //КОЛ-ВО ИНТЕРВАЛОВ ДЛЯ ВЫДАЧИ

8

4

Первая строка содержит идентификатор конкретной задачи. Во второй строке нужно указать количество точек n, определяющих границы силовых участков(узлы расчетной схемы). Следующие n строк содержат информацию о координате x , и внешних нагрузках, приложенных в этом узле. Далее идут две строки, где указаны номера узлов с опорами и значение модуля и момента инерции сечения. Последние n-1 строк определяют количество точек на силовом участке, в которых программа должна выдать результаты расчетов.

Результаты расчета записываются в файл 'OUTZAD1.TXT'. В процессе решения программа определяет опорные реакции и при выдаче они рассматриваются как заданные внешние нагрузки. Ниже приводится распечатка файла 'OUTZAD1.TXT' для рассматриваемой задачи.
ИВАНОВ И.И. ГР. ПС-70 ВАР. 30
ИСХОДНЫЕ ДАННЫЕ
X[м] M[кНм] P[кН] q[кН/м]

1 .000 .00 40.50 -30.00

2 1.600 .00 -10.00 .00

3 3.200 .00 65.50 30.00

4 4.000 40.00 .00 .00
РЕЗУЛЬТАТЫ РАСЧЕТОВ
X[м] Q[кН] M[кНм] TETA0[град] V0[мм]

------------------------------------------------------------

.000 40.50 .00 -.267 .000

.200 34.50 7.50 -.259 -.924

.400 28.50 13.80 -.237 -1.794

.600 22.50 18.90 -.203 -2.566

.800 16.50 22.80 -.160 -3.204

1.000 10.50 25.50 -.111 -3.679

1.200 4.50 27.00 -.057 -3.971

1.400 -1.50 27.30 -.001 -4.071

1.600 -7.50 26.40 .055 -3.976

------------------------------------------------------------

1.600 -17.50 26.40 .055 -3.976

1.800 -23.50 22.30 .105 -3.695

2.000 -29.50 17.00 .146 -3.254

2.200 -35.50 10.50 .174 -2.693

2.400 -41.50 2.80 .188 -2.057

2.600 -47.50 -6.10 .185 -1.401

2.800 -53.50 -16.20 .162 -.790

3.000 -59.50 -27.50 .117 -.296

3.200 -65.50 -40.00 .048 .000

------------------------------------------------------------

3.200 .00 -40.00 .048 .000

3.400 .00 -40.00 -.034 .025

3.600 .00 -40.00 -.116 -.237

3.800 .00 -40.00 -.198 -.786

4.000 .00 -40.00 -.280 -1.621

------------------------------------------------------------

1 2 3 4 5 6 7 8

Похожие:

	Программа дисциплины дпп. Ф. 01. 2 Сопротивление материалов томск... Обеспечить необходимый уровень общетехнической подготовки студентов по дисциплине «Сопротивление материалов», относящейся к машиноведческому...		Методические указания к курсовому проекту по дисциплине «Программная инженерия» Документирование процесса разработки программных средств с использованием uml: Методические указания к курсовому проекту по дисциплине...
	Учебно-методический комплекс по курсу «Сопротивление материалов» содержит конспект лекций, пра Специальность 190205. 65 «Подъемно-транспортные, строительные, дорожные машины и оборудование» Форма подготовки очная		Конспект лекций по сопротивлению материалов Владивосток 2004 введени е Сопротивление материалов является основой всех инженерных наук, так как все вопросы этого курса связаны с проблемой прочности инженерных...
	Рабочая программа по дисциплине б 2 Сопротивление материалов по направлению подготовки Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования		«Сопротивление материалов» Предназначено для самостоятельной работы студентов биологического факультета специальности 020201 «Биология», рейтингового контроля...
	Методические указания по выполнению реферата по дисциплине «организация работы с персоналом» Методические указания содержат требования к реферату, методики сбора и анализа исходных данных, примерные формы описания результатов...		Тема урока: «Электрическое сопротивление. Удельное сопротивление» Цель урока: Познакомить учащихся с электрическим сопротивлением как физической величиной. Дать объяснение природе электрического...
	Программа учебной дисциплинЫ «сопротивление материалов» Предназначено для самостоятельной работы студентов биологического факультета специальности 020201 «Биология», рейтингового контроля...		Методические указания по выполнению реферата по дисциплине "процессы... Методические указания предназначены в помощь студентам при выполнении реферата по дисциплине "Процессы соединения, сборки и ремонта...
	Рабочая программа по дисциплине: Сопротивление материалов для направления:... Рабочая программа составлена на основании федерального государственного образовательного стандарта высшего профессионального образования...		Программа по формированию навыков безопасного поведения на дорогах... Изучение настоящего курса базируется на знаниях, полученных студентами при изучении предшествующих дисциплин, а именно: " Высшая...
	Проект внесения изменений (корректировка) Схемы территориального...		Потери электрической и тепловой энергии при транспортировке Ленца энергия, расходуемая на нагрев проводов линии, определяется формулой:,где r-сопротивление линии. При очень большой длине линии...
	Методические указания по выполнению рефератов по дисциплине "Механика... Методические указания предназначены в помощь студентам при выполнении рефератов по дисциплине "Механика деформирования и разрушения...		Методические указания по выполнению рефератов по дисциплине "Механика... Методические указания предназначены в помощь студентам при выполнении рефератов по дисциплине "Механика деформирования и разрушения...

Школьные материалы