定位熄灭图表区域

Question

当我运行下面的代码

pMin = {-3, -3}; 
pMax = {3, 3}; 
range = {pMin, pMax}; 
Manipulate[ 
GraphicsGrid[ 
    { 
    {Graphics[Locator[p], PlotRange -> range]}, 
    {Graphics[Line[{{0, 0}, p}]]} 
    }, Frame -> All 
    ], 
{{p, {1, 1}}, Locator} 
] 

我希望定位器控制是第一张图的范围内的，而是它可以移动整个GraphicsGrid区域。我的代码中有错误吗？

我也试过

{{p, {1, 1}}, pMin, pMax, Locator} 

，而不是

{{p, {1, 1}}, Locator} 

但它的行为完全错误的。

UPDATE

感谢大家，这是我最终的解决方案：

Manipulate[ 
distr1 = BinormalDistribution[p1, {1, 1}, \[Rho]1]; 
distr2 = BinormalDistribution[p2, {1, 1}, \[Rho]2]; 
Grid[ 
    { 
    {Graphics[{Locator[p1], Locator[p2]}, 
    PlotRange -> {{-5, 5}, {-5, 5}}]}, 
    {Plot3D[{PDF[distr1, {x, y}], PDF[distr2, {x, y}]}, {x, -5, 5}, {y, -5, 5}, PlotRange -> All]} 
    }], 
{{\[Rho]1, 0}, -0.9, 0.9}, {{\[Rho]2, 0}, -0.9, 0.9}, 
{{p1, {1, 1}}, Locator}, 
{{p2, {1, 1}}, Locator} 
] 

UPDATE

现在的问题是，我不能调整大小和旋转较低的3d图。有谁知道如何解决这个问题？ 我回到了两个Slider2D对象的解决方案。

Answer 1

我不确定你想达到什么目的。我看到了一些问题，但我不知道要解决什么问题。也许你只是想要一个简单的Slider2D建设？

DynamicModule[{p = {1, 1}}, 
Column@{Slider2D[Dynamic[p], {{-3, -3}, {3, 3}}, 
    ImageSize -> {200, 200}], 
    Graphics[Line[{{0, 0}, Dynamic[p]}], 
    PlotRange -> {{-3, 3}, {-3, 3}}, ImageSize -> {200, 200}]}] 

---

这是关于3D图形旋转更新的问题的答复。

我相信大卫建议的LocatorPane是一种很好的方法来解决这个问题。我只是把一个通用的功能，因为你的例子如果您检查您会发现，GraphicsGrid返回一个图形对象InputForm不会对数学7

DynamicModule[{pt = {{-1, 3}, {1, 1}}}, 
Column[{ 
    LocatorPane[Dynamic[pt], 
    Framed@Graphics[{}, PlotRange -> {{-5, 5}, {-5, 5}}]], 
    Dynamic@ 
    Plot3D[{x^2 pt[[1, 1]] + y^2 pt[[1, 2]], 
      -x^2 pt[[2, 1]] - y^2 pt[[2, 1]]}, 
     {x, -5, 5}, {y, -5, 5}] 
}] 
] 

Answer 2

运行。因此，定位器确实在整个图像中移动。

GraphicsGrid[{{Graphics[Circle[]]}, {Graphics[Disk[]]}}] // InputForm 

如果你只是改变GraphicsGrid到网格，定位器将被限制在第一部分，但结果仍然看起来有点奇怪。你的PlotRange规范有点奇怪，它似乎不符合文档中心指定的任何格式。也许你想要下面的东西。

Manipulate[ 
Grid[{ 
    {Graphics[Locator[p], Axes -> True, 
    PlotRange -> {{-3, 3}, {-3, 3}}]}, 
    {Graphics[Line[{{0, 0}, p}], Axes -> True, 
    PlotRange -> {{-3, 3}, {-3, 3}}]}}, 
    Frame -> All], 
{{p, {1, 1}}, Locator}] 

Answer 3

LocatorPane[]做了一个很好的限制定位器的区域。

这是Wizard先生使用的方法的变体。

Column[{ LocatorPane[Dynamic[pt3], 
    Framed@Graphics[{}, ImageSize -> 150, PlotRange -> 3]], 
    Framed@Graphics[{Line[{{-1, 0}, Dynamic@pt3}]}, ImageSize -> {150, 150}, 
    PlotRange -> 3]}] 

我会假设你想要的定位与大家分享它控制线的空间。事实上，要“附加”到该行。事实证明，这更容易实现。

Column[{LocatorPane[Dynamic[pt3],Framed@Graphics[{Line[{{-1, 0}, Dynamic@pt3}]}, 
ImageSize -> 150, PlotRange -> 3]]}]