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!!

Using the Plot Component it is possible to obtain
an interactive worksheet for drawing visually plane geometry
elements, e.g. select a triangle and draw its incircle.
Do you know if such worksheets are available somewhere?

I am trying to use Maple 18 to do some computations with matrices over a ring of polynomials in one variable over the integers $\mathbb{Z}[x]$, or the corresponding field of fractions $\mathbb{Q}(x)$.

The matrices in question are of dimension approximately 5000 and are sparse. The algorithm requires at least as many matrix multiplications as the dimension of the space.

Doing some small examples, of dimension 674, with a laptop (i7-3520 M CPU @2.9GHz with 8GB of Ram) gave the following disappointing result:

time(LinearAlgebra[MatrixMatrixMultiply](A,A);

34.694

When a colleague with access to a Mathematica license performed an identical calculation using sparse matrices in Mathematica, we found that Mathematica performed the calcuation in fractions of a second.

In small dimensional examples, constructing the matrices over the field of fractions as sparse in Maple 18 resulted in a four fold decrease in the already disappointing performance of the LinearAlgebra package in Maple 18.

Is there any way to improve the computational performance of Maple 18 for symbolic linear algebra? Alternatively, is the performance of Maple 2015 for symbolic linear algebra noticably better than Maple 18?

Thanks in advance.

Dave