vv

13827 Reputation

20 Badges

9 years, 317 days

MaplePrimes Activity


These are answers submitted by vv

Yes, it is a bug in Maple 2017 too:

 

EQ:=(a2*x^2+a1*x+a0)*exp((a2*x^2+a1*x+a0)/(b2*x^2+b1*x+b0))/(b2*x^2+b1*x+b0) = c;

(a2*x^2+a1*x+a0)*exp((a2*x^2+a1*x+a0)/(b2*x^2+b1*x+b0))/(b2*x^2+b1*x+b0) = c

(1)

sol:=solve(EQ, x);

-(a0*b2-a2*b0)/(a1*b2-a2*b1)

(2)

_SolutionsMayBeLost

_SolutionsMayBeLost

(3)

eliminate( {a2*x^2+a1*x+a0, b2*x^2+b1*x+b0},x);

[{x = -(-a0*b2+a2*b0)/(-a1*b2+a2*b1)}, {a0^2*b2^2-a0*a1*b1*b2-2*a0*a2*b0*b2+a0*a2*b1^2+a1^2*b0*b2-a1*a2*b0*b1+a2^2*b0^2}]

(4)

The value of sol  is the common root of a2*x^2+a1*x+a0 and b2*x^2+b1*x+b0 when such one exists.

 

Here is a simpler version. Note that now the environment variable  _SolutionsMayBeLost  is set

 

restart;

eq:=x^2*exp(x^2/(a+x))/(a+x) = c;

x^2*exp(x^2/(a+x))/(a+x) = c

(5)

solve(eq, x);

Warning, solutions may have been lost

 

-a

(6)

_SolutionsMayBeLost

true

(7)

 

The context menu test relation  actually calls is.
The notorious problem is that is frequently fails. It should return FAIL when it cannot determine the truth value.
In your case,


eq := sin(Pi*x/T)*cos(Pi*x/T) = 1/2*(sin(Pi*x/T+Pi*x/T)+sin(Pi*x/T-Pi*x/T)):
is(eq);

    false

It should be true. FAIL could be accepted, but not false!
As a workaround eq must be rewritten (simplified). Here both is(expand(eq)), is(combine(eq));
give the correct answer, but then can we trust it?


  

It is enough to change:

Num_N :=simplify(convert(series(Num, u, N),polynom)):  #
Den_N :=simplify(convert(series(Den, u, N),polynom)):  #

 

S:= n -> evalf(Sum((1/k^0.1)*sin(1/k), k=1..n)):
S(1000000);

                          7.883752545

For x0 = 0 you have y0 = exp(-1) and the correct series is:

 

Edit. This is for the equation ln((1+x)*y) + exp(x^2*y^2) = 0
which appears first.
For ln((1+x)*y) + exp(x^2*y^2) = x + cos(x)   see:
https://www.mapleprimes.com/questions/223411-Real-Function-Defined-By-A-Implicitly-Equation

It would be useful to know (for the future) how did you manage to introduce that special Unicode character "∷"  (named "proportion").  Copy & paste from a pdf file?

It is difficult to debug Maple code containing such characters.

You should never unprotect and redefine Pi.
(unprotect is designed for advanced users only).
Just use pi, not Pi.

Groebner:-Basis actually computes the reduced Groebner basis.

It is disappointing.
But at least for floats it is correct:

conic(cf, evalf(eq), [x, y]):
coordinates(center(cf));

       [.5000000000, -.8660254038]

 

The eigenvectors are associated to eigenvalues, which are not sorted (they appear in a random order).

You have the possibility to sort the eigenvalues and pick the corresponding eigenvectors.

Change the unknown function f:

F(tau) = int( exp(lambda*t)*f(t), t=0..tau ); hence f(t) = F'(t)*exp(-lambda*t), F(0)=0

so, the problem reduces to an ODE in F.

This works:

restart;
with(Statistics):
DD := Distribution(ProbabilityFunction = (k -> piecewise(k > 0, 2^(-k))), 'Support' = 1 .. infinity):
# ProbabilityFunction(DD,t);
Mean(DD), Variance(DD);

        2, 2

 

aa is not a polynomial; x^(1.25) ?

On my computer fsolve finishes in 25 sec, Analytic in 30 sec (Maple 2017, 64 bit).
(maxsols is superfluous for non-polynomial functions).

Analytic uses special algorithms but works only for analytic (=holomorphic) functions; fsolve uses a Newton-type method.
E.g.  
fsolve(abs(sin(z))-z/10, z=5..20);   # works, but 

RootFinding:-Analytic(abs(sin(z))-z/10, z=5-I..20+I/10);  # does not.

 

 

Probably the 2d parser translates

2.59/3.7, 3.42/3.8

    .7000000000, .9000000000

to:

2.59*(1/3.7), 3.42*(1/3.8);

    .7000000001, .8999999999

First 78 79 80 81 82 83 84 Last Page 80 of 120