Carl Love

Carl Love

26832 Reputation

25 Badges

11 years, 286 days
Himself
Wayland, Massachusetts, United States
My name was formerly Carl Devore.

MaplePrimes Activity


These are answers submitted by Carl Love

Your question is not boring, and you've done nothing wrong. You've stumbled upon an obscure bug in Maple's arbitrary-order derivatives.

Are you really trying to "solve" the formula in some way? Or do you just want to evaluate it for specific integer values of r? If the latter:

Maple tries to take the derivative of arbitrary order that occurs in your sum. The formula that it returns is apparently wrong (very wrong, in fact). We can work around that by using add instead of sum.

Mrs:= proc(s, r::posint, x)
local
     i, X,
     S:= s+1,
     P:= i-> i+s,
     T:= i-> 2*i+s,
     U:= i-> 2*i+s+1,
     R:= t-> (2*t)!/t!/4^t,
     A:= R@P, B:= R@T, C:= R@U
;
     eval(
          add(
               (-1)^i*(A/B*C)(i)/T(i)!/i!/4^i*
               diff((1-X^2)^T(i), [X $ 2*i]),
               i= 0..r-1
          ),
          X= x
     )
end proc:

If you are trying to "solve" the formula in some way other than simple evaluation, let me know. My procedure does allow you to use symbolic or non-integer s, and some significant and interesting simplifications are possible (try s = 1/2).

You wrote:

While trying your solution, I noticed that my maple gives me a higher order of the complex part of the solution (E-6).

That's because I had Digits set to 15 and you had Digits set to 10. You can include the command Digits:= 15 right after your restart.

You wrote:

Furthermore I cannot plot my solution due to the following error....

Your plot command has unbalanced quotation marks, and possibly some other bad character(s). I'm surprised that it got past the parser. I recommend that you retype (not cut and paste) the whole command in a new execution group. All of the quotes need to be double quotes ("), not single quotes ('). I also recommend that you use input mode Maple Input (like the red characters that I used) rather than 2D Input, because with Maple Input both you and I can see exactly what you typed. With 2D Input it is impossible to visually distinguish a double quote from two single quotes next to each other.

You wrote:

Furthermore I get an error trying to find the slope of the catenary at x=0.

Use eval(Helling, x= 0).

You wrote:

I was wondering why maple supplies us with two solutions for the differential equation.

There is only one solution to the differential equation proper; it is only after the boundary conditions are put in that the branching occurs. You can see that the differential equation has one rather simple solution by calling dsolve without the boundary conditions:

dsolve(DIV);
                       cosh(_C1 qT + qT x)      
                y(x) = ------------------- + _C2
                               qT               

You wrote:

Is it because of the square root in the system?

No. When you apply the boundary conditons to the above solution to solve for the constants of integration _C1 and _C2, you get an equation of the form cosh(x) = B. Such equations generally have two solutions (for B > 0) because horizontal lines cross cosh curves twice.

You wrote:

Furthermore, what is the origin of the complex part of the solution?

After the boundary conditions are applied, the solution contains an expression of the form cosh(A+ln(RootOf(Q))) where Q is a quadratic with two real roots, one positive and one negative. (The nature of the roots depends on your parameter values and boundary conditions. For the case we are discussing, one is positive and one is negative.) The ln of a negative number is complex; specifically, for x < 0, ln(x) = ln(|x|) + Pi*I.

It is important to note that this is not a complex solution; we are not ignoring any part of the true solution. The Pi*I turns real after the cosh is applied to it. It is only because of the inexact floating-pointing arithmetic that we see it at all. That's why I call them spurious imaginary parts. Below, I redid the worksheet in such a way that exact arithmetic is used up to the point that the complex parts disappear.



restart

Digits:= 15:

q0 := 2.77:

qT0 := q0/T0:

DIV := diff(y(x), x, x) = qT*sqrt(1+(diff(y(x), x))^2);

