dharr

Dr. David Harrington

8445 Reputation

22 Badges

21 years, 29 days
University of Victoria
Professor or university staff
Victoria, British Columbia, Canada

Social Networks and Content at Maplesoft.com

Maple Application Center
I am a retired professor of chemistry at the University of Victoria, BC, Canada. My research areas are electrochemistry and surface science. I have been a user of Maple since about 1990.

MaplePrimes Activity


These are answers submitted by dharr

Some of the lambda's in vvalue were not formed with the double underline (use lprint vvalue to see this). After fixing this, simplify(...,size) executes in a reasonable time.
 

restart

with(LinearAlgebra)

assume(x::real); assume(t::real); assume(`α__1`::real); assume(`α__2`::real); assume(nu::real)

A2s := Matrix([[H__11*exp(I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__13*exp(I*v__21)/(`λ__1`-conjugate(`λ__2`))+1, H__12*exp(-I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__14*exp(-I*v__21)/(`λ__1`-conjugate(`λ__2`)), H__11*exp(I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__13*exp(I*v__22)/(`λ__2`-conjugate(`λ__2`)), H__12*exp(-I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__14*exp(-I*v__22)/(`λ__2`-conjugate(`λ__2`))], [H__12*exp(I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__14*exp(I*v__21)/(`λ__1`-conjugate(`λ__2`)), 1+H__11*exp(-I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__13*exp(-I*v__21)/(`λ__1`-conjugate(`λ__2`)), H__12*exp(I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__14*exp(I*v__22)/(`λ__2`-conjugate(`λ__2`)), H__11*exp(-I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__13*exp(-I*v__22)/(`λ__2`-conjugate(`λ__2`))], [H__13*exp(I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__33*exp(I*v__21)/(`λ__1`-conjugate(`λ__2`)), H__14*exp(-I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__34*exp(-I*v__21)/(`λ__1`-conjugate(`λ__2`)), 1+H__13*exp(I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__33*exp(I*v__22)/(`λ__2`-conjugate(`λ__2`)), H__14*exp(-I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__34*exp(-I*v__22)/(`λ__2`-conjugate(`λ__2`))], [H__14*exp(I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__34*exp(I*v__21)/(`λ__1`-conjugate(`λ__2`)), H__13*exp(-I*v__11)/(`λ__1`-conjugate(`λ__1`))+H__33*exp(-I*v__21)/(`λ__1`-conjugate(`λ__2`)), H__14*exp(I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__34*exp(I*v__22)/(`λ__2`-conjugate(`λ__2`)), H__13*exp(-I*v__12)/(`λ__2`-conjugate(`λ__1`))+H__33*exp(-I*v__22)/(`λ__2`-conjugate(`λ__2`))+1]])

vvalue := {v__11 = (conjugate(`λ__1`)-`λ__1`)*x+(4*`α__1`*(conjugate(`λ__1`)^3-`λ__1`^3)+2*`α__2`*(conjugate(`λ__1`)^2-`λ__1`^2)-8*nu*(conjugate(`λ__1`)^4-`λ__1`^4))*t, v__12 = (conjugate(`λ__1`)-`λ__2`)*x+(4*`α__1`*(conjugate(`λ__1`)^3-`λ__2`^3)+2*`α__2`*(conjugate(`λ__1`)^2-`λ__2`^2)-8*nu*(conjugate(`λ__1`)^4-`λ__2`^4))*t, v__21 = (conjugate(`λ__2`)-`λ__1`)*x+(4*`α__1`*(conjugate(`λ__2`)^3-`λ__1`^3)+2*`α__2`*(conjugate(`λ__2`)^2-`λ__1`^2)-8*nu*(conjugate(`λ__2`)^4-`λ__1`^4))*t, v__22 = (conjugate(`λ__2`)-`λ__2`)*x+(4*`α__1`*(conjugate(`λ__2`)^3-`λ__2`^3)+2*`α__2`*(conjugate(`λ__2`)^2-`λ__2`^2)-8*nu*(conjugate(`λ__2`)^4-`λ__2`^4))*t}

A2s2 := Determinant(A2s); dets22 := simplify(A2s2, size); length(%)

8445

dets22f := subs(vvalue, dets22)

dets22f2 := simplify(dets22f, size)

((lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1))*((-(-(-H__13^2+2*H__13*H__14-H__14^2+(H__33-H__34)*(H__11-H__12))*(-H__13^2-2*H__13*H__14-H__14^2+(H__33+H__34)*(H__11+H__12))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(lambda__1-conjugate(lambda__2))*(-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33)))*(lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__2+x*conjugate(lambda__1)))-(lambda__2-conjugate(lambda__1))*((lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1))*(-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(lambda__1-conjugate(lambda__2))*(((-H__13^2+2*H__13*H__14-H__14^2+(H__33-H__34)*(H__11-H__12))*(-H__13^2-2*H__13*H__14-H__14^2+(H__33+H__34)*(H__11+H__12))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(H__11^2*H__33-H__11*H__13^2-H__11*H__14^2-H__12^2*H__33+2*H__12*H__13*H__14)*(lambda__2-conjugate(lambda__2)))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((-H__33*H__13^2+2*H__14*H__34*H__13-H__33*H__14^2+H__11*(H__33^2-H__34^2))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__33-H__13^2)))))*exp(-I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+((lambda__2-conjugate(lambda__2))*((H__13^3+(-H__11*H__33-H__12*H__34-H__14^2)*H__13+H__14*(H__11*H__34+H__12*H__33))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(H__13-H__14)*(H__13+H__14)*(lambda__1-conjugate(lambda__2)))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__2+x*conjugate(lambda__1)))+(-(H__12*H__34-H__13^2)*(lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(lambda__1-conjugate(lambda__2))*(((-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__13-H__12*H__14))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+((H__13*H__33-H__14*H__34)*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__13*(lambda__2-conjugate(lambda__2)))*(lambda__1-conjugate(lambda__1))))*(lambda__2-conjugate(lambda__1)))*(lambda__1-conjugate(lambda__2)))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__2+x*conjugate(lambda__1)))+((lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1))*(-(lambda__2-conjugate(lambda__2))*((-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(H__12*H__34-H__13^2)*(lambda__1-conjugate(lambda__2)))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__2+x*conjugate(lambda__1)))+(lambda__2-conjugate(lambda__1))*((H__13-H__14)*(H__13+H__14)*(lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(lambda__1-conjugate(lambda__2))*(((-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__13-H__12*H__14))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+((H__13*H__33-H__14*H__34)*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__13*(lambda__2-conjugate(lambda__2)))*(lambda__1-conjugate(lambda__1)))))*exp(-I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+((lambda__2-conjugate(lambda__2))*(((-(-H__13^2+2*H__13*H__14-H__14^2+(H__33-H__34)*(H__11-H__12))*(-H__13^2-2*H__13*H__14-H__14^2+(H__33+H__34)*(H__11+H__12))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))-(H__11^2*H__33-H__11*H__13^2-H__11*H__14^2-H__12^2*H__33+2*H__12*H__13*H__14)*(lambda__2-conjugate(lambda__2)))*exp(-I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))-(lambda__1-conjugate(lambda__1))*((-H__33*H__13^2+2*H__14*H__34*H__13-H__33*H__14^2+H__11*(H__33^2-H__34^2))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__33-H__13^2)))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(((-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__13-H__12*H__14))*exp(-I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((H__13*H__33-H__14*H__34)*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__13*(lambda__2-conjugate(lambda__2))))*(lambda__1-conjugate(lambda__2)))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__2+x*conjugate(lambda__1)))+(lambda__2-conjugate(lambda__1))*((lambda__2-conjugate(lambda__2))*(((-H__13^3+(H__11*H__33+H__12*H__34+H__14^2)*H__13-H__14*(H__11*H__34+H__12*H__33))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__13-H__12*H__14))*exp(-I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((H__13*H__33-H__14*H__34)*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__13*(lambda__2-conjugate(lambda__2))))*(lambda__1-conjugate(lambda__1))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__1+x*conjugate(lambda__2)))+(((((-H__13^2+2*H__13*H__14-H__14^2+(H__33-H__34)*(H__11-H__12))*(-H__13^2-2*H__13*H__14-H__14^2+(H__33+H__34)*(H__11+H__12))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(H__11^2*H__33-H__11*H__13^2-H__11*H__14^2-H__12^2*H__33+2*H__12*H__13*H__14)*(lambda__2-conjugate(lambda__2)))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((-H__33*H__13^2+2*H__14*H__34*H__13-H__33*H__14^2+H__11*(H__33^2-H__34^2))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__33-H__13^2)))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(((H__11^2*H__33-H__11*H__13^2-H__11*H__14^2-H__12^2*H__33+2*H__12*H__13*H__14)*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(H__11-H__12)*(H__11+H__12)*(lambda__2-conjugate(lambda__2)))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((H__11*H__33-H__14^2)*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__11*(lambda__2-conjugate(lambda__2)))))*exp(-I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((((-H__33*H__13^2+2*H__14*H__34*H__13-H__33*H__14^2+H__11*(H__33^2-H__34^2))*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(H__11*H__33-H__14^2))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(lambda__1-conjugate(lambda__1))*((H__33^2-H__34^2)*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__33*(lambda__2-conjugate(lambda__2))))*exp(-I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+(lambda__2-conjugate(lambda__2))*(((H__11*H__33-H__13^2)*exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))+H__11*(lambda__2-conjugate(lambda__2)))*exp(I*(8*t*nu*lambda__1^4-8*t*nu*conjugate(lambda__1)^4-4*t*alpha__1*lambda__1^3+4*t*alpha__1*conjugate(lambda__1)^3-2*t*alpha__2*lambda__1^2+2*t*alpha__2*conjugate(lambda__1)^2-x*lambda__1+x*conjugate(lambda__1)))+(exp(I*(8*t*nu*lambda__2^4-8*t*nu*conjugate(lambda__2)^4-4*t*alpha__1*lambda__2^3+4*t*alpha__1*conjugate(lambda__2)^3-2*t*alpha__2*lambda__2^2+2*t*alpha__2*conjugate(lambda__2)^2-x*lambda__2+x*conjugate(lambda__2)))*H__33+lambda__2-conjugate(lambda__2))*(lambda__1-conjugate(lambda__1)))))*(lambda__1-conjugate(lambda__2))))*(lambda__1-conjugate(lambda__2)))*(lambda__2-conjugate(lambda__1)))/((lambda__1-conjugate(lambda__1))^2*(lambda__1-conjugate(lambda__2))^2*(lambda__2-conjugate(lambda__1))^2*(lambda__2-conjugate(lambda__2))^2)

