parcial2.1
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.30 Ko KB
Mis en ligne Uploaded: 21/04/2025 - 16:16:41
Uploadeur Uploader: juancho11diaz (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4589871
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 2.30 Ko KB
Mis en ligne Uploaded: 21/04/2025 - 16:16:41
Uploadeur Uploader: juancho11diaz (Profil)
Téléchargements Downloads: 1
Visibilité Visibility: Archive publique
Shortlink : http://ti-pla.net/a4589871
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
clc clear all format longG 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; Is=iCal+iM+iC; vr1=Is*r1; %Caía de tensión en la resistencia r1 Vs=v1+vr1; Is=iCal+iM+iC; %tensión Vsrms=rms(Vs); Vspico=max(Vs); Vsma=mean(abs(Vs)); ffv=Vsrms/Vsma; fcv=Vspico/Vsrms; table(Vsrms,Vspico,Vsma,ffv,fcv) %Corriente Isrms=rms(Is); Ispico=max(Is); Isma=mean(abs(Is)); ffIs=Isrms/Isma; fcIs=Ispico/Isrms; table(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=mean(Vs.*Is); Qf=sqrt(Sf^2-Pf^2); Fpf=Pf/Sf; Qbf=mean(Vs.*Isb); Dbf=sqrt(Sf^2-Pf^2-Qbf^2); table(Sf,Pf,Qf,Fpf,Qbf,Dbf) %Para la carga 1 Vc1=v1; Ic1=iC+iM; Ic1b=[Ic1(n1+1:nmpc) Ic1(1:n1)]; Sc1=rms(Vc1)*rms(Ic1); Pc1=mean(Vc1.*Ic1); Qc1=sqrt(Sc1^2-Pc1^2); Fpc1=Pc1/Sc1; Qbc1=mean(Vc1.*Ic1b); Dbc1=sqrt(Sc1^2-Pc1^2-Qbc1^2); table(Sc1,Pc1,Qc1,Fpc1,Qbc1,Dbc1) %Para la carga 2 vr2=iCal*r2; Vc2=v1-vr2; Ic2=iCal; Ic2b=[Ic2(n1+1:nmpc) Ic2(1:n1)]; Sc2=rms(Vc2)*rms(Ic2); Pc2=mean(Vc2.*Ic2); Qc2=sqrt(Sc2^2-Pc2^2); Fpc2=Pc2/Sc2; Qbc2=mean(Vc2.*Ic2b); Dbc2=sqrt(Sc2^2-Pc2^2-Qbc2^2); table(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 capacitor Vnc=220; Qnc=1850; %VAr C=Qnc/(Vnc^2*2*pi*f0); %Valor en F %Regulación de tensión RTc1=(((rms(Vs)-rms(v1))/(rms(Vs)))*100) RTc2=(((rms(Vs)-rms(Vc2))/(rms(Vs)))*100) %Perdidas de Potencia Pr1=mean((Is.^2)*r1); PPr1=(Pr1/Pf)*100 Pr2=mean((iCal.^2)*r2); PPr2=(Pr2/Pf)*100 Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
clc clear all format longG 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; Is=iCal+iM+iC; vr1=Is*r1; %Caía de tensión en la resistencia r1 Vs=v1+vr1; Is=iCal+iM+iC; %tensión Vsrms=rms(Vs); Vspico=max(Vs); Vsma=mean(abs(Vs)); ffv=Vsrms/Vsma; fcv=Vspico/Vsrms; table(Vsrms,Vspico,Vsma,ffv,fcv) %Corriente Isrms=rms(Is); Ispico=max(Is); Isma=mean(abs(Is)); ffIs=Isrms/Isma; fcIs=Ispico/Isrms; table(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=mean(Vs.*Is); Qf=sqrt(Sf^2-Pf^2); Fpf=Pf/Sf; Qbf=mean(Vs.*Isb); Dbf=sqrt(Sf^2-Pf^2-Qbf^2); table(Sf,Pf,Qf,Fpf,Qbf,Dbf) %Para la carga 1 Vc1=v1; Ic1=iC+iM; Ic1b=[Ic1(n1+1:nmpc) Ic1(1:n1)]; Sc1=rms(Vc1)*rms(Ic1); Pc1=mean(Vc1.*Ic1); Qc1=sqrt(Sc1^2-Pc1^2); Fpc1=Pc1/Sc1; Qbc1=mean(Vc1.*Ic1b); Dbc1=sqrt(Sc1^2-Pc1^2-Qbc1^2); table(Sc1,Pc1,Qc1,Fpc1,Qbc1,Dbc1) %Para la carga 2 vr2=iCal*r2; Vc2=v1-vr2; Ic2=iCal; Ic2b=[Ic2(n1+1:nmpc) Ic2(1:n1)]; Sc2=rms(Vc2)*rms(Ic2); Pc2=mean(Vc2.*Ic2); Qc2=sqrt(Sc2^2-Pc2^2); Fpc2=Pc2/Sc2; Qbc2=mean(Vc2.*Ic2b); Dbc2=sqrt(Sc2^2-Pc2^2-Qbc2^2); table(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 capacitor Vnc=220; Qnc=1850; %VAr C=Qnc/(Vnc^2*2*pi*f0); %Valor en F %Regulación de tensión RTc1=(((rms(Vs)-rms(v1))/(rms(Vs)))*100) RTc2=(((rms(Vs)-rms(Vc2))/(rms(Vs)))*100) %Perdidas de Potencia Pr1=mean((Is.^2)*r1); PPr1=(Pr1/Pf)*100 Pr2=mean((iCal.^2)*r2); PPr2=(Pr2/Pf)*100 Made with nCreator - tiplanet.org
>>
