Программа в Delphi: промоделировать колебания простого гармонического осциллятора с учетом затухания

[s-andriano]

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

Спасибо,но это не то.
Задача другая.

Ну так разберитесь и переделайте под свою задачу.
Вы ведь сами пишете, что хотите разобраться:

Я тут разобраться пытаюсь,

А ведете себя так, будто хотите, чтобы за Вас кто-то сделал задание, а вы его могли просто скопировать, не разбираясь.

[Uses_crt]

Ету задачу можна сделать я в универе в ЧНУ на 3 курсе ету прогу делал..... но прийдетса немного переделать если нужна то напиши в личку помогу.

[helldz]

знакомая прога..

[Uses_crt]

Вот некоторые скрини с проги если нужна пиши ....

[Maxim_93m]

Добрый вечер!
Да если можно,я постараюсь отредактировать,под свою.
Если не затруднит на почту: maxim93m@gmail.com
А если возникнут проблемы могу ли я к Вам обратиться?

[superedward]

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

Я тут разобраться пытаюсь,помочь прошу,а вы тут только треплитесь, осуждаете меня.

Мы тут разобраться пытаемся,помочь хотим,а вы тут только треплитесь, осуждаете нас.

[Maxim_93m]

Как построить в Tchart функцию x:=A*exp((-y)*t)*cos(w0*t+U) проблемы с построением строит прямую,это неверно,график должен быть x(t) все параметры вводятся с клавиатуры.

[Kix.IV]

Как построить в Tchart функцию x:=A*exp((-y)*t)*cos(w0*t+U) проблемы с построением строит прямую,это неверно,график должен быть x(t) все параметры вводятся с клавиатуры.

Код покажите.

[Maxim_93m]

Сейчас

unit Lab;

interface

uses
  WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, TeEngine, TeeProcs, Chart, Series;

type
  TForm1 = class(TForm)
    Chart1 : TChart;
    Series1: TLineSeries;
    Chart2: TChart;
    LineSeries1: TLineSeries;
    Chart3: TChart;
    LineSeries2: TLineSeries;
    Label1: TLabel;
    Jestk: TLabel;
    Massa: TLabel;
    Koff: TLabel;
    ampl_vnesh: TLabel;
    Vrem: TLabel;
    vnesh_chast: TLabel;
    sobstv_chast: TLabel;
    faza: TLabel;
    Amp_e: TEdit;
    Jestk_e: TEdit;
    Massa_e: TEdit;
    Koff_e: TEdit;
    ampl_vnesh_e: TEdit;
    Vrem_e: TEdit;
    vnesh_chast_e: TEdit;
    sobstv_chast_e: TEdit;
    faza_e: TEdit;
    Sbpos: TButton;
    graf: TButton;
    procedure SbposClick(Sender: TObject);
    procedure grafClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
       // Кнопка сброс данных
 procedure TForm1.SbposClick(Sender: TObject);

begin
Series1.Clear;
faza_e.Text:='';
Jestk_e.Text:='';
Koff_e.Text:='';
Massa_e.Text:='';
vnesh_chast_e.Text:='';
Amp_e.Text:='';
Vrem_e.Text:='';
ampl_vnesh_e.Text:='';
sobstv_chast_e.Text:='';
end;
          // Кнопка построить графики
procedure TForm1.grafClick(Sender: TObject);
var
   i:word;
A0,A,U,k,y,m,w0,w,t,dt,x:real;

begin

  y:=StrToFloat(Koff_e.Text);
  A0:=StrToFloat(Amp_e.Text);
  w0:=StrToFloat(sobstv_chast_e.Text);
  U:=StrToFloat(faza_e.Text);
  w:=StrToFloat(vnesh_chast_e.Text);
  A:=StrToFloat(ampl_vnesh_e.Text);
  m:=StrToFloat(Massa_e.Text);
  k:=StrToFloat(Jestk_e.Text);
      for i := 0 to 99 do begin


     t:=dt+0.1;

   x:=A*exp((-y)*t)*cos(w0*t+U);
   Series1.AddXY(dt,x,'',clRed);
  
 end;
  end;


end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Kix.IV]

Странный код.

Series1.AddXY(dt,x,'',clRed);

Если я не ошибаюсь, то эта функция добавляет лишь одну точку. Возможно вам надо добавить цикл.