NULL

Download sol1det.mw

 

Hard to tell without an uploaded worksheet (use green up-arrow), but it looks like NN and MM weren't given values.

To evaluate y at a particular x value use eval (for evaluate). For example,

y:=0.1*x+0.3*x^2;
eval(y,x=2);

gives 1.4

To do a lot of them, set up y as a function (technically a procedure), and put the x values you want in a list:

y:=x->0.1*x+0.3*x^2;
xvals:=[seq(i,i=0..2,0.5)];
y~(xvals)

gives [0., 0.125, 0.400, 0.825, 1.400]

plottools:-exportplot can export .svg (should also do .tiff but I got an error message). The .svg file looks correct in CorelDraw.

restart;

with(plots):with(plottools):

A := [[[6, 13], [6, 7], [5, 7], [5, 5], [7, 5], [7, 4], [4, 4], [4, 13]], [[13, 13], [13, 20], [20, 20], [20, 23], [22, 23], [22, 22], [23, 22], [23, 16], [16, 16], [16, 9], [9, 9], [9, 6], [7, 6], [7, 7], [6, 7], [6, 13]], [[13, 23], [20, 23], [20, 20], [13, 20]], [[13, 24], [20, 24], [20, 23], [13, 23]], [[22, 24], [22, 23], [20, 23], [20, 24]], [[24, 24], [24, 22], [23, 22], [23, 23], [22, 23], [22, 24]], [[22, 22], [22, 23], [23, 23], [23, 22]], [[22, 25], [25, 25], [25, 16], [23, 16], [23, 22], [24, 22], [24, 24], [22, 24]], [[25, 6], [16, 6], [16, 9], [23, 9], [23, 16], [25, 16]], [[9, 6], [9, 9], [16, 9], [16, 6]], [[6, 6], [6, 7], [7, 7], [7, 6]], [[6, 20], [13, 20], [13, 13], [6, 13]], [[20, 28], [28, 28], [28, 16], [25, 16], [25, 25], [22, 25], [22, 24], [20, 24]], [[16, 5], [9, 5], [9, 6], [16, 6]], [[7, 5], [7, 6], [9, 6], [9, 5]], [[5, 5], [5, 7], [6, 7], [6, 6], [7, 6], [7, 5]], [[4, 23], [13, 23], [13, 20], [6, 20], [6, 13], [4, 13]], [[23, 9], [16, 9], [16, 16], [23, 16]], [[9, 1], [1, 1], [1, 13], [4, 13], [4, 4], [7, 4], [7, 5], [9, 5]]]:
arte := seq(polygonplot([A[i]], color = ColorTools:-Color([rand()/10^12, rand()/10^12, rand()/10^12]), axes = none, style = polygon, view = [1 .. max(A[]), 1 .. max(A[][])]), i = 1 .. nops(A)):
plt:=display(arte):

