For example, I have a commutation table of finite Lie algebra. I'd like to extract some information from it (mainly, I'm interested in maximal dimension of abelian Lie subalgebra).

if eval(simplify( subs(a=2,subs(b= 5,f))))) - n = 0 then

      hello := union(hello, {f})

end if:

after subs(a=2,subs(b= 5,f))) to verify , some of hello return -n

negative

why it is possible to pass the if condition statement?

if it is normal case, how to write correct if statement to ensure no -n 

Hello everybody

In the following attached file, I have used "fnormal" command to omit small numbers that are less than "1e-6" but when I run the maple, I see the numbers such as 2.10^(-11). What's the problem?

Thanks in advance.

Lin1.mw

Hello everyone, 

I'm currently taking a Chaos and Fractal Geometry class that did not have a pre-req of computer programming or knowledge of Maple, but I am apparently the only person in the class who has not taken a class/does not have this knowledge so my professor really flew by teaching the material. My sob story aside, I was hoping you great people would be able to help me out with (what are apparently) really basic procedures and plots while I try to read up on how to actaully do it myself (if anyone has a good supplement to recommend, I'm all ears!). Anyway, here are the one's that I'm stumped on:

• "Write a Maple proc L that takes as input two lists and returns as output a set containing the terms they have in common (not necessarily in the same position). For example, L([1, 3, x, 5],[2, x, 5, 2, 1, 8]) should return [1, x, 5]."
  I'm thinking this is going to use some form of the intersection command, but I cannot for the life of me figure out how to set up the syntax
• "Write a Maple program that implements the Euclidean algorithm to compute the gcd(x, y) for any natural numbers x, y (except x = y = 0). Your program should not just compute the gcd, but should do so by implementing the Euclidean algorithm directly (i.e. proc(x,y) RETURN(gcd(x,y)) end; is not what I am looking for here! :) )."
  If only he would've let me do the easy one :(
• "Write a Maple program to plot the Pythagorean spiral. The program should take a single positive integer n as an argument and plot the spiral until the side of length n is reached"
  Not even a clue on how to approach this one. 

Thanks again to any and all help/recommendations you can make. I really appreciate it!

Hi there

I use Maple13 for plotting the surface of revolution of y=x^2 around the line y=1 on the interval [1,2]. But the distance between the surface 

and the vertical axis is ignored while there must be 1 unit distance.please specify the correct command.

Thanks for your cooperation

Regards

M. R. Yegan

Hello,

I am a new fellow of maple software.

I am trying to run an example of Poincare package example found in 

http://www.maplesoft.com/support/help/maple/view.aspx?path=examples%2Fpoincare

But when i  wrote the commands found in this site, i got this error:  Error, unable to match delimiters 

The commands  are the following:

> restart;
> with(DEtools, poincare, generate_ic, zoom, hamilton_eqs);
> H := ((p1^2+p2^2)*(1/2))*((e^(2*q2+2*sqrt(3)*q1)+e^(2*q2-2*sqrt(3)*q1)+e^(-4*q2))*(1/24))-1/8;

> poincare('' '', stepsize=.05,iterations=5);
Error, unable to match delimiters 

                                        poincare('' '', stepsize=.05,iterations=5)

I would appreciate any helps.

Miguel 

if input x^2*y+x*y+x

how to output [x^2*y, x*y, x]

how to composite two system of polynomials in maple

for a o b = identity

how to composite two polynomial in maple

i would like to search a o b = 1

composite two polynomial equal identity

I am entering into Maple, but it interprets it as

How do I change this partial derivative to a total one. (Both x and y can be assumed invertible functions of parameter u and their derivatives are nonzero)

I need to find all combinations of a binary list of length 3.  For example: [0,0,0] , [1,0,0] , [0,1,0] , [0,0,1] , [1,1,0] , [1,0,1] , [0,1,1], [1,1,1].  Does anyone have a procedure or can write a loop that does this?

I want to extract information  about an ODE.

For example, having the next ODE:

ode := cos(x)*(diff(y[1](x), x, x))+sinh((1/10)*x+1)*y[2](x)+y[1](x)+exp(-x)-1:

extract information as:

the inputs system are :

{y[1](x),y[2](x)}

the independent variable is:

{x}

Some suggestion? I am tried with: indets, DEtools[odeadvisor], whattype, evaluating the function, convert it into a table and using the "indices". Probably the answer is related to dsolve/numeric/process_input

Regards

Dear friends,

I am trying to do an integration which consists of a list of data; let me explain it more:

I have to do

however, I do not have f(x) in the form of a function. f(x) is a list which is:

also, I have x as

How can I do the integration between 1<x<6 ?

Hi,

I have a problem with creating a function contains n-dimensional independent variables with random function .. The function looks like:

where U is a random between 0 and 1

For 1-dimensional problem, it will be like:

The plot by MATLAB will be:

While, for 2-dimensional problem, it will be like:

and the plot with MATLAB will be:

The MATLAB code is:

x1min=-5;
x1max=5;
x2min=-5;
x2max=5;
R=1000; % steps resolution
x1=x1min:(x1max-x1min)/R:x1max;
x2=x2min:(x2max-x2min)/R:x2max;

for j=1:length(x1)

    % For 1-dimensional plotting
    f1(j)=rand*abs(x1(j));

    % For 2-dimensional plotting
    for i=1:length(x2)
        fn(i)=f1(j)+rand*abs(x2(i))^2;
    end

    fn_tot(j,:)=fn;

end

figure(1)
plot(x1,f1);


figure(2)
meshc(x1,x2,fn_tot);

I have used Maple because of its great graphics and animation, and for the mathematical analysis capability. However, to animate the above problem for 1- and 2-dimensional problems, I always fail!

My attempt has been just successed to plot 1-dimensional problem (without animation) .. And it tooks long-time with many codes!

restart;

X := Statistics:-RandomVariable(('Uniform')(0, 1));
R := Statistics:-Sample(X, 1000);

Vect := abs(Vector[column]([seq(0 .. 10, 10/999)]));

V := `~`[`-`](Vect, 5);

with(LinearAlgebra);
Mat := Multiply(V, R);

with(ArrayTools);
f := ArrayTools:-Diagonal(Mat);

F := abs(f);

Axis := Transpose(V);

f5 := plot(Axis, F, style = line);

And finally I got the graph:

But the problem is:

How can I animate it? Maybe I need to express it with new Maple code?

How can I plot and animate it when n=2?

Thanks

Hi,

i have been looking to see if i could get the source code for some of the calculus functions in maple. So far, i have tried this

kernelopts(opaquemodules = false)

interface(verboseproc = 3)

print(DiffTutor)

which shows the result

module() ... end module

does anybody have any idea how i would:

1) get the full list of sub-procedures in the module

2) get the source code of any of the sub-procedures in the module?

Thanks in advance!!