Помогите разобраться с кодом

[braviatry11]

нужно чтобы программа рисовала элекрически резонансную волну. Но она рисует прямую
вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Img2: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  mash=100;
var
  c,l : integer;
  x0,y0 : integer;
  x,y : real;
begin
  // очистка графика
  Img2.Canvas.Pen.Color:=clWhite;
  img2.Canvas.Rectangle(0,0,ClientWidth,ClientHeight);
  // считываем коэфицыенты
  c:=StrToInt(Edit1.Text);
  l:=StrToInt(Edit2.Text);
  // находим центр
  x0:=Img2.Width div 2;
  y0:=Img2.Height div 2;
  // рисуем оси
  img2.Canvas.Pen.Color:=clGreen;
  img2.Canvas.Pen.Width:=2;
  img2.Canvas.MoveTo(x0,0);
  img2.Canvas.LineTo(x0,ClientHeight);
  img2.Canvas.MoveTo(0,y0);
  img2.Canvas.LineTo(ClientWidth,y0);
  // рисуем график
  img2.Canvas.Pen.Color:=clRed;
  img2.Canvas.Pen.Width:=1;
  x:=-10;
  y:=1/((2*3.14)* sqr(L*C));

  img2.Canvas.MoveTo(Trunc(x),Trunc(y));
  repeat
    x:=x+0.1;
    y:=1/((2*3.14)* sqr(L*C));

    img2.Canvas.LineTo(Trunc(x*mash)+x0,Trunc(y*mash)+y0);
  until  x>=10;
end;

end.

[doktor255]

Формула какая?

[саша40]

Сообщение от doktor255

Формула какая?

Частота = 1 / Формула Томсона.
У него в коде так.

[braviatry11]

короче, там формула не та
U= А`максимальная амплитуда колебаний` * cos 2pi * f (t+ fi0`градусов`)
буду переделывать