Question: plotting problem

In Maple 14, some functions involving coth do not plot correctly when using "plot".

Example:

> restart;
rS := 10000; cS := 1; 
ZWarbSolid := rS*coth((((1/4)*rS*cS*I)*exp(2*Pi*freq))^.5)/(((1/4)*rS*cS*I)*exp(2*Pi*freq))^.5;
> with(plots); 
p1 := plot([Re(ZWarbSolid), -Im(ZWarbSolid), freq = .4 .. 3.4], color = red, scaling = constrained, style = point);p2 := plot([freq, -Im(ZWarbSolid), freq = .4 .. 3.4], color = blue, style = point); display(p1); display(p2);
display(p1); display(p2)

COMMENT:

P1 is not shown in the Re, -Im interval from slightly above 0,0 to about 14.07,14.07. 

Equivalently, P2 is not displayed in the interval from freq=0.7345 to freq=0.9576. Above the latter, the value of P2 is 0 which is incorrect. 

However, using

> freq := (num-30)*(1/50);
> with(plots); 
P1 := listplot([seq([evalf(Re(ZWarbSolid)), evalf(-Im(ZWarbSolid))], num = 50 .. 200)], scaling = constrained, color = red, style = point); 
P2 := listplot([seq([evalf(freq), evalf(-Im(ZWarbSolid))], num = 50 .. 200)], color = blue, style = point); 
display(P1); display(P2);

 both graphs are displayed correctly in the whole intervals.

Thanks, Miran