2013年11月19日のつぶやき
@takeshou: RT @MinatoNakazawa: Rでfg<-function(x,y)sqrt(abs(x))+y*sqrt(5-x^2);s<-sqrt(5-1E-15);curve(fg(x,1),-s,s,ylim=c(-2,3),col=6);curve(fg(x,-1),-…
@takeshou: RT @MinatoNakazawa: Rでfg<-function(x,y)sqrt(abs(x))+y*sqrt(5-x^2);s<-sqrt(5-1E-15);curve(fg(x,1),-s,s,ylim=c(-2,3),col=6);curve(fg(x,-1),-…