Harry Cheese

chronometerpics:

Wristwatch - General

chronometerpics:

Wristwatch - General
4gifs:

Cat: Nobody mauls my humans but me! [video]

4gifs:

Cat: Nobody mauls my humans but me! [video]

(Source: ForGIFs.com, via 4gifs)

automotivated:

BMW Vision Gran Turismo (by Car Fanatics)

automotivated:

BMW Vision Gran Turismo (by Car Fanatics)

(via automotivated)

4gifs:

(V) (ಠ„,ಠ) (V)
woop woop woop

4gifs:

(V) (ಠ„,ಠ) (V)

woop woop woop

(Source: ForGIFs.com, via 4gifs)

themottoismusic:

San Fran. Gymkhana five .2

themottoismusic:

San Fran. Gymkhana five .2

(Source: maad-hip-hop, via automotivated)

fouriestseries:

Non-Orientable Surfaces

An orientable surface is a surface on which it’s possible to make a consistent definition of direction. Most surfaces we encounter – like spheres, planes, and tori (doughnut shapes) – are orientable. When visualized in three dimensions, orientable surfaces have two distinct sides.

Non-orientable surfaces, on the other hand, have only one side. From Wikipedia, “The essence of one-sidedness is that [an] ant can crawl from one side of the surface to the ‘other’ without going through the surface or flipping over an edge, but simply by crawling far enough.” At any point on a non-orientable surface it’s impossible to uniquely define, for example, the “clockwise” direction.

The GIFs above show two examples of non-orientable surfaces: a Klein bottle and a Möbius strip.

Mathematica code [Klein Bottle]:

xk[u_, v_] := (-2/15)*Cos[u]*(3*Cos[v] - 30*Sin[u] + 
   90*Cos[u]^4*Sin[u] - 60*Cos[u]^6*Sin[u] + 5*Cos[u]*Cos[v]*Sin[u])
yk[u_, v_] := (-15^(-1))*Sin[u]*(3*Cos[v] - 3*Cos[u]^2*Cos[v] - 
   48*Cos[u]^4*Cos[v] + 48*Cos[u]^6*Cos[v] - 60*Sin[u] + 
   5*Cos[u]*Cos[v]*Sin[u] - 5*Cos[u]^3*Cos[v]*Sin[u] - 
   80*Cos[u]^5*Cos[v]*Sin[u] + 80*Cos[u]^7*Cos[v]*Sin[u])
zk[u_, v_] := (2/15)*(3 + 5*Cos[u]*Sin[u])*Sin[v]
kb[u_, v_] := {xk[u, v], yk[u, v], zk[u, v]}
Manipulate[ParametricPlot3D[kb[u, v], {u, 0, umax}, {v, 0, 2*Pi}, 
   PlotRange -> {{-1.8, 2}, {0, 4.5}, {-0.75, 0.75}}, Axes ->
   False, Boxed -> False, PlotStyle -> {Opacity[0.65]},
   Mesh -> {20, 11}, MeshStyle -> 
   Directive[Gray, Opacity[0.65], Thickness[0.003]]], 
   {umax, 0.001, Pi}]

Mathematica code [Möbius Strip]:

xm[u_, v_] := (1 + (v/2)*Cos[u/2])*Cos[u]
ym[u_, v_] := (1 + (v/2)*Cos[u/2])*Sin[u]
zm[u_, v_] := (v/2)*Sin[u/2]
ms[u_, v_] := {xm[u, v], ym[u, v], zm[u, v]}
Manipulate[ParametricPlot3D[
   ms[u, v], {u, 0, umax}, {v, -1, 1}, 
   PlotRange -> {{-1.1, 1.5}, {-1.5, 1.5}, {-0.5, 0.5}}, 
   PlotStyle -> {Opacity[0.65]}, Axes -> False, Boxed ->
   False,  Mesh -> {20, 5}, MeshStyle -> 
   Directive[Gray, Opacity[0.65], Thickness[0.003]]],
{umax, 0.001, 2*Pi}]

(via visualizingmath)