Компьютерное моделирование физических процессов.

Введение……………………………………………………………………….
Задание на выполнение курсовой работы…………………………………...
1 Теоретическая часть………………………………………………………...
1.1 Задачи моделирования физических процессов……………………
1.2 Программные продукты моделирования физических процессов..
2 Практическая часть…………………………………………………………
2.1 Физическая модель задачи………………………………………….
2.2 Математическая модель задачи…………………………………….
2.3 Описание программы «Гантель у стены»………………………….
2.4 Результаты работы программы «Гантель у стены»……………….
Заключение……………………………………………………………………
Литература…………………………………………………………………….
Приложение 1 Листинг программы «Гантель у стены»……………………
Приложение 2 Скриншоты программы «Гантель у стены»………………..

Компьютерное моделирование физических процессов.

Приложение 1
Листинг программы «Гантель у стены»
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Math;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
GroupBox2: TGroupBox;
Button2: TButton;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
GroupBox5: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Edit6: TEdit;
Edit7: TEdit;
GroupBox6: TGroupBox;
Label8: TLabel;
Label9: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Label10: TLabel;
Edit10: TEdit;
Image1: TImage;
Label11: TLabel;
Edit11: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const g = 9.8; // Ускорение свободного падения
var
Form1: TForm1;
m1, m2, M: real; // Массы шаров и суммарная масса
L1, L2, L: real; // Плечи шаров и длина стержня
ac: real; // Ускорение ЦМ
xc, yc: real; // Координаты ЦМ
x1, y1: real; // Координаты 1-го шара
x2, y2: real; // Координаты 2-го шара
r1, r2: integer; // Радиусы шаров для рисования
dT: real; // Масштаб времени
x_max, y_max: integer; // Для переноса координатной сетки
x1_, y1_, x2_, y2_, xc_, yc_: integer; // Реальные координаты
implementation
{$R *.dfm}
// При запуске
procedure TForm1.FormCreate(Sender: TObject);
begin
x_max:=Image1.Width; // Для переноса координатной сетки
y_max:=Image1.Height-50;
Button1.Click; // Ввод исходных данных и начальная прорисовка
end;
// Ввод исходных данных и начальная прорисовка
procedure TForm1.Button1Click(Sender: TObject);
begin
m1:=StrToFloat(Edit1.Text); // Масса 1-го шара
m2:=StrToFloat(Edit2.Text); // Масса 2-го шара
L:=StrToFloat(Edit3.Text); // Длина стержня
dT:=StrToFloat(Edit11.Text); // Масштаб времени
M:=m1+m2; // Масса гантели
L1:=m2*L/m; // Плечо 1-го шара
L2:=m1*L/m; // Плечо 2-го шара
ac:=m2/M*g; // Ускорение ЦМ
x1:=0; y2:=0; // Координаты 1-го шара
x2:=0; y2:=l; // Координаты 2-го шара
xc:=0; yc:=l1; // Координаты ЦМ
// Вывод параметров
Edit4.Text:=IntToStr(Round(x1)); Edit4.Repaint;
Edit6.Text:=IntToStr(Round(x2)); Edit6.Repaint;
Edit7.Text:=IntToStr(Round(y2)); Edit7.Repaint;
Edit9.Text:=IntToStr(Round(yc)); Edit9.Repaint;
Edit10.Text:='0'; Edit10.Repaint;
// Радиусы шаров для рисования
r1:=Round(10*Power(m1,1/3));
r2:=Round(10*Power(m2,1/3));
// Реальные координаты
x1_:=Round(x_max/2+x1);
y1_:=Round(y_max-y1);
x2_:=Round(x_max/2+x2);
y2_:=Round(y_max-y2);
xc_:=Round(x_max/2+xc);
yc_:=Round(y_max-yc);
// Очистка окна и прорисовка осей
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
Image1.Canvas.Pen.Style:=psDot;
Image1.Canvas.MoveTo(0,y_max);
Image1.Canvas.LineTo(x_max,y_max);
Image1.Canvas.MoveTo(x_max div 2,0);
Image1.Canvas.LineTo(x_max div 2,y_max);
Image1.Canvas.Pen.Style:=psSolid;
// Начальное положение гантели
Image1.Canvas.Pen.Width:=2;
Image1.Canvas.Pen.Color:=clBlue;
Image1.Canvas.Ellipse(x1_-r1,y1_-r1,x1_+r1,y1_+r1);
Image1.Canvas.Pen.Color:=clGreen;
Image1.Canvas.Ellipse(x2_-r2,y2_-r2,x2_+r2,y2_+r2);
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Ellipse(xc_-3,yc_-3,xc_+3,yc_+3);
Image1.Canvas.Pen.Color:=clBlack;
Image1.Canvas.MoveTo(x1_,y1_);