mirror of
https://github.com/steveicarus/iverilog.git
synced 2026-09-03 08:25:32 +02:00
Stephen Williams
cea237b407
By adding ivtest to the iverilog source tree, it is easier to keep the regression test synchronized with the source that is being tested. This should be especially helpful for PRs that add a new feature, and have a matching ivtest PR with the regression test for that feature.
562 lines
23 KiB
Verilog
562 lines
23 KiB
Verilog
/*
|
|
* Verilog-A math library test code for Icarus Verilog.
|
|
* http://www.icarus.com/eda/verilog/
|
|
*
|
|
* Copyright (C) 2007-2009 Cary R. ([email protected])
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along
|
|
* with this program; if not, write to the Free Software Foundation, Inc.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*/
|
|
|
|
/*
|
|
* As of Dec. 2009 some systems have started returning the sign of
|
|
* a NaN, because of this we can for some conditions get -nan. This
|
|
* will cause mismatches with the gold file. Alan M. Feldstein
|
|
* suggested on the iverilog-devel mailing list that we use fabs
|
|
* ($abs()) since C99 speifies that it will remove the sign of the
|
|
* NaN. This appears to work, so I wrapped all functions that we
|
|
* expect to return NaN with a call to $abs().
|
|
*/
|
|
|
|
// Get the Verilog-A constants.
|
|
`include "constants.vams"
|
|
|
|
module top;
|
|
real zero, mzero, inf, minf, nan;
|
|
|
|
initial begin
|
|
// Define a few constants.
|
|
zero = 0.0;
|
|
mzero = -1.0 * zero;
|
|
inf = 1/0.0;
|
|
minf = $ln(0);
|
|
nan = $abs($sqrt(-1.0));
|
|
|
|
$display("Using +0 = %f, -0 = %f, nan = %f, inf = %f and -inf = %f.\n",
|
|
zero, mzero, nan, inf, minf);
|
|
|
|
// Check that the comparisons used to detection a NaN work correctly.
|
|
if (nan != nan) $display("NaN != comparison works correctly.");
|
|
else $display("NaN != comparison failed.");
|
|
if (nan == nan) $display("NaN == comparison failed.\n");
|
|
else $display("NaN == comparison works correctly.\n");
|
|
|
|
check_sqrt;
|
|
$display("");
|
|
check_ln;
|
|
$display("");
|
|
check_log;
|
|
$display("");
|
|
check_exp;
|
|
$display("");
|
|
check_abs;
|
|
$display("");
|
|
check_ceil;
|
|
$display("");
|
|
check_floor;
|
|
$display("");
|
|
check_sin;
|
|
$display("");
|
|
check_cos;
|
|
$display("");
|
|
check_tan;
|
|
$display("");
|
|
check_asin;
|
|
$display("");
|
|
check_acos;
|
|
$display("");
|
|
check_atan;
|
|
$display("");
|
|
check_sinh;
|
|
$display("");
|
|
check_cosh;
|
|
$display("");
|
|
check_tanh;
|
|
$display("");
|
|
check_asinh;
|
|
$display("");
|
|
check_acosh;
|
|
$display("");
|
|
check_atanh;
|
|
$display("");
|
|
check_min;
|
|
$display("");
|
|
check_max;
|
|
$display("");
|
|
check_pow;
|
|
$display("");
|
|
check_atan2;
|
|
$display("");
|
|
check_hypot;
|
|
$display("");
|
|
check_constants;
|
|
end
|
|
|
|
// Task to check the square root function.
|
|
task check_sqrt;
|
|
begin
|
|
$display("--- Checking the $sqrt function ---");
|
|
$display("The square root of 2.0 is %f.", $sqrt(2.0));
|
|
$display("The square root of 1.0 is %f.", $sqrt(1.0));
|
|
$display("The square root of 0.0 is %f.", $sqrt(zero));
|
|
$display("The square root of -0.0 is %f.", $sqrt(mzero));
|
|
$display("The square root of -1.0 is %f.", $abs($sqrt(-1.0)));
|
|
$display("The square root of inf is %f.", $sqrt(inf));
|
|
$display("The square root of -inf is %f.", $abs($sqrt(minf)));
|
|
$display("The square root of nan is %f.", $abs($sqrt(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the natural log function.
|
|
task check_ln;
|
|
begin
|
|
$display("--- Checking the $ln function ---");
|
|
$display("The natural log of 10.0 is %f.", $ln(10.0));
|
|
$display("The natural log of 1.0 is %f.", $ln(1.0));
|
|
$display("The natural log of 0.5 is %f.", $ln(0.5));
|
|
$display("The natural log of 0.0 is %f.", $ln(zero));
|
|
$display("The natural log of -0.0 is %f.", $ln(mzero));
|
|
$display("The natural log of -1.0 is %f.", $abs($ln(-1.0)));
|
|
$display("The natural log of inf is %f.", $ln(inf));
|
|
$display("The natural log of -inf is %f.", $abs($ln(minf)));
|
|
$display("The natural log of nan is %f.", $abs($ln(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the log base 10 function.
|
|
// This was originally $log, but that was deprecated in VAMS-2.3.
|
|
task check_log;
|
|
begin
|
|
$display("--- Checking the $log10 function ---");
|
|
$display("The log base 10 of 10.0 is %f.", $log10(10.0));
|
|
$display("The log base 10 of 1.0 is %f.", $log10(1.0));
|
|
$display("The log base 10 of 0.5 is %f.", $log10(0.5));
|
|
$display("The log base 10 of 0.0 is %f.", $log10(zero));
|
|
$display("The log base 10 of -0.0 is %f.", $log10(mzero));
|
|
$display("The log base 10 of -1.0 is %f.", $abs($log10(-1.0)));
|
|
$display("The log base 10 of inf is %f.", $log10(inf));
|
|
$display("The log base 10 of -inf is %f.", $abs($log10(minf)));
|
|
$display("The log base 10 of nan is %f.", $abs($log10(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the exponential function.
|
|
task check_exp;
|
|
begin
|
|
$display("--- Checking the $exp function ---");
|
|
$display("The exponential of 1.0 is %f.", $exp(1.0));
|
|
$display("The exponential of 0.0 is %f.", $exp(zero));
|
|
$display("The exponential of -0.0 is %f.", $exp(mzero));
|
|
$display("The exponential of -1.0 is %f.", $exp(-1.0));
|
|
$display("The exponential of inf is %f.", $exp(inf));
|
|
$display("The exponential of -inf is %f.", $exp(minf));
|
|
$display("The exponential of nan is %f.", $abs($exp(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the absolute value function.
|
|
task check_abs;
|
|
begin
|
|
$display("--- Checking the $abs function ---");
|
|
$display("The absolute value of 1.0 is %f.", $abs(1.0));
|
|
$display("The absolute value of 0.0 is %f.", $abs(zero));
|
|
$display("The absolute value of -0.0 is %f.", $abs(mzero));
|
|
$display("The absolute value of -1.0 is %f.", $abs(-1.0));
|
|
$display("The absolute value of inf is %f.", $abs(inf));
|
|
$display("The absolute value of -inf is %f.", $abs(minf));
|
|
$display("The absolute value of nan is %f.", $abs(nan));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the ceiling function.
|
|
task check_ceil;
|
|
begin
|
|
$display("--- Checking the $ceil function ---");
|
|
$display("The ceiling of 2.1 is %f.", $ceil(2.1));
|
|
$display("The ceiling of 0.5 is %f.", $ceil(0.5));
|
|
// Some C math libraries return -0.0 and some return 0.0.
|
|
// Both appear to be correct since the standard does not
|
|
// specify exactly what should be done so convert to 0.0.
|
|
$display("The ceiling of -0.5 is %f.", $ceil(-0.5)+0.0);
|
|
$display("The ceiling of -1.1 is %f.", $ceil(-1.1));
|
|
$display("The ceiling of inf is %f.", $ceil(inf));
|
|
$display("The ceiling of -inf is %f.", $ceil(minf));
|
|
$display("The ceiling of nan is %f.", $abs($ceil(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the floor function.
|
|
task check_floor;
|
|
begin
|
|
$display("--- Checking the $floor function ---");
|
|
$display("The floor of 2.1 is %f.", $floor(2.1));
|
|
$display("The floor of 0.5 is %f.", $floor(0.5));
|
|
$display("The floor of -0.5 is %f.", $floor(-0.5));
|
|
$display("The floor of -1.1 is %f.", $floor(-1.1));
|
|
$display("The floor of inf is %f.", $floor(inf));
|
|
$display("The floor of -inf is %f.", $floor(minf));
|
|
$display("The floor of nan is %f.", $abs($floor(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the sin function.
|
|
task check_sin;
|
|
begin
|
|
$display("--- Checking the $sin function ---");
|
|
$display("The sin of 4.0 is %f.", $sin(4.0));
|
|
$display("The sin of 1.0 is %f.", $sin(1.0));
|
|
$display("The sin of 0.0 is %f.", $sin(zero));
|
|
$display("The sin of -0.0 is %f.", $sin(mzero));
|
|
$display("The sin of -1.0 is %f.", $sin(-1.0));
|
|
$display("The sin of -4.0 is %f.", $sin(-4.0));
|
|
$display("The sin of inf is %f.", $abs($sin(inf)));
|
|
$display("The sin of -inf is %f.", $abs($sin(minf)));
|
|
$display("The sin of nan is %f.", $abs($sin(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the cos function.
|
|
task check_cos;
|
|
begin
|
|
$display("--- Checking the $cos function ---");
|
|
$display("The cos of 4.0 is %f.", $cos(4.0));
|
|
$display("The cos of 1.0 is %f.", $cos(1.0));
|
|
$display("The cos of 0.0 is %f.", $cos(zero));
|
|
$display("The cos of -0.0 is %f.", $cos(mzero));
|
|
$display("The cos of -1.0 is %f.", $cos(-1.0));
|
|
$display("The cos of -4.0 is %f.", $cos(-4.0));
|
|
$display("The cos of inf is %f.", $abs($cos(inf)));
|
|
$display("The cos of -inf is %f.", $abs($cos(minf)));
|
|
$display("The cos of nan is %f.", $abs($cos(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the tan function.
|
|
task check_tan;
|
|
begin
|
|
$display("--- Checking the $tan function ---");
|
|
$display("The tan of 4.0 is %f.", $tan(4.0));
|
|
$display("The tan of 1.0 is %f.", $tan(1.0));
|
|
$display("The tan of 0.0 is %f.", $tan(zero));
|
|
$display("The tan of -0.0 is %f.", $tan(mzero));
|
|
$display("The tan of -1.0 is %f.", $tan(-1.0));
|
|
$display("The tan of -4.0 is %f.", $tan(-4.0));
|
|
// The underlying C math libraries can give different results for
|
|
// this corner case, so we can only use four significant digits
|
|
// for these two tests.
|
|
$display("The tan of pi/2 is %.4g.", $tan($asin(1.0)));
|
|
$display("The tan of -pi/2 is %.4g.", $tan($asin(-1.0)));
|
|
$display("The tan of inf is %f.", $abs($tan(inf)));
|
|
$display("The tan of -inf is %f.", $abs($tan(minf)));
|
|
$display("The tan of nan is %f.", $abs($tan(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the asin function.
|
|
task check_asin;
|
|
begin
|
|
$display("--- Checking the $asin function ---");
|
|
$display("The asin of 1.1 is %f.", $abs($asin(1.1)));
|
|
$display("The asin of 1.0 is %f.", $asin(1.0));
|
|
$display("The asin of 0.5 is %f.", $asin(0.5));
|
|
$display("The asin of 0.0 is %f.", $asin(zero));
|
|
$display("The asin of -0.0 is %f.", $asin(mzero));
|
|
$display("The asin of -0.5 is %f.", $asin(-0.5));
|
|
$display("The asin of -1.0 is %f.", $asin(-1.0));
|
|
$display("The asin of -1.1 is %f.", $abs($asin(-1.1)));
|
|
$display("The asin of inf is %f.", $abs($asin(inf)));
|
|
$display("The asin of -inf is %f.", $abs($asin(minf)));
|
|
$display("The asin of nan is %f.", $abs($asin(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the acos function.
|
|
task check_acos;
|
|
begin
|
|
$display("--- Checking the $acos function ---");
|
|
$display("The acos of 1.1 is %f.", $abs($acos(1.1)));
|
|
$display("The acos of 1.0 is %f.", $acos(1.0));
|
|
$display("The acos of 0.5 is %f.", $acos(0.5));
|
|
$display("The acos of 0.0 is %f.", $acos(zero));
|
|
$display("The acos of -0.0 is %f.", $acos(mzero));
|
|
$display("The acos of -0.5 is %f.", $acos(-0.5));
|
|
$display("The acos of -1.0 is %f.", $acos(-1.0));
|
|
$display("The acos of -1.1 is %f.", $abs($acos(-1.1)));
|
|
$display("The acos of inf is %f.", $abs($acos(inf)));
|
|
$display("The acos of -inf is %f.", $abs($acos(minf)));
|
|
$display("The acos of nan is %f.", $abs($acos(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the atan function.
|
|
task check_atan;
|
|
begin
|
|
$display("--- Checking the $atan function ---");
|
|
$display("The atan of 2.0 is %f.", $atan(2.0));
|
|
$display("The atan of 0.5 is %f.", $atan(0.5));
|
|
$display("The atan of 0.0 is %f.", $atan(zero));
|
|
$display("The atan of -0.0 is %f.", $atan(mzero));
|
|
$display("The atan of -0.5 is %f.", $atan(-0.5));
|
|
$display("The atan of -2.0 is %f.", $atan(-2.0));
|
|
$display("The atan of inf is %f.", $atan(inf));
|
|
$display("The atan of -inf is %f.", $atan(minf));
|
|
$display("The atan of nan is %f.", $abs($atan(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the sinh function.
|
|
task check_sinh;
|
|
begin
|
|
$display("--- Checking the $sinh function ---");
|
|
$display("The sinh of 2.0 is %f.", $sinh(2.0));
|
|
$display("The sinh of 1.0 is %f.", $sinh(1.0));
|
|
$display("The sinh of 0.5 is %f.", $sinh(0.5));
|
|
$display("The sinh of 0.0 is %f.", $sinh(zero));
|
|
$display("The sinh of -0.0 is %f.", $sinh(mzero));
|
|
$display("The sinh of -0.5 is %f.", $sinh(-0.5));
|
|
$display("The sinh of -1.0 is %f.", $sinh(-1.0));
|
|
$display("The sinh of -2.0 is %f.", $sinh(-2.0));
|
|
$display("The sinh of inf is %f.", $sinh(inf));
|
|
$display("The sinh of -inf is %f.", $sinh(minf));
|
|
$display("The sinh of nan is %f.", $abs($sinh(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the cosh function.
|
|
task check_cosh;
|
|
begin
|
|
$display("--- Checking the $cosh function ---");
|
|
$display("The cosh of 2.0 is %f.", $cosh(2.0));
|
|
$display("The cosh of 1.0 is %f.", $cosh(1.0));
|
|
$display("The cosh of 0.5 is %f.", $cosh(0.5));
|
|
$display("The cosh of 0.0 is %f.", $cosh(zero));
|
|
$display("The cosh of -0.0 is %f.", $cosh(mzero));
|
|
$display("The cosh of -0.5 is %f.", $cosh(-0.5));
|
|
$display("The cosh of -1.0 is %f.", $cosh(-1.0));
|
|
$display("The cosh of -2.0 is %f.", $cosh(-2.0));
|
|
$display("The cosh of inf is %f.", $cosh(inf));
|
|
$display("The cosh of -inf is %f.", $cosh(minf));
|
|
$display("The cosh of nan is %f.", $abs($cosh(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the tanh function.
|
|
task check_tanh;
|
|
begin
|
|
$display("--- Checking the $tanh function ---");
|
|
$display("The tanh of 2.0 is %f.", $tanh(2.0));
|
|
$display("The tanh of 1.0 is %f.", $tanh(1.0));
|
|
$display("The tanh of 0.5 is %f.", $tanh(0.5));
|
|
$display("The tanh of 0.0 is %f.", $tanh(zero));
|
|
$display("The tanh of -0.0 is %f.", $tanh(mzero));
|
|
$display("The tanh of -0.5 is %f.", $tanh(-0.5));
|
|
$display("The tanh of -1.0 is %f.", $tanh(-1.0));
|
|
$display("The tanh of -2.0 is %f.", $tanh(-2.0));
|
|
$display("The tanh of inf is %f.", $tanh(inf));
|
|
$display("The tanh of -inf is %f.", $tanh(minf));
|
|
$display("The tanh of nan is %f.", $abs($tanh(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the asinh function.
|
|
task check_asinh;
|
|
begin
|
|
$display("--- Checking the $asinh function ---");
|
|
$display("The asinh of 2.0 is %f.", $asinh(2.0));
|
|
$display("The asinh of 1.0 is %f.", $asinh(1.0));
|
|
$display("The asinh of 0.5 is %f.", $asinh(0.5));
|
|
$display("The asinh of 0.0 is %f.", $asinh(zero));
|
|
$display("The asinh of -0.0 is %f.", $asinh(mzero));
|
|
$display("The asinh of -0.5 is %f.", $asinh(-0.5));
|
|
$display("The asinh of -1.0 is %f.", $asinh(-1.0));
|
|
$display("The asinh of -2.0 is %f.", $asinh(-2.0));
|
|
$display("The asinh of inf is %f.", $asinh(inf));
|
|
$display("The asinh of -inf is %f.", $asinh(minf));
|
|
$display("The asinh of nan is %f.", $abs($asinh(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the acosh function.
|
|
task check_acosh;
|
|
begin
|
|
$display("--- Checking the $acosh function ---");
|
|
$display("The acosh of 2.0 is %f.", $acosh(2.0));
|
|
$display("The acosh of 1.0 is %f.", $acosh(1.0));
|
|
$display("The acosh of 0.5 is %f.", $abs($acosh(0.5)));
|
|
$display("The acosh of 0 is %f.", $abs($acosh(zero)));
|
|
$display("The acosh of -0 is %f.", $abs($acosh(mzero)));
|
|
$display("The acosh of -0.5 is %f.", $abs($acosh(-0.5)));
|
|
$display("The acosh of -1.0 is %f.", $abs($acosh(-1.0)));
|
|
$display("The acosh of -2.0 is %f.", $abs($acosh(-2.0)));
|
|
$display("The acosh of inf is %f.", $acosh(inf));
|
|
$display("The acosh of -inf is %f.", $abs($acosh(minf)));
|
|
$display("The acosh of nan is %f.", $abs($acosh(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the atanh function.
|
|
task check_atanh;
|
|
begin
|
|
$display("--- Checking the $atanh function ---");
|
|
$display("The atanh of 2.0 is %f.", $abs($atanh(2.0)));
|
|
$display("The atanh of 1.0 is %f.", $atanh(1.0));
|
|
$display("The atanh of 0.5 is %f.", $atanh(0.5));
|
|
$display("The atanh of 0.0 is %f.", $atanh(zero));
|
|
$display("The atanh of -0.0 is %f.", $atanh(mzero));
|
|
$display("The atanh of -0.5 is %f.", $atanh(-0.5));
|
|
$display("The atanh of -1.0 is %f.", $atanh(-1.0));
|
|
$display("The atanh of -2.0 is %f.", $abs($atanh(-2.0)));
|
|
$display("The atanh of inf is %f.", $abs($atanh(inf)));
|
|
$display("The atanh of -inf is %f.", $abs($atanh(minf)));
|
|
$display("The atanh of nan is %f.", $abs($atanh(nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the min function.
|
|
task check_min;
|
|
begin
|
|
$display("--- Checking the $min function ---");
|
|
$display("The minimum of 1.0 and 2.0 is %f.", $min(1.0, 2.0));
|
|
$display("The minimum of 2.0 and 1.0 is %f.", $min(2.0, 1.0));
|
|
$display("The minimum of 1.0 and -1.0 is %f.", $min(1.0, -1.0));
|
|
$display("The minimum of -1.0 and -2.0 is %f.", $min(-1.0, -2.0));
|
|
$display("The minimum of 2.0 and inf is %f.", $min(2.0, inf));
|
|
$display("The minimum of inf and 2.0 is %f.", $min(inf, 2.0));
|
|
$display("The minimum of 2.0 and -inf is %f.", $min(2.0, minf));
|
|
$display("The minimum of -inf and 2.0 is %f.", $min(minf, 2.0));
|
|
$display("The minimum of 2.0 and nan is %f.", $min(2.0, nan));
|
|
$display("The minimum of nan and 2.0 is %f.", $min(nan, 2.0));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the max function.
|
|
task check_max;
|
|
begin
|
|
$display("--- Checking the $max function ---");
|
|
$display("The maximum of 1.0 and 2.0 is %f.", $max(1.0, 2.0));
|
|
$display("The maximum of 2.0 and 1.0 is %f.", $max(2.0, 1.0));
|
|
$display("The maximum of 1.0 and -1.0 is %f.", $max(1.0, -1.0));
|
|
$display("The maximum of -1.0 and -2.0 is %f.", $max(-1.0, -2.0));
|
|
$display("The maximum of 2.0 and inf is %f.", $max(2.0, inf));
|
|
$display("The maximum of inf and 2.0 is %f.", $max(inf, 2.0));
|
|
$display("The maximum of 2.0 and -inf is %f.", $max(2.0, minf));
|
|
$display("The maximum of -inf and 2.0 is %f.", $max(minf, 2.0));
|
|
$display("The maximum of 2.0 and nan is %f.", $max(2.0, nan));
|
|
$display("The maximum of nan and 2.0 is %f.", $max(nan, 2.0));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the power function.
|
|
task check_pow;
|
|
begin
|
|
$display("--- Checking the $pow function ---");
|
|
$display(" 0.0 to the power of 0.0 is %f.", $pow(zero, zero));
|
|
$display(" 1.0 to the power of 0.0 is %f.", $pow(1.0, zero));
|
|
$display("-1.0 to the power of 0.0 is %f.", $pow(-1.0, zero));
|
|
$display(" 0.0 to the power of 1.0 is %f.", $pow(zero, 1.0));
|
|
$display(" 1.0 to the power of 1.0 is %f.", $pow(1.0, 1.0));
|
|
$display("-1.0 to the power of 1.0 is %f.", $pow(-1.0, 1.0));
|
|
$display(" 8.0 to the power of 1/3 is %f.", $pow(8.0, 1.0/3.0));
|
|
$display(" 8.0 to the power of -1/3 is %f.", $pow(8.0, -1.0/3.0));
|
|
$display(" 2.0 to the power of 3.0 is %f.", $pow(2.0, 3.0));
|
|
$display(" 2.0 to the power of 5000 is %f.", $pow(2.0, 5000));
|
|
$display("-2.0 to the power of 5001 is %f.", $pow(-2.0, 5001));
|
|
$display(" 2.0 to the power of -5000 is %f.", $pow(2.0, -5000));
|
|
$display(" inf to the power of 0.0 is %f.", $pow(inf, zero));
|
|
$display("-inf to the power of 0.0 is %f.", $pow(minf, zero));
|
|
$display(" inf to the power of 1.0 is %f.", $pow(inf, 1.0));
|
|
$display("-inf to the power of 1.0 is %f.", $pow(minf, 1.0));
|
|
$display(" inf to the power of 2.0 is %f.", $pow(inf, 2.0));
|
|
$display("-inf to the power of 2.0 is %f.", $pow(minf, 2.0));
|
|
$display(" 1.0 to the power of inf is %f.", $pow(1.0, inf));
|
|
$display("-1.0 to the power of inf is %f.", $pow(-1.0, inf));
|
|
$display(" 0.5 to the power of inf is %f.", $pow(0.5, inf));
|
|
$display(" 2.0 to the power of inf is %f.", $pow(2.0, inf));
|
|
$display(" 1.0 to the power of -inf is %f.", $pow(1.0, minf));
|
|
$display("-1.0 to the power of -inf is %f.", $pow(-1.0, minf));
|
|
$display(" 0.5 to the power of -inf is %f.", $pow(0.5, minf));
|
|
$display(" 2.0 to the power of -inf is %f.", $pow(2.0, minf));
|
|
$display("-1.0 to the power of -1/3 is %f.", $abs($pow(-1.0, -1.0/3.0)));
|
|
$display(" 1.0 to the power of nan is %f.", $pow(1.0, nan));
|
|
$display(" nan to the power of 1.0 is %f.", $abs($pow(nan, 1.0)));
|
|
$display(" nan to the power of 0.0 is %f.", $pow(nan, zero));
|
|
$display(" nan to the power of nan is %f.", $abs($pow(nan, nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the atan of x/y function.
|
|
task check_atan2;
|
|
begin
|
|
$display("--- Checking the $atan2 function ---");
|
|
$display("The atan of 0.0/ 0.0 is %f.", $atan2(zero, zero));
|
|
$display("The atan of -0.0/ 0.0 is %f.", $atan2(mzero, zero));
|
|
$display("The atan of 0.0/-0.0 is %f.", $atan2(zero, mzero));
|
|
$display("The atan of -0.0/-0.0 is %f.", $atan2(mzero, mzero));
|
|
$display("The atan of 0.0/ 1.0 is %f.", $atan2(zero, 1.0));
|
|
$display("The atan of 1.0/ 0.0 is %f.", $atan2(1.0, zero));
|
|
$display("The atan of 1.0/ 1.0 is %f.", $atan2(1.0, 1.0));
|
|
$display("The atan of 0.0/-1.0 is %f.", $atan2(zero, -1.0));
|
|
$display("The atan of -1.0/ 0.0 is %f.", $atan2(-1.0, zero));
|
|
$display("The atan of -1.0/-1.0 is %f.", $atan2(-1.0, -1.0));
|
|
$display("The atan of inf/ 0.0 is %f.", $atan2(inf, zero));
|
|
$display("The atan of 0.0/ inf is %f.", $atan2(zero, inf));
|
|
$display("The atan of inf/ inf is %f.", $atan2(inf, inf));
|
|
$display("The atan of -inf/ 0.0 is %f.", $atan2(minf, zero));
|
|
$display("The atan of 0.0/-inf is %f.", $atan2(zero, minf));
|
|
$display("The atan of -inf/-inf is %f.", $atan2(minf, minf));
|
|
$display("The atan of nan/ 0.0 is %f.", $abs($atan2(nan, zero)));
|
|
$display("The atan of nan/ 1.0 is %f.", $abs($atan2(nan, 1.0)));
|
|
$display("The atan of 1.0/ nan is %f.", $abs($atan2(1.0, nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the distance from origin function.
|
|
task check_hypot;
|
|
begin
|
|
$display("--- Checking the $hypot function ---");
|
|
$display("The distance to ( 0.0, 0.0) is %f.", $hypot(zero, zero));
|
|
$display("The distance to ( 2.0, 0.0) is %f.", $hypot(2.0, zero));
|
|
$display("The distance to ( -2.0, 0.0) is %f.", $hypot(-2.0, zero));
|
|
$display("The distance to ( 0.0, 2.0) is %f.", $hypot(zero, 2.0));
|
|
$display("The distance to ( 0.0, -2.0) is %f.", $hypot(zero, -2.0));
|
|
$display("The distance to ( inf, 0.0) is %f.", $hypot(inf, zero));
|
|
$display("The distance to ( 0.0, inf) is %f.", $hypot(zero, inf));
|
|
$display("The distance to ( -inf, 0.0) is %f.", $hypot(minf, zero));
|
|
$display("The distance to ( nan, 0.0) is %f.", $abs($hypot(nan, zero)));
|
|
$display("The distance to ( 0.0, nan) is %f.", $abs($hypot(zero, nan)));
|
|
end
|
|
endtask
|
|
|
|
// Task to check the mathematical constants.
|
|
task check_constants;
|
|
begin
|
|
$display("--- Checking the mathematical constants ---");
|
|
$display(" Pi is %.16f.", `M_PI);
|
|
$display(" 2*Pi is %.16f.", `M_TWO_PI);
|
|
$display(" Pi/2 is %.16f.", `M_PI_2);
|
|
$display(" Pi/4 is %.16f.", `M_PI_4);
|
|
$display(" 1/Pi is %.16f.", `M_1_PI);
|
|
$display(" 2/Pi is %.16f.", `M_2_PI);
|
|
$display("2/sqrt(Pi) is %.16f.", `M_2_SQRTPI);
|
|
$display(" e is %.16f.", `M_E);
|
|
$display(" log2(e) is %.16f.", `M_LOG2E);
|
|
$display(" log10(e) is %.16f.", `M_LOG10E);
|
|
$display(" loge(2) is %.16f.", `M_LN2);
|
|
$display(" loge(10) is %.16f.", `M_LN10);
|
|
$display(" sqrt(2) is %.16f.", `M_SQRT2);
|
|
$display(" 1/sqrt(2) is %.16f.", `M_SQRT1_2);
|
|
end
|
|
endtask
|
|
endmodule
|