Mathematica 二维图中的多条线段图

Question

我想在 Mathematica 的单个二维图中绘制多个，也许数千个线段。这些线段将通过检测并保存每个线段端点的算法来确定。一旦算法确定了有限二维绘图域和范围（例如，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 *)

哈！

编辑

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

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