Постройка графика

comradgrimo

Добрые день, Господа Возникла проблема в постройке графика Функции с 2-мя Tchart Проект должен строить два графика 1) λ*exp(-λ*x) 2)1-exp(-λ*x) Значения λ берутся из компонента Edit, + диапазон из другого Edit-а и кнопка для запуска Для наглядности выкладываю код
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Chart1: TChart;
    Series1: TLineSeries;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Chart2: TChart;
    Series2: TLineSeries;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  xn,xk,x,y,m,xn1,xk1,x1,y1,m1:real;
 
implementation
 
{$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
 
 begin
  m:=StrToFloat(Edit1.Text);
  xk:=strToFloat(Edit2.Text);
  Series1.Clear;
  x:=xn;
  while x<=xk do
   begin
    y:=m*exp(-x*m);
 
    Series1.AddXY(x,y,'',clTeeColor);
 
    x:=x+0.001;
   end;
  end;
 
procedure TForm1.Button2Click(Sender: TObject);
 
 begin
  m1:=StrToFloat(Edit3.Text);
  xk1:=strToFloat(Edit4.Text);
  Series2.Clear;
  x1:=xn1;
  while x1<=xk1 do
   begin
    y1:=1-exp(-x1*m1);
 
    Series2.AddXY(x1,y1,'',clTeeColor);
 
    x1:=x1+0.001;
   end;
  end;
begin
end.
1-ый Tchat все строит 2-ой нет, хотя код идентичен заменена только функция Помогите пожалуйтса Выкладываю исходник
5 ответов

comradgrimo

На правах апа: подскажите как задать интеграл от 0 до бесконечности, для его построения на графике


comradgrimo

не хватает unit1.pas файла


comradgrimo

Разобрался сам, небыло ивента)) скопировал код, забыл кликнуть на кнопку 2 раза, но вопрос о задаче интеграла остается открытым..


comradgrimo

Еще одна маленькая просьба, Если нашел численное значение определенного интеграла например то численное значение его будет 35, а как построить график этого интеграла? по какому принципу строят графики интеграла? с обычной ф-ей все понятно берем у=x^2 x=1 y=2, x=2 y=4 итд получаем n-ое кол-во точек, соединяем линией, получаем график.. В случае определенного интеграла получаем конкретное число.. непонятно... может в ряды раскладывать? Выкладывыю код того что получилось пока что. надеюсь Вас не затруднить ответить мне


comradgrimo

График определенного интеграла вот почитай может поможет