Einzelnen Beitrag anzeigen

Taralos

Registriert seit: 28. Mär 2003
18 Beiträge
 
#1

Real Zahlen kleiner machen

  Alt 25. Mai 2003, 16:49
Hallo, ich habe folgendes Problem:

Mit einem Parser lasse ich eine mathematische Funktion auslesen und umwandeln, und lasse diese danach zeichnen. Das klappt bis jetzt auch wunderbar. Das einzige Problem das ich noch habe ist z.b. bei 1/x^5.

Der Startwert für x lautet 0.0001 und wenn ich das dort einsetze erhalte ich eine Zahl die viel zu groß ist, als dass ich sie in eine Real Zahl umwandeln könnte. Wie kann ich jetzt sagen dass er ab einer bestimmten Größe die Zahl einfach ignorieren soll?

Hier ein Stück des Quelltexts:
Code:
XWert := 0.0001;
  Repeat
    begin
      kommastellen :=2;
      Textergebnis := rechne(kommastellen, s,XWert,y,z);

            Repeat
               p := pos('.',Textergebnis);
               delete(Textergebnis,p,1);
            Until p = 0;
     
      YWert := StrToFloat(Textergebnis);
      Image1.Canvas.MoveTo (Round(XWert*35)+175, Round(-YWert*35)+175);
      XWert := XWert+0.02;
      Textergebnis := rechne(kommastellen, s,XWert,y,z);

            Repeat
               p := pos('.',Textergebnis);
               delete(Textergebnis,p,1);
            Until p = 0;
     
      YWert := StrToFloat(Textergebnis);
      Image1.Canvas.LineTo (Round(XWert*35)+175, Round(-YWert*35)+175);
    Until x > 5
Der Parser ist eigentlich nur zur Textausgabe des Ergebnisses gedacht gewesen und schleust deshalb 1000er Trennzeichen mit rein, die ich mit dem pos-Befehl lokalisiere und dann lösche damit ich mit dem Ergebniss auch weiterrechnen kann.

Ich hoffe ihr könnt mir helfen

Thx
  Mit Zitat antworten Zitat