clc;clear;
W1 = 46e-6;
W2=3300e-6;
R=10;
Ay=24; fy=100e3;
h=1/fy/20;  tkon=10/fy;
t=[h:h:tkon]
y=Ay*sin(2*%pi*fy*t)
N= lenght(t)

for n=1:N
    if n!=1 then

    end

end

figure;
subplot(2,2,1);
plot(t,x1)
xlabel('t[s]'); ylabel('vL[V])');
subplot(2,2,2);
plot(t,x2); xlabel('t[s]');ylabel('iL[A]');

subplot(2,2,3);
plot(t,x3)
xlabel('t[s]'); ylabel('vC[V])');
subplot(2,2,4);
plot(t,x4); xlabel('t[s]');ylabel('iC[A]');