Записать матрицу

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

Модератор: Admin

Кли
Сообщения: 116
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Записать матрицу

Сообщение Кли » Пн ноя 12, 2018 8:12 pm

Здравствуйте, как через цикл for записать матрицу Якоби? Я только знаю таким способом:

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

restart;
with(LinearAlgebra):
f[1]:=cos(x-1)+3*y-1.5;
f[2]:=-cos(y)+2*x-4;
M:=Matrix([[diff(f[1],x),diff(f[1],y)],[diff(f[2],x),diff(f[2],y)]]);

Markiyan Hirnyk
Сообщения: 1248
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Записать матрицу

Сообщение Markiyan Hirnyk » Пн ноя 12, 2018 8:29 pm

Мэйпл имеет команду

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

with(VectorCalculus):
Jacobian([cos(x-1)+3*y-1.5, -cos(y)+2*x-4], [x, y]);
Matrix(2, 2, [[-sin(x-1), 3], [2, sin(y)]])

Указанную команду можно разыскать поиском

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

?Jacobian
в рабочем поле . Перевод термина на английский язык можно сделать в Яндексе или Гугле.

Кли
Сообщения: 116
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Записать матрицу

Сообщение Кли » Пн ноя 12, 2018 8:40 pm

такую команду я знаю, но мне надо именно циклом for(вы хотите упростить мне работу, я понимаю)

Markiyan Hirnyk
Сообщения: 1248
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Записать матрицу

Сообщение Markiyan Hirnyk » Пн ноя 12, 2018 8:42 pm

Это я вам не отвечу.

Kitonum
Сообщения: 2050
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Записать матрицу

Сообщение Kitonum » Пн ноя 12, 2018 11:35 pm

Довольно странное требование об обязательном присутствии цикла. С циклом можно сделать так:
restart;
f:=<cos(x-1)+3*y-1.5, -cos(y)+2*x-4>: var:=[x,y]:
for j from 1 to 2 do
f||j:=diff(f,var[j]);
od:
M:=<f1 | f2>;

Кли
Сообщения: 116
Зарегистрирован: Пт ноя 04, 2016 4:54 pm

Re: Записать матрицу

Сообщение Кли » Вт ноя 13, 2018 7:22 am

спасибо