AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ln-Funktion

Ein Thema von Rebel · begonnen am 2. Feb 2014 · letzter Beitrag vom 5. Feb 2014
Antwort Antwort
Gutelo

Registriert seit: 29. Sep 2013
152 Beiträge
 
#1

AW: ln-Funktion

  Alt 3. Feb 2014, 00:12
Vielleicht hilft dir ja das weiter:

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

Zeichnest du den Graph selbst oder benutzt du TChart?
  Mit Zitat antworten Zitat
Rebel

Registriert seit: 10. Jan 2014
18 Beiträge
 
#2

AW: ln-Funktion

  Alt 3. Feb 2014, 20:47
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...
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.687 Beiträge
 
Delphi 2007 Enterprise
 
#3

AW: ln-Funktion

  Alt 4. Feb 2014, 00:32
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.)
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Rebel

Registriert seit: 10. Jan 2014
18 Beiträge
 
#4

AW: ln-Funktion

  Alt 4. Feb 2014, 18:48
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
  Mit Zitat antworten Zitat
Rebel

Registriert seit: 10. Jan 2014
18 Beiträge
 
#5

AW: ln-Funktion

  Alt 4. Feb 2014, 19:18
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 ^^
  Mit Zitat antworten Zitat
Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#6

AW: ln-Funktion

  Alt 4. Feb 2014, 20:50
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ß
Volker Zeller
  Mit Zitat antworten Zitat
Rebel

Registriert seit: 10. Jan 2014
18 Beiträge
 
#7

AW: ln-Funktion

  Alt 5. Feb 2014, 12:07
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?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz