Question: Solve equation with trigonometric and complex root functions

Dear Friends:

I am currently working on a calculation for phase velocity of acoustic waves and don’t get along.  

My equation has the following form:

equ := tan( (31 / 20000) * sqrt( -9610000/c^2 + 1) / Pi) / tan((961/1260000) * sqrt( -39690000/c^2 + 1)/ P i) = -(1191640000/63)*sqrt(-9610000/c^2 + 1)*sqrt (-39690000/c^2 + 1)/ (c^2*(19220000/c^2 - 1)^2)

Using ‘sol = solve(equ,c)’ returns

sol := 96100* RootOf(1 + (400000000 * Pi^2 * RootOf(40320000000000000000 * Pi^4 * tan(_Z)*_Z^4256000000000000 * Pi^3 * csgn(_Z) * _Z^3 * tan((1/157500) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167) / Pi) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167) -96868800000000 * Pi^2 * tan(_Z) * _Z^2 + 615040000 * Pi * csgn(_Z) * _Z * tan((1/157500) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167) / Pi ) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167)+58181823 * tan(_Z))^2 - 961)* _Z^2)

c should be in a range of 13,000.

Two questions:

1) How can I deal with _Z?

2) Any suggestion how I can calculate ‘c’? Maybe numerical?

I am relative new in maple…

Many thanks!

Alex

Please Wait...