23/06/23 14:56:09.70 JLJbOh/A.net
>>692
x^3-8x^2+15x=0
としてカルダノの公式を適用
a=1
b=-8
c=15
d=0
b <- b/(3*a)
c <- c/a
d <- d/a
p <- b^2-c/3
q <- (b*c-2*b^3-d)/2
a <- q^2-p^3
a <- 2*sqrt(p)
t <- acos(q/(p*a/2))
> c(a*cos(t/3)-b, a*cos((t+2*pi)/3)-b, a*cos((t+4*pi)/3)-b) |> round(,10)
[1] 5 0 3