5
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: juancho11diaz
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.16 Ko KB
Mis en ligne Uploaded: 21/04/2025 - 16:25:07
Mis à jour Updated: 21/04/2025 - 16:25:37
Uploadeur Uploader: juancho11diaz (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4589893
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.16 Ko KB
Mis en ligne Uploaded: 21/04/2025 - 16:25:07
Mis à jour Updated: 21/04/2025 - 16:25:37
Uploadeur Uploader: juancho11diaz (Profil)
Téléchargements Downloads: 2
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4589893
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
clc borrar todo formato largoG f0=60; fm=1920; nmpc=fm/f0; r1=0,1; r2=0,16; v1 =[]; iM =[]; iC =[]; v1_re=v1(1:nmpc); iM_re=iM(1:nmpc); iC_re=iC(1:nmpc); %Valores nominales del calentador Vcal=220; Pcal=3000; Rcal=Vcal^2/Pcal; Req=r2+Rcal; iCal=v1/Req; Es=iCal+iM+iC; vr1=Is*r1; % Voltaje voltaje en la resistencia r1 Vs=v1+vr1; Es=iCal+iM+iC; %tensión Vsrms=rms(Vs); Vspico=max(Vs); Vsma=media(abs(Vs)); ffv=Vsrms/Vsma; fcv=Vspico/Vsrms; tabla(Vsrms,Vspico,Vsma,ffv,fcv) %Corriente Isrms=rms(Is); Ispico=max(Is); Isma=media(abs(Is)); ffIs=Isrms/Isma; fcIs=Ispico/Isrms; tabla(Isrms,Ispico,Isma,ffIs,fcIs) %Para la fuente n1=nmpc/4; Isb=[Is(n1+1:nmpc) Is(1:n1)]; Sf=rms(Vs)*rms(Is); Pf=media(Vs.*Is); Qf=sqrt(Sf^2-Pf^2); Fpf=Pf/Sf; Qbf=media(Vs.*Isb); Dbf=sqrt(Sf^2-Pf^2-Qbf^2); tabla(Sf,Pf,Qf,Fpf,Qbf,Dbf) %Para cargar 1 Vc1=v1; Ic1=iC+iM; Ic1b=[Ic1(n1+1:nmpc) Ic1(1:n1)]; Sc1=rms(Vc1)*rms(Ic1); Pc1=media(Vc1.*Ic1); Qc1=sqrt(Sc1^2-Pc1^2); Fpc1=Pc1/Sc1; Qbc1=media(Vc1.*Ic1b); Dbc1=sqrt(Sc1^2-Pc1^2-Qbc1^2); tabla(Sc1,Pc1,Qc1,Fpc1,Qbc1,Dbc1) %Para cargar 2 vr2=iCal*r2; Vc2=v1-vr2; Ic2=iCal; Ic2b=[Ic2(n1+1:nmpc) Ic2(1:n1)]; Sc2=rms(Vc2)*rms(Ic2); Pc2=media(Vc2.*Ic2); Qc2=sqrt(Sc2^2-Pc2^2); Fpc2=Pc2/Sc2; Qbc2=media(Vc2.*Ic2b); Dbc2=sqrt(Sc2^2-Pc2^2-Qbc2^2); tabla(Sc2,Pc2,Qc2,Fpc2,Qbc2,Dbc2) % Punto c %Carga1 %Para el motor Vnm=220; Pm=4*746; Fpm=0,85; Inm=Pm/(Vnm*Fpm); Zm=Vnm/Inm; tetha=acos(0.85); R=Zm*cos(tetha); X=Zm*sin(tetha); L=X/(2*pi*f0); %Para el condensador Vnc=220; Qnc=1850; % VAr C=Qnc/(Vnc^2*2*pi*f0); %Valor en F %Regulación de voltaje RTc1=(((rms(Vs)-rms(v1))/(rms(Vs)))*100) RTc2=(((rms(Vs)-rms(Vc2))/(rms(Vs)))*100) %Pérdida de potencia Pr1=media((Is.^2)*r1); PPr1=(Pr1/Pf)*100 Pr2=media((iCal.^2)*r2); PPr2=(Pr2/Pf)*100 Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
clc borrar todo formato largoG f0=60; fm=1920; nmpc=fm/f0; r1=0,1; r2=0,16; v1 =[]; iM =[]; iC =[]; v1_re=v1(1:nmpc); iM_re=iM(1:nmpc); iC_re=iC(1:nmpc); %Valores nominales del calentador Vcal=220; Pcal=3000; Rcal=Vcal^2/Pcal; Req=r2+Rcal; iCal=v1/Req; Es=iCal+iM+iC; vr1=Is*r1; % Voltaje voltaje en la resistencia r1 Vs=v1+vr1; Es=iCal+iM+iC; %tensión Vsrms=rms(Vs); Vspico=max(Vs); Vsma=media(abs(Vs)); ffv=Vsrms/Vsma; fcv=Vspico/Vsrms; tabla(Vsrms,Vspico,Vsma,ffv,fcv) %Corriente Isrms=rms(Is); Ispico=max(Is); Isma=media(abs(Is)); ffIs=Isrms/Isma; fcIs=Ispico/Isrms; tabla(Isrms,Ispico,Isma,ffIs,fcIs) %Para la fuente n1=nmpc/4; Isb=[Is(n1+1:nmpc) Is(1:n1)]; Sf=rms(Vs)*rms(Is); Pf=media(Vs.*Is); Qf=sqrt(Sf^2-Pf^2); Fpf=Pf/Sf; Qbf=media(Vs.*Isb); Dbf=sqrt(Sf^2-Pf^2-Qbf^2); tabla(Sf,Pf,Qf,Fpf,Qbf,Dbf) %Para cargar 1 Vc1=v1; Ic1=iC+iM; Ic1b=[Ic1(n1+1:nmpc) Ic1(1:n1)]; Sc1=rms(Vc1)*rms(Ic1); Pc1=media(Vc1.*Ic1); Qc1=sqrt(Sc1^2-Pc1^2); Fpc1=Pc1/Sc1; Qbc1=media(Vc1.*Ic1b); Dbc1=sqrt(Sc1^2-Pc1^2-Qbc1^2); tabla(Sc1,Pc1,Qc1,Fpc1,Qbc1,Dbc1) %Para cargar 2 vr2=iCal*r2; Vc2=v1-vr2; Ic2=iCal; Ic2b=[Ic2(n1+1:nmpc) Ic2(1:n1)]; Sc2=rms(Vc2)*rms(Ic2); Pc2=media(Vc2.*Ic2); Qc2=sqrt(Sc2^2-Pc2^2); Fpc2=Pc2/Sc2; Qbc2=media(Vc2.*Ic2b); Dbc2=sqrt(Sc2^2-Pc2^2-Qbc2^2); tabla(Sc2,Pc2,Qc2,Fpc2,Qbc2,Dbc2) % Punto c %Carga1 %Para el motor Vnm=220; Pm=4*746; Fpm=0,85; Inm=Pm/(Vnm*Fpm); Zm=Vnm/Inm; tetha=acos(0.85); R=Zm*cos(tetha); X=Zm*sin(tetha); L=X/(2*pi*f0); %Para el condensador Vnc=220; Qnc=1850; % VAr C=Qnc/(Vnc^2*2*pi*f0); %Valor en F %Regulación de voltaje RTc1=(((rms(Vs)-rms(v1))/(rms(Vs)))*100) RTc2=(((rms(Vs)-rms(Vc2))/(rms(Vs)))*100) %Pérdida de potencia Pr1=media((Is.^2)*r1); PPr1=(Pr1/Pf)*100 Pr2=media((iCal.^2)*r2); PPr2=(Pr2/Pf)*100 Made with nCreator - tiplanet.org
>>
