I am new to Mathematica and I want to produce the following figure wich represents the nodal lines of wave equation. Can anyone help?
1
-
$\begingroup$ Yes, you can help yourself. By opening the documentation and reading. Now being serious if you have any code you would like to share that's a great start $\endgroup$– SektorCommented Apr 13, 2015 at 7:46
Add a comment
|
2 Answers
$\begingroup$
$\endgroup$
1
data = {
{"-", "+"},
{"+", "-"},
{"-", "+"}
};
styled = Map[Style[#, 20] &, data, {2}];
GraphicsGrid[styled, Frame -> All]
Since you are new I suppose you might not know about the third argument of Map. Try evaluating Map[g, data, {2}] to see what it does.
You can create each of the three figures like this and then combine them using Row.
-
$\begingroup$ Thanks Pickett. I didn't know about Map command. $\endgroup$ Commented Apr 13, 2015 at 12:53
$\begingroup$
$\endgroup$
7
There is a demo that generate the actual wave itself with "nodal" lines with 3D view as well. With many other options.
http://demonstrations.wolfram.com/VibrationOfARectangularMembrane/
-
$\begingroup$ This is a comment, not a an answer. $\endgroup$– C. E. ♦Commented Apr 13, 2015 at 9:02
-
1$\begingroup$ @Pickett it is not an answer, that is why it is a wiki. $\endgroup$– NasserCommented Apr 13, 2015 at 9:03
-
1$\begingroup$ A community wiki is meant to be a collaborative answer, not a comment. $\endgroup$– C. E. ♦Commented Apr 13, 2015 at 9:09
-
-
1$\begingroup$ In my view, this community wiki answers the question (though to an extent beyond what's asked for). $\endgroup$– TaikiCommented Apr 13, 2015 at 11:43