x := 1;y := 3;a := [1,2,3,4,5,6,7,8,9,10];z := Matrix([seq([seq(a[k], k = x+m .. y+m)], m = 0 .. 2)]);ListTools:-Occurrences(1, Vector(z(.., 1)));

eq1 := 285 = .3354101966*sqrt(1/(1.025384421*10^(-9)*d^4/t[min]^3+5.568148129*10^(-8)*d+(3/550400)*d^2/t[min]));

I would like to plot tmin for varying values of d.

i can solve for tmin with a know value of d using fsolve

but can't do the plot I want

Hi all,

I have been trying to improve my code to speed up a bit.

Here is the toy example:

######################

restart:

myfunc:=proc(phi,p,CH)
 # dummy code
 # dummy code
 # dummy code
 # dummy code
end proc;

a:=myfunc(phi,p1,CH1)
b:=myfunc(phi,p2,CH1)
c:=myfunc(phi,p3,CH1)

ANS1:=w1*a+w2*b+(1-w1-w2)*b

a:=myfunc(phi,p1,CH2)
b:=myfunc(phi,p2,CH2)
c:=myfunc(phi,p3,CH2)

Hello,

I've been working on interacting with the MapleSim optimized C code (first post was here: http://www.mapleprimes.com/questions/145427-MapleSim-Connector-C-Code-Api?sq=145427) and two manuals were recommend to me to read, which were very useful. I ended up writing up an alternate implementation of the main method described in the one manual (http://www.mapleprimes...

Hello, 

I didn't manage to evaluate the following sum of 2 matrix M*p²+K. 
The 2 matrix can be evaluated separately.
But, strangely, whan i try to evaluate the sum, i can get the numerical values. 

Let's see :

[img]http://www.gilawhost.com/images/s7ur3of2.gif[/img]

 

I have bracket matching turned on but donot get the rectangular yellow box around matching brackets as shown in the attached picture. Can anyone help me how to turn this feature on for both input and output?

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.