Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 353552
Дата создания 06 июля 2013
Страниц 20
Мы сможем обработать ваш заказ (!) 29 марта в 18:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 310руб.
КУПИТЬ

Содержание

Введение……………………………………………………………………….
Задание на выполнение курсовой работы…………………………………...
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_);
Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00346
© Рефератбанк, 2002 - 2024