The Physics package appears broken for the tensor product of Bras and Kets.
It is not possible to describe new operators creatde by the tensorial
product of operators on two Hilbert spaces. ie H12 = H1 X H2

Download BraKetTensorProduc.mw

Am I missing something here.

Thank you for your help

I'm trying to see when a matrix becomes singular, so I took its determinant and checked when it would vanish using solve.  The problem is that solve gives me a solution that doesn't satisfy the original equation, either symbolically or numerically.  Am I doing something wrong, or is this a bug in solve?

Here's what I'm getting:

WrongSolution.mw

I am doing a paper on the stability of a damp. This includes making a Cartesian expression of line of fracture in the subjacent earth layers.

I’ve attached the maple sheet that covers the following expressions.

The polar expression of the line of fracture is given by r(v)=r[0]*exp(v*tan(phi)), in which

r[0] and phi are constants and v is the angle.

To change the expression to a Cartesian coordinate system I introduce

r(v)=sqrt(x^2+y^2) and

Let's say I do this:

points:=[[285,0],[290,0],[300,0],[315,0],[325,0],[330,0],[335,0]]

The syntax example that my professor gave to get the sum of the points of the x-coordinate is as follows:

sum('points [k,1]', 'k'=1..7);

Now here's my question: how do I use the sum command to define a function that uses the Simpson's rule. I know I can't use the simpson's command since I'm dealing with a bunch of points and not a function.

How can I make the 3d plot of a function such as z = 4x^2 - y^2 so that only the part of the surface above the unit circle in the xy plane is shown?

Is Maple 15 compatible with Mac OS X Lion?  If not, when will it be so?

I would like to define a function f(a,b,c,....) sub that x * f(a,b,c,...) would return f(x*a,x*b,x*c,...). Is this something that is simple to do in the function definition or do I need to create a rule to apply?

I wish to manipulate the expression R*D^2 / ( R*D^2 + s*L + s^2*R*L*C ) in the way it will show as: 1 / ( 1 + s*L/(R*D^2) + s^2*L*C/D^2)

There are some function in maple that I could use?

I ever find to much hard make expression look as i want. In my view, one of the greats problems in maple.

Thanks

Hello,

I'm doing a math assignment for numerical methods and I had to answer a question - solving Newton's method in maple to submit. I need to solve the question to an accuracy of 10^-5. I don't have access to the software right now as I only have it on the computers at our school, but I did take a maple course in my first year of university and have some experience with it. I wrote up this formula, but I'm not 100% sure if its correct. Could someone...

How to solve this problem in maple?
Decide which of three lines given are tangent to the graph of f(x) at given points.
The function to define is f(x)=2x^3-4x^2+3x-5
The possible tangent lines are:
y = x - 5
y = 2x - 5
y = 3x - 5

1. What is/are the zero(es) for this function? In other words, what is the solution for f(x)= 0

2.  What axes values (x- and y- ranges) are appropriate for this graph?

3. When plotting each linear function with f(x...

i have the following command.

y := 23.45*sin((360*(x+284))/284):
seq('y'(x) = evalf(y), x = 1..365);

i want to calculate:

arccos(-tan(10)*tan(all the y(x) values))

how can i get maple to do this?

can anyone please help....

Judith

nonflat1-bestfit-H0-.mw  sn_union2.txt  Hi all! Can anyone tell me what the problem is in my worksheet? It works for first two initial conditions but then it does not work. The data file that is needed to run the program has attached, too. Thanks. 

How do you write a code which involves the proc command and a sequence to plot a a series of lines that are represented by points in a matrix.

Dear guys! I want to solve a system of ODEs but I have some problems. Plaese have a look and let me know:

> Omega_m0 := 0.22: Zeta_m := 10^(-4): n := 0.35: h := 0.63: omega := 1:

> eq := z-> 1 = H^(2*n-2)*(1-Omega_m0)/(h^(2*n-2)) + h^2*Omega_m0*(1+z)^3*(1+Zeta_m*exp(-2*psi(z)))/(H^2) + omega*H^2*(1+z)^2*(diff(psi(z),z))^2/(6*h^2);

> yp := implicitdiff(eq(z), H, z);

> ode1 := diff(H(z),z)=subs(H=H(z),yp);

> ode2 := H(z...

How to find the limit

>limit(sum(1/binomial(n, k), k = 1 .. n),n=infinity);

with Maple?