Komplexe Zahlen und Brüche mit überladenen Operatoren

[Kroko1999]

Ich habe, angeregt durch mehrere Threads, mal eine Unit programmiert, welche das Rechnen mit komplexen Zahlen realisiert.

Delphi-Quellcode:

var
  A,B,C: TComplex;
begin
  A.Create(2,3);
  B.Create(4,5);
  C := A+B; //C=6+8i

Beispielprogramm ist angehängt, Quellen ebenfalls
* Version 2.0
- Operatoren x, -, *, / überladen
- Float,String nach TComplex
- TComplex nach String
- komplexe Null, konjugiert komplexe Zahl
- Betrag, Betrag²
- Reziproke, Skalierung
- Test, ob reelle Zahl
- Winkel zur X-Achse, Polarkoordinaten
- Funktionen
= Sinus, Kosinus, Tangens, Kotangens
= Quadrat, Quadratwurzel, Reziprokes
= Ln, Exp und Power

[Kroko1999]

Und jetzt noch eine zweite Unit über Brüche dazu:
zum Beispiel:

Delphi-Quellcode:

var
  X,Y,Z: TBruch;
begin
  X := '2/1/5';
  Y.Create(2,3);
  Z := X+Y;
  Z := X-Y;
  Z := X*Y;
  Z := X/Y;
end;

* Version 1.0
- Operatoren x, -, *, / überladen
- Float,String nach TBruch
- String im Format: Ganzer Teil/Zähler/Nenner möglich
- TBruch nach String
- Funktionen
= Sqr; Rcp, Abs
- Procedure PaintBruch