20/07/27 18:46:19.22 fq88ge5a.net
>>695
x<x0を追加して再実行
> deg=c(0,seq(9.516,9.518,0.0005))
> y=WineGlass(deg,N=1e8)
> data.frame(deg=deg,volume=y,ratio=y/y[1])
deg volume ratio
1 0.0000 18.4347 1.00000
2 9.5160 9.2149 0.49987
3 9.5165 9.2156 0.49991
4 9.5170 9.2219 0.50025
5 9.5175 9.2133 0.49978
6 9.5180 9.2134 0.49979