diff options
author | Erik Schnetter <schnetter@gmail.com> | 2013-11-28 09:39:39 -0500 |
---|---|---|
committer | Erik Schnetter <schnetter@gmail.com> | 2013-11-28 09:39:39 -0500 |
commit | c5a019d1cd72089619431de2c56aace44c96e245 (patch) | |
tree | 0dd05e53b0cfcb12ef9c1edc484ef0e71607bcc2 /find-coeffs.m | |
parent | 0c6c0a0397fa4ee6d5e22bf11bde679490a706bb (diff) | |
download | vecmathlib-c5a019d1cd72089619431de2c56aace44c96e245.zip vecmathlib-c5a019d1cd72089619431de2c56aace44c96e245.tar.gz |
Update log coefficients
Diffstat (limited to 'find-coeffs.m')
-rw-r--r-- | find-coeffs.m | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/find-coeffs.m b/find-coeffs.m index 987c54c..5800051 100644 --- a/find-coeffs.m +++ b/find-coeffs.m @@ -9,8 +9,9 @@ funcs = { {Sin[2 Pi #]&, 0, 1/4, 1, 2, 10, 1, 1, 1, {0, 1/4}}, {Cos[2 Pi #]&, 0, 1/4, 0, 2, 10, 1, 1, 1, {0, 1/4}}, - (* {Tan[Pi #]&, 0, 1/2, 1, 2, 3, 2, 2, 3, {0, 1/4}}, *) - {Log[2, (1+#)/(1-#)]&, 0, 1/3, 1, 2, 15, 0, 1, 1, {}}, + (* {Tan[Pi #]&, 0, 1/2, 1, 2, 3, 2, 2, 3, {0, 1/4}}, *) + {Log[2, (1+#)/(1-#)]&, -3 + 2 Sqrt[2], 3 - 2 Sqrt[2], + 0, 1, 15, 0, 1, 0, {0}}, {2^#&, -1/2, +1/2, 0, 1, 15, 0, 1, 1, {}}, {ArcTan, 0, 1/2, 1, 2, 15, 1, 2, 1, {0, 1}} }; @@ -116,6 +117,9 @@ PROBABLY NEED TO DO THAT MANUALLY. (* findcoeffs2[ArcTan, 0, 1, 1, 2, 10, 1, 2, 10, {0, 1}]; *) (* findcoeffs2[ArcTan[#]&, 0, 1/2, 1, 2, 15, 1, 2, 1, {0, 1/2}]; *) +(* findcoeffs2[Log[2, (1+#)/(1-#)]&, + -3 + 2 Sqrt[2], 3 - 2 Sqrt[2], 0, 1, 15, 0, 1, 0, {0}]; *) + outfile = OpenWrite["coeffs.out"]; |