решение линейно системы ур-ий через массивы

Форум пользователей пакета Maple

Модератор: Admin

kastasya
Сообщения: 14
Зарегистрирован: Чт июл 14, 2016 12:01 am

решение линейно системы ур-ий через массивы

Сообщение kastasya » Чт окт 27, 2016 1:58 pm

Добрый день,

помогите, пожалуйста, понять как решить систему ур-ий: есть K*L ур-ий с таким же кол-вом неизвестных коэффициентов A[k,l].

Записала все свои ур-ия=0 в один массив, создала второй массив из A[k,l], но ни через solve, ни через LinearSolve не решается...

что с этим делать?

Код: Выделить всё

N := K*L;
M1 := array(1 .. N);
M2 := array(1 .. N)

for m from 1 to K do
for l from 1 to L do
print(eq[m, 2*l-2] = DeltaV[m, 2*l-2]);

M1[(m-1)*L+l] := DeltaV[m, 2*l-2] = 0;
M2[(m-1)*L+l] := A[m, 2*l-2]

end do end do;



f7.jpg
f7.jpg (102.05 КБ) 623 просмотра