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

Hello

I have this function:

f(x)=80x-2x²

I want to plot it (and ofcourse define it)

I then need to find A'(x)= 0 which has to give 20, but my maple wont do that.

Help me thanks.

Hello everybody

In the attached file, I tried to solve the system of equations and obtain the parametric solution for my unknowns that are A1, A2, A3, A4, A5, A6, A7 and A8. I have 8 equations and 8 unknowns. The other variables are all known and parametric. I thought Maple could solve these system of equations easily but when I ran the program and waited for about 2 hours, unfortunately it returned no answer and it was in evaluating mode and I closed the program forcely. Does my file have any problem or Maple cannot solve these system of equations.

Thanks in advance

SOE.mw

Hello

How do I define this function? s(t) = 5*t^1/2

This function shows the pace of a particle. I have to decide the time when the pace of the particle is 2 m/s

help 

Is there a way to loop over an entire worksheet I already have? I am too lazy to retype everything into one for loop, and I couldn't just copy and paste everything into one command thing (the space you make when you shift-enter). Is there something I can put before my worksheet that runs it, changes one variable, runs it again, etc.?

Thanks! I hope it is clear what I am asking. 

I want to make a dot product like

and get the complete result like

but instead I get

Is there a way to force the dot product operation all the way?

 DotProductCommutativity.mw

Hi MaplePrimes,

I want to find the minimum x value for an elipse.  Namely -

x^2 + x*y + y^2 = 2.

I'm sure that the first steps are to differentiate with respect to y and set equal to zero.  This gives

x = -2y.

I'm not sure where to go from there.

Regards,

Matt

Here is a screenshot of my maple worksheet.

I’m trying to use Maple to develop tensor operations using the epsilon-delta notation as used in the attached document, which makes use of the following relationships

permutations.pdf    epsilondelta.pdf

I see how to generate permutations in Maple, and I see there is some mention of what I am trying to do in Maples definition of a signature.  But I am unable to see how to implement it.  Does anyone have any ideas?

Collatz := proc (n)

    local count;

       while n != 1 do

           if `mod`(n, 2) = 0 then n := (1/2)*n

           else n := 3*n+1

           end if;

           count := count+1;

       end do;

print(count);

end proc:

I wanna correct 'illegal use of formal parameter' error.

'n' always goes to 1 through 'while statement'.