Hi,

I am trying to figure out a way for Maple to handle group action.

Specifically, I have a set of sets. Each set is has three distinct numbers between 1 and 6.

Under a permutation element from S₆, this set should be mapped to another set.

For example [[1,6]] maps {1,3,4} to {3,4,6} (order is not important).

Anybody have a clever way to do this?

Regards.

I tried the following:

utility:=[CARA,CRRA,DARA]:

DARA1:=alpha+beta*x:

eval(utility[3]||1,[alpha=1,beta=2]);

Unfortnuately Mape ouputs: utility[3]||1

How can I get Maple to recognize the expression behind utility[3]||1?

Thanks for helping.

> restart;
> ode := `assuming`([(diff(r^2*(diff(`ϕ`(r), r)), r))/r^2 = k[0]^2*`ϕ`(r)+Q*Dirac(r)/`ε`[0]], [Q::positive, (`ε`[0])::positive, (k[0])::positive, r::real]);
> ics := `ϕ`(infinity) = 0, `ϕ`(-infinity) = 0;
> dsolve({ics, ode}, `ϕ`(r), method = fourier);
>

Download pintu.mpl.txt

I have an ODE...

Hello all,

I have a problem in comparing two expressions. I have to verify they are equal, but I am totally stuck even if it is obvious it is correct (but I have to do it with Maple).

These are the two expressions:

http://www.hostingpics.net/viewer.php?id=312636maple.png

I tried to convert them into exp, but it doesn't work at all...

Thanks a lot for your help, Julien

Hi, everyone, I am sorry that I have to post this question again since the last post sank and I did not give example at that time. In the example I post here, A[e,res1] and A[e,res2] are supposed to be the same theoretically. However, as I  used numeric solver (fsolve), they are 2 order different. Can anyone try the code and tell me what mistakes I made? I appreciate that.

> restart;
> with(PDEtools);
>
>
> # Electron velocity distribution:

Does anybody know how to make Maple 14 work with Visual Studio 10.0 Professional (not the express version)?  I can't seem to make this happen.  The problem has to do with the PostLink command.

I need to refer to all after "and" in the solution of inequalities system

Basically I want to plot the following parametric plane:

r (u,v) = [ u*cos(v) , u*sin(v) ]    where    u ranges from 1 to 2, and v ranges from 0 to 2*pi.

There are some things that has to be done.

- It has to be in 2 Dimensions.

- The axes has to be labelled x and y.

- The edge of the plan must not be rough.

- The entire plane has to have one color. No black stribes etc.

dear friends, I want to solve this integration with numeric methods. when i type it as nested integrals i reach the first answer, but when i want to use int(int), maple doesn't solve it(second answer). what's wrong with the input?

Hi,

On one axis (y vs x), I want to plot y=exp(1)~2.718 and x=4/(3*sqrt(exp(1)))~0.8087 so that they intersect to form a rectangle. Does anyone know how to proceed with this?

Any help is greatly appreciated.

Thanks

I have tried to make a pendulum with flexible rod (see file and figure), but have faced a problem. How can I set the initial angle of the rod deviation from a local vertical (alpha)? TSDA does not give such possibility.

And the second question: how to measure this angle during motion, and also an angle of a body deviation relatively to a rod (psi)? Probes allow to measure only angular velocity. How to get an angles?

Hi;

i have run a progrm in maple. this program is to solve 6 equastions for 1000 000 00 times. maple is shutdown when the process reach 1000,000 times.

can you help me to solve this problem in the maple pragram, please?

do you think increase the memory pf the maple is on solution for this problem?

reagrds

r

So I've solved this system of ODEs already in a certain gauge where h[r](r) was set to zero, and my answer was consistent with a previously calculated solution, but now I'm trying to do it with a non-zero h[r](r).

The previous result Maple easily solved with dsolve, but puting that in this time, I get:

ode := [-1/2*(4*h[v](r)*r+4*h[r](r)*r-2*diff(h[v](r),`$`(r,2))*r^3-2*h[2](r)*6-2*h[r](r)*6*r+diff(h[2](r),r)*6*r+4*h[2](r)-2*diff(h[2](r),r)*r)/r^3=0,

I'm getting an error trying to get the singular vector of this matrix:

e2 := Normalize(<100,200,1>, Euclidean):
e3 := Normalize(<-500,-600,1>, Euclidean):
a := e2(1):
b := e2(2):
c := e2(3):
d := e3(1):
e := e3(2):
f := e3(3):
A := Matrix( [[a,b,c], [d,e,f], [a,e,f]] );

SingularValues(A, output='Vt');
Error, (in LinearAlgebra:-LA_Main:-SingularValues) Matrix of type complex(extended_numeric) required for output object(s) [Vt]

I've been trying to numerically solve (and then plot) this set of equations, to reproduce results from a scientific paper (Berro et al., BPJ 2007). Maple tells me that some matrix is singular - any idea what I can do differently?

Any help much appreciated.

> eqn1 := 15*(diff(theta(s), `$`(s, 2))) = N3(s)*cos(theta(s))-N1(s)*sin(theta(s));                    ...