昨日はWikipediaやWolframの貝のパラメタ表示のメモをした 自分なりのそれも作りたい ムール貝風 phis <- seq(from=0,to=pi/8,length=100) rs <- sin(seq(from=0,to=pi,length=length(phis))) t <- seq(from=-50,to=-1,length=300) k <- 0.3 theta <- 0.1 X …