24/04/16 19:05:14.19 RRexi8To.net
>>239
R言語での小数解
> t=uniroot(\(x) cos(x)-1/3,c(1,pi/2),tol = 1e-16)$root
> cos(2*t)
[1] -0.7777778
> cos(3*t)
[1] -0.8518519
24/04/16 19:05:14.19 RRexi8To.net
>>239
R言語での小数解
> t=uniroot(\(x) cos(x)-1/3,c(1,pi/2),tol = 1e-16)$root
> cos(2*t)
[1] -0.7777778
> cos(3*t)
[1] -0.8518519