diff options
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"]; |