VOYAGE GROUP エンジニアブログ : Rを使ってお絵描き（アンパンマン方程式）2011年09月16日13:03 カテゴリRネタ Rを使ってお絵描き（アンパンマン方程式） こんにちは、ECナビの水越(@Akiyah)です。 Rでお絵描きの完結編です。アンパンマン方程式というものを作ってみました。 この方程式を解くと、こうなります。 アン、アン、アンパンマーン！ Rのコードはこんな感じです。library(rgl) # パッケージの呼び出し open3d() # デバイスの起動 rgl.bg(color="#808080") rgl.light(theta = 5, phi = 5) x <- seq(-110, 110, length = 880) y <- x anpanman <- function(x,y) { s(((x )/85)^2+((y )/85)^2-1) * # face s(((x-55)/24)^2+((y +5)/24)^2-1) * # c
