Найдено 2050 результатов

Kitonum
Чт ноя 29, 2018 9:57 am
Форум: Maple
Тема: многочлен Ньютона
Ответы: 3
Просмотры: 89

Re: многочлен Ньютона

Почитайте справку ?printlevel , там всё подробно написано.
Kitonum
Чт ноя 29, 2018 2:26 am
Форум: Maple
Тема: многочлен Ньютона
Ответы: 3
Просмотры: 89

Re: многочлен Ньютона

Выполните printlevel:=2; перед двойным циклом.
Kitonum
Вс ноя 25, 2018 9:56 pm
Форум: Maple
Тема: Вычисление аналога определителя матрицы из линеных дифференциальных операторов
Ответы: 5
Просмотры: 123

Re: Вычисление аналога определителя матрицы из линеных дифференциальных операторов

Вам в определителе вместо L11(f) и т.д. надо писать просто L11, так как L11(f) это не оператор, а значение оператора L11 на функции f . Вот решение вашей проблемы на примере определителя 3 порядка (код работает на определителях любого порядка): restart; A:=Matrix(3, (i,j)->L||i||j); Delta:=LinearAlg...
Kitonum
Сб ноя 24, 2018 1:20 am
Форум: Maple
Тема: Kernel connection has been lost...
Ответы: 2
Просмотры: 82

Re: Kernel connection has been lost...

Имеется 2 корня, которые легко найти численно:
Student[Calculus1]:-Roots((cos@@3)(x) = (sin@@3)(x), x = 0 .. 2*Pi, numeric);
Kitonum
Пт ноя 23, 2018 8:12 pm
Форум: Maple
Тема: Ошибочный график
Ответы: 5
Просмотры: 138

Re: Ошибочный график

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

with(RealDomain):
plot(x->arcsin((1/8)*x^2-1)-2*arcsin((1/4)*x)+(1/2)*Pi, -5 .. 5, thickness = 3);
Kitonum
Пн ноя 12, 2018 11:35 pm
Форум: Maple
Тема: Записать матрицу
Ответы: 5
Просмотры: 106

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

Довольно странное требование об обязательном присутствии цикла. С циклом можно сделать так:
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>;
Kitonum
Сб окт 27, 2018 9:25 am
Форум: Maple
Тема: интеграл как начальное условие в задаче Коши
Ответы: 2
Просмотры: 117

Re: интеграл как начальное условие в задаче Коши

Попробуйте сначала найти общее решение вашего дифура (с произвольными постоянными), а затем найти эти произвольные постоянные, используя условие в виде интеграла. Если не получится, то дайте точную формулировку вашей задачи (со всеми явными формулами и условиями).
Kitonum
Вт окт 16, 2018 4:32 pm
Форум: Maple
Тема: Метод вращения Якоби
Ответы: 13
Просмотры: 446

Re: Метод вращения Якоби

Нет.
Kitonum
Сб окт 06, 2018 8:09 am
Форум: Maple
Тема: Метод вращения Якоби
Ответы: 13
Просмотры: 446

Re: Метод вращения Якоби

1. a это имя списка [[0,0],0] , который мы вводим для дальнейшего поиска позиции (номера строки и столбца) максимального по модулю элемента матрицы А . 2. r это выражение, стоящее в знаменателе, когда ищем нужный угол для поворота (см. формулу в вики). Например, если оказалось, что a=[[2,3],7] , то ...
Kitonum
Пт окт 05, 2018 9:45 pm
Форум: Maple
Тема: Метод вращения Якоби
Ответы: 13
Просмотры: 446

Re: Метод вращения Якоби

Проверьте исправленный вариант: 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]...
Kitonum
Пт окт 05, 2018 4:28 pm
Форум: Maple
Тема: Метод вращения Якоби
Ответы: 13
Просмотры: 446

Re: Метод вращения Якоби

Вставьте в процедуру строку print(G) после строки G:=...
Kitonum
Пт окт 05, 2018 11:06 am
Форум: Maple
Тема: Метод вращения Якоби
Ответы: 13
Просмотры: 446

Re: Метод вращения Якоби

Вот простая процедура, которая делает одну итерацию в методе вращения Якоби для поиска собственных значений симметрической вещественной матрицы. Сначала в двойном цикле находится максимальный внедиагональный элемент матрицы. Затем использованы формулы из вики для нахождения матрицы G . Применяя эту ...
Kitonum
Пн окт 01, 2018 7:56 am
Форум: Maple
Тема: Толщина осей
Ответы: 4
Просмотры: 156

Re: Толщина осей

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

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