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

Kitonum
Вт окт 16, 2018 4:32 pm
Форум: Maple
Тема: Метод вращения Якоби
Ответы: 12
Просмотры: 187

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

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

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

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

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
Тема: Метод вращения Якоби
Ответы: 12
Просмотры: 187

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

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

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

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

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
Kitonum
Ср сен 19, 2018 11:07 pm
Форум: Maple
Тема: Жордан-Гаусс
Ответы: 2
Просмотры: 101

Re: Жордан-Гаусс

Ваш код не работает, т.к. вы забыли разделитель (точка с запятой) когда вводили вектор b . Также я сделал несколько исправлений в коде, связанных в основном с тем, что пакет linalg давно устарел (впрочем в коде он и не нужен). Вместо matrix и vector следует использовать Matrix и Vector . Что означае...
Kitonum
Чт авг 02, 2018 10:57 pm
Форум: Maple
Тема: Можно ли в Мэйпле менять начало отсчёта системы координат графиков?
Ответы: 1
Просмотры: 230

Re: Можно ли в Мэйпле менять начало отсчёта системы координат графиков?

Если я правильно Вас понял, то Вы хотите, чтобы ось y шла не вверх, а вниз. В 2D это сделать невозможно, т.к. направления осей координат всегда стандартное. Но это можно сделать, если выйти в 3D и использовать опцию orientation . Вот пример: plots:-spacecurve([x,x^2,0], x=0..2, color=red, axes=norma...
Kitonum
Ср июл 25, 2018 11:06 pm
Форум: Общие вопросы математики
Тема: Решение уравнение
Ответы: 2
Просмотры: 447

Re: Решение уравнение

В Мэйпл это также легко решается:
solve(max(abs(x), abs(x-8))=5);
3, 5
Kitonum
Чт май 31, 2018 12:08 am
Форум: Maple
Тема: Анимация данных. Помогите пожалуйста создать.
Ответы: 4
Просмотры: 196

Re: Анимация данных. Помогите пожалуйста создать.

Ну это в 100 раз проще: Primes:=[``, seq(ithprime(k), k=1..100)]: plots:-animate(plots:-textplot,[[0,0, Primes[round(i)]], color=blue, font=[times,roman,30]], i=1..101, frames=500, paraminfo=false, axes=none, size=[100,100]); https://a.radikal.ru/a32/1805/f7/af63e75e9af2.gif
Kitonum
Ср май 30, 2018 7:57 pm
Форум: Maple
Тема: Анимация данных. Помогите пожалуйста создать.
Ответы: 4
Просмотры: 196

Re: Анимация данных. Помогите пожалуйста создать.

Будет более наглядно (и проще для реализации), чтобы элементы списка появлялись не в одной вертикальной колонке, а построчно, т.е. как обычный текст слева направо. Вот пример такой анимации - список первых 100 простых чисел: restart; L:=[[-50,0,convert([seq(ithprime(k),k=1..100)], string)],color=blu...
Kitonum
Вс май 27, 2018 9:44 pm
Форум: Maple
Тема: Анимированные графики. Как построить x, y, z от t?
Ответы: 4
Просмотры: 183

Re: Анимированные графики. Как построить x, y, z от t?

Не пробовал. Почему-то не подумал об этом. Команда CurveFitting:-Spline позволяет автоматически получить сплайн нужного порядка (в данном примере - сплайн первого порядка, т.е кусочно линейную функцию).
Kitonum
Вс май 27, 2018 9:04 am
Форум: Maple
Тема: Анимированные графики. Как построить x, y, z от t?
Ответы: 4
Просмотры: 183

Re: Анимированные графики. Как построить x, y, z от t?

Вот другое решение, дающее более плавную анимацию. Для этого с помощью процедуры ConvertToPiecewise , каждый список, определяющий ломаные линии, конвертируется в piecewise функции: restart; ConvertToPiecewise:=proc(L::list,v::name:='t') local n; n:=nops(L); piecewise(seq(op([v>=L[i,1] and v<L[i+1,1]...
Kitonum
Сб май 26, 2018 9:18 pm
Форум: Maple
Тема: Анимированные графики. Как построить x, y, z от t?
Ответы: 4
Просмотры: 183

Re: Анимированные графики. Как построить x, y, z от t?

Вот код для параллельной анимации трёх ломаных: restart; t := [1,2,3,4,5,6,7,8,9,10]: x:= [2,1,-3,-8,-5,-4.-8,-4,6,2,9]: y:= [2,5,3,8,5,4.3,4,6,3,4]: z:= [3,5,3,1,5,4.3,5,4,3,1]: tx:=zip(`[]`, t, x): ty:=zip(`[]`, t, y): tz:=zip(`[]`, t, z): A:=plots:-animate(plot,[tx[1..floor(i)], color=red, thickn...