Test ctext function

for phi=(0:30:330);
    z = phasor2complex(1,phi);
    fprintf('%5g %s\n',phi,ctext(z));
end
fprintf('\n (3+j): %s\n',ctext(3+i));
fprintf(' (3-j): %s\n',ctext(3-i));

fprintf('\n  (3i): %s\n',ctext(3i));
fprintf(' (-3i): %s\n',ctext(-3i));
    0 1 
   30 0.866025 + 0.5j 
   60 0.5 + 0.866025j 
   90 j
  120 -0.5 + 0.866025j 
  150 -0.866025 + 0.5j 
  180 -1 
  210 -0.866025 - 0.5j 
  240 -0.5 - 0.866025j 
  270 -j 
  300 0.5 - 0.866025j 
  330 0.866025 - 0.5j 

 (3+j): 3 + j 
 (3-j): 3 - j 

  (3i): 3j
 (-3i): -3j