| [73abe95] | 1 | // |
|---|
| [0a5b683] | 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. |
|---|
| [73abe95] | 6 | // |
|---|
| [dc8511c] | 7 | // math3.cfa -- |
|---|
| [73abe95] | 8 | // |
|---|
| [0a5b683] | 9 | // Author : Peter A. Buhr |
|---|
| 10 | // Created On : Fri Apr 22 14:59:21 2016 |
|---|
| 11 | // Last Modified By : Peter A. Buhr |
|---|
| [ac1ae2c6] | 12 | // Last Modified On : Wed Dec 12 16:30:41 2018 |
|---|
| 13 | // Update Count : 86 |
|---|
| [73abe95] | 14 | // |
|---|
| [0a5b683] | 15 | |
|---|
| [73abe95] | 16 | #include <fstream.hfa> |
|---|
| 17 | #include <math.hfa> |
|---|
| [0a5b683] | 18 | |
|---|
| 19 | int main( void ) { |
|---|
| 20 | float f; |
|---|
| 21 | double d; |
|---|
| 22 | long double l; |
|---|
| 23 | |
|---|
| [ef3403c6] | 24 | //---------------------- Hyperbolic ---------------------- |
|---|
| 25 | |
|---|
| [ac1ae2c6] | 26 | sout | "sinh:" | sinh( 1.0F ) | sinh( 1.0D ) | sinh( 1.0L ) | nonl; |
|---|
| 27 | sout | sinh( 1.0F+1.0FI ) | sinh( 1.0D+1.0DI ) | sinh( 1.0DL+1.0LI ); |
|---|
| 28 | sout | "cosh:" | cosh( 1.0F ) | cosh( 1.0D ) | cosh( 1.0L ) | nonl; |
|---|
| 29 | sout | cosh( 1.0F+1.0FI ) | cosh( 1.0D+1.0DI ) | cosh( 1.0DL+1.0LI ); |
|---|
| 30 | sout | "tanh:" | tanh( 1.0F ) | tanh( 1.0D ) | tanh( 1.0L ) | nonl; |
|---|
| 31 | sout | tanh( 1.0F+1.0FI ) | tanh( 1.0D+1.0DI ) | tanh( 1.0DL+1.0LI ); |
|---|
| 32 | sout | "acosh:" | acosh( 1.0F ) | acosh( 1.0D ) | acosh( 1.0L ) | nonl; |
|---|
| 33 | sout | acosh( 1.0F+1.0FI ) | acosh( 1.0D+1.0DI ) | acosh( 1.0DL+1.0LI ); |
|---|
| 34 | sout | "asinh:" | asinh( 1.0F ) | asinh( 1.0D ) | asinh( 1.0L ) | nonl; |
|---|
| 35 | sout | asinh( 1.0F+1.0FI ) | asinh( 1.0D+1.0DI ) | asinh( 1.0DL+1.0LI ); |
|---|
| 36 | sout | "atanh:" | atanh( 1.0F ) | atanh( 1.0D ) | atanh( 1.0L ) | nonl; |
|---|
| 37 | sout | atanh( 1.0F+1.0FI ) | atanh( 1.0D+1.0DI ) | atanh( 1.0DL+1.0LI ); |
|---|
| [ef3403c6] | 38 | |
|---|
| 39 | //---------------------- Error / Gamma ---------------------- |
|---|
| 40 | |
|---|
| [200fcb3] | 41 | sout | "erf:" | erf( 1.0F ) | erf( 1.0D ) | erf( 1.0L ); |
|---|
| 42 | sout | "erfc:" | erfc( 1.0F ) | erfc( 1.0D ) | erfc( 1.0L ); |
|---|
| 43 | sout | "lgamma:" | lgamma( 4.0F ) | lgamma( 4.0D ) | lgamma( 4.0L ); |
|---|
| [ef3403c6] | 44 | int sign; |
|---|
| 45 | f = lgamma( 4.0F, &sign ); |
|---|
| [200fcb3] | 46 | sout | "lgamma:" | f | sign | nonl; |
|---|
| [ef3403c6] | 47 | d = lgamma( 4.0D, &sign ); |
|---|
| [200fcb3] | 48 | sout | d | sign | nonl; |
|---|
| [ef3403c6] | 49 | l = lgamma( 4.0L, &sign ); |
|---|
| [200fcb3] | 50 | sout | l | sign; |
|---|
| 51 | sout | "tgamma:" | tgamma( 4.0F ) | tgamma( 4.0D ) | tgamma( 4.0L ); |
|---|
| [0a5b683] | 52 | } // main |
|---|
| 53 | |
|---|
| 54 | // Local Variables: // |
|---|
| 55 | // tab-width: 4 // |
|---|
| [dc8511c] | 56 | // compile-command: "cfa math3.cfa" // |
|---|
| [0a5b683] | 57 | // End: // |
|---|
