I would like to have a notebook with 2 different kinds of plots inside a manipulation, in which the control for the manipulation uses locators linked to one of the plots. A simple example of something close to what I desire that will work is shown in the code below, but only one of the plots is inside the manipulate. The example plots a pair of sinusoids where the amplitudes and phases are controlled with the mouse by moving a variable around the complex plane.
Dynamic[Plot[{Sqrt[w[[1, 1]]^2 + w[[1, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[1, 2]]/w[[1, 1]]]],
Sqrt[w[[2, 1]]^2 + w[[2, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[2, 2]]/w[[2, 1]]]]}, {t, 0, 1},
PlotRange -> {{0, 1}, {-3, 3}}]]
Manipulate[w = p;
ListPlot[p,
PlotRange -> {{-2, 2}, {-2, 2}}], {{p, {{-1, -1}, {1, 1}}},
Locator}]
But what I would really prefer is to do the same calculations with something like the following, which does not work. Is there anything similar to this second approach that does work?
Manipulate[w = p;
GraphicsRow[{Plot[{Sqrt[w[[1, 1]]^2 + w[[1, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[1, 2]]/w[[1, 1]]]],
Sqrt[w[[2, 1]]^2 + w[[2, 2]]^2] Sin[
2 \[Pi] t + ArcTan[w[[2, 2]]/w[[2, 1]]]]}, {t, 0, 1},
PlotRange -> {{0, 1}, {-3, 3}}],
ListPlot[p,
PlotRange -> {{-2, 2}, {-2, 2}}]}], {{p, {{-1, -1}, {1, 1}}},
Locator}]