panke

135 Reputation

6 Badges

6 years, 227 days

MaplePrimes Activity


These are questions asked by panke

 

restart

A := Omega; assume(Omega > 0); B = Omega

B = Omega

(1)

``

Download assumetest.mw

I have this two expresions

 

e1 := (1/2)*P[psi]^2/(cos(`ϑ`)^2*Ix)

e2 := (1/2)*P[psi]^2/(cos(`ϑ`)^2*Ix)

 

simplify(e1-e2)=-(1/2)*(-P[psi]^2+P[psi]^2)/(cos(`ϑ`)^2*Ix)

 

but 

simplify(-P[psi]^2+P[psi]^2)

is zero 

 

why i dont obtain zero if i use simplify(e1-e2) ??

How can I expand exp(I x) to sin(x)+I*cos(x)

I use "cat" to concatinate greek letters but the output is not correct.test_cat.mw
 

restart; with(linalg); QPT := proc (q) local nc, qp, qpp, i, p, pp; nc := vectdim(q); qp := Vector(nc); qpp := Vector(nc); for i to nc do qp[i] := cat(p, q[i]); qpp[i] := cat(pp, q[i]) end do; return qp, qpp end proc

q := convert([alpha, beta], Vector); QPT(q)

q := Vector(2, {(1) = alpha, (2) = beta})

 

Vector(2, {(1) = palpha, (2) = pbeta}), Vector(2, {(1) = ppalpha, (2) = ppbeta})

(1)

``


 

Download test_cat.mw

 

1 2 3 4 5 6 7 Page 1 of 8