I want my graphic to be like this (file: Hansevi's Graphic.mw ):

instead of this (file: My graphic.mw):

Does anyone know why both graphics are different?

*The graphics were supposed to be similar -_-

I am trying to solve a nonlinear second order ODE with a parameter to be determined. I can set up most of the problem but I am having trouble trying to tell the computer the following boundary condition,

diff(f(x),x) = -K on f(x)=0.

(K will be inputted and is not to be solved for) As i said before, the other boundary conditions are fine and the numerical solution works if i use different boundary conditions. 

For other boundary conditions (for example df/dx = 0 at x=0) I write in the form 

D(f)(0)=0

I hope this makes sense and someone has a solution. Thanks in advance.

Matt

c1 := u1*u2-u1*u3;

c2 := -u1*u2+u2*u3-(1/2)*((u2-u3)*(u1*u2-u1*u3)+(u1)*(-u1*u2+u2*u3)-(u1)*(u1*u3-u2*u3))/(u1);

c3 := u1*u3-u2*u3+(1/2)*((u2-u3)*(u1*u2-u1*u3)+(u1)*(-u1*u2+u2*u3)-(u1)*(u1*u3-u2*u3))/(u1);

c4 := u1;

d1 := subs(u3=u3(t),subs(u2=u2(t),subs(u1=u1(t),c1)));

d2 := subs(u3=u3(t),subs(u2=u2(t),subs(u1=u1(t),c2)));

d3 := subs(u3=u3(t),subs(u2=u2(t),subs(u1=u1(t),c3)));

d4 := subs(u3=u3(t),subs(u2=u2(t),subs(u1=u1(t),c4)));

sys := {Diff(u1(t), t) = d1,

Diff(u2(t), t) = d2,

Diff(u3(t), t) = d3,

y = d4};

sys := {Diff(u1(t), t) = d1,

Diff(u2(t), t) = d2,

Diff(u3(t), t) = d3};

with(DEtools):

DEplot(sys, [u1(t), u2(t), u3(t)], t = 0 .. 15,number = 3, [[u1(0) = 0, u2(0) = 0, u3(0) = 0]]);

Error, (in DEtools/DEplot/WhichPlot) More than two dependent variables - please indicate the desired scene.

I'm using Maple 17 to seperate a large set of equations. I used selectremove command but the problem is it cannot return to zero when I select a varuable whish is not appear in this equation (it's showed on the figure below)!
Thanks!

Hi All,

I tried to convert the following hypergeometric function into BesselJ function. But I failed to do so. Could any one let me know the  reference or procedure to convert the Hypergeom function into bessel function.

Following is the integral I am intended to do.

Result:

I need to convert the result into equivalent bessel function.

If at all there is a way to co-relate the generalized corelation between bessel function <-> hypergeom function.

Direct me to any books you come across.

Thanks

Good afternoon sir.

I request your kind support to the above cited question.

With thanks & Regards

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

I need help writing a function which takes a number of integers (which are greater than or equal to 2) and returns a list where the nth entry in the list is given by the number of arguments which can be expressed in the form of x^n where x is an integer. The function must also disregard all of the terms after the final integer greater than 0 is produced ie does not show 0, 0, 0, 0, at the end of the list.

Eg if f was the function f(27) = [1,0,1]

f(2,3,4,9,81,1024) = [6,4,0,1,1,0,0,0,0,1]

I'm in desperate need for help!! For an assignment, we were asked to "write out our first and last names" in maple, using correct upper and lower case letters. I am clueless on how to approach the assignment. Is there anyone that could help me?

Hello,

I am using Maple Physics for symbolic tensor computations. However, I fail to simplify quite a simple expression.

Consider the following code:

    with(Physics):with(Library):

    Setup(spacetimeindices = lowercaselatin):

    Define(F[a]);

    read "example2.txt"; 

    Simplify(%);

Here is a file with expression: example2.txt.

