在Mathematica中绘制线列表并修剪到一个区域

如何解决在Mathematica中绘制线列表并修剪到一个区域

例如，我在列表中指定了几行

linelist = {Line[{{-390,1},{1690,1}}],Line[{{-390,40},40}}],79},79}}],118},118}}],781},781}}],820},820}}],859},859}}],898},898}}],Line[{{-498,460},{1185,1682}}],Line[{{-521,491},{1162,1714}}],Line[{{-544,523},{1139,1745}}],Line[{{-567,554},{1116,1777}}],Line[{{-590,586},{1093,1809}}],Line[{{-613,617},{1070,1840}}],Line[{{-636,649},{1047,1872}}],Line[{{-659,681},{1024,1903}}],Line[{{946,-541},{1588,1437}}],Line[{{908,-528},{1551,1449}}],Line[{{871,-517},{1514,1462}}],Line[{{834,-504},{1477,1473}}],Line[{{797,-493},{1440,1486}}],Line[{{760,-481},{1402,1498}}],Line[{{723,-469},{1366,1510}}],Line[{{686,-457},{1328,1522}}],Line[{{1291,-237},{648,1741}}],Line[{{1255,-250},{611,1729}}],Line[{{1217,-261},{575,1717}}],Line[{{1181,-274},{538,1705}}],Line[{{1143,-285},{501,1693}}],Line[{{1107,-296},{463,1681}}],Line[{{1069,-309},{427,1668}}],Line[{{1032,-321},{389,1657}}],Line[{{995,-333},{352,1646}}],Line[{{958,-345},{316,1633}}],Line[{{1002,-638},{-680,584}}],Line[{{979,-668},{-703,553}}]}

Graphics@linelist

我正在尝试一种方法来遍历每行以执行测试，例如距0,0坐标的距离。

此外，终点不在我关注的范围之内。我想将线条限制在一个装箱的区域，例如从-1600，-1600到1600，1600

我已经玩了好几个小时了，试图使Line语句的for循环工作，但是，然后我无法让它们回到同一张图上。

我没有裁剪的情节是：

通过剪切得到的图适用于水平线，但是倾斜的线不再平行。 （来自下面的建议答案）

newlinelist = Map[({{x1,y1},{x2,y2}} = #[[1]];
    Line[{{Clip[x1,{0,1300}],Clip[y1,1300}]},{Clip[x2,Clip[y2,1300}]}}]) &,linelist]

解决方法

其他类型的编程语言在很大程度上取决于您编写For循环。在Mathematica中可以做到这一点，但是还有其他方法可以做到。例如：

linelist={
Line[{{-390,1},{1690,1}}],Line[{{-390,40},40}}],79},79}}],118},118}}],781},781}}],820},820}}],859},859}}],898},898}}],Line[{{-498,460},{1185,1682}}],Line[{{-521,491},{1162,1714}}],Line[{{-544,523},{1139,1745}}],Line[{{-567,554},{1116,1777}}],Line[{{-590,586},{1093,1809}}],Line[{{-613,617},{1070,1840}}],Line[{{-636,649},{1047,1872}}],Line[{{-659,681},{1024,1903}}],Line[{{946,-541},{1588,1437}}],Line[{{908,-528},{1551,1449}}],Line[{{871,-517},{1514,1462}}],Line[{{834,-504},{1477,1473}}],Line[{{797,-493},{1440,1486}}],Line[{{760,-481},{1402,1498}}],Line[{{723,-469},{1366,1510}}],Line[{{686,-457},{1328,1522}}],Line[{{1291,-237},{648,1741}}],Line[{{1255,-250},{611,1729}}],Line[{{1217,-261},{575,1717}}],Line[{{1181,-274},{538,1705}}],Line[{{1143,-285},{501,1693}}],Line[{{1107,-296},{463,1681}}],Line[{{1069,-309},{427,1668}}],Line[{{1032,-321},{389,1657}}],Line[{{995,-333},{352,1646}}],Line[{{958,-345},{316,1633}}],Line[{{1002,-638},{-680,584}}],Line[{{979,-668},{-703,553}}]};
newlinelist=Map[({{x1,y1},{x2,y2}}=#[[1]];
  Line[{{Clip[x1,{-1600,1600}],Clip[y1,1600}]},{Clip[x2,Clip[y2,1600}]}}])&,linelist
]

返回

{Line[{{-390,{1600,1600}}],553}}]}

使用Map函数可以获取列表和另一个 函数应用于该列表中的每个项目，并返回 结果。该函数为您的应用程序所做的是从Line中提取x1，y1，x2，y2值，然后使用Mathematica Clip函数来约束值并最终构造一个新的{{1} }和新值。

对于新用户而言，Line和#这些功能可能很难理解。

这是另一种写法，应该做同样的事情。

&

您应该验证它是否正确修剪了每条线 放在所需的-1600 ... 1600框中。

我有点担心结果。如果您比较这两个图形

f[Line[{{x1_,y1_},{x2_,y2_}}]]:=Line[{{Clip[x1,1600}]}}];
newlinelist=Map[f,linelist]

您可以看到它们的上部是不同的，这似乎不仅仅是因为修整了x和y的范围。请注意，第二行中的某些行不再平行。您应该尝试说服自己，这是否是您真正想要的。

获取不同图形的一种完全不同的方法是比较这两个图形，但又不更改行的基础列表

Graphics[linelist]
Graphics[newlinelist]

请注意，第二行中的所有行均保持平行。

您写道，您尝试使用Graphics[linelist] Graphics[linelist,PlotRange->{{-1600,1600},1600}}] 并没有成功，我认为您应该确切研究为什么该方法对您不起作用以及这种方法是否对您有用。