diff(diff(y(x), x), x) = qT*(1+(diff(y(x), x))^2)^(1/2)

RV := y(0) = 0, y(100) = -1008:

Opl := dsolve({DIV, RV}, y(x));

y(x) = cosh(qT*x+ln(RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)))/qT+(1/2)*(-RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)*exp(500*qT)+2*RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)*exp(400*qT)-2016*qT*exp(400*qT)+4032*qT*exp(300*qT)-2016*(exp(qT))^200*qT-RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)*exp(200*qT)-2016*qT*exp(200*qT)+2016*(exp(qT))^100*qT-(exp(100*qT))^2*RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)+2016*(exp(100*qT))^2*qT+exp(100*qT)*RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)-2016*exp(100*qT)*qT)/(((exp(qT))^100-1)^2*(exp(100*qT)-1)*qT*exp(100*qT))

Opl2 := expand(Opl):

Opl3:= allvalues(Opl2):

Sol1 := eval(Opl3[1], qT = qT0);

y(x) = 7283.33339204263*cosh(0.149697362732382e-2*x)-7252.63414264197*sinh(0.149697362732382e-2*x)-7283.33339202299

Sol2 := eval(Opl3[2], qT = qT0);

y(x) = -6275.33339204107*cosh(0.149697362732382e-2*x)-6239.67674552443*sinh(0.149697362732382e-2*x)+6275.33339208

plot(`~`[rhs]([Sol1, Sol2]), x = 0 .. 100, title =

Helling := evalf(diff(Sol2, x))

diff(y(x), x) = -9.39400859055001*sinh(0.149697362732382e-2*x)-9.34063153107579*cosh(0.149697362732382e-2*x)

NULL

eval(Helling, x= 0);

eval(diff(y(x), x), {x = 0}) = -9.34063153107579

 



Download SpuriousImag2.mw

 

@emma hassan

Your last command has a product of two vectors, each with five elements (assuming m = 4), which you are trying to assign to a vector. But the product of two vectors ordinarily means the dot product, which yields a scalar (a single number, not a vector). Did you mean for that to be the elementwise product of the two vectors? The command for that would be

U[j+1, ..]:= U[j, ..] *~ A;

(assuming that you're using Maple 13 or later. If you have an earlier Maple, let me know.)

Also, the loop should go for j from 0 to n-1, not for j from 0 to n.

 

 

You asked that, and it was answered, within the past week. If ex is your expression, then

series(ex, c= infinity, 3);

Did that answer not work for you?

Thanks for using a shorter title.

 

You cannot use an index of 0 in a Maple Matrix. Matrix indices always start at 1. But you can use 0 indices in the closely related structure called Array.

h:= 1/4:
m,n:= 4,4:
U:= Array(0..m, 0..n, datatype= float[8]):
U[0, ..]:= < seq(evalhf(cos(Pi*i*h)), i= 0..m) >;

Note that I used evalhf instead of evalf. The usual evalf would work also, but I think that evalhf is a little better in this situation.

The imaginary parts in your solution are spurious. They arise because the solution contains expressions in the form cosh(a+Pi*I), except that the Pi is a decimal number. In exact arithmetic, that expression simplifies to -cosh(a) (via command expand), but in floating-point arithmetic there is a residual imaginary part that is nearly zero. These residual near-zero parts can be converted to zero with fnormal, and then the zeros can be removed entirely with simplify(..., zero).

Here is your worksheet with my modifications.

restart

q0 := 2.77:

T0 := 1850.4:

qT0:= q0/T0:

Moved T to other side of equation. Solve equation with symbolic q /T.

DIV := diff(y(x), x, x) = qT*sqrt(1+(diff(y(x), x))^2):

RV := y(0) = 0, y(100) = -1008:

Opl := dsolve({DIV, RV}, y(x));

y(x) = cosh(qT*x+ln(RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)))/qT+(1/2)*(-RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)*exp(500*qT)+2*RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)*exp(400*qT)-2016*qT*exp(400*qT)+4032*qT*exp(300*qT)-2016*(exp(qT))^200*qT-RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)*exp(200*qT)-2016*qT*exp(200*qT)+2016*(exp(qT))^100*qT-(exp(100*qT))^2*RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)+2016*(exp(100*qT))^2*qT+exp(100*qT)*RootOf(((exp(100*qT))^2-exp(100*qT))*_Z^2+2016*qT*exp(100*qT)*_Z-exp(100*qT)+1)-2016*exp(100*qT)*qT)/(((exp(qT))^100-1)^2*(exp(100*qT)-1)*qT*exp(100*qT))

