system solver in R

a <- .Last.value
complex_cartesian <- function(x,y) x+(0+1i)*y
eval(a$text[[1]][[2]][[3]])

eval(a$text[[1]][[3]][[3]])

eval(a$text[[1]][[4]][[3]])

eval(a$text[[1]][[5]][[3]])

On 20 Nov 2018, at 13:09 , Engin Y?lmaz <ispanyolcom at gmail.com> wrote:

Dea(R)
I try to solve one equation but this program did not give me real roots
for example
yacas("Solve( 5/((1+x)^1) + 5/((1+x)^2) + 5/((1+x)^3) + 105/((1+x)^4) -105
==0, x)")
gave me following results
How can I find real roots?

expression(list(x == complex_cartesian((1/42 - ((1/63 -
((root(7339451281/3087580356,
   2) - 4535/71442)^(1/3) - (4535/71442 + root(7339451281/3087580356,
   2))^(1/3)))/21 - -2/21)/(4 * root(((root(7339451281/3087580356,
   2) - 4535/71442)^(1/3) - (4535/71442 + root(7339451281/3087580356,
   2))^(1/3) - 1/63)^2/4 + 1, 2)))/2 - 1, root(4 *
(((root(7339451281/3087580356,
   2) - 4535/71442)^(1/3) - (4535/71442 + root(7339451281/3087580356,
   2))^(1/3) - 1/63)/2 + root(((root(7339451281/3087580356,
   2) - 4535/71442)^(1/3) - (4535/71442 + root(7339451281/3087580356,
   2))^(1/3) - 1/63)^2/4 + 1, 2)) - (((1/63 -
((root(7339451281/3087580356,
   2) - 4535/71442)^(1/3) - (4535/71442 + root(7339451281/3087580356,
   2))^(1/3)))/21 - -2/21)/(4 * root(((root(7339451281/3087580356,
   2) - 4535/71442)^(1/3) - (4535/71442 + root(7339451281/3087580356,
   2))^(1/3) - 1/63)^2/4 + 1, 2)) - 1/42)^2, 2)/2),...more




Engin Y?lmaz <ispanyolcom at gmail.com>, 20 Kas 2018 Sal, 12:53 tarihinde ?unu
yazd?:

Thanks a lot!

Berend Hasselman <bhh at xs4all.nl>, 20 Kas 2018 Sal, 12:02 tarihinde ?unu
yazd?:

R package Ryacas may be what you want.

Berend

On 20 Nov 2018, at 09:42, Engin Y?lmaz <ispanyolcom at gmail.com> wrote:

Dea(R)

Do you know any system solver in R ?

For example, in matlab, is very easy

syms a b c x eqn = a*x^2 + b*x + c == 0; sol = solve(eqn)

How can I  find this type code in R (or directly solver)?

*Since(R)ely*
Engin YILMAZ

     [[alternative HTML version deleted]]

--
*Sayg?lar?mla*
Engin YILMAZ

-- 
*Sayg?lar?mla*
Engin YILMAZ

	[[alternative HTML version deleted]]