Mathematica中2D图上多个线段的图

Question

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

Answer 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]