x<-y<-seq(from=-2,to=2,by=0.01) xy<-expand.grid(x,y) a<-4 b<-4 z<-(xy[,1]^2+xy[,2]^2)^2-2*a^2*(xy[,1]^2-xy[,2]^2)+a^4 image(x,y,matrix(z,length(x),length(y)))
遺伝学・遺伝統計学関連の姉妹ブログ『ryamadaの遺伝学・遺伝統計学メモ』
京都大学大学院医学研究科ゲノム医学センター統計遺伝学分野のWiki
講義・スライド
医学生物学と数学とプログラミングの三重学習を狙う学習ツール
駆け足で読む○○シリーズ
ぱらぱらめくるシリーズ
カシオの計算機
オンライン整数列大辞典