%《MATLAB及其在理工課程中的應用指南》(十一五規劃版)第八章例8－4－2程序a
% Smith阻抗圓圖的繪制(復數繪圖方法)
% 西安電子科技大學出版社出版  陳懷琛編著 2007年7月
%
% 直接用復數繪制Smith圓圖
p = logspace(-2,2);
% q=logspace(-2,1,10);
q = [eps,0.05,0.1,0.2,0.5,1,2,5,10];
x=[-p,p];
for r = q
   g=(r+i*x-1)./(r+i*x+1);			% g對應于gamma=(z+1)/(z-1)
   plot(g),hold on
   axis equal
end
r = p;
for x=[-q,q]
   g=(r+i*x-1)./(r+i*x+1);
   plot(g),hold on
   axis equal
end
plot([0 0],[-1.1 +1.1],'r')
plot([-1.1 +1.1],[0 0],'r')
grid, hold off