I am using three For loops and would like to show a series of plots in the same window. I am using Monitor and I want to see the parameters in each plot. Here is my code:
Monitor[For[i = 1, i < 40, i++,
For[j = 1, j < 40, j++,
For[k = 20, k < 40, k++, p =
Show[ListPlot[data],
Plot [{
10^3 x (4 7^2 + (y^2 - R^2 ))/(y^2 - R^2 )^3 /. R -> i} /.
FindRoot[
y == Subscript[\[Omega], 0]
Sqrt[1 +
k Subscript[\[Omega], 0]/
y (1/(Exp[y/x] - 1) + 1/2 -
y/(2 Subscript[\[Omega],
0]))] /. {Subscript[\[Omega], 0] -> j}, {y,
1}], {x, 1, 300}, PlotLabel -> {"R,k,j"}]]]]],
EventHandler[p, {"MouseDown" :> i++}]]
And I want to know what is my i,j,k for each plot.
PlotLabel
contain the values fori
,j
andk
as shown below. $\endgroup$