20/06/20 18:41:10 tzFG6qz7.net
Rで描いてみた
f <- function(x,y) (y^2 + y^-2)*x^-2
x=y=seq(-20,20,len=200)
z=outer(x,y,f)
contour(x,y,z,levels = 1, bty='n',drawlabels = F,asp=1)
URLﾘﾝｸ(i.imgur.com)
g <- function(x,y) x^2+x^-2 - y^2 -y^-2
w=outer(x,y,g)
contour(x,y,w,levels=0, bty='n', drawlabels=F, asp=1)
URLﾘﾝｸ(i.imgur.com)