currentdir();

"C:\Users\dharr\Desktop"

exportplot(cat(currentdir(),"/myplot.svg"),plt);

13112

NULL

Download exportplot.mw

From the ?dsolve,numeric help page "All IVP methods can be used for complex-valued IVPs with a real-valued independent variable". Not sure what it would mean for a complex independent variable - some sort of path through the complex plane would be needed.

@dharr CayleyTableGroup is another way. (CustomGroup could also be used.) - works for add and multiply

restart

with(GroupTheory)

Addition mod 7

Madd := Matrix(7, 7, proc (i, j) options operator, arrow; `mod`(i+j-2, 7)+1 end proc)

Matrix(%id = 36893490821750137428)

Gadd := CayleyTableGroup(Madd)

_m2674416000448

lblsadd := proc (i) options operator, arrow; i-1 end proc

proc (i) options operator, arrow; i-1 end proc

DrawCayleyTable(Gadd, labels = lblsadd)

Multiplication mod 7

Mmult := Matrix(6, 6, proc (i, j) options operator, arrow; `mod`(i*j, 7) end proc)

Matrix(%id = 36893490821805543780)

Gmult := CayleyTableGroup(Mmult)

_m2674386086240

CayleyTable(Gmult)

Array(%id = 36893490821805550876)

But strangely the ordering is different here:

