vv

12453 Reputation

19 Badges

9 years, 278 days

MaplePrimes Activity


These are answers submitted by vv

It is not clear what "handle" means to you. If you want to eliminate x and sigma from A, then:
 

S:=solve([sigma+x=a, sigma*x=b], [sigma,x]): 
A1:=eval(A,S[1]); A2:=simplify(%);

Unfortunately, A is not rational (an "isolated" square root is there),. Also:

length(A1); length(A2);
                              1757
                             47950
 

restart;

pde := diff(u(x,t),t) + u(x,t)*diff(u(x,t),x) = 0;

diff(u(x, t), t)+u(x, t)*(diff(u(x, t), x)) = 0

(1)

The general solution is however correct:

pdsolve({pde});

{u(x, t) = RootOf(-_F1(_Z)*_Z+_Z*t-x)}

(2)

From here, one obtains for    pdsolve({pde,u(x,0)=f(x)});  # instead of  u(x,t)=0  :

sol:=f->RootOf((f@@(-1))(y)+y*t-x, y):   # or,

Sol:=f -> solve( (f@@(-1))(y)+y*t-x, y): # or,

SOL:=f -> solve( y - f(-y*t+x), y):

 

 

 

# Now:

sol(exp);
SOL(exp);
Sol(exp);

RootOf(ln(_Z)+_Z*t-x)

 

LambertW(t*exp(x))/t

 

exp(-LambertW(t*exp(x))+x)

(3)

SOL(x->x);

x/(t+1)

(4)

sol(sin);
SOL(sin);
Sol(sin);

RootOf(arcsin(_Z)+_Z*t-x)

 

-sin(RootOf(_Z+t*sin(_Z)+x))

 

-sin(RootOf(_Z+t*sin(_Z)+x))

(5)

SOL(erf);

RootOf(_Z+erf(_Z*t-x))

(6)

 

restart;
p := alpha -> alpha^m:
q := alpha -> alpha^n:
Sa := 1/2*int(p(alpha)*D(q)(alpha), alpha = 0 .. 1, continuous);

          

There are several issues in the worksheet.

1. You have the thype Z^+  (in 2D). It should be posint or nonnegint.
2. You have used m:type instead of m::type.  Note that ":" is a separator.
3.  assuming in the definition of p and q is not used (even when it is correctly inserted):

The assuming command does not scan programs regarding the presence of assumed variables; for that purpose use assume.

restart;
assume(m>0, n>0);
p := alpha -> alpha^m;
q := alpha -> alpha^n;

Sa := eval(1/2*int(simplify(p(alpha)*D(q)(alpha)), alpha = 0 .. 1)); # actually eval is not needed

 

SUBS := [a,b,c], x, [2,4,5,1,a,4,5,a,b,434,a,b,c,5,5,5,1]:

X:= convert~([SUBS[1], SUBS[1][2..], SUBS[2..]], string):
parse(StringTools:-SubstituteAll(X[-1], X[1][2..-2], X[3]));
parse(StringTools:-SubstituteAll(X[-1], X[1][2..-2], cat(X[3],",",X[2][2..-2])));

              [2, 4, 5, 1, a, 4, 5, a, b, 434, x, 5, 5, 5, 1]

           [2, 4, 5, 1, a, 4, 5, a, b, 434, x, b, c, 5, 5, 5, 1]

The memory usage at the bottom of the worksheet refers to the Maple kernel.

The Java memory in the task manager is due to the GUI. It is not controlled by gc().
It seems that it is not released to the OS: just try  plot3d(x^2+y^2,x=-1..2,y=-1..1, numpoints=1000000);

The Java GUI is convenient for Maplesoft because it can be used in all platforms, but for the users ...
(It's a pity that the old Classic interface is gone.)

To use less memory, try to avoid graphics. You may also consider the command-line Maple.

evalindets(p, `*`, u -> `+`(op(u)));

However, if you have in mind a more general expression, you must decide what to do e.g. with a^2 ( = a*a), a/b (=a*b^(-1)) etc.

restart;

f := (2*y-1)*(4*y+6*x-3)/(y+3*x-1)^2;
F :=z -> 4*z*(2*z+3)/(z+3)^2;

(2*y-1)*(4*y+6*x-3)/(y+3*x-1)^2

 

proc (z) options operator, arrow; 4*z*(2*z+3)/(z+3)^2 end proc

(1)

simplify( F((y-1/2) / (x-1/6)) )  =  f;

(2*y-1)*(4*y+6*x-3)/(y+3*x-1)^2 = (2*y-1)*(4*y+6*x-3)/(y+3*x-1)^2

(2)

 

 

1. Replace e^(...)  with  exp(...)
   
(or define  e:=exp(1)).
2.  The integral cannot be computed symbolically.
If you are satisfied with numerical values, just assign values to your constants C:=..., ...
and then execute

evalf( Int(f1(g), g=0..infinity) );


 

It's simpler to express the recurrence in terms of 
X[n] = Sum(x[k], k=1..n)
instead of x[n]. Notice that x[n] = X[n] - X[n-1].
So,

rsolve({u(1) = X[1], u(n + 1) = u(n) + (X[n + 1]-X[n] - u(n))/(n + 1)}, u(n));

           X[n] / n

restart;
f := (x1-x2)*(x2-x3)*(x3-x4)*(x4-x1): 
G := x1^2+x2^2+x3^2+x4^2-1:
H:=f + x5*G:
X:=x1,x2,x3,x4,x5:
Groebner:-Basis(diff~(H, [X]), plex(X)):
S:=solve(%, explicit):
nops([S]);      #    40
S[-1], simplify(eval(f, S[-1]));

{x1 = 1/4 + sqrt(3)/4, x2 = sqrt(3)/4 - 1/4, x3 = 1/4 - sqrt(3)/4, x4 = -1/4 - sqrt(3)/4, x5 = 1/4},   -1/8

DirectSearch works well, not very fast though. (The absolute minimum is -0.125).

restart;
f := (x1-x2)*(x2-x3)*(x3-x4)*(x4-x1): 
G := x1^2+x2^2+x3^2+x4^2-1:
with(DirectSearch):
GlobalOptima(f, [G=0,x1>=0]);

[-0.125000010409962, [x1 = 0.183013027400331, x2 = 0.683012548155197, x3 = -0.683012850582002, x4 = -0.183012508983874], 4041]

restart;
eq1 := c[2] = Z^2/(2*(m + 2)):
eq2 := Int((m*(c[2] - x^2/(2*(m + 2))))^(1/m), x = 0 .. Z) = alpha:
IntegrationTools:-Change(eval(eq2,eq1), x=t*Z,t):
combine(value(%)) assuming m>0,Z>0:
Zsol := combine(solve(%, Z, explicit)) assuming m>0;

(It can be expressed using powers, without ln and exp).

After a change of variables, the integral reduces to

F := int(sin(cos(t))*cos(t),t);

so, for a purely transcendental function.
AFAIK for such functions the Risch algorithm is completely implemented in Maple.
Maple does not compute F, so F is not elementary.
It remains of course the question whether F could be expressed using some special functions.

simplify should be enugh, but combine is necessary here.
simplify(combine(r)) assuming x<=0;     # 0

simplify(combine(r)) assuming x::real;  #  x + |x|

5 6 7 8 9 10 11 Last Page 7 of 111