function S=RC_funktie(omegavec,omega0);
%function S=RC_funktie(omegavec,omega0);
%last modification 14-2-2008
%de commentaarlijnen die hier bovenaan gegroepeerd staan kunnen afgedrukt worden op het scherm door het commando help RC_funktie

I=sqrt(-1);
S=(1./(1+I*omegavec/omega0)+(I*omegavec/omega0)./(1+I*omegavec/omega0))/2;


%  bij het puntsgewijze (<-> matrixgewijze) delen, vermenigvuldigen of machtsverheffen van vectoren of matrices (met exact dezelfde afmeting) 
%  dient de syntax .* ./  .^ gebruikt te worden
