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

volmike
Чт авг 27, 2009 5:19 pm
Форум: Mathematica
Тема: Условие для условной оптимизация
Ответы: 5
Просмотры: 9032

Поскольку f задана функцией от x, минимизировать надо по переменной x:

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


Minimize[f, Ceiling[x/100] < 1, x]

volmike
Вс июл 12, 2009 11:37 pm
Форум: Mathematica
Тема: MIn функции с помощью оператора For в данном образце
Ответы: 4
Просмотры: 8537

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

minR0 =.;
min = \[Infinity];
f[x_] := Sin[x];
For[
  R0 = 2,
  R0 < 10,
  R0 += 0.5,
  tmp = f[R0];
  If[
   tmp < min,
   minR0 = R0;
   min = tmp;
   ];
  ];
{minR0, min}

volmike
Сб июл 11, 2009 2:17 pm
Форум: Mathematica
Тема: MIn функции с помощью оператора For в данном образце
Ответы: 4
Просмотры: 8537

Поиск минимума функции от одной переменной без использования цикла

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

f[x_] := Sin[x]
a = 2;
b = 10;
step = 0.5;
Min[f /@ Range[a, b, step]]
volmike
Вт июн 30, 2009 10:29 pm
Форум: Mathсad
Тема: Помогите пожалуйста с простым заданием.
Ответы: 3
Просмотры: 3267

Произведение слева равно Log[2,n+1], поэтому ответ n=1023
volmike
Сб июн 13, 2009 11:24 pm
Форум: Общие вопросы математики
Тема: Метод множителей Лагранжа
Ответы: 8
Просмотры: 10652

Ответ задачи
min= -1/6, {x=1/3,y=0}
volmike
Сб июн 13, 2009 11:08 pm
Форум: Mathematica
Тема: Программный модуль
Ответы: 8
Просмотры: 11137

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

DrawPlot[f_, a_, b_, clr_] := Plot[f, {x, a, b}, PlotStyle -> clr]

DrawPlot[x^2+2*x, 1, 2, Red]
DrawPlot[{Sin[x],Exp[x]}, 1, 2, {Green,Blue}]

volmike
Пт июн 12, 2009 7:36 pm
Форум: Mathematica
Тема: Программный модуль
Ответы: 8
Просмотры: 11137

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

f = x^2 + 2*x;
a = 3;
b = 12;
clr = Blue;

Plot[f, {x, a, b}, PlotStyle -> {clr}]


volmike
Пт июн 12, 2009 1:13 pm
Форум: Mathematica
Тема: Программный модуль
Ответы: 8
Просмотры: 11137

Plot[2*x + 3, {x, 0, 2}, PlotStyle -> {Green}]
volmike
Вс май 31, 2009 9:12 pm
Форум: Mathematica
Тема: тригонометрическое уравнение
Ответы: 2
Просмотры: 7298

См. Reduce[]
volmike
Вт фев 24, 2009 6:11 pm
Форум: Mathematica
Тема: корни уравнения
Ответы: 1
Просмотры: 2603

{k1, k2} = x /. Solve[a*x^2 + b*x + c == 0, x];
volmike
Ср янв 28, 2009 11:02 pm
Форум: Mathematica
Тема: Уравнение в функцию
Ответы: 10
Просмотры: 6802

В 7-ой версии появилась православная функция MonomialList , с помощью которой свободный член любого полинома можно получить так: MonomialList[(2*cn*ddl^2 - 2*ddl^2*Y0 + dt*(k1*(-Y0 + Y1) + k2*(-Y0 + Y2) + k0*(-2*Y0 + Y1 + Y2)) + ddl*dt*(f1*V0*Y0 - f2*V0*Y0 + &...
volmike
Ср янв 28, 2009 9:59 pm
Форум: Mathematica
Тема: Уравнение в функцию
Ответы: 10
Просмотры: 6802

Для любого количества переменных (линейная функция) свободный член можно найти так:

CoefficientList[f,{varlist}]//Flatten//First,

где varlist - список всех переменных функции f через запятую.
volmike
Вт дек 30, 2008 9:45 am
Форум: Mathematica
Тема: Алгоритмы Евклида
Ответы: 5
Просмотры: 4649

А в чем конкретно возникла проблема при реализации алгоритмы? Покажите, что уже написано.Посмотреть работу ExtendedGCD пошагово не получится.
volmike
Пн дек 29, 2008 6:07 pm
Форум: Mathematica
Тема: Алгоритмы Евклида
Ответы: 5
Просмотры: 4649

http://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC_%D0%95%D0%B2%D0%BA%D0%BB%D0%B8%D0%B4%D0%B0#.D0.A0.D0.B0.D1.81.D1.88.D0.B8.D1.80.D0.B5.D0.BD.D0.BD.D1.8B.D0.B9_.D0.B0.D0.BB.D0.B3.D0.BE.D1.80.D0.B8.D1.82.D0.BC_.D0.95.D0.B2.D0.BA.D0.BB.D0.B8.D0.B4.D0.B0_.D0.B8_.D1.81.D0.BE....
volmike
Пн дек 29, 2008 12:51 am
Форум: Mathematica
Тема: Алгоритмы Евклида
Ответы: 5
Просмотры: 4649

В Mathematica есть функция, реализующая расширенный алгоритм Евклида - ExtendedGCD.