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

volmike
Чт дек 25, 2008 3:35 pm
Форум: Maple
Тема: Дифференцирование и общий вопрос
Ответы: 2
Просмотры: 2419

with(Student[Calculus1]):
DiffTutor();
volmike
Пн дек 22, 2008 9:32 am
Форум: Mathematica
Тема: Непрвильные ответы в решении системы уравнений (FindRoot)
Ответы: 9
Просмотры: 5482

Тогда мапловский код в студию.
volmike
Вс дек 21, 2008 3:50 pm
Форум: Mathematica
Тема: Непрвильные ответы в решении системы уравнений (FindRoot)
Ответы: 9
Просмотры: 5482

Может быть, сама мат. модель неверна?
volmike
Сб дек 20, 2008 9:50 pm
Форум: Mathematica
Тема: Непрвильные ответы в решении системы уравнений (FindRoot)
Ответы: 9
Просмотры: 5482

Залейте файл с программой.
volmike
Пн окт 13, 2008 9:52 am
Форум: Maple
Тема: Основы программирования
Ответы: 10
Просмотры: 5536

Попробуйте подгрузить ее вызовом readlib(issqr);.
volmike
Вс окт 12, 2008 8:52 pm
Форум: Maple
Тема: Основы программирования
Ответы: 10
Просмотры: 5536

В 12-ой версии есть функция issqr , которая проверяет, является ли число полным квадратом. Выборку полных квадратов можно провести следующим способом: with(numtheory); A001157 := n->sigma[2](n); select(issqr,[seq(sigma[2](n), n=1..1000000)]);
volmike
Ср окт 01, 2008 2:34 pm
Форум: Общие вопросы математики
Тема: Подскажите, как решить уравнение
Ответы: 8
Просмотры: 3726

Судя по всему, аналитического решения этой задачи нет.
Задав значения a,b,c- попытайтесь решить задачу приближенно каким-нибудь численным методом (деление пополам, Ньютона и пр.).
volmike
Ср окт 01, 2008 1:14 pm
Форум: Общие вопросы математики
Тема: Подскажите, как решить уравнение
Ответы: 8
Просмотры: 3726

Спасибо, посмеялcя ;)
Попробуйте теперь подставить найденное таким образом значение x в исходное уравнение.
volmike
Пн сен 29, 2008 7:03 pm
Форум: Общие вопросы математики
Тема: пожалуйста помогите как решить систему нелинейных уравнений
Ответы: 2
Просмотры: 1861

Подсказка:
x-y =(x^(1/2)-y^(1/2))*(x^(1/2)+y^(1/2))
volmike
Вс сен 28, 2008 5:55 pm
Форум: Mathсad
Тема: Нужна помощь в решении системы ду.
Ответы: 3
Просмотры: 2402

Видимо, при таком параметре система становится жесткой.
Используйте Rkadapt или Adams вместо rkfixed.
volmike
Пн сен 22, 2008 4:00 pm
Форум: Mathematica
Тема: вопрос по преобразованию списков
Ответы: 4
Просмотры: 4598

Или так:

Код: Выделить всё

arr={{{a1,b1},{a2,b2}},{{a3,b3},{a4,b4}}};
Partition[Flatten[arr], {2}]
volmike
Вт сен 16, 2008 11:00 pm
Форум: Mathematica
Тема: Угловая мера
Ответы: 1
Просмотры: 2631

Можно написать функцию, переводящую градусы (мин. и сек.) в радианы: deg2rad[{deg__Integer, min__Integer, sec__Integer}] := Pi/180*(deg + min/60 + sec/3600) а результат использовать как входной параметр для тригонометрических функций. Обратное преобразование: rad2deg[rad_] := {...
volmike
Ср июл 30, 2008 4:33 pm
Форум: Mathematica
Тема: Directory
Ответы: 1
Просмотры: 2644

Можно поставить v.6.0 (6.01,6.02) и воспользоваться функцией NotebookDirectory[]
volmike
Ср июл 02, 2008 5:18 pm
Форум: Mathematica
Тема: Наименший общий делитель
Ответы: 4
Просмотры: 4322

Написал код с расширенной функциональностью - выводит список всех полиномиальных неприводимых общих делителей исходных многочленов. В частном случае этой задачи ответом будет один делитель. GetFactors[pol_] := Select[First /@ FactorList[pol] // Flatten, NumberQ[#] == False &] GetCommonFactors[po...
volmike
Вт июл 01, 2008 7:13 pm
Форум: Mathematica
Тема: Наименший общий делитель
Ответы: 4
Просмотры: 4322

В условии задачи есть неясности.
Например,представим, что у многочленов есть 2 общих делителя: x^2-2*x+4 и x^2-17*x+144. Какой из них считается минимальным?