|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.03.2013, 18:05 | #1 |
Пользователь
Регистрация: 10.03.2012
Сообщений: 10
|
Метод наискорейшего спуска
Здравствуйте! Ни у кого нету кода метода наискорейшего спуска в Mathematica?
Нашел код, но в Maple: restart; f:= 1.2*x1^2 + 1.8 * x2^2 - 4 * x1 - 4 * x2: Определяем производные по двум переменным df1:=diff(f,x1); df2:=diff(f,x2); x1prec:=solve(df1,x1): x2prec:=solve(df2,x2): Начальное приближение X1[1]:=-1: X2[1]:=-1: prec:=0.01: i:=1: x1rez:=0: x2rez:=0: while x1rez=0 do x1:=X1[i]: x2:=X2[i]: x1rez:=`if`(df1<prec,(`if`(df1>-prec,X1[i],0)),0): x2rez:=`if`(df2<prec,(`if`(df2>-prec,X2[i],0)),0): X1[i+1]:=`if`(df1>0,X1[i]-prec,X1[i]+prec): X2[i+1]:=`if`(df2>0,X2[i]-prec,X2[i]+prec): i:=i+1: end do: "Точные значения:"; x1:=x1prec; x2:=x2prec; "Точка минимума:"; x1:=x1rez; x2:=x2rez; "Значение функции в минимуме:"; f; Помогите переделать в Mathematica. Еще нашел реализацию одного шага метода наискорейшего спуска в Mathematica, но никак не соображу, как сделать цикл и счетчик итераций: http://math.fullerton.edu/mathews/n2...Mod_lnk_3.html Помогите, пожалуйста) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод наискорейшего спуска | Михаил77 | Помощь студентам | 0 | 17.12.2012 18:36 |
Методы оптимизации: метод Ньютона и метод наискорейшего спуска | ruslanGacurap | Помощь студентам | 0 | 30.01.2012 13:54 |
Метод наискорейшего спуска | Михаил1800 | Помощь студентам | 1 | 19.07.2011 13:30 |
Метод покоординатного спуска | новичочек | C++ Builder | 0 | 02.05.2011 15:44 |
Алгоритм наискорейшего спуска для любого количества аргументов целевой функции | Evil Sun | Общие вопросы C/C++ | 5 | 08.05.2009 13:18 |