Как построить 3-х мерный график?

[Mikhail Bakurov]

В программе необходимо выводить данные в 3-х мерный график.
Подскажите пожалуйста возможные варианты, как это можно реализовать... не код, а просто варианты....
Есть ли возможность обойтись без изучения OpenGL?

[artemavd]

компонент Chart с этим неплохо справляется. там можно как 3D так и 2D строить

[SNUPY]

Вывод в изометрию:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Calculate2DFor3D(x,y,z,X0,Y0:Double):TPoint;
begin
  result.X:=round(X0+(y-x)*sqrt(3)/2);
  Result.Y:=round(Y0+(x+y)/2-z);
end;

function f(x,y:Double):Double;
begin
  result:=sin(x/10)*cos(y/10)/(cos(x/10)*sin(y/10)+2)*10;
//  Result:=cos(x)*sin(x*y)*cos(x*y*x)*ln(x+y+1)*exp(sin(cos(x*y)));
end;



procedure TForm1.FormPaint(Sender: TObject);
var
  X0, Y0:Integer;
  point:TPoint;
  x,y,
  xMin, yMin,
  xMax, yMax,
  xStep, yStep:double;
begin
  X0:=ClientWidth div 2;
  Y0:=ClientHeight div 2;

  xMin:=0; yMin:=0;
  xMax:=200; yMax:=200;
  xStep:=5; ystep:=5;

  with Form1.Canvas do
  begin
    Pen.Color:=clGreen;
    MoveTo(X0,Y0); LineTo(X0,0);//ось Z
    MoveTo(X0,Y0); LineTo(0,round(Y0+X0*Sin(pi/6)/cos(pi/6)));//ось X
    MoveTo(X0,Y0); LineTo(ClientWidth,round(Y0+X0*Sin(pi/6)/cos(pi/6)));//ось Y
  end;
  Form1.Canvas.Pen.Color:=clRed;

  x:=xMin;
  while x<=xMax  do
  begin
    y:=yMin;
    point:=Calculate2DFor3D(x,y,f(x,y),X0, y0);
    Form1.Canvas.MoveTo(point.X, point.Y);
    y:=y+yStep;
    while y<=yMax do
    begin
      point:=Calculate2DFor3D(x,y,f(x,y),X0, y0);
      Form1.Canvas.LineTo(point.X, point.Y);
      Form1.Canvas.MoveTo(point.X, point.Y);
      y:=y+yStep;
    end;
    x:=x+xStep;
  end;

  y:=yMin;
  while y<=yMax  do
  begin
    x:=xMin;
    point:=Calculate2DFor3D(x,y,f(x,y),X0, y0);
    Form1.Canvas.MoveTo(point.X, point.Y);
    x:=x+xStep;
    while x<=xMax do
    begin
      point:=Calculate2DFor3D(x,y,f(x,y),X0, y0);
      Form1.Canvas.LineTo(point.X, point.Y);
      Form1.Canvas.MoveTo(point.X, point.Y);
      x:=x+xStep;
    end;
    y:=y+yStep;
  end;

end;

end.

[Mikhail Bakurov]

Спачибо огромное =) очень помогло