+ Added examples 25-34

docs/mathex/Makefile

@@ -34,8 +34,9 @@ endif
 
 OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 \
         ex11 ex12 ex13 ex14 ex15 ex16 ex17 ex18 ex19 ex20 \
-        ex21 ex22 ex23 ex24 
-# ex15 ex16 ex17 ex18 ex19 ex20
+        ex21 ex22 ex23 ex24 ex25 ex26 ex27 ex28 ex29 ex30 \
+        ex31 ex32 ex33 ex34 
+# ex25 ex26 ex27 ex28 ex29 ex30 \
 
 TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))
 

docs/mathex/README

@@ -26,3 +26,13 @@ ex21.pp contains an example of the log10 function.
 ex22.pp contains an example of the log2 function.
 ex23.pp contains an example of the logn function.
 ex24.pp contains an example of the max function.
+ex25.pp contains an example of the MaxIntValue function.
+ex26.pp contains an example of the MaxValue function.
+ex27.pp contains an example of the Mean function.
+ex28.pp contains an example of the MeanAndStdDevfunction.
+ex29.pp contains an example of the min function.
+ex30.pp contains an example of the MinIntValue function.
+ex31.pp contains an example of the MinValue function.
+ex32.pp contains an example of the momentskewkurtosis function.
+ex33.pp contains an example of the norm function.
+ex34.pp contains an example of the power function.

docs/mathex/ex25.pp

@@ -0,0 +1,22 @@
+Program Example25;
+
+{ Program to demonstrate the MaxIntValue function. }
+
+{ Make sore integer is 32 bit}
+{$mode objfpc}
+
+Uses math;
+
+Type
+  TExArray = Array[1..100] of Integer;
+  
+Var
+  I : Integer;
+  ExArray : TExArray; 
+    
+begin
+  Randomize;
+  for I:=1 to 100 do 
+    ExArray[i]:=Random(I)-Random(100);
+  Writeln(MaxIntValue(ExArray));  
+end.

docs/mathex/ex26.pp

@@ -0,0 +1,32 @@
+Program Example26;
+
+{ Program to demonstrate the MaxValue function. }
+
+{ Make sore integer is 32 bit}
+{$mode objfpc}
+
+Uses math;
+
+Type
+  TExFloatArray = Array[1..100] of Float;
+  TExIntArray = Array[1..100] of Integer;
+    
+Var
+  I : Integer;
+  ExFloatArray : TExFloatArray; 
+  ExIntArray : TExIntArray; 
+  AFLoatArray : PFLoat;
+  AIntArray : PInteger;    
+begin
+  Randomize;
+  AFloatArray:=@ExFloatArray[1];
+  AIntArray:=@ExIntArray[1];
+  for I:=1 to 100 do 
+    ExFloatArray[i]:=(Random-Random)*100;
+  for I:=1 to 100 do 
+    ExIntArray[i]:=Random(I)-Random(100);
+  Writeln('Max Float       : ',MaxValue(ExFloatArray):8:4);  
+  Writeln('Max Float   (b) : ',MaxValue(AFloatArray,100):8:4);
+  Writeln('Max Integer     : ',MaxValue(ExIntArray):8);  
+  Writeln('Max Integer (b) : ',MaxValue(AIntArray,100):8);  
+end.

docs/mathex/ex27.pp

@@ -0,0 +1,22 @@
+Program Example27;
+
+{ Program to demonstrate the Mean function. }
+
+Uses math;
+
+Type
+  TExArray = Array[1..100] of Float;
+    
+Var
+  I : Integer;
+  ExArray : TExArray; 
+    
+begin
+  Randomize;
+  for I:=1 to 100 do 
+    ExArray[i]:=(Random-Random)*100;
+  Writeln('Max      : ',MaxValue(ExArray):8:4);  
+  Writeln('Min      : ',MinValue(ExArray):8:4);  
+  Writeln('Mean     : ',Mean(ExArray):8:4);  
+  Writeln('Mean (b) : ',Mean(@ExArray[1],100):8:4);  
+end.

docs/mathex/ex28.pp