The expression in the example2.txt is equal to zero. The following steps allow to obtain this result: expand, contract Kronecker deltas and metric tensors and collect similar terms. This also can be verified using another software (Cadabra, Mathematica xAct, etc.). As one can see, the result of Maple Simplify(%) contains terms like -462661905780*F[k]*F[~k] - 5856479820*F[m]*F[~m] which can be futher simplified, but Maple does not do this (even when I invoke Simplify(%) several times).

What is the right sequence of manipulations needed to obtain zero?

I use the latest Physics package (39.2, updated on November 30).

Thanks,

Dmitry.

Hello,

For some days, i no longer manage to open MapleSIM.

In fact, after double clicking on the shortcut, the software seems to be launched.

However, i can't open MapleSim on my screen. It seems that MapleSIM is only visible on the taskbars.

Maybe I have changed an option on my windows7.

I don't know.

Has somebody got a idea to help me ? so as to open my application normally ?

I attached a copy of my screen where you can see MapleSIM only in the taskbars.

 

Thank you for your help.

I created a interactice slider and graph (Parabolas_In_Vertex_.mw)and want to have a title to display the actual equation being graphed. where graph of is, I would like it to say "graph of . with a being the value of the slider. I have inserted a title and put the following code in, but it does not work:

display( [

'title' = typeset( "Graph of ", y = %Slider*x^2),
'titlefont' = ["Times New Roman", 'BOLD', 14]]
);

This was put in the edit click action of the title. Any help would be great. I have looked everywhere and can't seem to find the answer. I can send you my file if you would like to look at it.  

how to find lie group or finite group or symmetry group of one differential equation or system of differential equations

Let a convex polygon, for example Q:=polygon([[0,2],[1,4],[4,4],[5,1],[3,0]]), be given.
How to find the disk of the biggest radius which is contained in Q?
How to find the disk of the smallest radius which contains Q? Of course, with Maple.

restart;

Lfh := proc(numoflevel, h, fx, var)

if numoflevel = 1 then

        hello := 0;

        for i from 1 to nops(var) do

                hello := hello + diff(h[i], var[i])*fx[i];

        od;

        return hello;

else

        hello := 0;

        for i from 1 to nops(var) do

                hello := hello + diff(Lfh(numoflevel-1, h, fx, var), var[i])*fx[i];

        od;

        return hello;

end if;

end proc:

f:=[x3-x2^3,-x2,x1^2-x3];

g:=[0,-1,1];

h:=[x1,0,0];

variables := [x1,x2,x3];

Lf1h := Lfh(1,h,f,variables);

Lgf1h := Lfh(1,[seq(Lf1h,n=1..nops(variables))],g,variables);

Lf2h := Lfh(2,h,f,variables);

Lgf2h := Lfh(1,[seq(Lf2h,n=1..nops(variables))],g,variables);

Lf3h := Lfh(3,h,f,variables);

Lgf3h := Lfh(1,[seq(Lf3h,n=1..nops(variables))],g,variables);

i doubt that my book example is wrong

it said relative rank is 2, but i can not find any zero when Lgf3h

if i continue to Lgf4h, Lgf5h, Lgf6h...etc, still no zero what does it mean?

Example

Diff(x1,t) = x2^2,
Diff(x2,t) = u,
y = x1

result in

Diff(y,t$2)-4*u^2*Diff(y,t) = 0
2*u*x2 - Diff(y,t^2) = 0
x1 - y = 0

is it possible a general and generic method to apply some steps on system below

Diff(u1, t) = u1*u2-u1*u3,
Diff(u2, t) = -u1*u2+u2*u3-(1/2)*(conjugate(u2-u3)*(u1*u2-u1*u3)+conjugate(u1)*(-u1*u2+u2*u3)-conjugate(u1)*(u1*u3-u2*u3))/conjugate(u1),
Diff(u3, t) = u1*u3-u2*u3+(1/2)*(conjugate(u2-u3)*(u1*u2-u1*u3)+conjugate(u1)*(-u1*u2+u2*u3)-conjugate(u1)*(u1*u3-u2*u3))/conjugate(u1),
y = u1