SF.net SVN: fricas:[2627] trunk/src/input
0 views
Skip to first unread message
wheb...@users.sourceforge.net
Mar 2, 2020, 10:15:01 AM3/2/20
to fricas...@googlegroups.com
Revision: 2627
http://sourceforge.net/p/fricas/code/2627
Author: whebisch
Date: 2020-03-02 15:14:55 +0000 (Mon, 02 Mar 2020)
Log Message:
-----------
Delete unused or redundant tests
Modified Paths:
--------------
trunk/src/input/calculus2.input
Removed Paths:
-------------
trunk/src/input/ndftip.input
trunk/src/input/nepip.input
trunk/src/input/noptip.input
trunk/src/input/nqip.input
trunk/src/input/nsfip.input
Modified: trunk/src/input/calculus2.input
===================================================================
--- trunk/src/input/calculus2.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/calculus2.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -93,19 +93,6 @@
differentiate(g, y)
differentiate(g, [y, y, x, x])
--- Input for page SeriesFormulaPage
-)clear all
-
-taylor(n +-> 1/factorial(n),x = 0)
-taylor(n +-> (-1)^(n-1)/n,x = 1,1..)
-taylor(n +-> (-1)^(n-1)/n,x = 1,1..7)
-laurent(n +-> (-1)^(n-1)/(n + 2),x = 1,-1..)
-puiseux(i +-> (-1)^((i-1)/2)/factorial(i),x = 0,1..,2)
-puiseux(j +-> j^2,x = 8,-4/3..,1/2)
-series(n +-> 1/factorial(n),x = 0)
-series(n +-> (-1)^(n - 1)/(n + 2),x = 1,-1..)
-series(i +-> (-1)^((i - 1)/2)/factorial(i),x = 0,1..,2)
-
-- Input for page SeriesCreationPage
)clear all
Deleted: trunk/src/input/ndftip.input
===================================================================
--- trunk/src/input/ndftip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/ndftip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,337 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1996.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities. Those results not converted will, of
--- course, then be displayed to 6 s.f.
-
-
-outputGeneral 6
-
-seqA := [0.34907,0.54890,0.74776,0.94459,1.1385,1.3285,1.5137];
-
-seqB := [0.34907 - 0.37168*%i, _
- 0.54890 - 0.35669*%i, _
- 0.74776 - 0.31175*%i, _
- 0.94459 - 0.23702*%i, _
- 1.13850 - 0.13274*%i, _
- 1.32850 + 0.00074*%i, _
- 1.51370 + 0.16298*%i];
-
-hseqC : PackedHermitianSequence DoubleFloat
-hseqC := packHS [0.34907, _
- 0.54890 + %i*1.51370, _
- 0.74776 + %i*1.32850, _
- 0.94459 + %i*1.13850, _
- 0.94459 - %i*1.13850, _
- 0.74776 - %i*1.32850, _
- 0.54890 - %i*1.51370];
-
-seqsD : List Vector DoubleFloat;
-seqsD := [vector [0.3854, 0.6772, 0.1138, 0.6751, 0.6362, 0.1424], _
- vector [0.5417, 0.2983, 0.1181, 0.7255, 0.8638, 0.8723], _
- vector [0.9172, 0.0644, 0.6037, 0.6430, 0.0428, 0.4815]];
-
-seqsE : List PackedHermitianSequence DoubleFloat;
-seqsE := [pHS [0.3854, 0.6772, 0.1138, 0.6751, 0.6362, 0.1424], _
- pHS [0.5417, 0.2983, 0.1181, 0.7255, 0.8638, 0.8723], _
- pHS [0.9172, 0.0644, 0.6037, 0.6430, 0.0428, 0.4815]];
-
-seqsF : List Vector Complex DoubleFloat
-seqsF := [vector [0.3854 + 0.5417*%i, 0.6772 + 0.2983*%i, _
- 0.1138 + 0.1181*%i, 0.6751 + 0.7255*%i, _
- 0.6362 + 0.8638*%i, 0.1424 + 0.8723*%i], _
- vector [0.9172 + 0.9089*%i, 0.0644 + 0.3118*%i, _
- 0.6037 + 0.3465*%i, 0.6430 + 0.6198*%i, _
- 0.0428 + 0.2668*%i, 0.4815 + 0.1614*%i], _
- vector [0.1156 + 0.6214*%i, 0.0685 + 0.8681*%i, _
- 0.2060 + 0.7060*%i, 0.8630 + 0.8652*%i, _
- 0.6967 + 0.9190*%i, 0.2792 + 0.3355*%i]];
-
--- test 1
-
-dftA := nagDFT seqA;
-dftA :: Vector Complex Float :: Matrix Complex Float
- -- Matrix to force display as a column,
- -- Float to allow outputGeneral to work.
-
--- + 2.48361 +
--- | |
--- |- 0.265985 + 0.530898 %i |
--- | |
--- |- 0.257682 + 0.202979 %i |
--- | |
--- |- 0.256363 + 0.0580623 %i|
--- | |
--- |- 0.256363 - 0.0580623 %i|
--- | |
--- |- 0.257682 - 0.202979 %i |
--- | |
--- +- 0.265985 - 0.530898 %i +
-
--- test 2
-
-nagInverseDFT dftA :: Vector Float
-
--- [0.34907,0.5489,0.74776,0.94459,1.1385,1.3285,1.5137]
-
--- test 3
-
-dftB := nagDFT seqB;
-dftB :: Vector Complex Float :: Matrix Complex Float
-
--- + 2.48361 - 0.471004 %i +
--- | |
--- | - 0.5518 + 0.496841 %i |
--- | |
--- |- 0.367113 + 0.0975621 %i|
--- | |
--- |- 0.287669 - 0.0586476 %i|
--- | |
--- |- 0.225057 - 0.174772 %i |
--- | |
--- |- 0.148251 - 0.308396 %i |
--- | |
--- + 0.0198297 - 0.564956 %i +
-
--- test 4
-
-(nagInverseDFT dftB) :: Vector Complex Float :: Matrix Complex Float
-
--- +0.34907 - 0.37168 %i+
--- | |
--- |0.5489 - 0.35669 %i |
--- | |
--- |0.74776 - 0.31175 %i|
--- | |
--- |0.94459 - 0.23702 %i|
--- | |
--- |1.1385 - 0.13274 %i |
--- | |
--- |1.3285 + 0.00074 %i |
--- | |
--- +1.5137 + 0.16298 %i +
-
--- test 5
-
-hdftA := nagHermitianDFT seqA;
-(expand hdftA) :: Vector Complex Float :: Matrix Complex Float
-
--- + 2.48361 +
--- | |
--- |- 0.265985 + 0.530898 %i |
--- | |
--- |- 0.257682 + 0.202979 %i |
--- | |
--- |- 0.256363 + 0.0580623 %i|
--- | |
--- |- 0.256363 - 0.0580623 %i|
--- | |
--- |- 0.257682 - 0.202979 %i |
--- | |
--- +- 0.265985 - 0.530898 %i +
-
--- test 6
-
-(nagInverseDFT hdftA) :: Vector Float
-
--- [0.34907,0.5489,0.74776,0.94459,1.1385,1.3285,1.5137]
-
--- test 7
-
-dftC := nagDFT hseqC;
-dftC :: Vector Float
-
--- [1.82616,1.86862,- 0.017503,0.502001,- 0.598725,- 0.0314404,- 2.62557]
-
--- test 8
-
-(nagInverseDFT dftC) :: Vector Complex Float
-
--- [0.34907, 0.5489 + 1.5137 %i, 0.74776 + 1.3285 %i, 0.94459 + 1.1385 %i,
--- 0.94459 - 1.1385 %i, 0.74776 - 1.3285 %i, 0.5489 - 1.5137 %i]
-
--- test 9
-
-nagHermitianInverseDFT dftC
-
--- [0.34907000000000005, 0.54889999999999983, 0.74775999999999987,
--- 0.94459000000000004, 1.1385000000000003, 1.3284999999999998,
--- 1.5136999999999998]
-
--- test 10:
-
-dftsD := nagDFT seqsD;
-
-dftsD :: List Vector Complex Float
-
--- [
--- [1.07373, - 0.104062 - 0.00438406 %i, 0.112554 - 0.373777 %i, - 0.146684,
--- 0.112554 + 0.373777 %i, - 0.104062 + 0.00438406 %i]
--- ,
-
--- [1.39609, - 0.0365178 + 0.466584 %i, 0.077955 - 0.0607051 %i, - 0.152072,
--- 0.077955 + 0.0607051 %i, - 0.0365178 - 0.466584 %i]
--- ,
-
--- [1.12374, 0.0914068 - 0.050841 %i, 0.393551 + 0.345775 %i, 0.153011,
--- 0.393551 - 0.345775 %i, 0.0914068 + 0.050841 %i]
--- ]
-
--- test 11:
-
-invdftsD := nagInverseDFT dftsD ;
-invdftsD :: List Vector Complex Float
-
--- [[0.3854,0.6772,0.1138,0.6751,0.6362,0.1424],
--- [0.5417,0.2983,0.1181,0.7255,0.8638,0.8723],
--- [0.9172,0.0644,0.6037,0.643,0.0428,0.4815]]
-
--- test 12:
-
-dftsE := nagDFT seqsE;
-dftsE :: List Vector Float
-
--- [[1.0788,0.662291,- 0.239146,- 0.578284,0.459192,- 0.438816],
--- [0.857321,1.22614,0.353348,- 0.222169,0.341327,- 1.22908],
--- [1.18245,0.262509,0.674406,0.552278,0.0539906,- 0.478963]]
-
--- test 13:
-
-invdftsE := nagInverseDFT dftsE;
-invdftsE :: List Vector Complex Float
-
--- [
--- [0.3854, 0.6772 + 0.1424 %i, 0.1138 + 0.6362 %i, 0.6751,
--- 0.1138 - 0.6362 %i, 0.6772 - 0.1424 %i]
--- ,
-
--- [0.5417, 0.2983 + 0.8723 %i, 0.1181 + 0.8638 %i, 0.7255,
--- 0.1181 - 0.8638 %i, 0.2983 - 0.8723 %i]
--- ,
-
--- [0.9172, 0.0644 + 0.4815 %i, 0.6037 + 0.0428 %i, 0.643,
--- 0.6037 - 0.0428 %i, 0.0644 - 0.4815 %i]
--- ]
-
--- test 14:
-
-hdftsD := nagHermitianDFT seqsD;
-map(expand,hdftsD) :: List Vector Complex Float
-
--- [
--- [1.07373, - 0.104062 - 0.00438406 %i, 0.112554 - 0.373777 %i, - 0.146684,
--- 0.112554 + 0.373777 %i, - 0.104062 + 0.00438406 %i]
--- ,
-
--- [1.39609, - 0.0365178 + 0.466584 %i, 0.077955 - 0.0607051 %i, - 0.152072,
--- 0.077955 + 0.0607051 %i, - 0.0365178 - 0.466584 %i]
--- ,
-
--- [1.12374, 0.0914068 - 0.050841 %i, 0.393551 + 0.345775 %i, 0.153011,
--- 0.393551 - 0.345775 %i, 0.0914068 + 0.050841 %i]
--- ]
-
--- test 15:
-
-(nagInverseDFT hdftsD) :: List Vector Float
-
--- [[0.3854,0.6772,0.1138,0.6751,0.6362,0.1424],
--- [0.5417,0.2983,0.1181,0.7255,0.8638,0.8723],
--- [0.9172,0.0644,0.6037,0.643,0.0428,0.4815]]
-
--- test 16:
-
-dftsF := nagDFT seqsF;
-dftsF :: List Vector Complex Float
-
--- [
--- [1.07373 + 1.39609 %i, - 0.570647 - 0.0409019 %i, 0.173259 - 0.295822 %i,
--- - 0.146684 - 0.152072 %i, 0.0518489 + 0.451732 %i,
--- 0.362522 - 0.0321337 %i]
--- ,
-
--- [1.12374 + 1.06765 %i, 0.172759 + 0.0385858 %i, 0.418548 + 0.748083 %i,
--- 0.153011 + 0.17522 %i, 0.368555 + 0.0565331 %i, 0.0100542 + 0.140268 %i]
--- ,
-
--- [0.909985 + 1.76167 %i, - 0.305418 + 0.0624335 %i,
--- 0.407884 - 0.0694786 %i, - 0.078547 + 0.0725049 %i,
--- - 0.119334 + 0.128511 %i, - 0.531409 - 0.433531 %i]
--- ]
-
--- test 17:
-
-invdftsF := nagInverseDFT dftsF ;
-invdftsF :: List Vector Complex Float
-
--- [
--- [0.3854 + 0.5417 %i, 0.6772 + 0.2983 %i, 0.1138 + 0.1181 %i,
--- 0.6751 + 0.7255 %i, 0.6362 + 0.8638 %i, 0.1424 + 0.8723 %i]
--- ,
-
--- [0.9172 + 0.9089 %i, 0.0644 + 0.3118 %i, 0.6037 + 0.3465 %i,
--- 0.643 + 0.6198 %i, 0.0428 + 0.2668 %i, 0.4815 + 0.1614 %i]
--- ,
-
--- [0.1156 + 0.6214 %i, 0.0685 + 0.8681 %i, 0.206 + 0.706 %i,
--- 0.863 + 0.8652 %i, 0.6967 + 0.919 %i, 0.2792 + 0.3355 %i]
--- ]
-
--- test 18:
-
-nagHermitianInverseDFT dftsE
-
--- [
--- [0.38540000000000013, 0.67720000000000025, 0.11380000000000001,
--- 0.67510000000000014, 0.63620000000000021, 0.14240000000000003]
--- ,
-
--- [0.54170000000000018, 0.29830000000000012, 0.1181, 0.72550000000000014,
--- 0.86380000000000023, 0.87230000000000019]
--- ,
-
--- [0.91720000000000035, 0.064399999999999999, 0.60370000000000024,
--- 0.64300000000000013, 0.042799999999999991, 0.48150000000000015]
--- ]
-
--- error tests:
-
--- test 19:
-
-nagDFT [vector [0.3854 + 0.5417*%i, 0.6772 + 0.2983*%i, _
- 0.1138 + 0.1181*%i, 0.6751 + 0.7255*%i, _
- 0.6362 + 0.8638*%i, 0.1424 + 0.8723*%i], _
- vector [0.1156 + 0.6214*%i, 0.0685 + 0.8681*%i, _
- 0.6967 + 0.9190*%i, 0.2792 + 0.3355*%i]]
-
--- Error signalled from user code:
--- The data sequences in nagDFT must all have the same length. The
--- length of sequence 1 is 6 that of sequence 2 is 4.
-
--- test 20:
-
-nagHermitianDFT [vector [0.3854, 0.6751, 0.6362, 0.1424], _
- vector [0.5417, 0.7255, 0.8638, 0.8723], _
- vector [0.9172, 0.0428, 0.4815]]
-
--- Error signalled from user code:
--- The data sequences in nagHermitianDFT must all have the same
--- length. The length of sequence 1 is 4 that of sequence 3 is 3.
-
--- test 21:
-
-badSeqs : List PackedHermitianSequence DoubleFloat
-badSeqs := [pHS [0.3854, 0.1138, 0.6751, 0.6362, 0.1424], _
- pHS [0.5417, 0.2983, 0.1181, 0.7255, 0.8638, 0.8723], _
- pHS [0.9172, 0.0644, 0.6037, 0.6430, 0.0428, 0.4815]];
-
-nagDFT badSeqs
-
--- Error signalled from user code:
--- The data sequences in nagDFT must all have the same length. The
--- length of sequence 1 is 5 that of sequence 2 is 6.
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/nepip.input
===================================================================
--- trunk/src/input/nepip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/nepip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,131 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1996.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-outputGeneral 5
-
-mA1 := matrix [[ 0.5 , 1.5 , 6.6 , 4.8], _
- [ 1.5 , 6.5 , 16.2 , 8.6], _
- [ 6.6 , 16.2 , 37.6 , 9.8], _
- [ 4.8 , 8.6 , 9.8 , -17.1]];
-
-mB1 := matrix[[ 1 , 3 , 4 , 1], _
- [ 3 , 13 , 16 , 11], _
- [ 4 , 16 , 24 , 18], _
- [ 1 , 11 , 18 , 27]];
-
-mA2 := matrix [[ 3.9 , 12.5 , -34.5 , -0.5], _
- [ 4.3 , 21.5 , -47.5 , 7.5], _
- [ 4.3 , 21.5 , -43.5 , 3.5], _
- [ 4.4 , 26.0 , -46.0 , 6.0]];
-
-mB2 := matrix[[ 1 , 2 , -3 , 1], _
- [ 1 , 3 , -5 , 4], _
- [ 1 , 3 , -4 , 3], _
- [ 1 , 3 , -4 , 4]];
-
-nagEigenvalues(mA1,mB1) :: List Float
-
--- [- 3.0,- 1.0,2.0,4.0]
-
-vv1 := nagEigenvectors(mA1,mB1);
-(vv1.eigenvalues) :: List Float
-
--- [- 3.0,- 1.0,2.0,4.0]
-
-(vv1.eigenvectors) :: List Vector Complex Float
-
--- [[- 4.35,0.05,1.0,- 0.5], [- 2.05,0.15,0.5,- 0.5], [- 3.95,0.85,0.5,- 0.5],
--- [2.65,0.05,- 1.0,0.5]]
-
-nagEigenvalues(mA2,mB2)
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [2.0,3.0 + 4.0 %i,3.0 - 4.0 %i,4.0]
-
-vv2 := nagEigenvectors(mA2,mB2);
-vv2.eigenvalues
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [2.0,3.0 + 4.0 %i,3.0 - 4.0 %i,4.0]
-
-vv2.eigenvectors :: List Vector Complex Float
-
--- [[0.99606,0.0056917,0.062609,0.062609],
---
--- [0.94491, 0.18898 + 0.26077 E -14 %i, 0.11339 - 0.15119 %i,
--- 0.11339 - 0.15119 %i]
--- ,
---
--- [0.94491, 0.18898 - 0.26077 E -14 %i, 0.11339 + 0.15119 %i,
--- 0.11339 + 0.15119 %i]
--- ,
--- [0.98752,0.010972,- 0.032917,0.15361]]
-
--- The same call with eps=0.0001:
-
-vv2a := nagEigenvectors(mA2,mB2,0.0001);
-vv2a.eigenvalues :: List Complex Float
-
--- [1.9989,3.0003 + 3.9994 %i,3.0003 - 3.9994 %i,4.0]
-
-vv2a.eigenvectors :: List Vector Complex Float
-
--- [[0.99605,0.0057355,0.062656,0.062656],
---
--- [0.94491, 0.18899 - 0.000048882 %i, 0.11336 - 0.15119 %i,
--- 0.11336 - 0.15119 %i]
--- ,
---
--- [0.94491, 0.18899 + 0.000048882 %i, 0.11336 + 0.15119 %i,
--- 0.11336 + 0.15119 %i]
--- ,
--- [0.98751,0.011031,- 0.032912,0.15367]]
-
-mB1(1,1) := -1;
-
--- The next test should fail on F02ADF then call F02BJF:
-
-nagEigenvalues(mA1,mB1)
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [3.5016,- 1.5471,0.041212 + 0.21738 %i,0.041212 - 0.21738 %i]
-
--- Similarly, this should fail on F02AEF then call F02BJF:
-
-vv3 := nagEigenvectors(mA1,mB1);
-vv3.eigenvalues
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [3.5016,- 1.5471,0.041212 + 0.21738 %i,0.041212 - 0.21738 %i]
-
-vv3.eigenvectors :: List Vector Complex Float
-
--- [[- 0.034577,0.63045,- 0.75202,0.1892],
--- [0.17876,- 0.73845,0.047413,0.64845],
---
--- [0.80838, - 0.00095133 + 0.47557 %i, - 0.20354 - 0.21737 %i,
--- 0.15404 + 0.089179 %i]
--- ,
---
--- [0.80838, - 0.00095133 - 0.47557 %i, - 0.20354 + 0.21737 %i,
--- 0.15404 - 0.089179 %i]
--- ]
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/noptip.input
===================================================================
--- trunk/src/input/noptip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/noptip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,18 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1994.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-
-outputGeneral 5
-
-f := %e^x*(4*x^2 + 2*y^2 + 4*x*y + 2*y + 1);
-start := [x=-1.0, y=1.0];
-nagMin(f,start) :: List Equation Polynomial Float
-
--- [x= 0.5,y= - 1.0]
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/nqip.input
===================================================================
--- trunk/src/input/nqip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/nqip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,50 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1996.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-
-outputGeneral 5
-
-xvals := [0.00,0.04,0.08,0.12,0.22,0.26,0.30,0.38,0.39,0.42,0.45,
- 0.46,0.60,0.68,0.72,0.73,0.83,0.85,0.88,0.90,1.00];
-
-yvals := [4.0000,3.9936,3.9746,3.9432,3.8135,3.7467,3.6697,3.4943,
- 3.4719,3.4002,3.3264,3.3017,2.9412,2.7352,2.6344,
- 2.6094,2.3684,2.3222,2.2543,2.2099,2.0000];
-
-result := nagPolygonIntegrate(xvals,yvals);
-result.integral :: Float
-
--- 3.1414
-
-result.errorEstimate :: Float
-
--- - 0.000025627
-
-coords := transpose matrix [xvals, yvals];
-result := nagPolygonIntegrate coords;
-result.integral :: Float
-
--- 3.1414
-
-result.errorEstimate :: Float
-
--- - 0.000025627
-
-nagPolygonIntegrate([1,2,3],[1,2,3,4])
-
--- Error signalled from user code:
--- The lists supplied to nagPolygonIntegrate are of different
--- lengths: 3 and 4.
-
-nagPolygonIntegrate([[1,2,3],[4,5,6]])
-
--- Error signalled from user code:
--- Please supply the coordinate matrix in nagPolygonIntegrate with
--- each row consisting of single a x-y pair.
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/nsfip.input
===================================================================
--- trunk/src/input/nsfip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/nsfip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,685 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1994.
-
--- Note that the conversions of Results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-
-outputGeneral 4
-
--- DF here means DoubleFloat.
--- Results converted to Float as outputGeneral not working on DF.
-
--- nagExpInt : DF -> DF ;
-
-nagExpInt(2) :: Float
-
--- 0.0489
-
-nagExpInt(-1) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S13AAF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S13AAF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
--- nagSinInt : DF -> DF ;
-
-nagSinInt(0) :: Float
-
--- 0.0
-
-nagSinInt(0.2) :: Float
-
--- 0.1996
-
-nagSinInt(0.4) :: Float
-
--- 0.3965
-
-nagSinInt(0.6) :: Float
-
--- 0.5881
-
-nagSinInt(0.8) :: Float
-
--- 0.7721
-
-nagSinInt(1) :: Float
-
--- 0.9461
-
--- nagCosInt : DF -> DF ;
-
-nagCosInt(0.2) :: Float
-
--- - 1.042
-
-nagCosInt(0.4) :: Float
-
--- - 0.3788
-
-nagCosInt(0.6) :: Float
-
--- - 0.02227
-
-nagCosInt(0.8) :: Float
-
--- 0.1983
-
-nagCosInt(1) :: Float
-
--- 0.3374
-
--- nagIncompleteGammaP : (DF, DF) -> DF ; (to machine precision)
-
-nagIncompleteGammaP(2,3) :: Float
-
--- 0.8009
-
-nagIncompleteGammaP(7,1) :: Float
-
--- 0.00008324
-
-nagIncompleteGammaP(0.5,99) :: Float
-
--- 1.0
-
-nagIncompleteGammaP(20,21) :: Float
-
--- 0.6157
-
-nagIncompleteGammaP(21,20) :: Float
-
--- 0.4409
-
--- nagIncompleteGammaP : (DF, DF, DF) -> DF ; (to specified precision)
-
-nagIncompleteGammaP(7,1,0.1) :: Float
-
--- 0.00008313
-
--- nagIncompleteGammaQ : (DF, DF) -> DF ; (to machine precision)
-
-nagIncompleteGammaQ(2,3) :: Float
-
--- 0.1991
-
-nagIncompleteGammaQ(7,1) :: Float
-
--- 0.9999
-
-nagIncompleteGammaQ(0.5,99) :: Float
-
--- 0.5705 E -44
-
-nagIncompleteGammaQ(20,21) :: Float
-
--- 0.3843
-
-nagIncompleteGammaQ(21,20) :: Float
-
--- 0.5591
-
-nagIncompleteGammaQ(25,14) :: Float
-
--- 0.995
-
--- nagIncompleteGammaQ : (DF, DF, DF) -> DF ; (to specified precision)
-
-nagIncompleteGammaQ(25,14,0.1) :: Float
-
--- 0.9953
-
--- nagErf : DF -> DF ;
-
-nagErf(-6) :: Float
-
--- - 1.0
-
-nagErf(-4.5) :: Float
-
--- - 1.0
-
-nagErf(-1) :: Float
-
--- - 0.8427
-
-nagErf(1) :: Float
-
--- 0.8427
-
-nagErf(4.5) :: Float
-
--- 1.0
-
-nagErf(6) :: Float
-
--- 1.0
-
--- nagErfC : DF -> DF ;
-
-nagErfC(-10) :: Float
-
--- 2.0
-
-nagErfC(-1) :: Float
-
--- 1.843
-
-nagErfC(0) :: Float
-
--- 1.0
-
-nagErfC(1) :: Float
-
--- 0.1573
-
-nagErfC(15) :: Float
-
--- 0.7213 E -99
-
--- nagDAiryAi : DF -> DF ;
-
-nagDAiryAi(-10) :: Float
-
--- 0.9963
-
-nagDAiryAi(-1) :: Float
-
--- - 0.01016
-
-nagDAiryAi(0) :: Float
-
--- - 0.2588
-
-nagDAiryAi(1) :: Float
-
--- - 0.1591
-
-nagDAiryAi(5) :: Float
-
--- - 0.0002474
-
-nagDAiryAi(10) :: Float
-
--- - 0.3521 E -9
-
-nagDAiryAi(20) :: Float
-
--- - 0.7586 E -26
-
--- nagDAiryAi : CDF -> CDF ;
-
-nagDAiryAi(0.3+0.4*%i) :: Complex Float
-
--- - 0.2612 + 0.03848 %i
-
--- nagDAiryBi : DF -> DF ;
-
-nagDAiryBi(-10) :: Float
-
--- 0.1194
-
-nagDAiryBi(-1) :: Float
-
--- 0.5924
-
-nagDAiryBi(0) :: Float
-
--- 0.4483
-
-nagDAiryBi(1) :: Float
-
--- 0.9324
-
-nagDAiryBi(5) :: Float
-
--- 1436.0
-
-nagDAiryBi(10) :: Float
-
--- 0.1429 E 10
-
-nagDAiryBi(20) :: Float
-
--- 0.9382 E 26
-
--- nagDAiryBi : CDF -> CDF ;
-
-nagDAiryBi(0.3+0.4*%i) :: Complex Float
-
--- 0.4093 + 0.07966 %i
-
--- nagScaledDAiryAi : CDF -> CDF ;
-
-nagScaledDAiryAi(0.3+0.4*%i) :: Complex Float
-
--- - 0.2744 - 0.02356 %i
-
--- nagScaledDAiryBi : CDF -> CDF ;
-
-nagScaledDAiryBi(0.3+0.4*%i) :: Complex Float
-
--- 0.3924 + 0.07638 %i
-
--- nagHankelH1 : (DF, CDF, Int) -> List CDF ;
-
-nagHankelH1(0,0.3+0.4*%i,2) :: Matrix Complex Float
-
--- [0.3466 - 0.5588 %i - 0.7912 - 0.8178 %i]
-
-nagHankelH1(2.3,2,2) :: Matrix Complex Float
-
--- [0.2721 - 0.7398 %i 0.08902 - 1.412 %i]
-
-nagHankelH1(2.12,-1,2) :: Matrix Complex Float
-
--- [- 0.7722 - 1.693 %i 2.601 + 6.527 %i]
-
--- nagHankelH2 : (DF, CDF, Int) -> List CDF ;
-
-nagHankelH2(6,3.1-1.6*%i,2) :: Matrix Complex Float
-
--- [- 1.371 - 1.28 %i - 1.491 - 5.993 %i]
-
--- nagScaledHankelH1 : (DF, CDF, Int) -> List CDF ;
-
-nagScaledHankelH1(0,0.3+0.4*%i,2) :: Matrix Complex Float
-
--- [0.2477 - 0.9492 %i - 1.488 - 0.8166 %i]
-
--- nagScaledHankelH2 : (DF, CDF, Int) -> List CDF ;
-
-nagScaledHankelH2(6,3.1-1.6*%i,2) :: Matrix Complex Float
-
--- [7.05 + 6.052 %i 8.614 + 29.35 %i]
-
--- nagKelvinBer : DF -> DF ;
-
-nagKelvinBer(0.1) :: Float
-
--- 1.0
-
-nagKelvinBer(1) :: Float
-
--- 0.9844
-
-nagKelvinBer(2.5) :: Float
-
--- 0.4
-
-nagKelvinBer(5) :: Float
-
--- - 6.23
-
-nagKelvinBer(10) :: Float
-
--- 138.8
-
-nagKelvinBer(15) :: Float
-
--- - 2967.0
-
-nagKelvinBer(60) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19AAF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19AAF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinBer(-1) :: Float
-
--- 0.9844
-
--- nagKelvinBei : DF -> DF ;
-
-nagKelvinBei(0.1) :: Float
-
--- 0.0025
-
-nagKelvinBei(1) :: Float
-
--- 0.2496
-
-nagKelvinBei(2.5) :: Float
-
--- 1.457
-
-nagKelvinBei(5) :: Float
-
--- 0.116
-
-nagKelvinBei(10) :: Float
-
--- 56.37
-
-nagKelvinBei(15) :: Float
-
--- - 2953.0
-
-nagKelvinBei(60) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ABF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ABF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinBei(-1) :: Float
-
--- 0.2496
-
--- nagKelvinKer : DF -> DF ;
-
-nagKelvinKer(0) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ACF: IFAIL = 2
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ACF. The error number (IFAIL value) is 2, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinKer(0.1) :: Float
-
--- 2.42
-
-nagKelvinKer(1) :: Float
-
--- 0.2867
-
-nagKelvinKer(2.5) :: Float
-
--- - 0.06969
-
-nagKelvinKer(5) :: Float
-
--- - 0.01151
-
-nagKelvinKer(10) :: Float
-
--- 0.0001295
-
-nagKelvinKer(15) :: Float
-
--- - 0.1514 E -7
-
-nagKelvinKer(1100) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ACF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ACF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinKer(-1) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ACF: IFAIL = 2
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ACF. The error number (IFAIL value) is 2, please consult the
--- NAG manual via the Browser for diagnostic information.
-
--- nagKelvinKei : DF -> DF ;
-
-nagKelvinKei(0) :: Float
-
--- - 0.7854
-
-nagKelvinKei(0.1) :: Float
-
--- - 0.7769
-
-nagKelvinKei(1) :: Float
-
--- - 0.495
-
-nagKelvinKei(2.5) :: Float
-
--- - 0.1107
-
-nagKelvinKei(5) :: Float
-
--- 0.01119
-
-nagKelvinKei(10) :: Float
-
--- - 0.0003075
-
-nagKelvinKei(15) :: Float
-
--- 0.000007963
-
-nagKelvinKei(1100) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ADF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ADF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinKei(-1) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ADF: IFAIL = 2
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ADF. The error number (IFAIL value) is 2, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-
--- nagFresnelS : DF -> DF ;
-
-nagFresnelS(0) :: Float
-
--- 0.0
-
-nagFresnelS(0.5) :: Float
-
--- 0.06473
-
-nagFresnelS(1) :: Float
-
--- 0.4383
-
-nagFresnelS(2) :: Float
-
--- 0.3434
-
-nagFresnelS(4) :: Float
-
--- 0.4205
-
-nagFresnelS(5) :: Float
-
--- 0.4992
-
-nagFresnelS(6) :: Float
-
--- 0.447
-
-nagFresnelS(8) :: Float
-
--- 0.4602
-
-nagFresnelS(10) :: Float
-
--- 0.4682
-
-nagFresnelS(-1) :: Float
-
--- - 0.4383
-
-nagFresnelS(1000) :: Float
-
--- 0.4997
-
--- nagFresnelC : DF -> DF ;
-
-nagFresnelC(0) :: Float
-
--- 0.0
-
-nagFresnelC(0.5) :: Float
-
--- 0.4923
-
-nagFresnelC(1) :: Float
-
--- 0.7799
-
-nagFresnelC(2) :: Float
-
--- 0.4883
-
-nagFresnelC(4) :: Float
-
--- 0.4984
-
-nagFresnelC(5) :: Float
-
--- 0.5636
-
-nagFresnelC(6) :: Float
-
--- 0.4995
-
-nagFresnelC(8) :: Float
-
--- 0.4998
-
-nagFresnelC(10) :: Float
-
--- 0.4999
-
-nagFresnelC(-1) :: Float
-
--- - 0.7799
-
-nagFresnelC(1000) :: Float
-
--- 0.5
-
--- nagEllipticIntegralRC : (DF, DF) -> DF ;
-
-nagEllipticIntegralRC(0.5,1) :: Float
-
--- 1.111
-
-nagEllipticIntegralRC(1,1) :: Float
-
--- 1.0
-
-nagEllipticIntegralRC(1.5,1) :: Float
-
--- 0.9312
-
--- nagEllipticIntegralRD : (DF, DF, DF) -> DF ;
-
-nagEllipticIntegralRD(0.5,0.5,1) :: Float
-
--- 1.479
-
-nagEllipticIntegralRD(0.5,1,1) :: Float
-
--- 1.211
-
-nagEllipticIntegralRD(0.5,1.5,1) :: Float
-
--- 1.061
-
-nagEllipticIntegralRD(1,1,1) :: Float
-
--- 1.0
-
-nagEllipticIntegralRD(1,1.5,1) :: Float
-
--- 0.8805
-
-nagEllipticIntegralRD(1.5,1.5,1) :: Float
-
--- 0.7775
-
--- nagEllipticIntegralRF : (DF, DF, DF) -> DF ;
-
-nagEllipticIntegralRF(0.5,1,1.5) :: Float
-
--- 1.028
-
-nagEllipticIntegralRF(1,1.5,2) :: Float
-
--- 0.826
-
-nagEllipticIntegralRF(1.5,2,2.5) :: Float
-
--- 0.7116
-
--- nagEllipticIntegralRJ : (DF, DF, DF, DF) -> DF ;
-
-nagEllipticIntegralRJ(0.5,0.5,0.5,2) :: Float
-
--- 1.118
-
-nagEllipticIntegralRJ(0.5,0.5,1,2) :: Float
-
--- 0.9221
-
-nagEllipticIntegralRJ(0.5,0.5,1.5,2) :: Float
-
--- 0.8115
-
-nagEllipticIntegralRJ(0.5,1,1,2) :: Float
-
--- 0.7671
-
-nagEllipticIntegralRJ(0.5,1,1.5,2) :: Float
-
--- 0.6784
-
-nagEllipticIntegralRJ(0.5,1.5,1.5,2) :: Float
-
--- 0.6017
-
-nagEllipticIntegralRJ(1,1,1,2) :: Float
-
--- 0.6438
-
-nagEllipticIntegralRJ(1,1,1.5,2) :: Float
-
--- 0.5722
-
-nagEllipticIntegralRJ(1,1.5,1.5,2) :: Float
-
--- 0.5101
-
-nagEllipticIntegralRJ(1.5,1.5,1.5,2) :: Float
-
--- 0.4561
-
-outputGeneral()
-
-output "End of tests"
-
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
http://sourceforge.net/p/fricas/code/2627
Author: whebisch
Date: 2020-03-02 15:14:55 +0000 (Mon, 02 Mar 2020)
Log Message:
-----------
Delete unused or redundant tests
Modified Paths:
--------------
trunk/src/input/calculus2.input
Removed Paths:
-------------
trunk/src/input/ndftip.input
trunk/src/input/nepip.input
trunk/src/input/noptip.input
trunk/src/input/nqip.input
trunk/src/input/nsfip.input
Modified: trunk/src/input/calculus2.input
===================================================================
--- trunk/src/input/calculus2.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/calculus2.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -93,19 +93,6 @@
differentiate(g, y)
differentiate(g, [y, y, x, x])
--- Input for page SeriesFormulaPage
-)clear all
-
-taylor(n +-> 1/factorial(n),x = 0)
-taylor(n +-> (-1)^(n-1)/n,x = 1,1..)
-taylor(n +-> (-1)^(n-1)/n,x = 1,1..7)
-laurent(n +-> (-1)^(n-1)/(n + 2),x = 1,-1..)
-puiseux(i +-> (-1)^((i-1)/2)/factorial(i),x = 0,1..,2)
-puiseux(j +-> j^2,x = 8,-4/3..,1/2)
-series(n +-> 1/factorial(n),x = 0)
-series(n +-> (-1)^(n - 1)/(n + 2),x = 1,-1..)
-series(i +-> (-1)^((i - 1)/2)/factorial(i),x = 0,1..,2)
-
-- Input for page SeriesCreationPage
)clear all
Deleted: trunk/src/input/ndftip.input
===================================================================
--- trunk/src/input/ndftip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/ndftip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,337 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1996.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities. Those results not converted will, of
--- course, then be displayed to 6 s.f.
-
-
-outputGeneral 6
-
-seqA := [0.34907,0.54890,0.74776,0.94459,1.1385,1.3285,1.5137];
-
-seqB := [0.34907 - 0.37168*%i, _
- 0.54890 - 0.35669*%i, _
- 0.74776 - 0.31175*%i, _
- 0.94459 - 0.23702*%i, _
- 1.13850 - 0.13274*%i, _
- 1.32850 + 0.00074*%i, _
- 1.51370 + 0.16298*%i];
-
-hseqC : PackedHermitianSequence DoubleFloat
-hseqC := packHS [0.34907, _
- 0.54890 + %i*1.51370, _
- 0.74776 + %i*1.32850, _
- 0.94459 + %i*1.13850, _
- 0.94459 - %i*1.13850, _
- 0.74776 - %i*1.32850, _
- 0.54890 - %i*1.51370];
-
-seqsD : List Vector DoubleFloat;
-seqsD := [vector [0.3854, 0.6772, 0.1138, 0.6751, 0.6362, 0.1424], _
- vector [0.5417, 0.2983, 0.1181, 0.7255, 0.8638, 0.8723], _
- vector [0.9172, 0.0644, 0.6037, 0.6430, 0.0428, 0.4815]];
-
-seqsE : List PackedHermitianSequence DoubleFloat;
-seqsE := [pHS [0.3854, 0.6772, 0.1138, 0.6751, 0.6362, 0.1424], _
- pHS [0.5417, 0.2983, 0.1181, 0.7255, 0.8638, 0.8723], _
- pHS [0.9172, 0.0644, 0.6037, 0.6430, 0.0428, 0.4815]];
-
-seqsF : List Vector Complex DoubleFloat
-seqsF := [vector [0.3854 + 0.5417*%i, 0.6772 + 0.2983*%i, _
- 0.1138 + 0.1181*%i, 0.6751 + 0.7255*%i, _
- 0.6362 + 0.8638*%i, 0.1424 + 0.8723*%i], _
- vector [0.9172 + 0.9089*%i, 0.0644 + 0.3118*%i, _
- 0.6037 + 0.3465*%i, 0.6430 + 0.6198*%i, _
- 0.0428 + 0.2668*%i, 0.4815 + 0.1614*%i], _
- vector [0.1156 + 0.6214*%i, 0.0685 + 0.8681*%i, _
- 0.2060 + 0.7060*%i, 0.8630 + 0.8652*%i, _
- 0.6967 + 0.9190*%i, 0.2792 + 0.3355*%i]];
-
--- test 1
-
-dftA := nagDFT seqA;
-dftA :: Vector Complex Float :: Matrix Complex Float
- -- Matrix to force display as a column,
- -- Float to allow outputGeneral to work.
-
--- + 2.48361 +
--- | |
--- |- 0.265985 + 0.530898 %i |
--- | |
--- |- 0.257682 + 0.202979 %i |
--- | |
--- |- 0.256363 + 0.0580623 %i|
--- | |
--- |- 0.256363 - 0.0580623 %i|
--- | |
--- |- 0.257682 - 0.202979 %i |
--- | |
--- +- 0.265985 - 0.530898 %i +
-
--- test 2
-
-nagInverseDFT dftA :: Vector Float
-
--- [0.34907,0.5489,0.74776,0.94459,1.1385,1.3285,1.5137]
-
--- test 3
-
-dftB := nagDFT seqB;
-dftB :: Vector Complex Float :: Matrix Complex Float
-
--- + 2.48361 - 0.471004 %i +
--- | |
--- | - 0.5518 + 0.496841 %i |
--- | |
--- |- 0.367113 + 0.0975621 %i|
--- | |
--- |- 0.287669 - 0.0586476 %i|
--- | |
--- |- 0.225057 - 0.174772 %i |
--- | |
--- |- 0.148251 - 0.308396 %i |
--- | |
--- + 0.0198297 - 0.564956 %i +
-
--- test 4
-
-(nagInverseDFT dftB) :: Vector Complex Float :: Matrix Complex Float
-
--- +0.34907 - 0.37168 %i+
--- | |
--- |0.5489 - 0.35669 %i |
--- | |
--- |0.74776 - 0.31175 %i|
--- | |
--- |0.94459 - 0.23702 %i|
--- | |
--- |1.1385 - 0.13274 %i |
--- | |
--- |1.3285 + 0.00074 %i |
--- | |
--- +1.5137 + 0.16298 %i +
-
--- test 5
-
-hdftA := nagHermitianDFT seqA;
-(expand hdftA) :: Vector Complex Float :: Matrix Complex Float
-
--- + 2.48361 +
--- | |
--- |- 0.265985 + 0.530898 %i |
--- | |
--- |- 0.257682 + 0.202979 %i |
--- | |
--- |- 0.256363 + 0.0580623 %i|
--- | |
--- |- 0.256363 - 0.0580623 %i|
--- | |
--- |- 0.257682 - 0.202979 %i |
--- | |
--- +- 0.265985 - 0.530898 %i +
-
--- test 6
-
-(nagInverseDFT hdftA) :: Vector Float
-
--- [0.34907,0.5489,0.74776,0.94459,1.1385,1.3285,1.5137]
-
--- test 7
-
-dftC := nagDFT hseqC;
-dftC :: Vector Float
-
--- [1.82616,1.86862,- 0.017503,0.502001,- 0.598725,- 0.0314404,- 2.62557]
-
--- test 8
-
-(nagInverseDFT dftC) :: Vector Complex Float
-
--- [0.34907, 0.5489 + 1.5137 %i, 0.74776 + 1.3285 %i, 0.94459 + 1.1385 %i,
--- 0.94459 - 1.1385 %i, 0.74776 - 1.3285 %i, 0.5489 - 1.5137 %i]
-
--- test 9
-
-nagHermitianInverseDFT dftC
-
--- [0.34907000000000005, 0.54889999999999983, 0.74775999999999987,
--- 0.94459000000000004, 1.1385000000000003, 1.3284999999999998,
--- 1.5136999999999998]
-
--- test 10:
-
-dftsD := nagDFT seqsD;
-
-dftsD :: List Vector Complex Float
-
--- [
--- [1.07373, - 0.104062 - 0.00438406 %i, 0.112554 - 0.373777 %i, - 0.146684,
--- 0.112554 + 0.373777 %i, - 0.104062 + 0.00438406 %i]
--- ,
-
--- [1.39609, - 0.0365178 + 0.466584 %i, 0.077955 - 0.0607051 %i, - 0.152072,
--- 0.077955 + 0.0607051 %i, - 0.0365178 - 0.466584 %i]
--- ,
-
--- [1.12374, 0.0914068 - 0.050841 %i, 0.393551 + 0.345775 %i, 0.153011,
--- 0.393551 - 0.345775 %i, 0.0914068 + 0.050841 %i]
--- ]
-
--- test 11:
-
-invdftsD := nagInverseDFT dftsD ;
-invdftsD :: List Vector Complex Float
-
--- [[0.3854,0.6772,0.1138,0.6751,0.6362,0.1424],
--- [0.5417,0.2983,0.1181,0.7255,0.8638,0.8723],
--- [0.9172,0.0644,0.6037,0.643,0.0428,0.4815]]
-
--- test 12:
-
-dftsE := nagDFT seqsE;
-dftsE :: List Vector Float
-
--- [[1.0788,0.662291,- 0.239146,- 0.578284,0.459192,- 0.438816],
--- [0.857321,1.22614,0.353348,- 0.222169,0.341327,- 1.22908],
--- [1.18245,0.262509,0.674406,0.552278,0.0539906,- 0.478963]]
-
--- test 13:
-
-invdftsE := nagInverseDFT dftsE;
-invdftsE :: List Vector Complex Float
-
--- [
--- [0.3854, 0.6772 + 0.1424 %i, 0.1138 + 0.6362 %i, 0.6751,
--- 0.1138 - 0.6362 %i, 0.6772 - 0.1424 %i]
--- ,
-
--- [0.5417, 0.2983 + 0.8723 %i, 0.1181 + 0.8638 %i, 0.7255,
--- 0.1181 - 0.8638 %i, 0.2983 - 0.8723 %i]
--- ,
-
--- [0.9172, 0.0644 + 0.4815 %i, 0.6037 + 0.0428 %i, 0.643,
--- 0.6037 - 0.0428 %i, 0.0644 - 0.4815 %i]
--- ]
-
--- test 14:
-
-hdftsD := nagHermitianDFT seqsD;
-map(expand,hdftsD) :: List Vector Complex Float
-
--- [
--- [1.07373, - 0.104062 - 0.00438406 %i, 0.112554 - 0.373777 %i, - 0.146684,
--- 0.112554 + 0.373777 %i, - 0.104062 + 0.00438406 %i]
--- ,
-
--- [1.39609, - 0.0365178 + 0.466584 %i, 0.077955 - 0.0607051 %i, - 0.152072,
--- 0.077955 + 0.0607051 %i, - 0.0365178 - 0.466584 %i]
--- ,
-
--- [1.12374, 0.0914068 - 0.050841 %i, 0.393551 + 0.345775 %i, 0.153011,
--- 0.393551 - 0.345775 %i, 0.0914068 + 0.050841 %i]
--- ]
-
--- test 15:
-
-(nagInverseDFT hdftsD) :: List Vector Float
-
--- [[0.3854,0.6772,0.1138,0.6751,0.6362,0.1424],
--- [0.5417,0.2983,0.1181,0.7255,0.8638,0.8723],
--- [0.9172,0.0644,0.6037,0.643,0.0428,0.4815]]
-
--- test 16:
-
-dftsF := nagDFT seqsF;
-dftsF :: List Vector Complex Float
-
--- [
--- [1.07373 + 1.39609 %i, - 0.570647 - 0.0409019 %i, 0.173259 - 0.295822 %i,
--- - 0.146684 - 0.152072 %i, 0.0518489 + 0.451732 %i,
--- 0.362522 - 0.0321337 %i]
--- ,
-
--- [1.12374 + 1.06765 %i, 0.172759 + 0.0385858 %i, 0.418548 + 0.748083 %i,
--- 0.153011 + 0.17522 %i, 0.368555 + 0.0565331 %i, 0.0100542 + 0.140268 %i]
--- ,
-
--- [0.909985 + 1.76167 %i, - 0.305418 + 0.0624335 %i,
--- 0.407884 - 0.0694786 %i, - 0.078547 + 0.0725049 %i,
--- - 0.119334 + 0.128511 %i, - 0.531409 - 0.433531 %i]
--- ]
-
--- test 17:
-
-invdftsF := nagInverseDFT dftsF ;
-invdftsF :: List Vector Complex Float
-
--- [
--- [0.3854 + 0.5417 %i, 0.6772 + 0.2983 %i, 0.1138 + 0.1181 %i,
--- 0.6751 + 0.7255 %i, 0.6362 + 0.8638 %i, 0.1424 + 0.8723 %i]
--- ,
-
--- [0.9172 + 0.9089 %i, 0.0644 + 0.3118 %i, 0.6037 + 0.3465 %i,
--- 0.643 + 0.6198 %i, 0.0428 + 0.2668 %i, 0.4815 + 0.1614 %i]
--- ,
-
--- [0.1156 + 0.6214 %i, 0.0685 + 0.8681 %i, 0.206 + 0.706 %i,
--- 0.863 + 0.8652 %i, 0.6967 + 0.919 %i, 0.2792 + 0.3355 %i]
--- ]
-
--- test 18:
-
-nagHermitianInverseDFT dftsE
-
--- [
--- [0.38540000000000013, 0.67720000000000025, 0.11380000000000001,
--- 0.67510000000000014, 0.63620000000000021, 0.14240000000000003]
--- ,
-
--- [0.54170000000000018, 0.29830000000000012, 0.1181, 0.72550000000000014,
--- 0.86380000000000023, 0.87230000000000019]
--- ,
-
--- [0.91720000000000035, 0.064399999999999999, 0.60370000000000024,
--- 0.64300000000000013, 0.042799999999999991, 0.48150000000000015]
--- ]
-
--- error tests:
-
--- test 19:
-
-nagDFT [vector [0.3854 + 0.5417*%i, 0.6772 + 0.2983*%i, _
- 0.1138 + 0.1181*%i, 0.6751 + 0.7255*%i, _
- 0.6362 + 0.8638*%i, 0.1424 + 0.8723*%i], _
- vector [0.1156 + 0.6214*%i, 0.0685 + 0.8681*%i, _
- 0.6967 + 0.9190*%i, 0.2792 + 0.3355*%i]]
-
--- Error signalled from user code:
--- The data sequences in nagDFT must all have the same length. The
--- length of sequence 1 is 6 that of sequence 2 is 4.
-
--- test 20:
-
-nagHermitianDFT [vector [0.3854, 0.6751, 0.6362, 0.1424], _
- vector [0.5417, 0.7255, 0.8638, 0.8723], _
- vector [0.9172, 0.0428, 0.4815]]
-
--- Error signalled from user code:
--- The data sequences in nagHermitianDFT must all have the same
--- length. The length of sequence 1 is 4 that of sequence 3 is 3.
-
--- test 21:
-
-badSeqs : List PackedHermitianSequence DoubleFloat
-badSeqs := [pHS [0.3854, 0.1138, 0.6751, 0.6362, 0.1424], _
- pHS [0.5417, 0.2983, 0.1181, 0.7255, 0.8638, 0.8723], _
- pHS [0.9172, 0.0644, 0.6037, 0.6430, 0.0428, 0.4815]];
-
-nagDFT badSeqs
-
--- Error signalled from user code:
--- The data sequences in nagDFT must all have the same length. The
--- length of sequence 1 is 5 that of sequence 2 is 6.
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/nepip.input
===================================================================
--- trunk/src/input/nepip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/nepip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,131 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1996.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-outputGeneral 5
-
-mA1 := matrix [[ 0.5 , 1.5 , 6.6 , 4.8], _
- [ 1.5 , 6.5 , 16.2 , 8.6], _
- [ 6.6 , 16.2 , 37.6 , 9.8], _
- [ 4.8 , 8.6 , 9.8 , -17.1]];
-
-mB1 := matrix[[ 1 , 3 , 4 , 1], _
- [ 3 , 13 , 16 , 11], _
- [ 4 , 16 , 24 , 18], _
- [ 1 , 11 , 18 , 27]];
-
-mA2 := matrix [[ 3.9 , 12.5 , -34.5 , -0.5], _
- [ 4.3 , 21.5 , -47.5 , 7.5], _
- [ 4.3 , 21.5 , -43.5 , 3.5], _
- [ 4.4 , 26.0 , -46.0 , 6.0]];
-
-mB2 := matrix[[ 1 , 2 , -3 , 1], _
- [ 1 , 3 , -5 , 4], _
- [ 1 , 3 , -4 , 3], _
- [ 1 , 3 , -4 , 4]];
-
-nagEigenvalues(mA1,mB1) :: List Float
-
--- [- 3.0,- 1.0,2.0,4.0]
-
-vv1 := nagEigenvectors(mA1,mB1);
-(vv1.eigenvalues) :: List Float
-
--- [- 3.0,- 1.0,2.0,4.0]
-
-(vv1.eigenvectors) :: List Vector Complex Float
-
--- [[- 4.35,0.05,1.0,- 0.5], [- 2.05,0.15,0.5,- 0.5], [- 3.95,0.85,0.5,- 0.5],
--- [2.65,0.05,- 1.0,0.5]]
-
-nagEigenvalues(mA2,mB2)
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [2.0,3.0 + 4.0 %i,3.0 - 4.0 %i,4.0]
-
-vv2 := nagEigenvectors(mA2,mB2);
-vv2.eigenvalues
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [2.0,3.0 + 4.0 %i,3.0 - 4.0 %i,4.0]
-
-vv2.eigenvectors :: List Vector Complex Float
-
--- [[0.99606,0.0056917,0.062609,0.062609],
---
--- [0.94491, 0.18898 + 0.26077 E -14 %i, 0.11339 - 0.15119 %i,
--- 0.11339 - 0.15119 %i]
--- ,
---
--- [0.94491, 0.18898 - 0.26077 E -14 %i, 0.11339 + 0.15119 %i,
--- 0.11339 + 0.15119 %i]
--- ,
--- [0.98752,0.010972,- 0.032917,0.15361]]
-
--- The same call with eps=0.0001:
-
-vv2a := nagEigenvectors(mA2,mB2,0.0001);
-vv2a.eigenvalues :: List Complex Float
-
--- [1.9989,3.0003 + 3.9994 %i,3.0003 - 3.9994 %i,4.0]
-
-vv2a.eigenvectors :: List Vector Complex Float
-
--- [[0.99605,0.0057355,0.062656,0.062656],
---
--- [0.94491, 0.18899 - 0.000048882 %i, 0.11336 - 0.15119 %i,
--- 0.11336 - 0.15119 %i]
--- ,
---
--- [0.94491, 0.18899 + 0.000048882 %i, 0.11336 + 0.15119 %i,
--- 0.11336 + 0.15119 %i]
--- ,
--- [0.98751,0.011031,- 0.032912,0.15367]]
-
-mB1(1,1) := -1;
-
--- The next test should fail on F02ADF then call F02BJF:
-
-nagEigenvalues(mA1,mB1)
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [3.5016,- 1.5471,0.041212 + 0.21738 %i,0.041212 - 0.21738 %i]
-
--- Similarly, this should fail on F02AEF then call F02BJF:
-
-vv3 := nagEigenvectors(mA1,mB1);
-vv3.eigenvalues
-
--- all components are O(1) or more so:
-
-% :: List Complex Float
-
--- [3.5016,- 1.5471,0.041212 + 0.21738 %i,0.041212 - 0.21738 %i]
-
-vv3.eigenvectors :: List Vector Complex Float
-
--- [[- 0.034577,0.63045,- 0.75202,0.1892],
--- [0.17876,- 0.73845,0.047413,0.64845],
---
--- [0.80838, - 0.00095133 + 0.47557 %i, - 0.20354 - 0.21737 %i,
--- 0.15404 + 0.089179 %i]
--- ,
---
--- [0.80838, - 0.00095133 - 0.47557 %i, - 0.20354 + 0.21737 %i,
--- 0.15404 - 0.089179 %i]
--- ]
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/noptip.input
===================================================================
--- trunk/src/input/noptip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/noptip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,18 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1994.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-
-outputGeneral 5
-
-f := %e^x*(4*x^2 + 2*y^2 + 4*x*y + 2*y + 1);
-start := [x=-1.0, y=1.0];
-nagMin(f,start) :: List Equation Polynomial Float
-
--- [x= 0.5,y= - 1.0]
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/nqip.input
===================================================================
--- trunk/src/input/nqip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/nqip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,50 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1996.
-
--- Note that the conversions of results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-
-outputGeneral 5
-
-xvals := [0.00,0.04,0.08,0.12,0.22,0.26,0.30,0.38,0.39,0.42,0.45,
- 0.46,0.60,0.68,0.72,0.73,0.83,0.85,0.88,0.90,1.00];
-
-yvals := [4.0000,3.9936,3.9746,3.9432,3.8135,3.7467,3.6697,3.4943,
- 3.4719,3.4002,3.3264,3.3017,2.9412,2.7352,2.6344,
- 2.6094,2.3684,2.3222,2.2543,2.2099,2.0000];
-
-result := nagPolygonIntegrate(xvals,yvals);
-result.integral :: Float
-
--- 3.1414
-
-result.errorEstimate :: Float
-
--- - 0.000025627
-
-coords := transpose matrix [xvals, yvals];
-result := nagPolygonIntegrate coords;
-result.integral :: Float
-
--- 3.1414
-
-result.errorEstimate :: Float
-
--- - 0.000025627
-
-nagPolygonIntegrate([1,2,3],[1,2,3,4])
-
--- Error signalled from user code:
--- The lists supplied to nagPolygonIntegrate are of different
--- lengths: 3 and 4.
-
-nagPolygonIntegrate([[1,2,3],[4,5,6]])
-
--- Error signalled from user code:
--- Please supply the coordinate matrix in nagPolygonIntegrate with
--- each row consisting of single a x-y pair.
-
-outputGeneral()
-
-output "End of tests"
Deleted: trunk/src/input/nsfip.input
===================================================================
--- trunk/src/input/nsfip.input 2020-03-02 14:55:49 UTC (rev 2626)
+++ trunk/src/input/nsfip.input 2020-03-02 15:14:55 UTC (rev 2627)
@@ -1,685 +0,0 @@
---Copyright The Numerical Algorithms Group Limited 1994.
-
--- Note that the conversions of Results from DoubleFloat to Float
--- will become unnecessary if outputGeneral is extended to apply to
--- DoubleFloat quantities.
-
-
-outputGeneral 4
-
--- DF here means DoubleFloat.
--- Results converted to Float as outputGeneral not working on DF.
-
--- nagExpInt : DF -> DF ;
-
-nagExpInt(2) :: Float
-
--- 0.0489
-
-nagExpInt(-1) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S13AAF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S13AAF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
--- nagSinInt : DF -> DF ;
-
-nagSinInt(0) :: Float
-
--- 0.0
-
-nagSinInt(0.2) :: Float
-
--- 0.1996
-
-nagSinInt(0.4) :: Float
-
--- 0.3965
-
-nagSinInt(0.6) :: Float
-
--- 0.5881
-
-nagSinInt(0.8) :: Float
-
--- 0.7721
-
-nagSinInt(1) :: Float
-
--- 0.9461
-
--- nagCosInt : DF -> DF ;
-
-nagCosInt(0.2) :: Float
-
--- - 1.042
-
-nagCosInt(0.4) :: Float
-
--- - 0.3788
-
-nagCosInt(0.6) :: Float
-
--- - 0.02227
-
-nagCosInt(0.8) :: Float
-
--- 0.1983
-
-nagCosInt(1) :: Float
-
--- 0.3374
-
--- nagIncompleteGammaP : (DF, DF) -> DF ; (to machine precision)
-
-nagIncompleteGammaP(2,3) :: Float
-
--- 0.8009
-
-nagIncompleteGammaP(7,1) :: Float
-
--- 0.00008324
-
-nagIncompleteGammaP(0.5,99) :: Float
-
--- 1.0
-
-nagIncompleteGammaP(20,21) :: Float
-
--- 0.6157
-
-nagIncompleteGammaP(21,20) :: Float
-
--- 0.4409
-
--- nagIncompleteGammaP : (DF, DF, DF) -> DF ; (to specified precision)
-
-nagIncompleteGammaP(7,1,0.1) :: Float
-
--- 0.00008313
-
--- nagIncompleteGammaQ : (DF, DF) -> DF ; (to machine precision)
-
-nagIncompleteGammaQ(2,3) :: Float
-
--- 0.1991
-
-nagIncompleteGammaQ(7,1) :: Float
-
--- 0.9999
-
-nagIncompleteGammaQ(0.5,99) :: Float
-
--- 0.5705 E -44
-
-nagIncompleteGammaQ(20,21) :: Float
-
--- 0.3843
-
-nagIncompleteGammaQ(21,20) :: Float
-
--- 0.5591
-
-nagIncompleteGammaQ(25,14) :: Float
-
--- 0.995
-
--- nagIncompleteGammaQ : (DF, DF, DF) -> DF ; (to specified precision)
-
-nagIncompleteGammaQ(25,14,0.1) :: Float
-
--- 0.9953
-
--- nagErf : DF -> DF ;
-
-nagErf(-6) :: Float
-
--- - 1.0
-
-nagErf(-4.5) :: Float
-
--- - 1.0
-
-nagErf(-1) :: Float
-
--- - 0.8427
-
-nagErf(1) :: Float
-
--- 0.8427
-
-nagErf(4.5) :: Float
-
--- 1.0
-
-nagErf(6) :: Float
-
--- 1.0
-
--- nagErfC : DF -> DF ;
-
-nagErfC(-10) :: Float
-
--- 2.0
-
-nagErfC(-1) :: Float
-
--- 1.843
-
-nagErfC(0) :: Float
-
--- 1.0
-
-nagErfC(1) :: Float
-
--- 0.1573
-
-nagErfC(15) :: Float
-
--- 0.7213 E -99
-
--- nagDAiryAi : DF -> DF ;
-
-nagDAiryAi(-10) :: Float
-
--- 0.9963
-
-nagDAiryAi(-1) :: Float
-
--- - 0.01016
-
-nagDAiryAi(0) :: Float
-
--- - 0.2588
-
-nagDAiryAi(1) :: Float
-
--- - 0.1591
-
-nagDAiryAi(5) :: Float
-
--- - 0.0002474
-
-nagDAiryAi(10) :: Float
-
--- - 0.3521 E -9
-
-nagDAiryAi(20) :: Float
-
--- - 0.7586 E -26
-
--- nagDAiryAi : CDF -> CDF ;
-
-nagDAiryAi(0.3+0.4*%i) :: Complex Float
-
--- - 0.2612 + 0.03848 %i
-
--- nagDAiryBi : DF -> DF ;
-
-nagDAiryBi(-10) :: Float
-
--- 0.1194
-
-nagDAiryBi(-1) :: Float
-
--- 0.5924
-
-nagDAiryBi(0) :: Float
-
--- 0.4483
-
-nagDAiryBi(1) :: Float
-
--- 0.9324
-
-nagDAiryBi(5) :: Float
-
--- 1436.0
-
-nagDAiryBi(10) :: Float
-
--- 0.1429 E 10
-
-nagDAiryBi(20) :: Float
-
--- 0.9382 E 26
-
--- nagDAiryBi : CDF -> CDF ;
-
-nagDAiryBi(0.3+0.4*%i) :: Complex Float
-
--- 0.4093 + 0.07966 %i
-
--- nagScaledDAiryAi : CDF -> CDF ;
-
-nagScaledDAiryAi(0.3+0.4*%i) :: Complex Float
-
--- - 0.2744 - 0.02356 %i
-
--- nagScaledDAiryBi : CDF -> CDF ;
-
-nagScaledDAiryBi(0.3+0.4*%i) :: Complex Float
-
--- 0.3924 + 0.07638 %i
-
--- nagHankelH1 : (DF, CDF, Int) -> List CDF ;
-
-nagHankelH1(0,0.3+0.4*%i,2) :: Matrix Complex Float
-
--- [0.3466 - 0.5588 %i - 0.7912 - 0.8178 %i]
-
-nagHankelH1(2.3,2,2) :: Matrix Complex Float
-
--- [0.2721 - 0.7398 %i 0.08902 - 1.412 %i]
-
-nagHankelH1(2.12,-1,2) :: Matrix Complex Float
-
--- [- 0.7722 - 1.693 %i 2.601 + 6.527 %i]
-
--- nagHankelH2 : (DF, CDF, Int) -> List CDF ;
-
-nagHankelH2(6,3.1-1.6*%i,2) :: Matrix Complex Float
-
--- [- 1.371 - 1.28 %i - 1.491 - 5.993 %i]
-
--- nagScaledHankelH1 : (DF, CDF, Int) -> List CDF ;
-
-nagScaledHankelH1(0,0.3+0.4*%i,2) :: Matrix Complex Float
-
--- [0.2477 - 0.9492 %i - 1.488 - 0.8166 %i]
-
--- nagScaledHankelH2 : (DF, CDF, Int) -> List CDF ;
-
-nagScaledHankelH2(6,3.1-1.6*%i,2) :: Matrix Complex Float
-
--- [7.05 + 6.052 %i 8.614 + 29.35 %i]
-
--- nagKelvinBer : DF -> DF ;
-
-nagKelvinBer(0.1) :: Float
-
--- 1.0
-
-nagKelvinBer(1) :: Float
-
--- 0.9844
-
-nagKelvinBer(2.5) :: Float
-
--- 0.4
-
-nagKelvinBer(5) :: Float
-
--- - 6.23
-
-nagKelvinBer(10) :: Float
-
--- 138.8
-
-nagKelvinBer(15) :: Float
-
--- - 2967.0
-
-nagKelvinBer(60) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19AAF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19AAF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinBer(-1) :: Float
-
--- 0.9844
-
--- nagKelvinBei : DF -> DF ;
-
-nagKelvinBei(0.1) :: Float
-
--- 0.0025
-
-nagKelvinBei(1) :: Float
-
--- 0.2496
-
-nagKelvinBei(2.5) :: Float
-
--- 1.457
-
-nagKelvinBei(5) :: Float
-
--- 0.116
-
-nagKelvinBei(10) :: Float
-
--- 56.37
-
-nagKelvinBei(15) :: Float
-
--- - 2953.0
-
-nagKelvinBei(60) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ABF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ABF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinBei(-1) :: Float
-
--- 0.2496
-
--- nagKelvinKer : DF -> DF ;
-
-nagKelvinKer(0) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ACF: IFAIL = 2
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ACF. The error number (IFAIL value) is 2, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinKer(0.1) :: Float
-
--- 2.42
-
-nagKelvinKer(1) :: Float
-
--- 0.2867
-
-nagKelvinKer(2.5) :: Float
-
--- - 0.06969
-
-nagKelvinKer(5) :: Float
-
--- - 0.01151
-
-nagKelvinKer(10) :: Float
-
--- 0.0001295
-
-nagKelvinKer(15) :: Float
-
--- - 0.1514 E -7
-
-nagKelvinKer(1100) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ACF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ACF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinKer(-1) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ACF: IFAIL = 2
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ACF. The error number (IFAIL value) is 2, please consult the
--- NAG manual via the Browser for diagnostic information.
-
--- nagKelvinKei : DF -> DF ;
-
-nagKelvinKei(0) :: Float
-
--- - 0.7854
-
-nagKelvinKei(0.1) :: Float
-
--- - 0.7769
-
-nagKelvinKei(1) :: Float
-
--- - 0.495
-
-nagKelvinKei(2.5) :: Float
-
--- - 0.1107
-
-nagKelvinKei(5) :: Float
-
--- 0.01119
-
-nagKelvinKei(10) :: Float
-
--- - 0.0003075
-
-nagKelvinKei(15) :: Float
-
--- 0.000007963
-
-nagKelvinKei(1100) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ADF: IFAIL = 1
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ADF. The error number (IFAIL value) is 1, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-nagKelvinKei(-1) :: Float
-
--- ^ ABNORMAL EXIT from NAG Library routine S19ADF: IFAIL = 2
--- ^ NAG soft failure - control returned
---
--- Error signalled from user code:
--- An error was detected when calling the NAG Library routine
--- S19ADF. The error number (IFAIL value) is 2, please consult the
--- NAG manual via the Browser for diagnostic information.
-
-
--- nagFresnelS : DF -> DF ;
-
-nagFresnelS(0) :: Float
-
--- 0.0
-
-nagFresnelS(0.5) :: Float
-
--- 0.06473
-
-nagFresnelS(1) :: Float
-
--- 0.4383
-
-nagFresnelS(2) :: Float
-
--- 0.3434
-
-nagFresnelS(4) :: Float
-
--- 0.4205
-
-nagFresnelS(5) :: Float
-
--- 0.4992
-
-nagFresnelS(6) :: Float
-
--- 0.447
-
-nagFresnelS(8) :: Float
-
--- 0.4602
-
-nagFresnelS(10) :: Float
-
--- 0.4682
-
-nagFresnelS(-1) :: Float
-
--- - 0.4383
-
-nagFresnelS(1000) :: Float
-
--- 0.4997
-
--- nagFresnelC : DF -> DF ;
-
-nagFresnelC(0) :: Float
-
--- 0.0
-
-nagFresnelC(0.5) :: Float
-
--- 0.4923
-
-nagFresnelC(1) :: Float
-
--- 0.7799
-
-nagFresnelC(2) :: Float
-
--- 0.4883
-
-nagFresnelC(4) :: Float
-
--- 0.4984
-
-nagFresnelC(5) :: Float
-
--- 0.5636
-
-nagFresnelC(6) :: Float
-
--- 0.4995
-
-nagFresnelC(8) :: Float
-
--- 0.4998
-
-nagFresnelC(10) :: Float
-
--- 0.4999
-
-nagFresnelC(-1) :: Float
-
--- - 0.7799
-
-nagFresnelC(1000) :: Float
-
--- 0.5
-
--- nagEllipticIntegralRC : (DF, DF) -> DF ;
-
-nagEllipticIntegralRC(0.5,1) :: Float
-
--- 1.111
-
-nagEllipticIntegralRC(1,1) :: Float
-
--- 1.0
-
-nagEllipticIntegralRC(1.5,1) :: Float
-
--- 0.9312
-
--- nagEllipticIntegralRD : (DF, DF, DF) -> DF ;
-
-nagEllipticIntegralRD(0.5,0.5,1) :: Float
-
--- 1.479
-
-nagEllipticIntegralRD(0.5,1,1) :: Float
-
--- 1.211
-
-nagEllipticIntegralRD(0.5,1.5,1) :: Float
-
--- 1.061
-
-nagEllipticIntegralRD(1,1,1) :: Float
-
--- 1.0
-
-nagEllipticIntegralRD(1,1.5,1) :: Float
-
--- 0.8805
-
-nagEllipticIntegralRD(1.5,1.5,1) :: Float
-
--- 0.7775
-
--- nagEllipticIntegralRF : (DF, DF, DF) -> DF ;
-
-nagEllipticIntegralRF(0.5,1,1.5) :: Float
-
--- 1.028
-
-nagEllipticIntegralRF(1,1.5,2) :: Float
-
--- 0.826
-
-nagEllipticIntegralRF(1.5,2,2.5) :: Float
-
--- 0.7116
-
--- nagEllipticIntegralRJ : (DF, DF, DF, DF) -> DF ;
-
-nagEllipticIntegralRJ(0.5,0.5,0.5,2) :: Float
-
--- 1.118
-
-nagEllipticIntegralRJ(0.5,0.5,1,2) :: Float
-
--- 0.9221
-
-nagEllipticIntegralRJ(0.5,0.5,1.5,2) :: Float
-
--- 0.8115
-
-nagEllipticIntegralRJ(0.5,1,1,2) :: Float
-
--- 0.7671
-
-nagEllipticIntegralRJ(0.5,1,1.5,2) :: Float
-
--- 0.6784
-
-nagEllipticIntegralRJ(0.5,1.5,1.5,2) :: Float
-
--- 0.6017
-
-nagEllipticIntegralRJ(1,1,1,2) :: Float
-
--- 0.6438
-
-nagEllipticIntegralRJ(1,1,1.5,2) :: Float
-
--- 0.5722
-
-nagEllipticIntegralRJ(1,1.5,1.5,2) :: Float
-
--- 0.5101
-
-nagEllipticIntegralRJ(1.5,1.5,1.5,2) :: Float
-
--- 0.4561
-
-outputGeneral()
-
-output "End of tests"
-
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
Reply all
Reply to author
Forward
0 new messages