MaplePrimes Questions

Could anyone help with solving this integral?

> evalf((∫)[-infinity]^(infinity)((∫)[-infinity]^(v)( uv)/(sqrt(2 Pi))(1/2+1/2 erf((1 )/2 sqrt(2) u))(1/2-1/2 erf((1 )/2 sqrt(2) v))(e)^(-((u^(2+v^(2))))/(2)) ⅆu )dv);

thanks,

Hi!

I have a piecewise defined function alpha. Its functional directives are stored in a vector A. But when I call up the command

alpha:=(x1,x2,x3)->piecewise(
    x1 < 0 , A[1],

   0< x1<1 A[2], ...):,

the result (x1,x2,x3)->piecewise(.... , A[1], ...) remains symbolic. What can I do that the entries of A[i] appear in the functional directive?

 

Thanks!

I'm new to using Maple. I'm trying to evaluate an equation where all unknowns are given. So to say use Maple

as a kind of desktop calculator with the possibility to change certain input variables and see what the outcome is.

 

I'm wondering why the trigonometric functions are not evaluated.

 

> restart; with(plots); with(LinearAlgebra); with(linalg);
> m1 := 2280; m2 := 2243; m3 := 2220; k1 := 300; k2 := 200; k3 := 100; F0 := 4.1; omega1 := sqrt((k1+k2)/m1);
> Sys := m1*(diff(u1(t), t, t))+(k1+k2)*u1(t)-k2*u2(t) = F0*cos(omega*t);
print(??); # input placeholder
> IC := u1(0) = 0, (D[1](u1))(0) = 0;
> csol := dsolve({IC, Sys}, {u1(t)});
%;
> p1 := subs(csol, u1(t));
>
> plot(p1, t = 0 .. 10*Pi, 'color' = "red", 'thickness' = 2, labels = ...

I have 5 term which each term includes three function of time (autonomous system ), i want to obtain time derivative of each term as other terms for example if i define each term as a dimensionless variable , e.g.  x , y , z , v , w , i want to know dx/dt = as  x , y , z , v , w.

 

 

i differentiate each term but i dont know how to obtain each differentiated term as other terms

Hello,

I need to plot M vs phi from the following ode. For this I am using implicitplot but unfortunately

I am getting empty plot. Please guide me through this issue.

Thanks 

eq1 := 1/(1-phi)^2.5/(1+4117/783*phi)*diff(f(eta),`$`(eta,3))+1/2*f(eta)*diff(f(eta),`$`(eta,2))

+M*(1-diff(f(eta),eta)) = 0;

bc:=f(0)=0,D(f)(0)=beta/(1-phi)^(2.5)*(D@D)(f)(0),D(f)(N)=1;

respar:=dsolve({eq1,f(0)=0,D(f)(0)=beta/(1-phi)^(2.5)*(D@D)(f)(0)},numeric,

I have a program in  matlab,

I want to change below code in maple,

 

 

henon_map = inline('[a-x.^2+b*y x]','a','b','x','y');

%a=input('a [0] = ');
b=input('b [0.4] = ');

%if(isempty(a))
% a=0
%end

if(isempty(b))
 b=0.4
end

Npts=200;
Ntrans=100;
Ntot=Ntrans+Npts;

% For the whole window:
fig1=1; fig2=2;xmin=-2;xmax=2; Nmin=1; Nmax=50;
amin = -0.09;
amax = 1.249;

I am getting the reecursive assignment error on the folowing code in the band[i]:= [band[]i[], ... section.

CreateMatrix is defined and I know that works and creates a global Matrix H

Branched from huffman coding (excellent example).  The huffman tree was not encoded in the message. The tree was known from the original message but suppose we didn't have the original message.  We need the tree in the compressed message.

How do you include the huffman tree in the message?

Hi. I'm very new to maple, and got stuck on a task on my assignment. I'm supposed to find the area of the segment (gray area) with the diameter D as a function of h. Any help and pointers is appreciated, thanks. :)

 

Circle

Task: Two circles will be placed inside a square of side 20cm (see figure below). The circle diameters can vary, but the total being 20cm. Show that the circles takes less space (at least land) if they are equal.

I want to solve the equation (1 + 1/x)*(1 + 1/y)*(1 + 1/z)=2 with integer solutions. I tried 

isolve((1 + 1/x)*(1 + 1/y)*(1 + 1/z)=2);

and I get {x = -1, y = -2, z = 0}. Is this a bug?

Every time i open an already saved document and change it then try to save it it comes up with this error:cwmaple.exe has stopped working!!! Why does this happen??

 

 

Please Help

 

Thanks,

I'm trying to use define but get unexpected behavior. Say I want to declare that the map phi is additive. I would try this

define('phi',phi(x::`+`)=map(phi,x));

But if I do phi(x+y) now, I get a warning about an infinite recursion. I get an indication of what the problem is if I define instead

define('phi',phi(x::`+`)=op(x));

Now phi(x+y) produces "x+y" rather than "x,y", so somehow the sum is considered atomic. Can somebody explain this to me?

The following example has been a cornerstone in the computer lab exercises for Calculus II:

a := n -> (-1)^n*arctan(n):
Limit( a(n), n=infinity ):
% = value( % );
/ n \ 1 1 1 1
lim \(-1) arctan(n)/ = - - Pi - - I Pi .. - Pi + - I Pi
n -> infinity 2 2 2 2
First 1664 1665 1666 1667 1668 1669 1670 Last Page 1666 of 2428