Shop Phinilez's store featuring unique art on various products across art prints, tech accessories, apparels, and home decor goods. Worldwide shipping available.

intothecontinuum:   Mathematica code: S[n_, t_] := Sin[n*2 Pi/50 + t]ListAnimate[ Show[   Table[    Plot[     100 - n + (10*S[n,t] + .02)*Exp[-(x - 4.5*S[n, 0])^2/Abs[S[n,t]]],      {x, -10, 10},    PlotStyle - Directive[Black, Thick], PlotRange - {{-7, 7}, {0, 100.5}},    Filling - Axis, FillingStyle - White, Axes - False, AspectRatio - Full,     ImageSize - {500, 750}],  {n, -10, 100, 1}]],{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning-False]

intothecontinuum: Mathematica code: S[n_, t_] := Sin[n*2 Pi/50 + t]ListAnimate[ Show[ Table[ Plot[ 100 - n + (10*S[n,t] + .02)*Exp[-(x - 4.5*S[n, 0])^2/Abs[S[n,t]]], {x, -10, 10}, PlotStyle - Directive[Black, Thick], PlotRange - {{-7, 7}, {0, 100.5}}, Filling - Axis, FillingStyle - White, Axes - False, AspectRatio - Full, ImageSize - {500, 750}], {n, -10, 100, 1}]],{t, .001, 2 Pi + .001, (2 Pi + .001)/30}, AnimationRunning-False]

I love the repeating pattern of this print. It would be a great fabric for chairs or wallpaper! It's also got an illusion aspect that I like.

I love the repeating pattern of this print. It would be a great fabric for chairs or wallpaper! It's also got an illusion aspect that I like.

maihudson:Mathematicaコード:W [X_、Y_、W_、A_、T _]:= W((コス[A] +シン[A])X +(シン[A] - コス[A])Y)+ T * [グラフィック[表[{ホワイト、ディスク[{X、Y} + 0.2 {コスを操作2PI [W [X、Y、0.6、.5Pi、T]]、罪[W [X、Y、0.6、 .5Pi、T]]}、0.35]}、{X、-10,10}、{Y、-14,14}]、ImageSizeの - > {500700}、背景 - > RGBColor [53 / 255,70 / 255,94 / 255]、PlotRange - > {{-11,11}、{ - 15,15}}]、{T、0,1}]この感動的な事を見てください!

maihudson:Mathematicaコード:W [X_、Y_、W_、A_、T _]:= W((コス[A] +シン[A])X +(シン[A] - コス[A])Y)+ T * [グラフィック[表[{ホワイト、ディスク[{X、Y} + 0.2 {コスを操作2PI [W [X、Y、0.6、.5Pi、T]]、罪[W [X、Y、0.6、 .5Pi、T]]}、0.35]}、{X、-10,10}、{Y、-14,14}]、ImageSizeの - > {500700}、背景 - > RGBColor [53 / 255,70 / 255,94 / 255]、PlotRange - > {{-11,11}、{ - 15,15}}]、{T、0,1}]この感動的な事を見てください!

Pinterest
Search