ln-Funktion

[Gutelo]

Vielleicht hilft dir ja das weiter:

http://www.joachimrohde.com/cms/xoop.../html/math.pdf

Zeichnest du den Graph selbst oder benutzt du TChart?

[Rebel]

Alo ich zeichne das Koordinatensystem per image1.canvas. dabei sind -3<x<3 und -3<y<3. Der User kann halt die verschiedenen Editfelder nutzen um die Paramter selbst zu bestimmen. z.b ganzrational - f(x)=ax+b, wobei er halt a und b selbst bestimmen kann.
Bei der Logarithmusfunktion f(x)=log(a) x, soll halt auch der user a als parameter festlegen können. Nur schaff ich halt nicht bei dem button für doe log-funktion, den befehl so zu formulieren, dass er mir den graphen der log-fkt. zeichnet...

[Medium]

Zeig doch einfach mal deinen Code. Den echten, per Copy&Paste hier eingefügt (in Delphi-Tags bitte). Wie sollen wir sonst sinnvoll helfen, wenn wir nichtmals zu sehen bekommen wobei genau. (Es gibt bestimmt tausende Möglichkeiten Funktionen mit Variablen zu zeichnen, wir können nicht alle auf Verdacht abhandeln.)

[Rebel]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);    //Koordinatensystem
var i: integer;
begin
  with image1.Canvas do
  begin
  moveto(20,220); lineto(440,220);           //x-Achse
  moveto(220,5); lineto(220,420);           //y-Achse
  moveto(430,215); lineto (442,220);
  lineto (430,225);                          //x-Pfeil
  moveto(215,15); lineto (220,5);
  lineto (225,15);                           //y-Pfeil
  textout(445,225,'x');    //Beschriftung x
  textout(200,0,'y');    //Beschriftung y
    for i:=-10 to 10 do
    begin
    moveto(220+50*i,215);
    lineto (220+50*i,225); //x-Einteilung
    moveto(215,220+50*i);
    lineto (225,220+50*i); //y-Einteilung
    textout(222+50*i,225,inttostr(i)); //Zahlen x-Achse
    if i <> 0 then
    textout (205,213+50*i,inttostr(-i)); //Zahlen y-Achse
    end;
  end;

procedure TForm1.Button7Click(Sender: TObject);      //Logarithmusfunktion, die nicht klappt :(
var float:Double; x,y:real;  i,j:integer;

begin
 Val(edit1.Text,a,f1);

begin
  float:= Ln(a);
  float := Exp(float);
  i:=20;
  while i<420 do
    begin
    i:=i+1;
    x:=(i-220)/50; //x skalieren
    y:=float; //y sklarieren                     //Befehl Quelle:  [url]http://www.physik-multimedial.de/cvpmm/sle/trigonometrie/sinusfunktion.html[/url]
    j:=round((220-y*50)); //j berechnen
    image1.Canvas.Pixels[i,j]:=clteal; //zeichnen
    image1.Canvas.Font.Color:=clteal;
    image1.Canvas.TextOut(340,405, 'y=ln(a)');
end;
end;
end;

Ich glaube mein Befehl ist einfach falsch, aber ich weiß halt nicht, wie ich ihn richtig schreiben soll

[Rebel]

PS: ich habe mich dazu entschieden aus der logarithmusfunktion eine exponentialfunktion mit f(x)=a^x zu machen. wäre toll, wenn hr mir dabei helfen würdet ^^

[Volker Z.]

Hallo,

Zitat:

Ich glaube mein Befehl ist einfach falsch [...]

Naja, wenn Du den Graphen y = ln (a), für festes a > 0 im Interval [-4; 4] zeichnen möchtest, dann machst Du schon alles richtig - zwar sehr umständlich, aber richtig; es ist doch eine konstante Funktion.

Wenn Du hingegen y = ln (x) ∀ x ∈ R: 0 < x ≤ 4 plotten möchtest, dann sollte die Berechnung des jeweiligen Funktionswerts schon in der while-Schleife erfolgen. Also so:

Delphi-Quellcode:

procedure TForm7.Button1Click(Sender: TObject);
var
  c    : TCanvas;
  i, j : Integer;
  x, y : Double;
begin
  c := Image1.Canvas;
  i := 220;
  while i < 420 do
    begin
      Inc (i);
      x := (i - 220) / 50;
      y := Ln (x);
      j := Round (220 - y * 50);

      c.Pixels [i, j] := clTeal
    end;

  c.Font.Color := clTeal;
  c.TextOut (340, 405, 'y = ln (x)')
end;

Zitat:

PS: ich habe mich dazu entschieden aus der logarithmusfunktion eine exponentialfunktion mit f(x)=a^x zu machen [...]

f(x) = exp(x) geht dann ähnlich.

Gruß

[Rebel]

ich danke dir
Endlich siehts gut aus und vor allem wie eine ln-funktion

wie formuliere ich das aber, dass ich f(x)=log(basis a)x (a element R, a>, a ungleich 1) bekomme?. Quasi, dass der user selbst den parameter a bestimmen kann?