| Psychology and Mental Health Forum | |
https://www.psychforums.com/blog/highdimensionman/the_mathematica_code_for_triangular_curves_b-13326_sid-cf13909aa4005c51ad92d9b323c02a61.html |
|
| Author: | highdimensionman [ Wed Jul 01, 2020 12:25 am ] |
| Blog Subject: | The Mathematica code for Triangular curves |
Manipulate[ ListPlot[Table[ If[t > d, {(e + 1) Cos[t], (e + 1) Sin[ t]}, {(e + 1 - c (t/(d))) Cos[t], (e + 1 - c (t/(d))) Sin[ t]}], {t, 0, 2 Pi, 0.011}]], {c, 0, e + 1}, {d, 0.011, Pi}, {e, 0, 4}] |
|
| All times are UTC | |
Powered by phpBB © 2002, 2006 phpBB Group www.phpbb.com |
|