сюжет из нескольких отрезков на 2D-графике в Mathematica

Question

Я хотел бы построить несколько, возможно, тысячи отрезков на одном 2D графике в Mathematica.Эти линейные сегменты будут определены из алгоритма, который обнаружит и сохранит конечные точки каждого сегмента.После того, как алгоритм определил все отрезки линии в пределах конечной 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]