%   Script AUFGWOK.M
%
%   Lösung einer Übungsaufgabe aus Kapitel RT1-wok-entw.tex
%
% J. Lunze
% 22.1.1996
% für 2. Auflage  19.1.1999
% für 3. Auflage: 26.3.2001
% für 4. Auflage: 18.9.2003
% für 5. Auflage: 18.4.2005
% für 7. Auflage: 28.4.2008
% für 9. Auflage: 10.2.2012
% für 10. Auflage: 27.1.2014
% für 12. Auflage: 5.8.2019
%
%   
clear
close all
%%   Wurzelortskurve für den Schwingkreis bei veränderlichem
%   Wert des Widerstandes R
%  
figure(1);
C = 0.01;
L = 100;
A = [0 -1/L; 1/C 0];
b = [0; 1/L];
c = [0 1];
d = 0;
Schwingkreis=ss(A, b, c, d);
subplot(3,3,[1, 2, 4, 5]);
rlocprintblue(Schwingkreis);
latextitle('Wurzelortskurve des Schwingkreises bei ver\"anderlichem Widerstand');
%rlocfind(Schwingkreis)
latexxlabel('Re');
latexylabel('Im');
rotateY;
axis([-1.6 0.6 -1.1 1.1]);
axis('square');
xticks([-1 0]);
yticks([-1 0 1]);

%% Herstellung der Bilddateien *.eps
%
Epsbildc15('aufgwok');
