[Maxima-discuss] desolve unable to solve

[Daniel V. <dan...@ya...>]

Hi All,
Given the following code:
declare(t,mainvar)$orderless(m,K,g,a)$declare([m,K,g,a],constant)$assume(m>0,K>0,g>0,a>0)$
A:(√(5)*K)/(2*m)-(3*K)/(2*m)$
B:(√(5)*g)/(√(2)*√(√(5)+5))+(3*g)/(√(2)*√(√(5)+5))$
C:-(√(5)*K)/(2*m)-(3*K)/(2*m)$
D:(3*g)/(√(2)*√(5-√(5)))-(√(5)*g)/(√(2)*√(5-√(5)))$
Eq1:'diff(z_1(t),t,2)=A*z_1(t)+B$
Eq2:'diff(z_2(t),t,2)=C*z_2(t)+D$
atvalue(z_1(t),[t=0],z_10)$
atvalue(z_2(t),[t=0],z_20)$atvalue(diff(z_1(t),t),[t=0],v_10)$
atvalue(diff(z_2(t),t),[t=0],v_20)$
desol1:desolve(Eq1,z_1(t));
desol2:desolve(Eq2,z_2(t));

desol:desolve([Eq1,Eq2],[z_1(t),z_2(t)])$map(ldisp,desol)$
When desolve is used on one single equation, it works fine, when it is used with two decoupled equations it fails.What is its problem?Thanks.
Daniel Volinski