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]