ln-Funktion

[Rebel]

PS: den ln command, habe ich auch gefunden, aber ehrlich gesagt weiß ich halt nicht, wie ich diesen befehl umwandeln soll, so dass er in meinem koordinatensystem als graph angezeigt wird.

Ich hoffe ihr könnt mir dabei helfen.

lg rebel

[BUG]

Wie würdest du denn nur mit Taschenrechner die Logarithmus-Funktion auf Millimeterpapier zeichnen?
Die Vorgehensweise kannst du auch in deinem Programm anwenden

[Sir Rufo]

Zitat von Rebel:

PS: den ln command, habe ich auch gefunden, aber ehrlich gesagt weiß ich halt nicht, wie ich diesen befehl umwandeln soll, so dass er in meinem koordinatensystem als graph angezeigt wird.

Ich hoffe ihr könnt mir dabei helfen.

lg rebel

wie machst du denn das? Malst du die mit einem Edding auf den Bildschirm?

Zitat von Rebel:

Hallo alle zusammen, ich bin ein Delphieinsteiger und muss für meine Facharbeit ein Programm zur Funktionsdarstellung programmieren.
Soweit so gut, habe ich schon ganzrationale Fkt. bis 5. Grades und eine Sinusfunktion eingebaut, die sich graphisch auch darstellen lassen.

Code:

f(x) = ln(x)
y = ln(x)

[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 ^^