# 3.5, Example 3, bar with one radiating end # Solve tan(x) = -x ans1:=solve(tan(x)=-x,x); evalf(ans1); plot({tan(x),-x},x=-4*Pi..5*Pi,y=-18..18); #?_EnvAllSolutions mu[1]:=fsolve(tan(x)=-x,x,Pi/2 .. 3*Pi/2); mu[2]:=fsolve(tan(x)=-x,x,3*Pi/2 .. 5*Pi/2); mu:=[seq(fsolve(tan(x)=-x,x, (2*j+1)*Pi/2 .. (2*j+3)*Pi/2),j=0..5)]; mu[3];