С использованием компонента Chart построить графики - вроде этого Кубика Рубика нужно сначала разрешить относительно y

[Susanoo]

С использованием компонента Chart построить графики трех кривых каждого типа в соответствии
с индивидуальным вариантом задания. Предусмотреть возможность выбора пользователем
графика, который необходимо построить (с использованием компонентов ComboBox или
RadioButton). Сохранить полученные графики кривых в виде bmp-файла.

1. Кривые в Декартовой системе координат, явная формула

Цепная линия

2. Кривые в полярной системе координат


3. Кривые в параметрической форме

Астроида

4. Кривые в неявной форме

Кубика Чирнгауса

[northener]

Так кому всё-таки нужно построить эти графики? Нам или вам?
Очевидно вам. Вы хоть что-то попытались сами сделать?

[Susanoo]

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

Так кому всё-таки нужно построить эти графики? Нам или вам?
Очевидно вам. Вы хоть что-то попытались сами сделать?

Я пробовал, сделал 1ые 2 графика, но не совсем уверен, что это верно, по 3 и 4 идей пока нет

[digitalis]

Исходники - в студию! Чтоб было что обсуждать.

[Susanoo]

digitalis,

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

Исходники - в студию! Чтоб было что обсуждать.

1 график

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TPointSeries;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x, y, a: Double;
begin
Chart1.Series[0].Clear();
x := -10;
a := 2;
while x < 10 do begin
y := (a / 2) * (Exp(x / 2) + Exp(-x / 2));
Chart1.Series[0].AddXY(x, y);
x := x + 0.01;
end;
Chart1.SaveToBitmapFile('1 график.bmp');
end;
end.

2 график

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TPointSeries;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
rho,x,y,phi:double;
begin
Chart1.Series[0].Clear();
phi:=0;
while phi <50 do begin
  rho := phi;
x:=phi*cos(phi);
y:=phi*sin(phi);
Chart1.Series[0].AddXY(x,y);
phi:=phi+0.01;
end;
Chart1.SaveToBitmapFile('График2.bmp');
end;

end.

3 график

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart, Math;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Button1: TButton;
    Series1: TPointSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, t, R: Double;
begin
  Chart1.Series[0].Clear();
  t := 0;
  R := 4;
  while t < 10 do begin
    x := R * IntPower(cos(t), 3);
    y := R * IntPower(sin(t), 3);
    Chart1.Series[0].AddXY(x, y);
    t := t + 0.01;
  end;
Chart1.SaveToBitmapFile('График3.bmp');
end;

end.

[digitalis]

Так вроде этого Кубика Рубика нужно сначала разрешить относительно y

   tmp := 8*a + x ;
   y := Sqrt((a-x)*tmp*tmp/a/27) ;

[Susanoo]

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

Так вроде этого Кубика Рубика нужно сначала разрешить относительно y

   tmp := 8*a + x ;
   y := Sqrt((a-x)*tmp*tmp/a/27) ;

я за него еще не брался, но спасибо за подсказку.

Интересно, хотя бы то, что я построил верно или есть где то ошибки?

[digitalis]

Я Чартом не пользуюсь, но сейчас подтянутся гуры, они точно ответят.
Одно замечание: нужно не лениться и каждый значимый фрагмент проги снабжать кратким комментом. Даже если самому вернуться к проге хотя бы через месяц: "А чегой-то я тогда накорябал, это - о чём?"
Астроида и цепная собака линия - на первый взгляд, правильные.

[Susanoo]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Math;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TPointSeries;
    rb1: TRadioButton;
    rb2: TRadioButton;
    rb3: TRadioButton;
    rb4: TRadioButton;
    procedure rb1Click(Sender: TObject);
    procedure rb2Click(Sender: TObject);
    procedure rb3Click(Sender: TObject);
    procedure rb4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.rb1Click(Sender: TObject);
var
  a,f: Integer;
x, y, k: Double;
begin
  a:=100;
  Chart1.BottomAxis.SetMinMax(-1*a-10, a+10);
  Chart1.LeftAxis.SetMinMax(0, a/1);
Chart1.Series[0].Clear();

x := -100;
f := 20;
while x < 100 do begin
y := (f / 2) * (Exp(x / f) + Exp(-x / f));
Chart1.Series[0].AddXY(x, y, '');
x := x + 0.1;
end;
Chart1.SaveToBitmapFile('1 ãðàôèê.bmp');
end;
procedure TForm1.rb2Click(Sender: TObject);
var
rho,x,y,phi:double;
begin
  Chart1.BottomAxis.Automatic := True;
Chart1.LeftAxis.Automatic := True;
Chart1.Series[0].Clear();
phi:=0;
while phi <2000 do begin
  rho := phi;
x:=phi*cos(phi);
y:=phi*sin(phi);
Chart1.Series[0].AddXY(x,y);
phi:=phi+1;
end;
Chart1.SaveToBitmapFile('Ãðàôèê2.bmp');
end;

procedure TForm1.rb3Click(Sender: TObject);
var
  x, y, t, R: Double;
begin
  Chart1.Series[0].Clear();
  t := 0;
  R := 4;
  while t < 10 do begin
    x := R * IntPower(cos(t), 3);
    y := R * IntPower(sin(t), 3);
    Chart1.Series[0].AddXY(x, y);
    t := t + 0.01;
  end;
Chart1.SaveToBitmapFile('Ãðàôèê3.bmp');
end;

procedure TForm1.rb4Click(Sender: TObject);
var
x, y2, y1, a: Double;
begin
Chart1.BottomAxis.Automatic := True;
Chart1.LeftAxis.Automatic := True;
Chart1.Series[0].Clear();
x := -2;
a := -2;
while x < 40 do begin
y1 := -1 * Sqrt((a-x)*Power(8*a+x, 2)/a/27);
y2 := Sqrt((a-x)*Power(8*a+x, 2)/a/27);
Chart1.Series[0].AddXY(x, y1, '');
Chart1.Series[0].AddXY(x, y2, '');
x := x + 0.1;
end;
Chart1.SaveToBitmapFile('Ãðàôèê4.bmp');
end;
end.

Вот решение всех графиков, может кому пригодится