matheunit.pas: ln in exprtofloat eingefuegt

1 files changed, 2 insertions, 1 deletions

diff --git a/matheunit.pas b/matheunit.pas
index 7fc3188..8e6426c 100644
--- a/matheunit.pas
+++ b/matheunit.pas
@@ -359,7 +359,7 @@ var i,j,k,l,m:   longint;
     inv,neg,cbv: boolean;
     val1,val2:   extended;
 const
-    fkt1: array[0..5] of string = ('exp','sin','cos','tan','sqr','sqrt');
+    fkt1: array[0..6] of string = ('exp','sin','cos','tan','sqr','sqrt','ln');
     fkt2: array[0..1] of string = ('min','max');
 begin
   s:=trimAll(s);
@@ -387,6 +387,7 @@ begin
         3: val1:=tan(val1);
         4: val1:=sqr(val1);
         5: val1:=sqrt(val1);
+        6: val1:=ln(val1);
       end{of case};
       s:=copy(s,1,k-1) + floattostr(val1) + copy(s,j+1,length(s));
     end;