Wolff

25 Reputation

2 Badges

11 years, 119 days

MaplePrimes Activity


These are answers submitted by Wolff

Then you´ll see the plot.

If you use restart before plot everything works fine.

>restart:
>plot(.....

restart:

int6:=int(int(exp(1/x*y)/((y^2)*(x+1)^2),x=1..3),y=1/2..2/3);

evalf(int6);


restart

 

eq1 := x^3-4*x = y;

x^3-4*x = y

 

y^3-4*y = x

(1)


 

Functionterm y1

y1 := lhs(eq1);

x^3-4*x

(2)

Functionterm y21

y21 := solve(eq2, y)[1];

(1/6)*(108*x+12*(81*x^2-768)^(1/2))^(1/3)+8/(108*x+12*(81*x^2-768)^(1/2))^(1/3)

(3)

Functionterm y22

y22 := solve(eq2, y)[2]

-(1/12)*(108*x+12*(81*x^2-768)^(1/2))^(1/3)-4/(108*x+12*(81*x^2-768)^(1/2))^(1/3)+((1/2)*I)*3^(1/2)*((1/6)*(108*x+12*(81*x^2-768)^(1/2))^(1/3)-8/(108*x+12*(81*x^2-768)^(1/2))^(1/3))

(4)



Now we have a plot of 4 terms

plot([x^3-4*x, y21, y22, y21+y22], x = -3 .. 3, -10 .. 10, colour = [red, blue, green, black], numpoints = 1000, legend = ["y1", "y21", "y22", "y21+y22"]);

 

``


Download terms.mw

Page 1 of 1