|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
18.12.2013, 01:28 | #1 (permalink) |
Новичок
Регистрация: 18.12.2013
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, нужно написать программу в Паскаль, а я ни бум-бум
для стержневого элемента(балки) при воздействии на него нагрузок в равностоящих сечениях. Рассмотрим балку длинной L на которую в равноотстоящих сечениях воздействуют нагрузки. Представим нагрузки в виде вектора P. каждый элемент вектора столбца P равен значению нагрузки, воздействующую на балку в сечении с номером соответствующим индексу строки вектора. Известно, что матрица изгибающих моментов М равна произведению матрицы влияния изгибающих моментов S размерности [K*K] на вектор нагрузок P размерности [K] M=S*P элемент S(i,j) матрицы влияния равен изгибающему моменту в i-м сечении при единичной нагрузке в сечении номер j Pj=1 таким образом, элементы строки матрицы S представляют значения изгибающих моментов в сечениях, соответствующих индексу строки от воздействия единичной силы, расположенной в сечении с номером столбца. Строка матрицы влияния образуют собой линию влияния с номером этой строки. S=L/(K+1)^2*A матрица A имеет размерность S ,а ее элементы определяются по формуле A[ij]=(K-i+1)*j, (i<=j) матрица A симметрична A[j,i]=A[i,j] L=10,6 P1=12,8 P2=6,75 P3=-1,2 P4=-8,6 P5=нагрузка меняется P6=-4,2 PN=-6,4 N-элемент нагрузки PK=6,4 P0=0,4-шаг |
18.12.2013, 01:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Нужную информацию так же можно найти всего лишь прочитав аналогичные топики Нужно написать программу Нужно написать программу в паскале, сама не могу! Нужно написать программу Помогите написать программу. Паскаль Помогите написать программу на языке паскаль |
18.12.2013, 08:10 | #3 (permalink) |
падаван
Регистрация: 23.01.2013
Сообщений: 739
Сказал(а) спасибо: 307
Поблагодарили 27 раз(а) в 3 сообщениях
Репутация: 10792
|
кто вам посреди ночи будет что-то писать?
по сабжу: вводные данные непонятны. матрицы А и S рассчитывать обязательно? можно и без них обойтись |
18.12.2013, 10:43 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ну да ладно. Условие изложено сумбурно, сам я в этом не спец, а потому ни малейшей уверенности в правильности решения у меня нет. Но если "хоть что-нибудь", то пожалуйста: Код:
Const L=10.4; K=16; {PK/P0} Var M,P:Array[1..K] of Real; A,S:Array[1..K,1..K] of Real; i,j:Byte; Begin P[ 1]:=12.8; P[ 2]:=6.75; P[ 3]:=-1.2; P[ 4]:=-8.6; P[ 6]:=-4.2; P[ 7]:=-6.4; P[ 8]:=-6.4; P[ 9]:=-6.4; P[10]:=-6.4; P[11]:=-6.4; P[12]:=-6.4; P[13]:=-6.4; P[14]:=-6.4; P[15]:=-6.4; P[16]:=-6.4; Write('P[5]= '); Readln(P[5]); for j:=1 to K do for i:=1 to j do A[i,j]:=(K-i+1)*j; for i:=2 to K do for j:=1 to i-1 do A[i,j]:=A[j,i]; for i:=1 to K do for j:=1 to K do S[i,j]:=A[j,i]*L/Sqr(K+1); for i:=1 to K do begin M[i]:=0; for j:=1 to K do M[i]:=M[i]+S[i,j]*P[j]; end; for i:=1 to K do writeln('M[',i:2,']= ',M[i]:0:5); Readln End. |
|
19.12.2013, 17:11 | #5 (permalink) | ||
Новичок
Регистрация: 19.12.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите решить задачу...
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.12.2013, 17:14 | #6 (permalink) | ||
Новичок
Регистрация: 19.12.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите решить задачу...
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|