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

Kitonum
Вт дек 05, 2017 11:52 pm
Форум: Maple
Тема: Тривиальная визуализация
Ответы: 8
Просмотры: 89

Re: Тривиальная визуализация

А можно ли на этом графике закрасить только выделенный диапазон столбцов? Например, если их 10, то с 4-го по 7-й? S:=2*i-1: plots:-display(seq(plot([S, [i-0.95,t,t=0..S], [i-0.05,t,t=0..S]], x=i-0.95..i-0.05, thickness=2, color=blue), i=1..3), seq(plot(S, x=i-0.97..i-0.03, color=blue, filled), i=4....
Kitonum
Вт дек 05, 2017 6:18 pm
Форум: Maple
Тема: Тривиальная визуализация
Ответы: 8
Просмотры: 89

Re: Тривиальная визуализация

То же самое с небольшими изменениями:
S:=2*i-1:
plots:-display(seq(plot(S, x=i-0.97..i-0.03, color=blue, filled), i=1..5));
plots:-display(seq(plot([S, [i-1,t,t=0..S], [i,t,t=0..S]], x=i-1..i, thickness=3, color=blue), i=1..5));
Kitonum
Вт дек 05, 2017 8:19 am
Форум: Maple
Тема: Тривиальная визуализация
Ответы: 8
Просмотры: 89

Re: Тривиальная визуализация

Вот два варианта: первый - закрашенными столбиками (основания чуть меньше 1, чтобы столбики не сливались), второй - только линиями: S:=simplify(sum(2*k-1, k=1..i)); plots:-display(seq(plot(S,x=i-0.45..i+0.45, color=blue, filled), i=1..5)); plots:-display(seq(plot([S, [i-0.5,t,t=0..S], [i+0.5,t,t=0.....
Kitonum
Вт ноя 21, 2017 9:13 pm
Форум: Maple
Тема: Покоординатное умножение векторов
Ответы: 5
Просмотры: 86

Re: Покоординатное умножение векторов

Вот на примере два варианта (для последних версий Maple и для более старых):
V1:=<1,2,3>:
V2:=<4,5,6>:

V1*~V2; # Для новых версий
zip(`*`, V1, V2); # Для более старых версий, но в новых также работает
Kitonum
Чт ноя 02, 2017 8:26 pm
Форум: Maple
Тема: Ошибка в графике в полярных координатах?
Ответы: 7
Просмотры: 442

Re: Ошибка в графике в полярных координатах?

r:=t->`if`(1+2*cos(t)>=0,1+2*cos(t), NULL):
plot(r, 0..2*Pi, coords=polar);
Kitonum
Чт окт 26, 2017 11:01 pm
Форум: Maple
Тема: Асимптоты
Ответы: 2
Просмотры: 273

Re: Асимптоты

Я предпочитаю подобные примеры решать, используя стандартную команду plot . Вертикальная асимптота очевидна x=1 , а наклонные (в частности и горизонтальные) легко найти, используя известные формулы из матана: f:=x->(x+1)^3/(x-1)^2: a:=limit(f(x)/x, x=infinity); b:=limit(f(x)-a*x, x=infinity); plot([...
Kitonum
Сб окт 21, 2017 7:02 am
Форум: Maple
Тема: Графики в строчку (рядом)
Ответы: 2
Просмотры: 261

Re: Графики в строчку (рядом)

restart;
P1:=plot(x^2, x = -2 .. 2, axes = normal):
P2:=plot(x^2, x = -2 .. 2, axes = boxed):
P3:=plot(x^2, x = -2 .. 2, axes = frame):
P4:=plot(x^2, x = -2 .. 2, axes = none):
plots:-display(Matrix(2,2,[[P1,P2], [P3,P4]]), scaling=constrained);
Kitonum
Пт окт 06, 2017 2:59 pm
Форум: Maple
Тема: Найти частные производные z′y , zx′′y, zx′′u′ x ; результаты упростить
Ответы: 1
Просмотры: 578

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
Просмотры: 2332

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

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

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

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

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
Просмотры: 359

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
Просмотры: 384

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
Просмотры: 387

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
Просмотры: 370

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

Ваше уравнение содержит целую кучу параметров от n1 до n6 . Вы должны указать их числовые значения. Только после этого можно будет искать неизвестное x методом Ньютона.