Fázor

[Eduard]

Zdravím

Nejaky pokus dalej. Treba menit hodnoty R L C. Podla dlzky(tu su 2) vektora vykresli pocet fazorov.
S pozdravom

function[]=main()
% Chceme vykreslit dva fazory
R =[0.5,5]; % 2 hodnoty R
L=[0.75,0.75]; % 2 hodnoty L
C=[2,2]; % 2 hodnoty C
nn=length©;
omega=100;
col='rgbcmyk';

for ii=1:nn
[Z(ii),faza(ii)]=RLC(R(ii),L(ii),C(ii),omega);
end
obr=compass(Z,faza,col(ii));
for ii=1:length(obr)
set(obr(ii),'color',col(ii));
end

function [Z,faza]=RLC(R,L,C,omega)
Z=sqrt((R.^2+ (L.*omega-1./C.*omega)).^2);
faza= ((L.*omega-1./C.*omega))./R;
end
end