Как вывести результат ответа ? в Maple.

[Bushido1995]

нужно вывести в ответе w>0.

Используется синтаксис Matlab M

Проверка*существования*чисто*мнимых*корней;
 M(p, alpha, beta) = 0;
 p := I*w;
 eq := {evalc(Im(M(p, alpha, beta))) = 0, evalc(Re(M(p, alpha, beta))) = 0};
 d := solve(subs(C, eq), {w, alpha, beta});
 i := 1;
 h := 1;
 while d[i] <> d[max] do if subs(d[i], w) = 0 then h := h+1
 end if;
 i := i+1: 
do;
 if i = h then print*(не*имеет*чисто*мнимых*корней, нет*бифуркации*субгармонических*колебаний)
 else print(предпологаемыми*точками*бифуркаций*будут);
 end if;