TheodoreGray - Slashdot User

Submission + - Cutting steel with flaming bacon weapons

Submitted by

Ed Pegg

on Wednesday April 15, 2009 @10:46AM

Ed Pegg writes: "For Popular Science , Theo Gray demonstrates the Bacon Lance, a flaming meatsword that can cut through steel. Yes, with some ordinary bacon, and some pure oxygen, it's possible to cut through security doors. This comes out right after his profusely illustrated book of science experiments, Mad Science . When he's not working on experiments or his periodic table, Theo's alter-ego is a mild-mannered programmer for Mathematica ."

Comment Re:Maxima (Score 2, Informative) 234

by TheodoreGray on Thursday November 20, 2008 @01:38AM (#25827881) Attached to: Wolfram Research Releases Mathematica 7

For what it's worth, the equivalent input in Mathematica is a bit simpler:

q = RotationMatrix[t, {0, 0, 1}];
Simplify[q . Array[t, {3, 3}] . Transpose[q]]

The output is:

{{Cos[t]^2 t[1, 1] - Cos[t] Sin[t] (t[1, 2] + t[2, 1]) + Sin[t]^2 t[2, 2], Cos[t]^2 t[1, 2] - Sin[t]^2 t[2, 1] + Cos[t] Sin[t] (t[1, 1] - t[2, 2]), Cos[t] t[1, 3] - Sin[t] t[2, 3]}, {-Sin[t]^2 t[1, 2] + Cos[t]^2 t[2, 1] + Cos[t] Sin[t] (t[1, 1] - t[2, 2]), Sin[t]^2 t[1, 1] + Cos[t] Sin[t] (t[1, 2] + t[2, 1]) + Cos[t]^2 t[2, 2], Sin[t] t[1, 3] + Cos[t] t[2, 3]}, {Cos[t] t[3, 1] - Sin[t] t[3, 2], Sin[t] t[3, 1] + Cos[t] t[3, 2], t[3, 3]}}

And it doesn't crash.

Slashdot Top Deals