Архив форумов ЦИТФорума

[LD]

ребяты, помогите плиз, нужно написать прогу, которая решает нелинейные системы уравнений методом наискорейшего спуска, т.е. фактически поиск минимума градиентным методом. Кто знает как писать прогу помогите или укажите ссылку с исходником, а то я обыскался...Заранее всех благодарю...

[DmitryShm]

А самому почему бы не напрячься? Доков мало?

Мое мнение таково (может быть, субъективное, но оно неизменьчиво когда ставят вопросы подобного плана)..

Придется тебе самому разбираться в этой теме, т.к. кто хочет решать домашние задачи для того, кто сам не хочет этого. Попробуй сам -- вот мой совет.
_________________
love IT

[LD]

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[LD]

[/quote]Придется тебе самому разбираться в этой теме, т.к. кто хочет решать домашние задачи для того, кто сам не хочет этого. Попробуй сам -- вот мой совет.

Попробовал Дмитрий, и знаешь получилось(спустя 5 часов). Но если бы была наводящая рука(представь руку Ленина), то я бы не портил зрение 5 часов..а портил бы 3..к примеру..но всё равно спасибо.

[zer]

LD ! Помоги с написанием Градиентного спуска для
ф-ции многих (n) переменных...(!)

[DmitryShm]

Всегда самому лучше разобраться. Сейчас, разобравшись, ты больше понимаешь. Время не зря потратил -- это точно. Здесь такие мелкие проблемки лучше не постить. Вот проболемы с обучением, или, скажем, с выбором метода можно обсудить.
_________________
love IT

[Гость]

Помогите связать тип Tmemo и процедуру:
Procedure LecsAnal;
var
ES: TStArray;
CodRW{,iLA }: integer;
begin {**** LecsAnal ****}
i:=1;
k:=length(st);
v:=0;
repeat
if st[i] = ' ' then Probel;
case st[i] of
'+','-','''','0'..'9' : begin
if Constanta then
begin
v:=v+1;
ES[v]:=14;
end
else
begin
CodE:=5002;
Quit;;
end;
end;
'a'..'z','A'..'Z' : begin
RezWorld (CodRW);
if CodRW <> 0 then
begin
v:=v+1;
ES[v]:=CodRW;
end
else
if not identificator then
begin
CodE:=1;
Quit;;
end
else
begin
v:=v+1;
ES[v]:=10;
end;
end;
';' : begin
v:=v+1; ES[v]:=3; i:=i+1;
end;
'=' : begin
v:=v+1; ES[v]:=5001; i:=i+1;
end;
'/' : begin
v:=v+1; ES[v]:=5005; i:=i+1;
end;
'*' : begin
v:=v+1; ES[v]:=5004; i:=i+1;
end;
'.' : begin
v:=v+1; ES[v]:=11; i:=i+1;
end;
',' : begin
v:=v+1; ES[v]:=5008; i:=i+1;
end;
'(' : begin
v:=v+1; ES[v]:=5006; i:=i+1;
end;
')' : begin
v:=v+1; ES[v]:=5007; i:=i+1;
end;
'^' : begin
v:=v+1; ES[v]:=5018; i:=i+1;
end;
end;
until i > k;
ES[v+1]:=15;v:=v+1;
inc(i);
end; {**** LecsAnal ****}