diff options
author | Erik Schnetter <schnetter@gmail.com> | 2013-06-21 16:48:07 -0400 |
---|---|---|
committer | Erik Schnetter <schnetter@gmail.com> | 2013-06-21 16:48:07 -0400 |
commit | 192d6af953f78fb1df55dad16f88de5619f01433 (patch) | |
tree | 1b3648b5b0da7e6ff57051d232801f8be68e19e3 /find-coeffs.m | |
parent | 93f02d380232f57978f43658afe6c213fbc1e536 (diff) | |
download | vecmathlib-192d6af953f78fb1df55dad16f88de5619f01433.zip vecmathlib-192d6af953f78fb1df55dad16f88de5619f01433.tar.gz |
Revert debugging changes for coefficient creation
Diffstat (limited to 'find-coeffs.m')
-rw-r--r-- | find-coeffs.m | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/find-coeffs.m b/find-coeffs.m index 4680870..987c54c 100644 --- a/find-coeffs.m +++ b/find-coeffs.m @@ -9,9 +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, 1, 1, 1, {}}, - {2^#&, -1/2, +1/2, 0, 1, 15, 1, 1, 1, {}}, + (* {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, {}}, + {2^#&, -1/2, +1/2, 0, 1, 15, 0, 1, 1, {}}, {ArcTan, 0, 1/2, 1, 2, 15, 1, 2, 1, {0, 1}} }; @@ -114,13 +114,11 @@ PROBABLY NEED TO DO THAT MANUALLY. (* findcoeffs[ArcTan[#]&, 0, 1, 1, 2, 10, 1, {0, 1}]; *) (* 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[ArcTan[#]&, 0, 1/2, 1, 2, 15, 1, 2, 1, {0, 1/2}]; *) -(* outfile = OpenWrite["coeffs.out"]; Write[outfile, "(* Coefficients for function approximations *)"]; Map[findcoeffs2@@# &, funcs]; Close[outfile]; -*) |