Mathe mit Strings (die deutsche StringMatheLib ._. )

[gammatester]

Ist es nicht langsam mal Zeit, in die Units eine Versionsnummer rein zuschreiben? Bei den häufigen Änderungen weiß man sonst ja gar nicht was aktuell ist und worauf man sich beziehen soll.

Außerdem sind auch dringend einige Kommentare nötig (bzw sinnwolle Bezeichner). Was zum Bleistift macht eigentlich in Positive StringMatheFloatRec.pas?????

Delphi-Quellcode:

Class Operator MatheStringX.Positive(r: MatheStringX): MatheStringX;
    Begin
      r.PruefeN;
      Result._n := r._n;
      Result._f := r._f;
    End;

oder: MatheStringX.Negative sollte doch wohl irgendwie "absolute" enthalten!? Vom Code habe ich den Eindruck, das nur was Negatives negiert wird (außer r.PruefeN, daß aber gar nix prüft, sondern aus einem Leerstring eine '0' macht). Ganz abgesehen davon, daß ich das Teil selbst mit Delphi 9 nicht übersetzen kann, geschweige denn mit D6.

[himitsu]

Zitat:

Zitat von gammatester

Ist es nicht langsam mal Zeit, in die Units eine Versionsnummer rein zuschreiben?
Bei den häufigen Änderungen weiß man sonst ja gar nicht was aktuell ist und worauf man sich beziehen soll.

Kennst du die Gedanken, wie "so, es läuft und jetzt wird wohl so schnell nichts mehr dran geändert" ? :lol:

Nja, ich wollte demnächst da den Header wie aus himXML reinpacken, also zusammen mit Lizenz, Version und Co.
Nur bin ich da noch nicht ganz fertig ... kommt demnächst.

Aber immerhin wird seit 'ner Weile im Beitrag #1 ganz unten das Datum+Uhrzeit der da hochgeladenen Version angezeigt. :angel2:

Aber ich schreibe vermutlich gleich meinen Lizenztext und dann kommst das alles mit rein.

[quote="gammatester"]Außerdem sind auch dringend einige Kommentare nötig (bzw sinnwolle Bezeichner). Was zum Bleistift macht eigentlich in Positive StringMatheFloatRec.pas?????

Delphi-Quellcode:

Class Operator MatheStringX.Positive(r: MatheStringX): MatheStringX;
    Begin
      r.PruefeN;
      Result._n := r._n;
      Result._f := r._f;
    End;

was Positive ist, steht in der Delphi-OH :mrgreen:

im Grunde ist es eine "schwachsinnige" Funktion (zumindestens in Bezug auf "normale" Rechenoperationen),
denn es entspricht dem +X

PS: siehe http://www.delphipraxis.net/internal...t.php?t=151206

Negative ist -X

ja und Add ist X + Y

also in Positive wird hier praktisch nichts anderes gemacht, als den Wert unverändert zurückzugeben :nerd:

Zitat:

Zitat von gammatester

oder: MatheStringX.Negative sollte doch wohl irgendwie "absolute" enthalten!?

so hab ich's grad vorgefunden

Delphi-Quellcode:

Class Operator MatheString.Negative(Const r: MatheString): MatheString;
  Begin
    Result._i := r._i;
    If _Mathe.istPositiv(Result._i) Then _Mathe.Negieren(Result._i);
  End;

es wird die Zahl negativ gemacht ... und wie ich grad merk ist das völlig idiotisch,
denn es soll ja -X entsprechen ... also muß das IF-Then raus.

_i = der interne Integer
_f = der interne Float bzw. die Fließkommazahl

dachte eigentlich das könnte man sich noch denken, da es ja sonst keine internen Variablen gibt

OK und das _n ist neu und soll die Nachkommastellen enthalten (hab da grad einen Kommentag mit dazugeschrieben)

und sonst dachte ich, hällst die "unverwechselbaren" internen Variablen schön handlich kurz :stupid:

PS: ja, ich weiß, viele nennen diese Art der Variablen Fname und bei mir ist es halt _name, da ich diese besser erkenne.

PrüfeN stellt nur sicher, daß _n keine uninitialisierten Werte enthält, da standardmäßig nur der String von Delphi automatisch initialisiert wird.

[himitsu]

Versionshinweis und Lizenz hinzugefügt

Version: v1.0 Stand 16.06.2009
Lizenzen: MPL + (L)GPL

neue Version mit Variants (StringMatheVar.pas) beigelegt ... man darf sich gern bei sirius dafür bedanken (oder ihn deswegen verhauen) :nerd:

ja und ich hab mir mal erlaubt einen neuen Kommentar reinzumachen :angel2: (beim _n in StringMatheFloatRec.pas)

[toms]

Zitat:

Zitat von himitsu

Bin gespannt, ob es nun auch in D5 läuft.

Funktioniert noch nicht ganz:

[Error] StringMatheLib.pas(120): Undeclared identifier: 'TValueRelationship'

Zudem:

[Error] Demo1U.pas(43): Undeclared identifier: 'Buttons'

Delphi-Quellcode:

RadioGroup1.Buttons[1].Visible  := False;
RadioGroup1.Buttons[6].Visible  := False;
// etc..

müsste unter D5 so geschrieben werden:

Delphi-Quellcode:

    with RadioGroup1 do
    begin
       Controls[1].Visible := False;
       Controls[6].Visible := False;
       // etc.
    end;

[himitsu]

das .Controls läuft auch in aktuellen Versionen :)

ja und bezüglich des TValueRelationship ... da hatte klein himi die Ersatzdefinition an falscher Stelle definiert (erst nachdem sie das erste Mal verwendet würde) :oops:

[himitsu]

ich experimentiere grad mit einem MatheParser :shock:

was er so theoretisch kennt

• Klammern: ( )
  
• Operatoren: + - * / div // mod ^
  
  // = entspricht mod
  ^ = Potenz
  
• Konstanten:
  pi10 = π * 10^10
  pi100 = π * 10^100
  e10 = e * 10^10
  e100 = e * 10^100
  
• Funktionen: Summe Plus1 Differenz Minus1 Negieren Absolut
  Produkt Quotient Modulo Quadrat Quadratwurzel Potenz Potenz10
  SummeModulo DifferenzModulo ProduktModulo PotenzModulo
  Zufallszahl gibVorzeichen Dezimalstellen
  
  Parameter siehe TMathe
  gibVorzeichen = Mathe.gibVorzeichen + '1'

[edit]
Anhänge entfernt
siehe Beitrag #56: ist jetzt im Post #1 enthalten

[Dax]

Ist "Ergebis" absichtlich so geschrieben? O:-)

[himitsu]

Zitat:

Zitat von Dax

Ist "Ergebis" absichtlich so geschrieben? O:-)

ja :mrgreen: (ist ja fast so gut, wie das Parster, was es noch bis vor 1,5 Stunden gab)

[Dax]

Rein theoretisch könntest du dich ja des Schinkens annehmen und entsprechende Plugins für die SML basteln, meinst du nicht? *g*

[gammatester]

Bug: 2^10 = 20, 2^1000 mod 9 = 2 etc. Grund:

Delphi-Quellcode:

Function Operator_Potenz(Mathe: TMathe; Const a, b: String): String;
Begin
  Result := Mathe.Produkt(a, b);
End;