Maple

I am trying to calculate something but my computer(dual-core with 4GB memory) is too slow/old for it.

just copy and paste these into a new blank Worksheet Mode document and Edit->Execute->Worksheet and then post your result here. Thanks in advance!!!

G := [a[1]*(y[0]^2)-y[1]^2*a[1]-a[1]*(y[3]^2)+2*a[2]*y[0]*y[3]-2*a[3]*y[0]*y[2]-a[1]*(y[2]^2)+b[1]*y[0]+3*y[1]*(y[0]^2)+y[1]*b[0]-y[1]^3-y[1]*(y[2]^2)-y[1]*(y[3]^2)+c[1]+b[2]*y[3]-b[3]*y[2], -2*a[1]*y[0]*y[3]+a[2]*(y[0]^2)-a[2]*(y[1]^2)-y[2]^2*a[2]+2*a[3]*y[0]*y[1]+c[2]-a[2]*(y[3]^2)-y[2]*(y[1]^2)-y[2]^3-y[2]*(y[3]^2)+3*y[2]*(y[0]^2)+b[2]*y[0]+y[2]*b[0]-b[1]*y[3]+b[3]*y[1], 2*a[1]*y[0]*y[2]-2*a[2]*y[0]*y[1]+a[3]*(y[0]^2)-a[3]*(y[2]^2)-y[3]^2*a[3]-y[3]^3-y[3]*(y[2]^2)+y[3]*b[0]+b[1]*y[2]+3*y[3]*(y[0]^2)-y[3]*(y[1]^2)+c[3]-a[3]*(y[1]^2)-b[2]*y[1]+b[3]*y[0], -2*a[2]*y[0]*y[2]-2*a[1]*y[0]*y[1]+c[0]+y[0]^3-3*y[0]*(y[1]^2)-3*y[0]*(y[2]^2)-3*y[0]*(y[3]^2)-2*a[3]*y[0]*y[3]+b[0]*y[0]-b[1]*y[1]-b[2]*y[2]-b[3]*y[3]];

Groebner:-UnivariatePolynomial(y[0], G, {y[0],y[1],y[2],y[3]});

Groebner:-UnivariatePolynomial(y[1], G, {y[0],y[1],y[2],y[3]});

Groebner:-UnivariatePolynomial(y[2], G, {y[0],y[1],y[2],y[3]});

Groebner:-UnivariatePolynomial(y[3], G, {y[0],y[1],y[2],y[3]});

﻿