NSFW Tumblr : mathematica

search mathematica on PinDuck or ClipFuck or XXX search

more

tags

pin porn

submit your pics

$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 ,$

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$

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*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: 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: 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: 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: 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: 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: 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]],

1 2 »