wolfram-mathematica - Mathematica 中二维图上的多条线段图

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

最佳答案

像这样的东西？

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]

关于wolfram-mathematica - Mathematica 中二维图上的多条线段图，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4642826/