Hallo zusammen,
In[10]:= Remove[mlCard]
mlCard[pts_ (* Multizentrum (Punkte in 2D) *),
m_Integer?Positive (* Samplegroesse *),
n_Integer?Positive (* Anzahl der Samples *),
s_Integer?Positive (* Farbschemanummer *)] := Module[{pp, pL, pF},
pp = Join[{pts}, RandomSample[#, m] & /@ Table[pts, {n}]];
pL = 1.02 polyL /@ pp;
pF = PadRight[{}, Length[pp], ColorData[s, "ColorList"]];
Show[
Table[
Graphics[{EdgeForm[White], FaceForm[Opacity[0.07, pF[[o]]]],
Polygon[FullForm[mzL[pp[[o]], pL[[o]]]][[1, 1, 1]]]}],
{o, Length[pp]}],
Epilog -> {PointSize[Large], White, Point[pts]},
Background -> White,
PlotLabel ->
Text[Style["Frohes Neues Jahr!", Hue[RandomReal[]], Italic, 28]],
AspectRatio -> 1/GoldenRatio]
] /; VectorQ[pts, VectorQ[#, NumericQ && Length[#] == 2] &] &&
m < Length[pts]
In[62]:= mlCard[Flatten[l2012, 1], 3, 106, 2]
mit anderen Worten:
Frohes Neues Jahr!
Udo.
P.S.:
In[12]:= Clear[l2012, x2, x1, x0]
x2 = {(* 2 *) {0.4, 0}, {1, 0}, {2, 0}, {3, 0}, {4, 0}, {5, 0},
{1, 1}, {2, 2}, {3, 3}, {4, 4}, {4.6, 5}, {4, 5.8}, {3, 6}, {2,
5.8}, {1, 5.3}, {0.4, 4.8}};
x0 = {{0, 0.3}, {1, 0.8}, {2, 1.8}, {2.5, 3}, {2, 4}, {1, 5}, {0,
5.6}, {-1, 5}, {-2, 4}, {-2.5, 3}, {-2, 1.8}, {-1, 0.8}};
x1 = {{-2, 4}, {-1, 5}, {0, 6}, {0, 5}, {0, 4}, {0, 3}, {0, 2}, {0,
1}, {0, 0}};
l2012 = {x2, Plus[{9, 0}, #] & /@ x0, Plus[{15.3, 0}, #] & /@ x1,
Plus[{17.3, 0}, #] & /@ x2};
beinahe wÀre es ein OneLiner geworden ... Gruss Udo.
dmug2012.jpg
Description: JPEG image
