clc
clear all
clear open



r1=1;
r2=1;
r3=1;
l=1;
c=1;
t=1;


e=1+j;
iz=1-j;
w=1;

y(1,1)=1;
y(2,1)=-1/r2;
y(2,2)=(1/r2)+(j*w*c)+(1/r3);
y(2,3)=-1/r3;
y(3,1)=1/(j*w*l);
y(3,2)=-1/r3;
y(3,3)=(1/r1)+(1/r3)+(1/(j*w*l));

Un=[e;iz;-iz];
U=y\Un;

I=Un(1)*j*w*l;