@@ -0,0 +1,25 @@
+Program Example28;
+
+{ Program to demonstrate the Meanandstddev function. }
+
+Uses math;
+
+Type
+  TExArray = Array[1..100] of Extended;
+    
+Var
+  I : Integer;
+  ExArray : TExArray; 
+  Mean,stddev : Extended;
+    
+begin
+  Randomize;
+  for I:=1 to 100 do 
+    ExArray[i]:=(Random-Random)*100;
+  MeanAndStdDev(ExArray,Mean,StdDev);
+  Writeln('Mean       : ',Mean:8:4);  
+  Writeln('StdDev     : ',StdDev:8:4);  
+  MeanAndStdDev(@ExArray[1],100,Mean,StdDev);
+  Writeln('Mean   (b) : ',Mean:8:4);  
+  Writeln('StdDev (b) : ',StdDev:8:4);  
+end.

docs/mathex/ex29.pp

@@ -0,0 +1,13 @@
+Program Example29;
+
+{ Program to demonstrate the min function. }
+
+Uses math;
+
+Var 
+  A,B : Cardinal;
+
+begin
+  A:=1;b:=2;
+  writeln(min(a,b));
+end.

docs/mathex/ex30.pp

@@ -0,0 +1,22 @@
+Program Example30;
+
+{ Program to demonstrate the MinIntValue function. }
+
+{ Make sore integer is 32 bit}
+{$mode objfpc}
+
+Uses math;
+
+Type
+  TExArray = Array[1..100] of Integer;
+  
+Var
+  I : Integer;
+  ExArray : TExArray; 
+    
+begin
+  Randomize;
+  for I:=1 to 100 do 
+    ExArray[i]:=Random(I)-Random(100);
+  Writeln(MinIntValue(ExArray));  
+end.

docs/mathex/ex31.pp

@@ -0,0 +1,33 @@
+Program Example26;
+
+{ Program to demonstrate the MinValue function. }
+
+{ Make sore integer is 32 bit}
+{$mode objfpc}
+
+Uses math;
+
+Type
+  TExFloatArray = Array[1..100] of Float;
+  TExIntArray = Array[1..100] of Integer;
+    
+Var
+  I : Integer;
+  ExFloatArray : TExFloatArray; 
+  AFloatArray : PFloat;
+  ExIntArray : TExIntArray; 
+  AintArray : PInteger;
+    
+begin
+  Randomize;
+  AFloatArray:=@ExFloatArray[0];
+  AIntArray:=@ExIntArray[0];
+  for I:=1 to 100 do 
+    ExFloatArray[i]:=(Random-Random)*100;
+  for I:=1 to 100 do 
+    ExIntArray[i]:=Random(I)-Random(100);
+  Writeln('Min Float       : ',MinValue(ExFloatArray):8:4);  
+  Writeln('Min Float   (b) : ',MinValue(AFloatArray,100):8:4);
+  Writeln('Min Integer     : ',MinValue(ExIntArray):8);  
+  Writeln('Min Integer (b) : ',MinValue(AintArray,100):8);  
+end.

docs/mathex/ex32.pp

@@ -0,0 +1,24 @@
+Program Example32;
+
+{ Program to demonstrate the momentskewkurtosis function. }
+
+Uses math;
+
+Var 
+  DistArray : Array[1..1000] of float;
+  I : longint;
+  m1,m2,m3,m4,skew,kurtosis : float;
+  
+begin
+  randomize;
+  for I:=1 to 1000 do
+    distarray[i]:=random;
+  momentskewkurtosis(DistArray,m1,m2,m3,m4,skew,kurtosis);
+  
+  Writeln ('1st moment : ',m1:8:6);  
+  Writeln ('2nd moment : ',m2:8:6);  
+  Writeln ('3rd moment : ',m3:8:6);  
+  Writeln ('4th moment : ',m4:8:6);  
+  Writeln ('Skew       : ',skew:8:6);  
+  Writeln ('kurtosis   : ',kurtosis:8:6);  
+end.

docs/mathex/ex33.pp

@@ -0,0 +1,18 @@
+Program Example33;
+
+{ Program to demonstrate the norm function. }
+
+Uses math;
+
+Type
+  TVector = Array[1..10] of Float;
+
+Var 
+  AVector : Tvector;
+  I : longint;
+   
+begin
+ for I:=1 to 10 do
+   Avector[i]:=Random;
+ Writeln(Norm(AVector));
+end.

docs/mathex/ex34.pp

@@ -0,0 +1,17 @@
+Program Example34;
+
+{ Program to demonstrate the power function. }
+
+Uses Math;
+
+procedure dopower(x,y : float);
+
+begin
+  writeln(x:8:6,'^',y:8:6,' = ',power(x,y):8:6)
+end;
+
+begin
+  dopower(2,2);
+  dopower(2,-2);
+  dopower(2,0.0);
+end.