I type the following code in Mathematica 11:
For[n = 1, n <= 3, n++,
RegionPlot[x^2 + y^3 < n, {x, -2, 2}, {y, -2, 2}]
]
Then I press Shift+Enter, but Mathematica does not output any figures. Where is the problem? Thanks in advance.
$\begingroup$
$\endgroup$
3
2 Answers
$\begingroup$
$\endgroup$
5
It depends on what your aim. If it is just to 'print' 3 graphics:
For[n = 1, n <= 3, n++,
Print@RegionPlot[x^2 + y^3 < n, {x, -2, 2}, {y, -2, 2}]]
If you want an object you can use and refer to:
f[x_, y_] := x^2 + y^3
rps=RegionPlot[f[x, y] < #, {x, -2, 2}, {y, -2, 2}] & /@ Range[3]
This is also a useful link with respect to loops in Mathematica.
-
$\begingroup$ ubpdqn: Thank you for your answer. $\endgroup$ Commented Aug 16, 2016 at 8:32
-
$\begingroup$ @Wei-ChengLiu you're welcome. I had exactly the same question when I first started using Mma. Have fun:) $\endgroup$– ubpdqnCommented Aug 16, 2016 at 8:34
-
-
2$\begingroup$ @Feyre as you and Mr.Wizard have suggested Table may be natural alternative. I provided link to motivate looking at alternatives. $\endgroup$– ubpdqnCommented Aug 16, 2016 at 9:57
-
$\begingroup$ @Feyre & ubpdqn Thank you for your comments. $\endgroup$ Commented Aug 16, 2016 at 11:53
$\begingroup$
$\endgroup$
2
For fun
Example
Manipulate[
RegionPlot[x^2 + y^3 < n, {x, -2, 2}, {y, -2, 2}],
{n, 1, 3, 1}
]
answered Aug 16, 2016 at 8:25
-
$\begingroup$ e.doroskevic: Thank you for your answer. $\endgroup$ Commented Aug 16, 2016 at 8:32
-
$\begingroup$ @Wei-ChengLiu you are most welcome $\endgroup$ Commented Aug 16, 2016 at 8:34
Graphicsexpressions rather than displaying them as side-effects. See (47123). You could addPrintbut generally a better method is to replaceForwithTable:Table[RegionPlot[x^2 + y^3 < n, {x, -2, 2}, {y, -2, 2}], {n, 1, 3}]. You can further format that output withColumnorGraphicsColumnas desired, or animate it withListAnimate. $\endgroup$