| [ee0fa3a] | 1 | //
 | 
|---|
 | 2 | // Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
 | 
|---|
 | 3 | //
 | 
|---|
 | 4 | // The contents of this file are covered under the licence agreement in the
 | 
|---|
 | 5 | // file "LICENCE" distributed with Cforall.
 | 
|---|
 | 6 | //
 | 
|---|
 | 7 | // math2.cfa --
 | 
|---|
 | 8 | //
 | 
|---|
 | 9 | // Author           : Peter A. Buhr
 | 
|---|
 | 10 | // Created On       : Fri Apr 22 14:59:21 2016
 | 
|---|
 | 11 | // Last Modified By : Peter A. Buhr
 | 
|---|
 | 12 | // Last Modified On : Wed Dec 12 16:11:35 2018
 | 
|---|
 | 13 | // Update Count     : 87
 | 
|---|
 | 14 | //
 | 
|---|
 | 15 | 
 | 
|---|
 | 16 | #include <fstream.hfa>
 | 
|---|
 | 17 | #include <math.hfa>
 | 
|---|
 | 18 | 
 | 
|---|
 | 19 | int main( void ) {
 | 
|---|
 | 20 |         float f;
 | 
|---|
 | 21 |         double d;
 | 
|---|
 | 22 |         long double l;
 | 
|---|
 | 23 | 
 | 
|---|
 | 24 |         //---------------------- Logarithm ----------------------
 | 
|---|
 | 25 | 
 | 
|---|
 | 26 |         sout | "log:" | log( 1.0F ) | log( 1.0D ) | log( 1.0L ) | nonl;
 | 
|---|
 | 27 |         sout | log( 1.0F+1.0FI ) | log( 1.0D+1.0DI ) | log( 1.0DL+1.0LI );
 | 
|---|
 | 28 |         sout | "log2:" | log2( 8.0F ) | log2( 8.0D ) | log2( 8.0L );
 | 
|---|
 | 29 |         sout | "log10:" | log10( 100.0F ) | log10( 100.0D ) | log10( 100.0L );
 | 
|---|
 | 30 |         sout | "log1p:" | log1p( 1.0F ) | log1p( 1.0D ) | log1p( 1.0L );
 | 
|---|
 | 31 |         sout | "ilogb:" | ilogb( 1.0F ) | ilogb( 1.0D ) | ilogb( 1.0L );
 | 
|---|
 | 32 |         sout | "logb:" | logb( 8.0F ) | logb( 8.0D ) | logb( 8.0L );
 | 
|---|
 | 33 | 
 | 
|---|
 | 34 |         sout | "sqrt:" | sqrt( 1.0F ) | sqrt( 1.0D ) | sqrt( 1.0L ) | nonl;
 | 
|---|
 | 35 |         sout | sqrt( 1.0F+1.0FI ) | sqrt( 1.0D+1.0DI ) | sqrt( 1.0DL+1.0LI );
 | 
|---|
 | 36 |         sout | "cbrt:" | cbrt( 27.0F ) | cbrt( 27.0D ) | cbrt( 27.0L );
 | 
|---|
 | 37 |         sout | "hypot:" | hypot( 1.0F, -1.0F ) | hypot( 1.0D, -1.0D ) | hypot( 1.0L, -1.0L );
 | 
|---|
 | 38 | 
 | 
|---|
 | 39 |         //---------------------- Trigonometric ----------------------
 | 
|---|
 | 40 | 
 | 
|---|
 | 41 |         sout | "sin:" | sin( 1.0F ) | sin( 1.0D ) | sin( 1.0L ) | nonl;
 | 
|---|
 | 42 |         sout | sin( 1.0F+1.0FI ) | sin( 1.0D+1.0DI ) | sin( 1.0DL+1.0LI );
 | 
|---|
 | 43 |         sout | "cos:" | cos( 1.0F ) | cos( 1.0D ) | cos( 1.0L ) | nonl;
 | 
|---|
 | 44 |         sout | cos( 1.0F+1.0FI ) | cos( 1.0D+1.0DI ) | cos( 1.0DL+1.0LI );
 | 
|---|
 | 45 |         sout | "tan:" | tan( 1.0F ) | tan( 1.0D ) | tan( 1.0L ) | nonl;
 | 
|---|
 | 46 |         sout | tan( 1.0F+1.0FI ) | tan( 1.0D+1.0DI ) | tan( 1.0DL+1.0LI );
 | 
|---|
 | 47 |         sout | "asin:" | asin( 1.0F ) | asin( 1.0D ) | asin( 1.0L ) | nonl;
 | 
|---|
 | 48 |         sout | asin( 1.0F+1.0FI ) | asin( 1.0D+1.0DI ) | asin( 1.0DL+1.0LI );
 | 
|---|
 | 49 |         sout | "acos:" | acos( 1.0F ) | acos( 1.0D ) | acos( 1.0L ) | nonl;
 | 
|---|
 | 50 |         sout | acos( 1.0F+1.0FI ) | acos( 1.0D+1.0DI ) | acos( 1.0DL+1.0LI );
 | 
|---|
 | 51 |         sout | "atan:" | atan( 1.0F ) | atan( 1.0D ) | atan( 1.0L ) | nonl;
 | 
|---|
 | 52 |         sout | atan( 1.0F+1.0FI ) | atan( 1.0D+1.0DI ) | atan( 1.0DL+1.0LI );
 | 
|---|
 | 53 |         sout | "atan2:" | atan2( 1.0F, 1.0F ) | atan2( 1.0D, 1.0D ) | atan2( 1.0L, 1.0L ) | nonl;
 | 
|---|
 | 54 |         sout | "atan:" | atan( 1.0F, 1.0F ) | atan( 1.0D, 1.0D ) | atan( 1.0L, 1.0L );
 | 
|---|
 | 55 | } // main
 | 
|---|
 | 56 | 
 | 
|---|
 | 57 | // Local Variables: //
 | 
|---|
 | 58 | // tab-width: 4 //
 | 
|---|
 | 59 | // compile-command: "cfa math2.cfa" //
 | 
|---|
 | 60 | // End: //
 | 
|---|