mathematica
NSFW Tumblr
find mathematica on porn pin board
mathematica clips
intothecontinuum: Inspired by an exhibit in the Gallery Room in Antichamber Mathematica code: v[x_, y_, z_] = Flatten[Table[ {(-1)^i*x, (-1)^j*y, (-1)^k*z}, {i, 0, 1}, {j, 0, 1}, {k, 0, 1} ], 2];f = {{1 , 2 , 4 , 3 }, {1 , 2 , 6 , 5 }, {5 ,
alexh-g: Unleashing the nerd in me with some mathematica gifs.
Hoofston, we have a problem Sorry for the terrible pun in the title. It’s my part of an art trade with Palibyte Twilight, you should look happy, that’s Princess Pythagoras, ruler of Mathematica, your fav science. No that’s not weird.
wolframalpha: This image depicts every full-length animated Disney film, from Snow White to Wreck-It Ralph—and it was created using Wolfram’s Mathematica software!Read more about the process (and the Disney Animated app this is part of) over on our
ndiecity:fruitsoftheweb: “mathematica_gif25.gif“ Me waking up and getting ready for work
oupacademic: A Very Short Fact: On this day in 1687, Isaac Newton published his landmark book Philosophiæ Naturalis Principia Mathematica. The book, often referred to as the Principia, outlines Newton’s laws of motion and universal gravity, and is
maihudson: Mathematica code:W[x_,y_,w_,a_,t_]:= w((Cos[a] + Sin[a])x + (Sin[a] - Cos[a])y) + t*2Pi Manipulate[ Graphics[ Table[ {White, Disk[ {x,y} + .2{Cos[W[x,y,.6,.5Pi,t]], Sin[W[x,y,.6,.5Pi,t]]}, .35]}, {x,-10,10}, {y,-14,14}], ImageSize
asoulman: “A true teacher is someone who helps you discover the teacher in yourself.” — Thich Nhat Hanh Image: Mathematica
intothecontinuum: Mathematica code: S[n_, t_] := Sin[n*3 Pi/50 + t]ListAnimate[ Show[ Table[ Plot[ 100 - n + (20*Abs[S[n,t]] + .02)*Exp[-(x - 4*S[n, t])^2/Abs[S[n,t]]], {x, -10, 10}, PlotStyle -> Directive[Black, Thick], PlotRange
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 ->
intothecontinuum: Best if viewed on your Tumblr dashboard Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotStyle -> Directive[White, AbsoluteThickness[3]],
intothecontinuum: Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotStyle -> Directive[Black, AbsoluteThickness[3]], PlotRange -> {{0, 4 Pi}, {-.3, Y}},
intothecontinuum: Mathematica code:Rot80 = Table[ Table[ RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]], {v, 1, 8, 1}],{a, 0, 2 Pi, Pi/80}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}CubeTrail[h_, op_, N_, s_, r_,
![intothecontinuum: Inspired by an exhibit in the Gallery Room in Antichamber Mathematica code: v[x_, y_, z_] = Flatten[Table[ {(-1)^i*x, (-1)^j*y, (-1)^k*z}, {i, 0, 1}, {j, 0, 1}, {k, 0, 1} ], 2];f = {{1 , 2 , 4 , 3 }, {1 , 2 , 6 , 5 }, {5 ,](https://64.media.tumblr.com/ae9efa7052ff40c320adce111197e113/tumblr_n51jvyT62I1qfjvexo1_250.gif)
![maihudson: Mathematica code:W[x_,y_,w_,a_,t_]:= w((Cos[a] + Sin[a])x + (Sin[a] - Cos[a])y) + t*2Pi Manipulate[ Graphics[ Table[ {White, Disk[ {x,y} + .2{Cos[W[x,y,.6,.5Pi,t]], Sin[W[x,y,.6,.5Pi,t]]}, .35]}, {x,-10,10}, {y,-14,14}], ImageSize](https://64.media.tumblr.com/f41294f4bb91227c5f56c35b833bd516/tumblr_nnp3guF0Bm1sn5m9vo1_250.gif)
![intothecontinuum: Mathematica code: S[n_, t_] := Sin[n*3 Pi/50 + t]ListAnimate[ Show[ Table[ Plot[ 100 - n + (20*Abs[S[n,t]] + .02)*Exp[-(x - 4*S[n, t])^2/Abs[S[n,t]]], {x, -10, 10}, PlotStyle -> Directive[Black, Thick], PlotRange](https://64.media.tumblr.com/tumblr_m4v5wx49rr1qfjvexo1_250.gif)
![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 ->](https://64.media.tumblr.com/tumblr_m57zrlLlVx1qfjvexo1_250.gif)
![intothecontinuum: Best if viewed on your Tumblr dashboard Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotStyle -> Directive[White, AbsoluteThickness[3]],](https://64.media.tumblr.com/2f1951c97dbbbf65d19295972a420e46/tumblr_nefr9tQu3W1qfjvexo1_250.gif)
![intothecontinuum: Mathematica code: P[A_, f_, w_, h_, M_, Y_, t_] := Plot[ Table[ A*Sin[f*x + t + n*2 Pi/w] + h*n, {n, 1, M, 1}], {x, 0, 4 Pi}, PlotStyle -> Directive[Black, AbsoluteThickness[3]], PlotRange -> {{0, 4 Pi}, {-.3, Y}},](https://64.media.tumblr.com/7a9ed88548fe4ae50e5ca548a8ffb424/tumblr_mjh3tdtQVy1qfjvexo1_250.gif)
![intothecontinuum: Mathematica code:Rot80 = Table[ Table[ RotationTransform[a, {1, 1, 0}, {0, 0, 0}][Tuples[{-1, 1}, 3][[v]]], {v, 1, 8, 1}],{a, 0, 2 Pi, Pi/80}]Edge := {1, 2, 4, 3, 7, 8, 6, 5, 1, 3, 4, 8, 7, 5, 6, 2}CubeTrail[h_, op_, N_, s_, r_,](https://64.media.tumblr.com/tumblr_me70b6T4Nx1qfjvexo1_250.gif)