在 Mathematica 中的 2D 图上绘制多条线段答案

【问题标题】：plot of multiple line segments on 2D plot in Mathematica在 Mathematica 中的 2D 图上绘制多条线段
【发布时间】：2011-01-10 00:39:33
【问题描述】：

我想在 Mathematica 中的一个 2D 图上绘制多个，也许是数千个线段。这些线段将由检测并保存每个线段端点的算法确定。一旦算法确定了有限二维绘图域和范围内的所有线段（例如，x = 0,4 和 y=0,0.5），我想将它们全部绘制在一个绘图上。感谢您的任何建议。

【问题讨论】：

标签： wolfram-mathematica

【解决方案1】：

这样的？

detectEndPoints := {
   {RandomReal[{0, 4}], RandomReal[{0, 5}]},
   {RandomReal[{0, 4}], RandomReal[{0, 5}]}};

segments = Table[detectEndPoints , {1000}]; 

(* Graphics[Line /@ segments]   Old Way *)
Graphics[Line @ segments]  (* Valid since V6. Thanks @Mark McClure *)

HTH！

编辑

重新阅读您的问题，我不确定您是通过一次确定一个端点还是一组非连接线段（如上）来生成连续线。以防万一你走的是连续的路：

detectEndPointsV2[i_] := {Cos[2 Pi i 17/100], Sin[2 Pi 17 i/100]}; 
segments = Table[detectEndPointsV2[i], {i, 101}]; 
Graphics[Line@segments]

【讨论】：

请注意，从 V6 开始，您可以在这两种情况下使用 Graphics[Line@segments]；在第一种情况下，您不需要将线映射到线段上。这大大加快了渲染速度。如果您想绘制 10,000 个片段，这会产生很大的不同。