Exponenta.ru

Почитайте справку ?printlevel , там всё подробно написано.

Выполните printlevel:=2; перед двойным циклом.

Я не понял суть проблемы. Обозначайте как Вам нравится.

Вам в определителе вместо L11(f) и т.д. надо писать просто L11, так как L11(f) это не оператор, а значение оператора L11 на функции f . Вот решение вашей проблемы на примере определителя 3 порядка (код работает на определителях любого порядка): restart; A:=Matrix(3, (i,j)->L||i||j); Delta:=LinearAlg...

Имеется 2 корня, которые легко найти численно:
Student[Calculus1]:-Roots((cos@@3)(x) = (sin@@3)(x), x = 0 .. 2*Pi, numeric);

Проблема легко решается, если использовать операторную форму задания функции:

with(RealDomain):
plot(x->arcsin((1/8)*x^2-1)-2*arcsin((1/4)*x)+(1/2)*Pi, -5 .. 5, thickness = 3);

Довольно странное требование об обязательном присутствии цикла. С циклом можно сделать так:
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>;

Попробуйте сначала найти общее решение вашего дифура (с произвольными постоянными), а затем найти эти произвольные постоянные, используя условие в виде интеграла. Если не получится, то дайте точную формулировку вашей задачи (со всеми явными формулами и условиями).

В коде исправьте sol(x)[2] на rhs(sol(x)[2])

Нет.

1. a это имя списка [[0,0],0] , который мы вводим для дальнейшего поиска позиции (номера строки и столбца) максимального по модулю элемента матрицы А . 2. r это выражение, стоящее в знаменателе, когда ищем нужный угол для поворота (см. формулу в вики). Например, если оказалось, что a=[[2,3],7] , то ...

Проверьте исправленный вариант: Jacobi:=proc(A::Matrix) local n, a, i, j, p, c, s, G, r; uses LinearAlgebra; n:=RowDimension(A); a:=[[0,0], 0]; for i to n do for j from i+1 to n do if abs(A[i,j])>=abs(a[2]) then a:=[[i,j], A[i,j]] fi; od; od; r:=A[a[1,1],a[1,1]]-A[a[1,2],a[1,2]]; p:=`if`(r<>0,2*a[2]...

Вставьте в процедуру строку print(G) после строки G:=...

Вот простая процедура, которая делает одну итерацию в методе вращения Якоби для поиска собственных значений симметрической вещественной матрицы. Сначала в двойном цикле находится максимальный внедиагональный элемент матрицы. Затем использованы формулы из вики для нахождения матрицы G . Применяя эту ...

Ниже примеры как это делается:

plot(x^2, x=0..1, axis=[thickness=0]); # Самые тонкие оси
plot(x^2, x=0..1, axis=[thickness=2]);
plot(x^2, x=0..1, axis=[thickness=4]);

См. справку по запросу plot,axis