Методы исследования объектов, динамика которых описывается дифференциальными уравнениями 2-го поряда

Цель занятия: Получить практические навыки исследования систем (объектов), динамика которых описывается дифференциальными уравнениями 2-го порядка.

Задачи занятия:

1. Разработка алгоритма в виде блок - схемы

2. Построение графиков кривых y=f(x), ý = f(x) =y(x) при параметрах a-const,

3. Анализ результатов исследований.

Пример исследования на языке программирования VC++

Рис. 12. Титульный лист

Рис 13. Автор программы Рис 14. Условие задачи

Лист 15. Результаты исследования

Листинг программы

private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {

this->Hide();

}

private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {

// int i = 1;

// int n = 100;

double f1,x,y11,y22;

double h = Convert::ToDouble(textBox1->Text);

double b = Convert::ToDouble(textBox2->Text);

double y1 = Convert::ToDouble(textBox3->Text);

double y2 = Convert::ToDouble(textBox4->Text);

x = 0;

chart1->Series[0]->Points->Clear();

chart1->Series[1]->Points->Clear();

do

{

// f1 = y - 2*sin(x);

x = x+h;

// y = y+f1*h;

y11=y1+h*y2;

y22=y2+h*(5-3*y2-4*y1);

//y = y1+h*(f1+(y - 2*x/y))/2;

chart1->Series[0]->Points->AddXY(x, y11);

chart1->Series[1]->Points->AddXY(x,y22);

y1=y11;

y2=y22;

}

while (x<=b);

}

private: System::Void Form5_Load(System::Object^ sender, System::EventArgs^ e) {

}};}