Advanced Search

Question: Determinant: The system hangs

Question:Determinant: The system hangs

mz6687 35 Maple 2022
determinant
September 21 2023
0

When I try to solve the determinant the system hangs and Maple doesn't give any result. Here $\lambda_1,2$ is not a function of 'x' and 't'.

> 

restart
> 

with(LinearAlgebra)
> 

with(plots)
> 

with(Physics)
> 

``
> 

Setup(mathematicalnotation = true)

[mathematicalnotation = true]

 (1)
> 

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

alias(v = v(x, t))

v

 (2)
> 

``
> 

B1 := Matrix([[exp(I*v__11)/(`λ__1`-conjugate(`λ__1`)), 0, 0, 0, exp(I*v__12)/(`λ__2`-conjugate(`λ__1`)), 0, 0, 0], [0, exp(I*v__11)/(`λ__1`-conjugate(`λ__1`)), 0, 0, 0, exp(I*v__12)/(`λ__2`-conjugate(`λ__1`)), 0, 0], [0, 0, exp(-I*v__11)/(`λ__1`-conjugate(`λ__1`)), 0, 0, 0, exp(-I*v__12)/(`λ__2`-conjugate(`λ__1`)), 0], [0, 0, 0, exp(-I*v__11)/(`λ__1`-conjugate(`λ__1`)), 0, 0, 0, exp(-I*v__12)/(`λ__2`-conjugate(`λ__1`))], [exp(I*v__21)/(`λ__1`-conjugate(`λ__2`)), 0, 0, 0, exp(I*v__22)/(`λ__2`-conjugate(`λ__2`)), 0, 0, 0], [0, exp(I*v__21)/(`λ__1`-conjugate(`λ__2`)), 0, 0, 0, exp(I*v__22)/(`λ__2`-conjugate(`λ__2`)), 0, 0], [0, 0, exp(-I*v__21)/(`λ__1`-conjugate(`λ__2`)), 0, 0, 0, exp(-I*v__22)/(`λ__2`-conjugate(`λ__2`)), 0], [0, 0, 0, exp(-I*v__21)/(`λ__1`-conjugate(`λ__2`)), 0, 0, 0, exp(-I*v__22)/(`λ__2`-conjugate(`λ__2`))]]); H := Matrix([[H__11, H__12, H__13, H__14, H__15, H__16, H__17, H__18], [H__12, H__11, H__14, H__13, H__16, H__15, H__18, H__17], [H__13, H__14, H__33, H__34, H__17, H__18, H__55, H__38], [H__14, H__13, H__34, H__33, H__18, H__17, H__38, H__55], [H__15, H__16, H__17, H__18, H__11, H__12, H__13, H__14], [H__16, H__15, H__18, H__17, H__12, H__11, H__14, H__13], [H__17, H__18, H__55, H__38, H__13, H__14, H__33, H__34], [H__18, H__17, H__38, H__55, H__14, H__13, H__34, H__33]]); B := H.B1; idn8 := Matrix([[1, 0, 0, 0, 0, 0, 0, 0], [0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0], [0, 0, 0, 0, 0, 0, 0, 1]])
> 

Omeg := B+idn8
> 

``
> 

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}
> 

B2 := Determinant(B)
> 

Omegdet := Determinant(Omeg)
> 

NULL
NULL

Download determinant.mw
Please Wait...