These RootOfs are quadratic (see the _Z^2). Apply allvalues to get two solutions.

Opl2 := allvalues(Opl):

Apply the numeric value of the parameter to the two branches of the solution.

Sol1 := eval(Opl2[1], qT = qT0);

y(x) = 668.014440433214*cosh(0.149697362732382e-2*x-3.08007158591335)-7283.33339213385

Sol2:= eval(Opl2[2], qT= qT0);

y(x) = 668.014440433214*cosh(0.149697362732382e-2*x+2.93037422318077+3.14159265358979*I)+6275.33339186040

Sol2 has a spurious imaginary part which would disappear upon expansion in exact arithmetic. Here, we compensate for the inexact decimal arithmetic.

expand(Sol2);

y(x) = -6275.33339204111*cosh(0.149697362732382e-2*x)+(0.202069600471683e-10*I)*cosh(0.149697362732382e-2*x)-6239.67674552448*sinh(0.149697362732382e-2*x)+(0.203224327649008e-10*I)*sinh(0.149697362732382e-2*x)+6275.33339186040

fnormal(%, 11);

y(x) = -6275.3333920*cosh(0.14969736273e-2*x)+6275.3333919+0.*I-6239.6767455*sinh(0.14969736273e-2*x)

Sol2:= simplify(%, zero);

y(x) = -6275.3333920*cosh(0.14969736273e-2*x)+6275.3333919-6239.6767455*sinh(0.14969736273e-2*x)

