Методы нахождения безусловного и условного экстремума
Курсовой проект - Математика и статистика
Другие курсовые по предмету Математика и статистика
tToStr(k+1)+"])="+(f(x[1]),ffGeneral,5,0));->Cells[0][k+2] = k+2;->Cells[1][k+2] = x[1][0];->Cells[2][k+2] = x[1][1];->Cells[3][k+2] = f(x[1]);->RowCount = k+3;->AddArrow(x[0][0],x[0][1],x[1][0],x[1][1]);(sqrt(pow(x[1][0]-x[k][0],2)+(x[1][1]-x[k][1],2))<E2) break;(i=0;i<2;i++) x[0][i]=x[1][i];
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)
{[0] = StrToFloatDef(LabeledEdit1->Text,1);[1] = StrToFloatDef(LabeledEdit2->Text,1);[2] = StrToFloatDef(LabeledEdit3->Text,1);[3] = StrToFloatDef(LabeledEdit4->Text,1);[4] = StrToFloatDef(LabeledEdit5->Text,1);[5] = StrToFloatDef(LabeledEdit6->Text,1);[0] = StrToFloatDef(LabeledEdit7->Text,1);[1] = StrToFloatDef(LabeledEdit8->Text,1);E1,E2;= StrToFloatDef(LabeledEdit9->Text,1);= StrToFloatDef(LabeledEdit10->Text,1);(E1,E2,1E3,5);
}
//---------------------------------------------------------------------------__fastcall TForm1::FormCreate(TObject *Sender)
{->Cells[0][0] = "i";->Cells[1][0] = "x[i][0]";->Cells[2][0] = "x[i][1]";->Cells[3][0] = "f(x[i])";
}
//---------------------------------------------------------------------------__fastcall TForm1::Button2Click(TObject *Sender)
{(SaveDialog1->Execute())->SaveToMetafile(ChangeFileExt(SaveDialog1->FileName,".wmf"));
}
//---------------------------------------------------------------------------__fastcall TForm1::Button3Click(TObject *Sender)
{(SaveDialog1->Execute())
{out(ChangeFileExt(SaveDialog1->FileName,".txt").c_str());(int i=0;iRowCount;i++)
{(int j=0;jColCount;j++)
{.width(20);Cells[j][i].c_str();
}<<endl;
}.close();
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button4Click(TObject *Sender)
{->Close();
}
//---------------------------------------------------------------------------