Численный расчет выполняется на ЭВМ с помощью программы, написанной на языке высокого уровня Borland Delphi 7. Программа производит численный расчет U2(t), строит его график. В программе реализован наиболее распространенный метод численного интегрирования - метод парабол (Симпсона). Ниже приведен листинг программы и её работа.
Код программы
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, Grids, jpeg, Menus;= class(TForm): TButton;: TStringGrid;: TImage;: TLabel;: TPaintBox;: TButton;: TLabel;: TMemo;FormPaint (Sender: TObject);Button1Click (Sender: TObject);Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$R *.dfm}p=0.005; r=9100; c=0.22e-6;u1 (t:real):real;t<=2.5e-3 then u1:=0.2+exp (-sqr((6*t/p) - 3))u1:=1.2*exp (4-8*t/p);;u (t:real):real;t<=2.5e-3 then u:=(-12/p)*((6*t/p) - 3)*exp (-sqr((6*t/p) - 3))u:= - (9.6/p)*exp(- (8/p)*t+4);;h (t:real):real;:=-0.2*exp (-2521.9*t) - 0.2*exp (-321*t) +0.4*exp (-153.8*t);;u2 (t:real):real;, integral:real;, j, n:integer;:=5000;:=t/n;i:=0 to n doodd(i) then integral:=integral+2*u (h1*i)*h (t-h1*i)integral:=integral+4*u (h1*i)*h (t-h1*i);;:=integral*h1/3;;;TForm1. Button1Click (Sender: TObject);:real;:integer;y:=1 to 22 do. Cells :='Время t, мс';. Cells :='Сигнал U1 (t), В';. Cells :='Сигнал U2 (t), В';. ColsAdd (floattostr(t*1000));. ColsAdd (floattostr(u1 (t)));. ColsAdd (floattostr(u2 (t)));:=t+25*1e-5;;;grafik;, t1, t2, y, y1, y2, dt, mt, my:real;, y0, wt, ht, l, b:integer;:=10;:=form1. PaintBox1. ClientHeight-20;:=Form1. PaintBox1. ClientHeight-50;:=Form1. PaintBox1. Width-30;
t1:=0;:=0.005;:=0.000001;:=u1 (t1);
y2:=u1 (t1);:=t1;:=u1 (t);y<y1 then y1:=y;y>y2 then y2:=y;:=t+dt;(t>=t2);:=ht/abs (y2+0.5-y1);:=wt/abs (t2-t1);:=l;:=b-abs (round(-0.19*my));. PaintBox1. Canvas. MoveTo (l, b);. PaintBox1. Canvas. LineTo (l, b-ht);. PaintBox1. Canvas. MoveTo (t0, y0);. PaintBox1. Canvas. LineTo (t0+wt, y0);. PaintBox1. Canvas. TextOut (0,15,'U, В');. PaintBox1. Canvas. TextOut (388,220,'t, мc');. PaintBox1. Canvas. TextOut (0,220,'0');. PaintBox1. Canvas. TextOut (84,230,'1');. PaintBox1. Canvas. TextOut (158,230,'2');. PaintBox1. Canvas. TextOut (232,230,'3');. PaintBox1. Canvas. TextOut (306,230,'4');. PaintBox1. Canvas. TextOut (380,230,'5');. PaintBox1. Canvas. TextOut (0,130,'1');. PaintBox1. Canvas. TextOut (0,45,'2');:=t1;. PaintBox1. Canvas. MoveTo (t0, y0);:=u2 (t);. PaintBox1. Canvas. Pen. Color:=clRed;. PaintBox1. Canvas. Pen. Width:=2;. PaintBox1. Canvas. LineTo (t0+Round (t*mt), y0-Round (y*my));:=t+dt;(t>=t2);:=t1;. PaintBox1. Canvas. MoveTo (t0, y0);:=u1 (t);. PaintBox1. Canvas. Pen. Color:=clBlue;. PaintBox1. Canvas. Pen. Width:=2;. PaintBox1. Canvas. LineTo (t0+Round (t*mt), y0-Round (y*my));:=t+dt;(t>=t2);;TForm1. FormPaint (Sender:TObject);;;TForm1. Button2Click (Sender: TObject);;. PaintBox1. Canvas. TextOut (162,83,'U1');. PaintBox1. Canvas. TextOut (162,158,'U2');
Form1. Label2. Caption:='Графики входного и выходного сигналов';;
Другое по теме:
Электрические схемы технологического контроля и сигнализации Оптимизация технологических процессов, повышение их рабочих параметров до критических и сверхкритических, сложные взаимосвязи между различными технологическими участками, не допускающими отклонения в работе отдельных агрегатов от предписанных ре ...