DrawCayleyTable(Gmult)

``

Download mod7.mw

I'm assuming you really want a group, rather than just doing arithmetic mod n. The addition case is just the CyclicGroup:

with(GroupTheory)

G := CyclicGroup(7)

_m1835422256320

lbl:=proc(el) local i;
  i:=convert(el,'list');
  if nops(i)=0 then 0 else i[1]-1 end if;
end proc:
     

DrawCayleyTable(G, labels = lbl)

 

 

Download mod7.mw

Following @Mariusz Iwaniuk but can't get the last step.

Download summation.mw

I clicked on a pMML link (5.13.E1), which downloaded a file. I opened it in a text editor, selected all the text and copied it. In a Maple 2D input region, I pasted and it asked me if I wanted to convert MathML to 2D input, and I said yes. It looks a little strange in the input region (not as bad as here), but seems to be functionally OK.

restart

q := (int(GAMMA(s+a)*GAMMA(b-s)*z^(-s), s = c-i*infinity .. c+i*infinity))/(2*Pi*i) = GAMMA(a+b)*z^a/(1+z)^(a+b)

(1/2)*(int(GAMMA(s+a)*GAMMA(b-s)*z^(-s), s = c-i*infinity .. c+i*infinity))/(Pi*i) = GAMMA(a+b)*z^a/(1+z)^(a+b)

lprint(q)

1/2/Pi/i*int(GAMMA(s+a)*GAMMA(b-s)*z^(-s),s = c-i*infinity .. c+i*infinity) =
GAMMA(a+b)*z^a/((1+z)^(a+b))

NULL

Download PMML.mw

Perhaps you want to assume n is an integer, or even or odd, in which case the following may help. If you want to use the +/- symbol, then that is not as easily done.

X := -1

-1

X^n

(-1)^n

`assuming`([simplify(X^n)], [n::even])

1

`assuming`([simplify(X^n)], [n::odd])

-1

Y := 1

1

Y^n

1

``

Download Xn.mw

@Kitonum's method requires retyping of the variable names on the lhs. This can be avoided with assign.

restart

sys := {T__1 = m__1*a, a = R*alpha, -R*T__1+R*T__2 = I__s*a/R, g*m__2-T__2 = m__2*a}

vars := {T__1, T__2, a, alpha}

params := `minus`(indets(sys), vars)

NULL

ans := solve(sys, vars)

{T__1 = R^2*g*m__2*m__1/(R^2*m__1+R^2*m__2+I__s), T__2 = m__2*g*(R^2*m__1+I__s)/(R^2*m__1+R^2*m__2+I__s), a = R^2*g*m__2/(R^2*m__1+R^2*m__2+I__s), alpha = R*g*m__2/(R^2*m__1+R^2*m__2+I__s)}

map(proc (x) options operator, arrow; assign(lhs(x) = unapply(rhs(x), params[])) end proc, ans)

{}

op(a)

proc (I__s, R, g, m__1, m__2) options operator, arrow; R^2*g*m__2/(R^2*m__1+R^2*m__2+I__s) end proc

a(1, 2, 3, 4, 5)

60/37

NULL

Download solveEqs.mw

The ExportMatrix command can take a list of Matrices and write them to a MATLAB format file. See the help page for more details.

I don't know the exact answer. I found it confusing that you added the types in the module within the module; maybe it is a scoping issue. Why not just add them in the ModuleLoad procedure of RationalTrigonometry? (And for debugging purposes, I'd comment out any lines that remove them, in case they were added and the removed before you intended.)

Perhaps this is what you recall.

de:=gfun:-algeqtodiffeq(y = y^2*z + 1, y(z))

gives

The thing on the left-hand side of an assignment (:=) can't be an expression like lambda^m. You could assign to, say, lambda_m, but it would just be a name.

Perhaps you want something like eqn[m] instead of lambda^m?

First 35 36 37 38 39 40 41 Last Page 37 of 83