Построение графика функций.

[SPQR]

Доброе врем суток, уважаемые! Хотел спросить у знающих - реально ли построить график функции y=(x*x)+(x*x*x) ?
НО! Я хочу это понять. Т.е. было бы не плохо если бы вы мне помогли разобраться с привязкой функции и графика. Хотя если легче будет просто выложить код - то можете сделать так. В любом случае буду благодарен! Заранее спасибо.

[Stilet]

Реально конечно.
Язык какой?

[Maslan]

Что именно имеешь в виду под "помогли разобраться с привязкой функции и графика"?

[kommunist]

тебе в delphi или в pascal

[kommunist]

вот график в delphi с компонентом Chart
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;
    Chart1: TChart;
    Series1: TFastLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var x:integer;
begin
for x:= 1 to 100 do {цикл для добавления точек}
series1.AddXY(x,(x*x)+(x*x*x)); {добавление точки}
end;

end.

[Maslan]

Ну и паскаль до кучи:

Program grapher;
uses crt,graph;
  const b=2;
  var drive,mode:integer; x,y:real;
 Function Fn_to_graph(a:real):real;
  begin
  {допустим, строим X^2+7x+1}
  Fn_to_graph:=x*x+7*x+1;
  end;
begin
  drive:=detect;
  initgraph(drive,mode,'C:\Coding\Bp7obj\\BGI');
  x:=-100;
  while x<100 do {строим на промежутке (-100;100)эX}
   begin
    PutPixel(round(x)+320,300-round(Fn_to_Graph(x)),red);
{320 - сдвигаем весь график по ОХ на 320 вправо, т.к. на мониторе они идут с нуля}
{300-   -сдвигаем ось абсцисс вниз на середину экрана, а минус, т.к. нумерация на экране - "кверху ногами"}
    x:=x+0.05{шаг. Зависит от желаемой точности}
   end;
  readln;
end.

[SPQR]

Ой друзья спасибо огромное! Нужна была на Delphi, приношу извинения за не конкретность но все равно и за версию в паскале выражаю глубокую признательность!
Теперь спрошу у вас если не будите против: Series1 - это компонент? или это в обработчике событий компенента?

[kommunist]

нет компонент TChart а series это вид графика(диаграмма,гистограмма,линей ный и др.)

[kommunist]

для выбора вида графика надо либо нажать на компоненте TChart 2 раза
выйдет диалоговое окно с настройками графика нажми кнопку Add и выбирай или воспользуйся:
form1.chart.addseries(ASeries:TChar tSeries)

[egorikem]

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

вот график в delphi с компонентом Chart
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;
    Chart1: TChart;
    Series1: TFastLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var x:integer;
begin
for x:= 1 to 100 do {цикл для добавления точек}
series1.AddXY(x,(x*x)+(x*x*x)); {добавление точки}
end;

end.

А можно для С++?