1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
p_Vs=[];
p_Is=[];
p_Porte=[];
p_Vdc=[];
p_Vac=[];
p_Idc=[];
p_Iac=[];
dd=[];
ds=[];
ss=[];
% initialisation des vecteurs p_Vac et p_Idc-------
for i=1:1:50
p_Vac=[p_Vac,i];
p_Idc=[p_Idc,i];
p_Vs=[p_Vs,i];
p_Is=[p_Is,i];
end
% creation du veteur p_Porte, taille=400
for i=1:1:400
p_Porte=[p_Porte,i];
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
a=length(p_Idc);
b=0;
%calcule des vecteurs p_Iac, p_Vdc, par le méthode itérative jusqu'au break
while (abs(a-b)>0) %tant que b différent de a à 0
p_Icom=somme(p_Vac,p_Idc);
p_Iac1=produit(p_Porte,p_Idc);
p_Iac2=produit(p_Porte,p_Icom);
p_Iac3=produit(p_Porte,p_Icom);
p_Iac4=somme(p_Iac1,p_Iac2);
p_Iac=somme(p_Iac4,p_Iac3);
p_Vdc=produit(p_Porte,p_Vac);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ecrasé un vecteur par un autre %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
a=length(p_Iac);%taille du vecteur p_Iac
b=length(p_Idc);
m=length(p_Vdc);%taille du vecteur p_Vac
if (a==b) %si condition alor il arréte le programme et affiche p_Iac p_Vdc
break;
end
p_Idc=[zeros(1,a),p_Iac]; %si non il remplace les vecteurs de départ et %calcul encore une fois
p_Vac=[zeros(1,m),p_Vdc];
%%%%%%%%%%%%%%%fin de ecrasé %vecteur%%%%%%%%%%%%%%%%%%%%%%
end
p_Iac
p_Vdc |
Partager