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

Kitonum
Пт окт 06, 2017 2:59 pm
Форум: Maple
Тема: Найти частные производные z′y , zx′′y, zx′′u′ x ; результаты упростить
Ответы: 1
Просмотры: 242

Re: Найти частные производные z′y , zx′′y, zx′′u′ x ; результаты упростить

z:=sqrt(64-3*x^2-y^2)+10*u;
simplify(diff(z,y));
simplify(diff(z, x$2, y));
simplify(diff(z, x$2, u, x));
Kitonum
Сб сен 23, 2017 8:09 am
Форум: Общие вопросы математики
Тема: Задачка про квадрат
Ответы: 4
Просмотры: 2292

Re: Задачка про квадрат

Задачка показалась интересной, решил в ней разобраться. Оказалось, что решается довольно просто. Основная идея - к каждой стороне квадрата должны примыкать в точности два прямоугольника и возможна только такая конфигурация http://s019.radikal.ru/i611/1709/b5/48ae29564fa3.png или полученная зеркальны...
Kitonum
Вт май 16, 2017 8:20 pm
Форум: Maple
Тема: диффуры(maple)
Ответы: 9
Просмотры: 548

Re: диффуры(maple)

Начальные условия для построения заданы списком [a] .
Kitonum
Вт май 16, 2017 8:09 pm
Форум: Maple
Тема: диффуры(maple)
Ответы: 9
Просмотры: 548

Re: диффуры(maple)

Я не понял какую роль играет этот список [[ic1],[ic2],[ic3]] . Если его убрать, то всё работает: restart; dex:=diff(x(t),t)=x(t)+x(t)*y(t): dey:=diff(y(t),t)=-y(t)+(y(t)^2)+x(t)*y(t)-(x(t)^3): sys:=dex,dey: a:=NULL: for i from -3 by 0.5 to 3 do for j from -3 by 0.5 to 3 do s:=[x(0)=i,y(0)=j-1]: a:=a...
Kitonum
Чт май 11, 2017 10:56 pm
Форум: Maple
Тема: Нарисовать деление чисел столбиком
Ответы: 3
Просмотры: 305

Re: Нарисовать деление чисел столбиком

Вот несколько советов в помощь. 1. Два способа получить список цифр данного числа. Пример: convert(3182,base,10); # первый способ ListTools:-Reverse(%); L:=[ ]: a:=3182: # второй способ (в цикле) while a>=1 do r:=irem(a,10); a:=iquo(a,10); L:=[r,op(L)]; od: L; Для графики можно использовать команды ...
Kitonum
Чт апр 20, 2017 3:59 pm
Форум: Maple
Тема: два графика на одном
Ответы: 3
Просмотры: 332

Re: два графика на одном

Два способа:

A:=plot((1/3)*x, x=0..5, color=red):
B:=plot(x^2, x=2..3, color=blue):
plots:-display(A, B); # Первый способ

plot([[x,(1/3)*x, x=0..5],[x,x^2, x=2..3]], color=[red,blue]); # Второй способ (параметрическое задание кривых)
Kitonum
Пт апр 14, 2017 7:35 pm
Форум: Maple
Тема: Объединение уравнений
Ответы: 1
Просмотры: 339

Re: Объединение уравнений

Синтаксис команды solve требует, чтобы система уравнений была задана как множество или список. Если ваша система задана как массив, то просто конвертируйте этот массив в множество или список как в следующем простом примере: M:=Array(1..3,[x+y=1,y+z=2,z+x=3]); S:=convert(M, set); L:=convert(M, list);...
Kitonum
Пт мар 24, 2017 6:41 pm
Форум: Maple
Тема: Аналитическое решение трансцедентного уравнения
Ответы: 1
Просмотры: 316

Re: Аналитическое решение трансцедентного уравнения

Ваше уравнение содержит целую кучу параметров от n1 до n6 . Вы должны указать их числовые значения. Только после этого можно будет искать неизвестное x методом Ньютона.
Kitonum
Вт мар 21, 2017 11:15 pm
Форум: Maple
Тема: Поворот цилиндра
Ответы: 2
Просмотры: 373

Re: Поворот цилиндра

Чтобы применить матрицу поворота для поворота некоторого графического объекта в R^3 используйте команду plottools:-transform как в примере: P:=plots[implicitplot3d](x^2+y^2=1, x = -1 .. 1, y = -1 .. 1, z = 0 .. 5, style=surface, scaling=constrained, axes=normal, numpoints=10000); # Цилиндр A:=1/3*<1...
Kitonum
Вт мар 21, 2017 1:27 pm
Форум: Maple
Тема: Цикл for
Ответы: 3
Просмотры: 351

Re: Цикл for

Два варианта на примере, когда 1) функция задана как выражение и 2) та же функция задана как процедура. Лучшим и более быстрым является второй способ.

F:=x^2-2*y: # Как выражение
f:=(x,y)->x^2-2*y: # Как процедура
eval(F, [x=10,y=20]);
f(10,20);

60
60
Kitonum
Вт мар 21, 2017 10:38 am
Форум: Maple
Тема: Цикл for
Ответы: 3
Просмотры: 351

Re: Цикл for

Я упростил Ваш код, убрав всё лишнее. Для Вашей цели удобно использовать индексированные имена. Имена наподобие Q"i" не допускаются. Писать by 1 не нужно, т.к. это делается по умолчанию. Команда print Вам совсем не нужна. Обычно она используется только в процедурах, когда нужно вывести на ...
Kitonum
Пн мар 20, 2017 11:32 pm
Форум: Maple
Тема: Анимация
Ответы: 4
Просмотры: 525

Re: Анимация

Код анимации: restart; with(plots): with(plottools): a1:=sphere([0,1,10],5.9,color=white): a2:=sphere([3,6,9],0.5,color=black): a3:=pointplot3d([-0.6,7,11],color=red,symbolsize=20): a4:=sphere([-4,5,9],0.5,color=black): a5:=cone([0,1,0],4.5,6,color=red): a6:=semitorus([0,1,17],-Pi..0,2,3,color=green...
Kitonum
Пн мар 20, 2017 1:11 pm
Форум: Maple
Тема: Анимация
Ответы: 4
Просмотры: 525

Re: Анимация

Но Ваш код работает без всяких ошибок. Если это не та анимация, которую Вы ожидаете, то Вам следует подробно объяснить, что именно должно двигаться. Ваш код содержит достаточно много разных объектов и совсем не очевидно, что же должно происходить?
Kitonum
Ср мар 08, 2017 7:48 am
Форум: Общие вопросы математики
Тема: Решение уравнения
Ответы: 1
Просмотры: 314

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

Очевидно, что это уравнение не имеет действительных корней. Все его корни чисто комплексные. Для их нахождения приведите уравнение к виду ((z+1)/(z-1))^2010=-1 . Например, среди его корней (всего 2010 корней) будет число i - мнимая единица.
Kitonum
Вс фев 19, 2017 8:34 pm
Форум: Maple
Тема: дифф.уравнение
Ответы: 3
Просмотры: 503

Re: дифф.уравнение

Ошибка из-за того, что под знаком логарифма появляется отрицательное число. Я слегка изменил диапазон для j чтобы этого не случалось: restart; with(DEtools): sys:=diff(x(t),t)=2*y(t)+ln(y(t))-x(t), diff(y(t),t)=1: a:=NULL: for i from -2 by 0.5 to 2 do for j from 0 to 3 do s:=[x(0)=i+1,y(0)=j+1]; a:=...