unit Unit8;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Toetsdruk(Sender: TObject; var Key: Char);
    procedure Scheppen(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function macht(x,p : double) : double;
begin
  macht := exp(ln(x)*p);
end;

function f(y : double) : double;
begin
  f := y+1/y-sqrt(9/4+y);
end;

function g(y : double) : double;
begin
  g := 1/macht(4*(sqr(y)*y+1),1/3);
end;

procedure Schetsen;
var
  i : integer;
  y : double;
begin
  y := i2x(0);
  Form1.Image1.Canvas.MoveTo(0,y2j(f(y)));
  for i := 1 to Wijd-1 do
  begin
    y := i2x(i);
    Form1.Image1.Canvas.LineTo(i,y2j(f(y)));
  end;
end;

procedure Tekenen;
var
  i : integer;
  y : double;
begin
  y := i2x(0);
  Form1.Image1.Canvas.MoveTo(0,y2j(g(y)));
  for i := 1 to Wijd-1 do
  begin
    y := i2x(i);
    Form1.Image1.Canvas.LineTo(i,y2j(g(y)));
  end;
end;

procedure TForm1.Toetsdruk(Sender: TObject; var Key: Char);
begin
  Exit;
end;

procedure TForm1.Scheppen(Sender: TObject);
begin
  xmin := 1; xmax := 2;
  ymin := 0; ymax := 1/2;
  TV(Form1.Image1);
  ClearDevice;
  Form1.Image1.Canvas.Pen.Width := 2;
  Form1.Image1.Canvas.Pen.Color := clRed;
  Schetsen;
  Form1.Image1.Canvas.Pen.Color := clBlue;
  Tekenen;
  Form1.Image1.Picture.SaveToFile('grafiek.bmp');
end;

end.