正負の無限大の曲率を持つ閉曲線としてハート関数を使ってみる # ハート n <- 100000 t <- seq(from=0,to=1,length=n+1) x <- cos(t*2*pi) y <- (sin(t*2*pi)+(x^2)^(1/3)) x <- x[-1] y <- y[-1] plot(x,y) # 最初の点と最後の点の座標は同じなので、その重…