Let M be a list of intervals of the form RealRange(Open(a[k]),Open(b[k])), k=1..nops(M).
For example,
restart; with(RandomTools):
L := [seq(RealRange(Open(Generate(float(range = 0 .. 10^4, digits = 4))),
Open(Generate(float(range = 0 .. 10^4, digits = 4)))), j = 1 .. 2*10^3)];
nops(L);
                              2000

We have two differential equations that model a flight of a glider
               diff(theta(t),t) = (v(t)^2 - cos(theta(t)))/v(t),
               diff(v(t),t)      = -sin(theta(t)) - 0.4*v(t)^2 + k,

-- We're now going to look at a model with a propeller or a small engine attached.
-- v>0 is the speed of the...

how to tune with kernelopts when memory is not enough for combinatorics package?

i guess that there is a limit on the memory used by maple

if would like to give more memory for it to use and not influence too slow to move my mouse in order to press terminate button when used too much memory

Can you help me, why I have such error

with(PDEtools); m := 1/64
r := (8/15)*m
l1` := (40*(1+tanh(n(t))))*(diff(k(t), t)) = -20*r*(1+tanh(n(t)))^2+z(t)/cosh(n(t))^2-(2*(1+tanh(n(t))))*k(t)^2/cosh(n(t))^2 
l2 := 20*(diff(z(t), t)) = -20*r*(1+tanh(n(t)))^2*k(t)+(2/3)*k(t)*(1+tanh(n(t)))/cosh(n(t))^2
l3 := 20*(diff(n(t), t)) = k(t)*(1+tanh(n(t)))
IBC := {k(0) = 0, n(0) = 0, z(0) = 1/3}

Dear All,

Please can someone help me in writing the Maple program for the following, I am stuck :

theta(n):=((beta*a)/(Pi))*(A1(n)+A2(n)

with

A1(n)=(sin((n+1)*beta/2))/((n+1)*beta/2)

A2(n)=1 for n=1

A1(n)=(sin((n+1)*beta/2))/((n+1)*beta/2)

A2(n) = (sin((n-1)*beta/2))/((n-1)*(beta/2))           for n is not equal to 1

note pls: n= 1, 3, 5,....

Thanks in advance

I have a question:

let t(n)=sum( (binomial(n,j))^4, j=0..n )  , t(-1)=0, t(0)=1

and (n+1)^3 *t(n+1)=(2n+1)*(a*n^2+a*n+b)*t(n)+n*(c*n^2+d)*t(n-1)             (1)

I want to Print(a,b,c,d) so that t(n) satisfies the recurrence relation (1)  where a,b,c,d are integers and their ranges are from

-30 to 30.

Please help!

Could you tell me how to write the following surface integral in Maple, please?

Hello all,

I am new to maple and have to input the following attached equation into maple to be solved;

How do I do this?

Thank you in advanced for your help!

Cheers,

Keith.

(This question applies to the Win32 version of Maple 15.)

I've got a python wrapper for the OpenMaple interface, and I've managed to get most of the callback functions in the MCallBackVector structure passed in to StartMaple to work, but I've never (ever) seen the queryInterrupt callback called.

To investigate this, I modified the 'omexample.c' example (found in the <Maple install Dir>\samples\OpenMaple\cmaple directory installed with the product...

I have a beam rigidly secured at one end (a diving board) and want to find the deflection of the beam when a mass is applied at the end. 

I have the differential equation

eq := diff(v(x), x, x) = P*x/(E*Iz) # E youngs modulus and Iz the moment properties of the diving board. 

The solution says to integrate to get deflected slope of the board.

int(rhs(eq))

How do I do to get a single number (decimal) when I evaluate an input.

For example, I write this:

evalf((546, 1/1000000000)*(7, 0)*sqrt(36+1/(7, 0)^2));

but I still get the same thing as I inputed as a response, how do I do to get an actual number?

Hi,

when i tried to solve the following equation, i received ""Warning, solutions may have been lost"":

a := [1,1,1,2,2,3];

number of appearance of 1 is 3

number of appearance of 2 is 2

number of appearance of 3 is 1

any short code can count this