mathematica : NSFW Tumblr

HOME | BLOGS | TAGS | CONTACT

PinDuck

find mathematica on porn pin board

ClipFuck

mathematica clips

StoPorn

mathematica videos

Jizz2

mathematica images

$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