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

Kitonum
Чт авг 02, 2018 10:57 pm
Форум: Maple
Тема: Можно ли в Мэйпле менять начало отсчёта системы координат графиков?
Ответы: 1
Просмотры: 103

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

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

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

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

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

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

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

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

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...
Kitonum
Сб май 26, 2018 8:23 am
Форум: Maple
Тема: Помогите построить анимационный график
Ответы: 4
Просмотры: 115

Re: Помогите построить анимационный график

Это несложно: restart; x := [1,2,3,4,5,6,7,8,9,10]: y:= [2,5,3,8,5,4.3,4,6,3,4]: xy:=zip(`[]`, x, y); plots:-animate(plot,[xy[1..floor(i)], color=red, thickness=2, view=[0..10,0..10]], i=1..10); https://d.radikal.ru/d31/1805/51/e93cc4f1c5b6.gif
Kitonum
Вт май 22, 2018 10:40 pm
Форум: Maple
Тема: Помогите написать программу по задаче
Ответы: 4
Просмотры: 132

Re: Помогите написать программу по задаче

Очевидно, что приведённое Вами решение ошибочно.
Kitonum
Пн май 21, 2018 7:51 pm
Форум: Maple
Тема: Помогите написать программу по задаче
Ответы: 4
Просмотры: 132

Re: Помогите написать программу по задаче

Программу написать несложно, но вся проблема в том, что при этих данных поезд вообще не тронется. Если мы подставим в формулу для R начальную скорость v=0 , то получим R=100 т или 100000 кГ . Чтобы поезд начал движение тяга должна быть больше этой величины. Я взял F=107000 кГ . restart; R:=(2.5+0.05...
Kitonum
Ср май 09, 2018 8:55 pm
Форум: Maple
Тема: не видит переменную внутри процедуры
Ответы: 3
Просмотры: 135

Re: не видит переменную внутри процедуры

Интересная проблема! Вероятно это связано с некоторыми специфическими вычислительными правилами в процедурах. Задайте свой вопрос на mapleprimes.com . Вот способ обойти проблему, используя команду unapply для задания процедуры и команду piecewise вместо if .. end if . restart; F := 8*y^2*(3*R^2+2*y^...
Kitonum
Ср май 02, 2018 9:37 pm
Форум: Maple
Тема: Помогите составить программу по задаче
Ответы: 3
Просмотры: 190

Re: Помогите составить программу по задаче

Вот код в Maple, решающий проблему: restart; Eq:=diff(m(t),t)=k*m(t); inc:=m(0)=a; sol:=dsolve({Eq,inc}, m(t)); k:=solve(subs([t=1,m(t)=2*a],sol), k); Sol:=unapply(simplify(eval(m(t),sol)), t); Sol(3)/a; # Ответ https://c.radikal.ru/c42/1805/de/10aedd913f68.png
Kitonum
Пт апр 13, 2018 8:25 am
Форум: Maple
Тема: Крайние точки множества
Ответы: 9
Просмотры: 309

Re: Крайние точки множества

Для вашей проблемы понятие крайней точки множества связано с геометрической интерпретацией задачи линейного программирования. Грубо говоря - это вершины некоторого многомерного многогранника (у Вас - восьмимерного). Почитайте http://eps.dvo.ru/~shamray/lp/lecture/expoint_in_lp.pdf где описан и алгор...
Kitonum
Чт мар 29, 2018 12:52 pm
Форум: Общие вопросы математики
Тема: Найти максимальное значение параметра
Ответы: 5
Просмотры: 208

Re: Найти максимальное значение параметра

А дальше просто накладываете на эти корни те условия, которые прописаны в вашей задаче и решаете полученную систему. Конечно решать систему не обязательно вручную. Вот код для решения в Мэйпл: restart; factor(x^3-(4+d)*x^2+5*d*x-d^2); a,b,c:=solve(x^3-(4+d)*x^2+5*d*x-d^2, x); Sol:=solve(sqrt(a)+sqrt...