Rで息抜き

July 29 [Fri], 2016, 12:12
javaの勉強の息抜きにRでハート関数をつくった。



\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
heart <- function(x1){
curve(sqrt(abs(x))+sqrt(x1^2-x^2),xlim=c(-x1,x1),ylim=c(-x1,2*x1),asp=1)
par(new=T)
curve(sqrt(abs(x))-sqrt(x1^2-x^2),xlim=c(-x1,x1),ylim=c(-x1,2*x1),asp=1,ylab="")
}
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

こんだけ。

たとえば、x1=1とすると、次のような感じ。


増えるにつれて、デブくなるので、改良が必要かも。
P R
プロフィール
  • プロフィール画像
  • アイコン画像 ニックネーム:たか
読者になる
2016年07月
« 前の月    |    次の月 »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
最新コメント
ヤプミー!一覧
読者になる