３次元の分布があって、そこに値がある。同じ値の点が曲面を作っているときに、この曲面は３次元空間の等高面 それを塗り分ける # トーラスに値があるとしよう k <- 3 # 乱点でトーラス n.pt <- 100000 # 主要半径 R <- 5 # 副半径 r <- runif(n.pt) # 主要…