Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

1 function varargout = Trabajo(varargin) gui_Singleton = 1; gui_State = struct(

1 function varargout = Trabajo(varargin) gui_Singleton = 1; gui_State = struct('gui_Name', mfilename, ... 'gui_Singleton', gui_Singleton, ... 'gui_OpeningFcn', @Trabajo_OpeningFcn, ... 'gui_OutputFcn', @Trabajo_OutputFcn, ... 'gui_LayoutFcn', [] , ... 'gui_Callback', []); if nargin && ischar(varargin{1}) gui_State.gui_Callback = str2func(varargin{1}); end if nargout [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:}); else gui_mainfcn(gui_State, varargin{:}); end function Trabajo_OpeningFcn(hObject, eventdata, handles, varargin) handles.output = hObject; guidata(hObject, handles); % create an axes that spans the whole gui ah = axes('unit', 'normalized', 'position', [0 0 1 1]); % import the background image and show it on the axes bg = imread('fondo4.jpg'); imagesc(bg); % prevent plotting over the background and turn the axis off set(ah,'handlevisibility','off','visible','off') % making sure the background is behind all the other uicontrols uistack(ah, 'bottom'); function varargout = Trabajo_OutputFcn(hObject, eventdata, handles) varargout{1} = handles.output; function frecu_Callback(hObject, eventdata, handles) function frecu_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end 2 function edit2_Callback(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function vm_Callback(hObject, eventdata, handles) function vm_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function pot_Callback(hObject, eventdata, handles) function pot_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function in_Callback(hObject, eventdata, handles) function in_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function vn_Callback(hObject, eventdata, handles) function vn_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function fp_Callback(hObject, eventdata, handles) function fp_CreateFcn(hObject, eventdata, handles) 3 if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function altura_Callback(hObject, eventdata, handles) function altura_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function ao_Callback(hObject, eventdata, handles) function ao_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function ren_Callback(hObject, eventdata, handles) function ren_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function pushbutton1_Callback(hObject, eventdata, handles) function poted_Callback(hObject, eventdata, handles) function poted_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function conexd_Callback(hObject, eventdata, handles) 4 function conexd_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function calcular_Callback(hObject, eventdata, handles) % Datos F=get(handles.frecu,'String'); %Frecuencia F=str2num(F); Fp=get(handles.fp,'String');%Factor de potencia Fp=str2num(Fp); Vm=get(handles.vm,'String');%Velocidad mecanica Vm=str2num(Vm); Pu=get(handles.pot,'String');%Potencia util Pu=str2num(Pu); vLL=get(handles.vn,'String'); %Tension nominal vLL=str2num(vLL); In=get(handles.in,'String'); %Corriente nominal In=str2num(In); Sf=get(handles.sf,'String'); %Factor de servicio Sf=str2num(Sf); alt=get(handles.altura,'String');%Altura de operacion alt=str2num(alt); switch get(handles.poted,'Value') case 1 fac=1000; case 2 fac=745.7; case 3 fac=1; case 4 fac=745.7; end switch get(handles.cods,'Value') case 1 nema=[16]; case 2 nema=[0 3.15]; case 3 nema=[3.15 3.55]; case 4 nema=[3.55 4]; case 5 nema=[4 4.5]; case 6 nema=[4.5 5]; case 7 5 nema=[5 5.6]; case 8 nema=[5.6 6.3]; case 9 nema=[6.3 7.1]; case 10 nema=[7.1 8]; case 11 nema=[8 9]; case 12 nema=[9 10]; case 13 nema=[10 11.2]; end if (alt<=1006) facAlt=1; elseif (alt>1006) & (alt<=1524) facAlt=0.97; elseif (alt>1524) & (alt<=2012) facAlt=0.94; elseif (alt>2012) & (alt<=2530) facAlt=0.90; elseif (alt>2530) & (alt<=3018) facAlt=0.86; elseif (alt>3018) & (alt<=3505) facAlt=0.82; end global vs; p=120*F/Vm; %Calculo de los numeros de polos p=fix(p); %numero de polos vs=120*F/p; d=(vs-Vm)/vs; %Calculo del deslizamiento dp=d*100; %Deslizamiento en % f2=dp*F; %Frecuencia de la corriente estatorica Pabs=sqrt(3)*vLL*In*Fp; %Potencia absorbida Pu=Pu*fac; Ef=Pu/(Pabs)*100 %Eficiencia Iarr=In*nema%Corriente de arranque ====Es una matri==== ang=acos(Fp); Q=Pabs*tan(ang);%Potencia reactiva Puu=Pu*Sf;%Potencia maxima nominal PuA=Pu*facAlt;%Potencia util considerando la altura % Creando informe file=fopen('Informe.txt','w'); fprintf(file,'\t\t======================\n'); fprintf(file,'\t\t\tINFORME\n'); fprintf(file,'\t\t======================\n'); fprintf(file,'\n\n'); fprintf(file,'Datos ingresados:\n'); fprintf(file,'\n'); fprintf(file,'- Frecuencia= %i Hz\n',F); 6 fprintf(file,'- Velocidad Mecanica= %i rpm\n',Vm); fprintf(file,'- Potencia util= %i W\n',Pu); fprintf(file,'- Corriente nominal= %f A\n',In); fprintf(file,'- Tension nomial= %f V\n',vLL); fprintf(file,'- Factor de potencia= %f\n',Fp); fprintf(file,'- Altura de operacion= %f m.s.n.m.\n',alt); fprintf(file,'- Factor de servicio= %f\n',Sf); fprintf(file,'\n'); fprintf(file,'\n'); fprintf(file,'Datos hallados con el programa\n'); fprintf(file,'------------------------------\n'); fprintf(file,'\n'); fprintf(file,'1. Numero de polos del motor electrico trifasico: \n'); fprintf(file,'Nro de polos = %i\n',p); fprintf(file,'\n'); fprintf(file,'2. Velocidad sincrona del motor electrico trifasico: \n'); fprintf(file,'Velocidad sincrona = %f r.p.m.\n',vs); fprintf(file,'* La velocidad sincrona es la velocidad con la que gira el campo mag fprintf(file,'\n'); fprintf(file,'3. Deslizamiento\n'); fprintf(file,'S = %f porciento\n',dp); fprintf(file,'El deslizamiento de un motor electrico es el retraso de la velocidad fprintf(file,'respecto de la del campo rotante.\n'); fprintf(file,'\n'); fprintf(file,'4. Frecuencia de la correinte rotorica\n'); fprintf(file,'f2 = %f Hz\n',f2); fprintf(file,'* Es la frecuencia con la oscila la corritente del estator en un mot fprintf(file,'\n'); fprintf(file,'5. Potencia absorbida por el motor trifasico\n'); fprintf(file,'Pabs = %f W\n',Pabs); fprintf(file,'* Es la potencia absorbida por el motor electrico sin considerar las fprintf(file,'\n'); fprintf(file,'6. Eficiencia del motor electrico\n'); fprintf(file,'Ef = %f\n',Ef); fprintf(file,'* Es la medida de cuanto de la energia q ingresa al motor es util\n' fprintf(file,'\n'); fprintf(file,'7. La corriente de arranque del motor trifasico\n'); fprintf(file,'Iarr = %f A\n',Iarr); fprintf(file,'\n'); fprintf(file,'* Es una corriente transitoria con la que el motor empieza a moverse fprintf(file,'\n'); fprintf(file,'8. Potencia reactiva del motor electrico trifasico\n'); fprintf(file,'Q = %f VAR\n',Q); fprintf(file,'* La potencia reactiva es la potencia que necesita el motor para gen fprintf(file,'\n'); fprintf(file,'9. Potencia maxima nominal\n'); fprintf(file,'Pnm = %f W\n',Puu); fprintf(file,'* La potencia maxima nominal permitida se calcula apartir del factor fprintf(file,' puede llevar en condiciones nominales de servicio.\n'); fprintf(file,'\n'); fprintf(file,'10. La potencia util considerando la altura a la que opera el motor fprintf(file,'PuA = %f W\n',PuA); fprintf(file,'* Los motores standares estan disenados para operar por debajo de lo fprintf(file,' la misma apartir de los 1000msnm, el cual afectara la potencia nom 7 fprintf(file,'\n'); fclose(file) set(handles.grafico1,'Visible','on'); set(handles.grafico2,'Visible','on'); axes(handles.graficar2); I=imread('motor.png'); image(I); a1=strcat(num2str(Pabs),' W'); a2=strcat(num2str(Pu),' W'); set(handles.pot1,'String',a1); set(handles.pot2,'String',a2); axis off; axes(handles.graficar1); s1=0:0.0001:1; h=vs nm=(1-s1)*h; plot(s1,nm,'red'); xlabel('Deslizamiento'); ylabel('rpm') msgbox('Archivo generado con exito!!') winopen('Informe.txt'); %msgbox('Ubicacion: C:\Users\jAvi\AppData\Local\Temp\(Nombre de usuario)\mcrCache8 function cods_Callback(hObject, eventdata, handles) function cods_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end function sf_Callback(hObject, eventdata, handles) function sf_CreateFcn(hObject, eventdata, handles) if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgrou set(hObject,'BackgroundColor','white'); end 8 Published with MATLAB® R2013a uploads/s3/ guide-matlab 2 .pdf