hirax.net::inside out::2013年01月24日

■シュワルツネッガー・ファインマン…あの有名人（の顔）曲線を、検索エンジンWolfram Alphaで描いてみよう！　

　数式処理ソフトMathematicaの開発元であるWolframが提供している検索エンジンWolfram Alphaでは、「有名人（の顔）曲線」を眺めることができます。たとえば、 Albert Einstein curveと検索すると、アルバート・アインシュタインの顔をパラメータ曲線として描いたグラフ画像を眺めることができます。

　今日は、そんな「有名人（の顔）曲線」の一覧を作ってみました。どの顔が「誰であるか」がわかるでしょうか？あるいは、どこかに隠れているはずの「アーノルド・シュワルツネッガー」を見つけ出すことができるでしょうか？

　ちなみに、登場している人（曲線）たちは、Justin Bieber-like curve,Silvio Berlusconi curve,Wolf Blitzer curve,Charlie Chaplin curve,Anderson Cooper curve,Tom Cruise curve,Dalai Lama curve,Ellen DeGeneres curve,Paul Adrien Maurice Dirac curve,Albert Einstein curve,Richard Feynman curve,Bill Gates curve,Goethe curve,Che Guevara curve,Adolf Hitler curve,Angelina Jolie curve,Kim Jong Un curve,Lady Gaga curve,Jay Leno-like curve,David Letterman curve,Abraham Lincoln curve, curve,Marx-Engels-Lenin curve,Angela Merkel curve,Barack Obama curve,Barack Obama (with hair) curve,Conan O'Brien curve,PSY curve,Vlamidir Putin curve,Srinivas Ramanujan curve,Mitt Romney curve,Arnold Schwarzenegger curve,Josef Stalin curve,Stephen Wolfram curve,Howard Stern curve,John von Neumann curve,Oprah Winfrey curveといった具合です。そして、この画像群を作るためのMathematicaコードは

list = WolframAlpha["Person curve", "Result"];
result = Table[
  a = (WolframAlpha[#, "PodCells"][[2]]) &@
(list[[#]]) & @@ {i};
  Export["temp.jpg", a];
  ImageCrop[Image@Import["temp.jpg"],
 {210, 210}, {Right, Bottom}]
  , {i, 1, Length@list}]