내 동생 인쇄하려면 만다라 기존 컬러링 대해 질문을 던졌습니다. 만드는 방법에 대한 어떤 생각 없이 싶다, 색상, 그래서 그는 색상 저들이요 수 있습니다.
예
이것은 하나의 이리게오나 up with " mandalas"; - 세그먼트를 생성하여 의해 한 후, 우리는 적절한 수의 회전은 깔의 " mandala".
예를 들어보겠습니다 작동입니다 랜덤 시드입니다 세그먼트마다 세대:
Clear[MakeSeedSegment]
MakeSeedSegment[radius_, angle_, n_Integer: 10, connectingFunc_: Polygon, keepGridPoints_: False] :=
Block[{t},
t = Table[
Line[{radius*r*{Cos[angle], Sin[angle]}, {radius*r, 0}}], {r, 0, 1, 1/n}];
Join[If[TrueQ[keepGridPoints], t, {}], {GrayLevel[0.25],
connectingFunc@
RandomSample[Flatten[t /. Line[{x_, y_}] :> {x, y}, 1]]}]
];
seed = MakeSeedSegment[10, \[Pi]/12, 10];
Graphics[seed, Frame -> True]
이 함수는 주어진 시드입니다 세그먼트마다 통해 표현된다.
Clear[MakeSymmetric]
MakeSymmetric[seed_] := {seed,
GeometricTransformation[seed, ReflectionTransform[{0, 1}]]};
seed = MakeSymmetric[seed];
Graphics[seed, Frame -> True]
만다라 시드입니다 세그먼트마다 사용하여 다른 사양명세를 서명을 통해 생성할 수 있습니다.
Clear[MakeMandala]
MakeMandala[opts : OptionsPattern[]] :=
MakeMandala[
MakeSymmetric[
MakeSeedSegment[20, \[Pi]/12, 12,
RandomChoice[{Line, Polygon, BezierCurve,
FilledCurve[BezierCurve[#]] &}], False]], \[Pi]/6, opts];
MakeMandala[seed_, angle_?NumericQ, opts : OptionsPattern[]] :=
Graphics[GeometricTransformation[seed,
Table[RotationMatrix[a], {a, 0, 2 \[Pi] - angle, angle}]], opts];
이 코드는 임의로 선택함 시메트리시 및 시드입니다 세대 매개변수입니다 (수가 있으며, 원, ᄀ형강, 연결 함수):
n = 12;
Multicolumn@
MapThread[
If[#1,
MakeMandala[MakeSeedSegment[10, #2, #3], #2],
MakeMandala[MakeSymmetric[MakeSeedSegment[10, #2, #3, #4, False]],
2 #2]
] &, {RandomChoice[{False, True}, n],
RandomChoice[{\[Pi]/7, \[Pi]/8, \[Pi]/6}, n],
RandomInteger[{8, 14}, n],
RandomChoice[{Line, Polygon, BezierCurve, FilledCurve[BezierCurve[#]] &}, n]}]
이 방법은 보다 간결한 발령합니다 대칭 세그먼트마다 만다라:
Multicolumn[Table[MakeMandala[], {30}], 5]
이 시점에서 우리는 혼합 및 / 또는 컬러링 생성된 만다라 생각할 수 있다.
만다라 (one way to do) 는 일련의 만다라 그래픽 이미지로 블렌드하는 변환하십시오 가중 및 이 작은 이미지 블렌드하는 견본이요.
이 방법을 사용하면 더 나은 결과를 다각형 '와' 나는 attaboy 보았으매 사용할 때만 ',' 에서 '막시드세그먼트 & 필드커브 [베시에르쿠르베 [#]]'.
iSize = 400;
AbsoluteTiming[
mandalaImages =
Table[Image[
MakeMandala[
MakeSymmetric@
MakeSeedSegment[10, \[Pi]/12, 12,
RandomChoice[{Polygon,
FilledCurve[BezierCurve[#]] &}]], \[Pi]/6],
ImageSize -> {iSize, iSize}, ColorSpace -> "Grayscale"], {200}];
]
(* {20.5542, Null}
Multicolumn[Table[
RemoveBackground@
ImageAdjust[
Blend[Colorize[#,
ColorFunction ->
RandomChoice[{"BrightBands", "IslandColors",
"FruitPunchColors", "AvocadoColors", "Rainbow"}]] & /@
RandomChoice[mandalaImages, 4], RandomReal[1, 4]]], {30}], 5]
[이 앨범의] 참조 (http://imgur.com/a/DQpxf) 를 만다라 생성할지 작업 중 여러 단계에서 여기있을 질문 / 답변.
이를 위해 정의된, 다음 세 가지 유형의 레이어, 꽃, 한 번 I& # 39 는 단순한 원 및 링 오브 작은 원. 다양한 더욱 더 추가할 수 있다.
flower[n_, a_, r_] := Module[{b = RandomChoice[{-1/(2 n), 0}]},
Cases[ParametricPlot[
r (a + Cos[n t])/(a + 1) {Cos[t + b Sin[2 n t]], Sin[t + b Sin[2 n t]]}, {t, 0, 2 Pi}],
l_Line :> FilledCurve[l], -1]]
disk[_, _, r_] := Disk[{0, 0}, r]
spots[n_, a_, r_] := Translate[Disk[{0, 0}, r a/(4 n)], r CirclePoints[n]]
mandala[n_, m_] := Graphics[{EdgeForm[Black], White, Table[
RandomChoice[{3, 2, 1} -> {flower, disk, spots}][n,
RandomReal[{3, 5}], i]~Rotate~(Pi i/n), {i, m, 1, -1}]},
PlotRange -> All]
GraphicsGrid[Table[mandala[16, 20], {2}, {2}]]
콤프레틀리 평가판의 &. 장난치지 데이터베이스에구성원을 heart& # 39 의 오류 수 있지만 이 내용:
a = DeleteDuplicates[RotationMatrix[ # Pi/5].{Cos[Log@t] + t Sin[t],
Sin[Log@t] - t Cos[t] + 12} & /@ Range@12];
b = DeleteDuplicates[RotationMatrix[ # Pi/5].(2 {Cos[2 t], Sin[2 t] + 24}) & /@
Range@12];
c = DeleteDuplicates[RotationMatrix[ # Pi/5].(2 {Cos[2 t], Sin[2 t] + 2}) & /@ Range@12];
d = DeleteDuplicates[RotationMatrix[ # Pi/5].(.5 {Cos[2 t], Sin[2 t] + 48}) & /@
Range@12];
Quiet@Show[
With[{x =
ParametricPlot[a, {t, .0001, Sqrt@Pi*Pi},
PlotRange -> ({{-#, #}, {-#, #}} &@#), Ticks -> None,
AspectRatio -> Automatic, PlotStyle -> {Red, Black},
Axes -> False, PlotPoints -> 1000]}, x],
With[{x =
ParametricPlot[2 a, {t, .0001, Sqrt@Pi*Pi},
PlotRange -> ({{-#, #}, {-#, #}} & #), Ticks -> None,
AspectRatio -> Automatic, PlotStyle -> {Red, Black},
Axes -> False, PlotPoints -> 1000]}, x],
With[{x =
ParametricPlot[4 a, {t, .0001, Sqrt@Pi*Pi},
PlotRange -> ({{-#, #}, {-#, #}} & #), Ticks -> None,
AspectRatio -> Automatic, PlotStyle -> {Red, Black},
Axes -> False, PlotPoints -> 1000]}, x],
With[{x =
ParametricPlot[(# {Cos[2 t], Sin[2 t]} & /@ {9, 19, 36, 38, 68, 70}),
{t, 0, Pi}, PlotRange -> ({{-#, #}, {-#, #}} &@#),
Ticks -> None, AspectRatio -> Automatic,
PlotStyle -> {Red, Black}, Axes -> False,
PlotPoints -> 1000]}, x],
With[{x =
ParametricPlot[b, {t, 0, Pi},
PlotRange -> ({{-#, #}, {-#, #}} &@#), Ticks -> None,
AspectRatio -> Automatic, PlotStyle -> {Red, Black},
Axes -> False, PlotPoints -> 1000]}, x],
With[{x =
ParametricPlot[c, {t, 0, Pi},
PlotRange -> ({{-#, #}, {-#, #}} &@#), Ticks -> None,
AspectRatio -> Automatic, PlotStyle -> {Red, Black},
Axes -> False, PlotPoints -> 1000]}, x],
With[{x =
ParametricPlot[d, {t, 0, Pi},
PlotRange -> ({{-#, #}, {-#, #}} &@#), Ticks -> None,
AspectRatio -> Automatic, PlotStyle -> {Red, Black},
Axes -> False, PlotPoints -> 1000]}, x]
] &@80
기계 학습 알고리즘을 사용하는 요점이지 생성을 위해 만다라 이미지를생성하여 언급된 설명을 [저의 이전 오토메이티드] (https://mathematica.stackexchange.com/a/136986/34008) 는 명확한 이 블로그 포스트:
음수 미포함 행렬 분해 (네모프) 이 있는 것을 알 수 있습니다. [seed 가 세그먼트마다 순환부터 알고리즘입니다] 에서 만든 만다라 (https://mathematica.stackexchange.com/a/136986/34008) 푸십시오 레이어에는 유형 및 놓다 하도록 하는 [컬러 만다라] (http://i.imgur.com/gPcN1WY.png). 같은 방식으로 비정칙치분해 (SVD) 또는 [독립 성분 분석 (ICA)] (https://mathematica.stackexchange.com/a/115740) 가 발생하지 않습니다 优秀 레이어에는 및 중첩 [더 적은 ", watered-down", 다양한 만다라] (http://i.imgur.com/nzvVc7L.png).
다음은 생산 기지, SVD, ICA) 와 함께 네모프:
Svd 및 그 모양을 따라 다른 기록하십시오 네모프 비해 ICA.
다음은 함께 생산된 컬러 만다라 네모프:
프레젠테이션을 크리스씨가 칼슨 (라이) 에서) 에서 2016년 설계 및 참조용이므로 준 월드 트레이드 센터 ich5r 공백을 밀접한 이 토론에 대한.
크리스씨가 칼슨, [" 설계, 사회적 우주 공간: A Proposal"] (http://wac.36f4.edgecastcdn.net/0036F4/pub/www.wolfram.com/technology-conference/2016/SocialExplorationOfDesignSpaces.nb), (2016년), 볼프람 기술 콘퍼런스 2016년. (https://partner. microsoft. 노트북).
[프레젠테이션 http://support. 유튜브 동영상] (https://www.youtube.com/watch? v = YK2523nfcms).
노트북 사용할 경우 프레젠테이션입니다 다운로드하십시오 동적임 인터페이스입니다 만다라 코드를 생성할 수 있습니다. 다중지표의 절댓값은 그 성분들의 합이다.
! [입력하십시오. 이미지 여기에 설명을] [1] ! [입력하십시오. 이미지 여기에 설명을] [2] ! [입력하십시오. 이미지 여기에 설명을] [3]
g = GraphData /@ GraphData["Cayley", ;; 10];
일부 즐겨찾기:
{g[[5]], g[[15]], g[[21]], g[[22]]}
도움말을 보면 그래프다타 '에 대해 더 많은' 을 정의할 수 있다.
최근 함수 ['란도먼달라'] (https://resources.wolframcloud.com/FunctionRepository/resources/RandomMandala) 추가된 [볼프람 함수은 리포지토리를] (https://resources.wolframcloud.com/FunctionRepository/).
다음은 실행하십시오 멀티 만다라 모드 참조용이므로 노트북에 " 함께 reversecolor"; 스타일시트가:
SeedRandom[5798]
Multicolumn[
Table[ResourceFunction["RandomMandala"][
"Radius" -> RandomChoice[{Identity, Log, #^1.618 &, #^0.618 &, ArcCot, ArcSec}][Reverse@Range[8, 2, -2.]],
"RotationalSymmetryOrder" -> RandomChoice[{3, 4, 5, 6, 9, 12}],
"ConnectingFunction" -> FilledCurve@*BezierCurve,
ColorFunction -> "Rainbow", ImageSize -> Medium], 15], 5]
위한 색칠 (OP 하고 있다).
SeedRandom[22827]
Multicolumn[
Table[ResourceFunction["RandomMandala"][
"Radius" -> RandomChoice[{Identity, Log, #^1.618 &, #^0.618 &, ArcCot, ArcSec}][Reverse@Range[6, 2, -2.]],
"RotationalSymmetryOrder" -> RandomChoice[{3, 4, 5, 6, 9}],
"ConnectingFunction" -> BezierCurve, ColorFunction -> (Black &),
ImageSize -> Medium], 12], 4]