Mathematica中2D圖上的多個線段的圖形

Question

我想在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]