plot(`~`[rhs]([Sol1, Sol2]), x = 0 .. 100, title =

Now you have to decide which solution you want.

 

 

Download SpuriousImag.mw

Here is a solution for the integral on 0..1, and some plots to verify that there are no solutions for z < 0. I now realize that this is essentially the same answer as Preben's, but I arrived at it independently before reading his. My plots are significantly different, showing the same function behaviour from a different perspective.

Important: The 3D plots are much more convincing when viewed in the worksheet than when viewed on MaplePrimes!!

restart:

with(Statistics):

dummy:= sqrt((1+y*e)/(y*e)):

dummy1:= sqrt(1/(1+y*e)):

Q:= RandomVariable(Normal(0, dummy)):

R:= RandomVariable(Normal(y*e*z/(1+y*e), dummy1)):

I changed the constants to exact rationals just to keep things neat.

y,e,k,l,a:= 1, 1/5, 1, 1/2, 5/4:

The inner integral:

II:= Int(k*r*PDF(R,r), r= -infinity..x);

Int((1/10)*r*2^(1/2)*5^(1/2)*6^(1/2)*exp(-(3/5)*(r-(1/6)*z)^2)/Pi^(1/2), r = -infinity .. x)

IIV:= value(II);

(1/180)*5^(1/2)*3^(1/2)*(z*Pi^(1/2)*5^(1/2)*3^(1/2)*erf((1/5)*5^(1/2)*3^(1/2)*x-(1/30)*z*5^(1/2)*3^(1/2))+z*Pi^(1/2)*5^(1/2)*3^(1/2)-30*exp(-(3/5)*x^2+(1/5)*x*z-(1/60)*z^2))/Pi^(1/2)

It probably makes no difference to the final answer, but I'd like to do a few steps of simplifying to that.

expand(%);

(1/12)*z*erf((1/5)*5^(1/2)*3^(1/2)*x-(1/30)*z*5^(1/2)*3^(1/2))+(1/12)*z-(1/6)*5^(1/2)*3^(1/2)*exp(-(3/5)*x^2)*exp((1/5)*x*z)*exp(-(1/60)*z^2)/Pi^(1/2)

combine(%);

-(1/6)*15^(1/2)*exp(-(3/5)*x^2+(1/5)*x*z-(1/60)*z^2)/Pi^(1/2)+(1/12)*z*erf((1/5)*15^(1/2)*x-(1/30)*z*15^(1/2))+(1/12)*z

simplify(%);

-(1/12)*(-erf((1/5)*15^(1/2)*x-(1/30)*z*15^(1/2))*Pi^(1/2)*z+2*15^(1/2)*exp(-(1/60)*(6*x-z)^2)-z*Pi^(1/2))/Pi^(1/2)

ii:= %:

We intend to perform an fsolve on the above expression, specifically, to set  it to 0 for specific values of z and to solve for x. A plot3d will help us to understand where the expression is equal to 0.

plots:-display([
     plot3d(ii, z= -1..1, x= -4..4),
     plot3d(0, z= -1..1, x= -4..4, style= wireframe, color= black)
]);

It looks like there are no real solutions for z < 0, and a unique real solution for z > 0.  But let's look more closely at the possibility of a solution with x < 0 for z < 0.

plots:-display([
   plot3d(ii, z= -1..0, x= -5..-2.5),
   plot3d(0, z= -1..0, x= -5..-2.5, style= wireframe, color= black)
]);
  

It looks like the function approaches the plane very rapidly, but never crosses it. It's looking like there are no real solutions for z < 0. Let's look at some slices.

plot([seq](eval(ii, z= k), k= -1..-0.2, 0.2), x= -5..-2.5);

We conclude that there are no real solutions for z < 0. We will still try the integral on 0..1.

 

The following line is the key step to removing your "z is in the equation and is not solved for" error.

iiu:= unapply(ii, z):

Construct the function inversion that occurs in the outer integrand. RootOf allows some analysis of the inverse; whereas fsolve has more flexibility numerically.

OIR:= z-> RootOf(iiu(z), x):

OIF:= z-> fsolve(iiu(z), x):

plot(OIF, 0..1);

Note the possibility of a singularity at z = 0.

OIR(0);

RootOf(15^(1/2)*exp(-(3/5)*_Z^2))

Clearly +infinity and -infinity are the roots of that. So there is a singularity. But since the tails of exp(-x^2) are integrable, so is the above singularity.

 

Let's look at the other factor in the outer integrand.

PDF(Q,z);

(1/12)*2^(1/2)*6^(1/2)*exp(-(1/12)*z^2)/Pi^(1/2)

plot(PDF(Q,z), z= 0..1);

It is smooth, and it's not going to change the nature of the singularity (since it is real and non-zero at z=0).

plot(z-> OIF(z)*PDF(Q,z), 0..1);

So, a rough eyeball guess of the integral is rectangle + triangle = 1*0.2+1*(0.4-0.2)/2 = 0.3

 

The final integral (this takes about 30 seconds):

evalf(Int(z-> OIF(z)*PDF(Q,z), 0..1));

.282975811112918

 

 

Download FsolveInt.mw

The horizontal scroll bar is only going to be activated when you have an expression that the GUI cannot figure out how to line break, such as a fraction with a long bar.

You can put the Matrix into a Spreadsheet and then scroll in both dimensions, resize the cells, and scroll within the cells to your heart's content. Let's say that your Matrix is M. Then

with(Spread);
ssid:= CreateSpreadsheet();
SetMatrix(ssid, M);

You resize the spreadsheet window by dragging on the lower right corner. (It is not clearly marked!) You resize cells by dragging on their lower right corners (which are clearly marked). Resizing a cell changes the width of every cell in its column and changes the height of every cell in its row.

By the way, I don't understand the title of this Question, "Vertical display arrow".

For what it's worth, it's trivial to take an existing plot and convert the Matrix to a listlist (which is the Mapleish name for the structure is your older plot). Let's say that plot is stored at P. Then

evalindets(P, Matrix, convert, listlist);

I am curious if others think that this changes the appearence of the plot. I'm not sure. I am sure that your M12 plot has better anti-aliasing. (Look very closely at the section -1..1 on the M12 plot. Depending on the quality of your eyesight, you may need to export the plot to a JPEG viewer and zoom in.). The M17 plot may not have any anti-aliasing. Can you check the anti-aliasing setting on both versions of Maple? But, alas, I don't think that anti-aliasing is the complete answer to the difference. The M17 plot is too nasty for that to be the only problem. (And we discussed this at length with respect to plot(sin(x), x= 0..2*Pi) a month or two ago.)

Take your expression newpar (the first, unerroneous one) and apply the following transformation:

evalindets(newpar, 'RootOf'(algebraic), allvalues@(e-> RootOf(op(e), index= 1)));

Let me know how that goes. I couldn't test it on your actual code because it wasn't attached to your post.

To make an actual histogram, we take a random sample of the Poisson distribution and use Statistics:-Histogram. I chose a sample size of 2^13. The default is that the bars (bins) are bounded by the integer values. That doesn't make sense to me. I want the bars centered on the integer values. So I set the binbounds as n-1/2..n+1/2.

Take the previous code, and simply change the line defining H[n] to

H[n]:= Histogram(Sample(Poisson(n), 2^13), binbounds= [seq](-1/2+k, k= 0..25));

Statistics:-DensityPlot will plot an ordinary plot of the PDF for a continuous distribution, and it will plot something like a histogram for a discrete distribution. So, it can be used for both plots. If you want an actual histogram, we can draw a random sample from the Poisson and use Statistics:-Histogram. (Let me know.) I also updated your string plotting to modernity with typeset.

Note that the second parameter to Normal is not the variance; rather, it is the square root of the variance. Also, the expressions "NormalPDF", "PoissonPDF", and "ProbHist" are meaningless in Maple.

with(plots): with(Statistics):
for n from 1 to 15 do
     tracker[n]:= textplot([18,0.3,typeset(lambda = n)], color= blue);
     H[n]:= DensityPlot(Poisson(n));
     N[n]:= DensityPlot(
          Normal(n, sqrt(n)), range = 0..25, color= "Niagara Red"
     );
     P[n]:= display([H[n], N[n], tracker[n]])
od:
display(
     [seq](P[n], n= 1..15), insequence=true,
     title= typeset(
          "Normal approx. to the Poisson. ",
          lambda,
          " is increasing from 1 to 15."
     )
);

Try solve(q,z) assuming z>0 and solve(q,z) assuming z<0. I get two solutions for each.

f:= (x,y)-> 5/(1+x^2+y^2):
X:= t-> 2+3*cos(t):  Y:= t-> -1+2*sin(t):
plots:-display([
     plot3d(f(x,y), x= -4..7, y= -4..4),
     plots:-spacecurve(
          [X(t), Y(t), f(X(t),Y(t))], t= 0..2*Pi,
          color= black, thickness= 3
     )
]);

The coefficient is not a matrix; it is the determinant of a matrix, which is a scalar. I think that finding a closed form for this sum is well beyond the capability of any current CAS.

Here's a procedure for generating the determinant, which might help you in finding a closed form for the determinant at least. The determinants are not extremely complicated.

DetAn:= (n::nonnegint)-> LinearAlgebra:-Determinant(
     Matrix(
          n, n,
          (i,j)->
               if j >= i and (j-i)::even then
                    (j-i+1)*(j-1)!/(i-1)!*a(j-i+1)*x
               elif i-j = 1 then  -1
               else  0
               end if
     )
):
First 359 360 361 362 363 364 365 Last Page 361 of 385