%
%
%Test fr die Programme %<'FontWeight',MSVTITLWEIGHT,'FontSize',MSVTITLSIZE,'Color',MSVTITLCOLOR>
%
%
%
% Test fr  rlcpar  und  imp :  Ein Parallelschwingkreis wird direkt parallel gespeist und die 
% Impedanz ber der Frequenz bestimmt:
%
r = 1000;                % Widerstand
l = 10*10^-6;            % Induktivitt
c = 100*10^-12;          % Kapazitt
fres = 1/sqrt(l*c)/2/pi; % Resonanzfrequenz
imp(testant(r,l,c,'par'),0.1:0.1:10,r,[1.5 2 3 5]);
%
% Praktisch einen reellen Widerstand von  100 \Omega  sollte folgendes ergeben:
%
r = 100;                 % Widerstand
l = 10^+30;              % Induktivitt
c = 10^-30;              % Kapazitt
imp(testant(r,l,c,'par'),0.1:0.1:1,r,[1.5 2 3 5]);
%
%
% Test fr  rlcser  und imp :  Ein Serienschwingkreis wird direkt parallel gespeist und die 
% Impedanz ber der Frequenz bestimmt:
%
r = 10;                  % Widerstand
l = 10*10^-6;            % Induktivitt
c = 100*10^-12;          % Kapazitt
fres = 1/sqrt(l*c)/2/pi; % Resonanzfrequenz
imp(testant(r,l,c,'ser'),3:0.02:7,r,[1.5 2 3 5]);
%
% Praktisch einen reellen Widerstand von  100 \Omega  sollte folgendes ergeben:
%
r = 100;                 % Widerstand
l = 10^-30;              % Induktivitt
c = 10^+30;              % Kapazitt
imp(testant(r,l,c,'ser'),0.1:0.1:1,r,[1.5 2 3 5]);
%
%