タグ

関連タグで絞り込む (1)

タグの絞り込みを解除

netaとRに関するnsyeeのブックマーク (1)

  • 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

    nsyee
    nsyee 2013/10/15
  • 1