Scribd
Cargar
42 vistas9 páginas

Curvas de rendimiento motor y consumo

El documento presenta gráficas de curvas características de motores que muestran la relación entre par motor, potencia, consumo de combustible y eficiencia en función de la velocidad y carga del motor. Se ajustan líneas de tendencia a los datos experimentales.

Cargado por

Shecella Cordero Cordova
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
42 vistas9 páginas

Curvas de rendimiento motor y consumo

El documento presenta gráficas de curvas características de motores que muestran la relación entre par motor, potencia, consumo de combustible y eficiencia en función de la velocidad y carga del motor. Se ajustan líneas de tendencia a los datos experimentales.

Cargado por

Shecella Cordero Cordova
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

CODIGOS

%%%%%GRAFICA CHISPA VELOCIDAD


%n velocidad del motor [RPM] eje x
hold on
n=[3000 2700 2400 2100 1800 1500 1200];

%Momento efectivo [N-m] dato 1


Me=[38.72 41.12 42.56 43.424 43.424 42.432 41.152];

%Potencia efectiva [kW] dato 2


Ne=[12.163 11.626 10.696 9.549 8.185 6.665 5.171];

%Consumo Específico del combustible [g/kW-h] dato 3


ge=[329.068 311.039 310.528 319.611 345.149 383.943
431.254];

%ne dato 4
ne=[0.249 0.263 0.263 0.256 0.237 0.213 0.190];

%Creando Linea de Tendencia


p1=polyfit(n,Me,2);
p2=polyfit(n,Ne,2);
p3=polyfit(n,ge,2);
p4=polyfit(n,ne,2);

n1=3000:-0.01:1200;

Me1=polyval(p1,n1);
Ne1=polyval(p2,n1);
ge1=polyval(p3,n1);
ne1=polyval(p4,n1);

%Creando 4 Ejes Y

plot(n1,Me1,'k','linewidth',1);
xlim([1100 3100])%eje x
ylim([38.6 43.5])%dato 2
addaxis(n1,Ne1,[5 12.2],'b','linewidth',1);%dato 1
%addaxis(x,y,[ ],...)
addaxis(n1,ge1,[309 432],'r','linewidth',1);%dato 3
addaxis(n1,ne1,[0.18 0.273],'m','linewidth',1);%dato 4

%Introduciendo Títulos de los Ejes


xlabel('Velocidad del motor [RPM]','FontSize',12)
ylabel('Momento efectivo (Me) [N.m]','FontSize',12)
addaxislabel(2,'Potencia efectiva (Ne)
[kW]','FontSize',12);
addaxislabel(3,'Consumo específico de combustible (ge)
[g/kW.h]','FontSize',12);
addaxislabel(4,'Eficiencia efectiva
(ne)','FontSize',12);
title('Curvas características en régimen de
velocidad','FontSize',22)
grid on
Nee=[43.3 43 42.4 41.6 40.75 39.6 38.7];
gee=[39.5 38.8 38.7 39 40.07 41.54 43.4];
nee=[42.35 42.85 42.85 42.5 41.6 40.24 39.18];
plot(n,Me,'o','LineWidth',1.5,'MarkerEdgeColor','k')
plot(n,Nee,'o','LineWidth',1.5,'MarkerEdgeColor','b')
plot(n,gee,'o','LineWidth',1.5,'MarkerEdgeColor','r')
plot(n,nee,'o','LineWidth',1.5,'MarkerEdgeColor','m')
%Introduciendo las Marcas dentro del Gráfico
txt = '\leftarrow Me';
text(1650,43,txt,'FontSize',12);%dato 1
txt = '\leftarrow Ne ';
text(1900,41,txt,'FontSize',12);%dato 2
txt = ' \leftarrow ge ';
text(2000,39.5,txt,'FontSize',12);%dato 3
txt = 'ne \rightarrow ';
text(1700,42,txt,'FontSize',12);%dato 4

%%%%%GRAFICA CHISPA CARGA


%Ne [kW] eje x
hold on
Ne=[2.178 5.5154 7.4521 8.4373 8.94 9.2415 9.3286];

%Momento efectivo [N-m] dato 1


Me=[10.4 26.336 35.584 40.288 42.688 44.128 44.544];

%Consumo horario de combustible [kg/h] dato 2


Gc=[1.4845 2.1870 2.4347 2.6329 2.8527 3.0771 3.2442];

%Consumo Específico del combustible [g/kW-h] dato 3


ge=[681.6042 396.5231 326.7066 312.0571 319.1 332.9645
347.77];

%ne dato 4
ne=[0.12 0.2063 0.2504 0.2622 0.2564 0.2457 0.2353];

%Creando Linea de Tendencia


p1=polyfit(Ne,Me,2);
p2=polyfit(Ne,Gc,2);
p3=polyfit(Ne,ge,2);
p4=polyfit(Ne,ne,2);

n1=2.1:0.01:9.4;

Me1=polyval(p1,n1);
Gc1=polyval(p2,n1);
ge1=polyval(p3,n1);
ne1=polyval(p4,n1);

%Creando 4 Ejes Y

plot(n1,Me1,'k','linewidth',1);
xlim([2.1 9.4])%eje x
ylim([10 45])%dato 2
addaxis(n1,Gc1,[1.45 3.26],'b','linewidth',1);%dato 1
%addaxis(x,y,[ ],...)
addaxis(n1,ge1,[310 682],'r','linewidth',1);%dato 3
addaxis(n1,ne1,[0.11 0.265],'m','linewidth',1);%dato 4

%Introduciendo Títulos de los Ejes


xlabel('Potencia efectiva [kW]','FontSize',12)
ylabel('Momento efectivo (Me) [N.m]','FontSize',12)
addaxislabel(2,'Consumo horario de combustible (Gc)
[kg/h]','FontSize',12);
addaxislabel(3,'Consumo específico de combustible (ge)
[g/kW.h]','FontSize',12);
addaxislabel(4,'Eficiencia efectiva
(ne)','FontSize',12);
title('Curvas características en función del régimen
de carga','FontSize',22)
grid on
Gcc=[11.9 23.4 29.86 32.8 36.9 40.2 44.5];
gee=[44.8 18.75 12 11.4 11.6 12.4 13];
nee=[12.5 31.5 41.6 41.9 41.7 41 40];
plot(Ne,Me,'o','LineWidth',1.5,'MarkerEdgeColor','k')
plot(Ne,Gcc,'o','LineWidth',1.5,'MarkerEdgeColor','b')
plot(Ne,gee,'o','LineWidth',1.5,'MarkerEdgeColor','r')
plot(Ne,nee,'o','LineWidth',1.5,'MarkerEdgeColor','m')
%Introduciendo las Marcas dentro del Gráfico
txt = 'Me\rightarrow';
text(5,28,txt,'FontSize',12);%dato 1
txt = '\uparrow Gc';
text(3.5,13.2,txt,'FontSize',12);%dato 2
txt = ' \leftarrow ge';
text(5.8,17.3,txt,'FontSize',12);%dato 3
txt = 'ne \rightarrow ';
text(4.8,35,txt,'FontSize',12);%dato 4

%%%GRAFICA COMPRESION VELOCIDAD


%n velocidad del motor [RPM] eje x
hold on
n=[1000 1200 1400 1600 1800 2000];

%Momento efectivo [N-m] dato 1


Me=[34.56 35.2 36.16 34.24 32.64 30.4];

%Potencia efectiva [kW] dato 2


Ne=[3.619 4.423 5.301 5.737 6.152 6.366];

%Consumo Específico del combustible [g/kW-h] dato 3


ge=[188.087 213.736 214 253.786 267.379 296.98];

%ne dato 4
ne=[0.45 0.396 0.396 0.334 0.317 0.285];

%Creando Linea de Tendencia


p1=polyfit(n,Me,2);
p2=polyfit(n,Ne,2);
p3=polyfit(n,ge,2);
p4=polyfit(n,ne,2);

n1=1000:0.01:2000;

Me1=polyval(p1,n1);
Ne1=polyval(p2,n1);
ge1=polyval(p3,n1);
ne1=polyval(p4,n1);

%Creando 4 Ejes Y

plot(n1,Me1,'k','linewidth',1);
xlim([900 2100])%eje x
ylim([30 36.2])%dato 2
addaxis(n1,Ne1,[3.5 6.4],'b','linewidth',1);%dato 1
%addaxis(x,y,[ ],...)
addaxis(n1,ge1,[188 297],'r','linewidth',1);%dato 3
addaxis(n1,ne1,[0.28 0.46],'m','linewidth',1);%dato 4

%Introduciendo Títulos de los Ejes


xlabel('Velocidad del motor [RPM]','FontSize',12)
ylabel('Momento efectivo (Me) [N.m]','FontSize',12)
addaxislabel(2,'Potencia efectiva (Ne)
[kW]','FontSize',12);
addaxislabel(3,'Consumo específico de combustible (ge)
[g/kW.h]','FontSize',12);
addaxislabel(4,'Eficiencia efectiva
(ne)','FontSize',12);
title('Curvas características en función del régimen
de velocidad','FontSize',22)
grid on
Nee=[30.2 31.8 33.7 34.7 35.5 35.8];
gee=[30 31.3 31.62 33.72 34.5 36.1];
nee=[35.8 34.1 34.1 31.87 31.2 30.4];
plot(n,Me,'o','LineWidth',1.5,'MarkerEdgeColor','k')
plot(n,Nee,'o','LineWidth',1.5,'MarkerEdgeColor','b')
plot(n,gee,'o','LineWidth',1.5,'MarkerEdgeColor','r')
plot(n,nee,'o','LineWidth',1.5,'MarkerEdgeColor','m')
%Introduciendo las Marcas dentro del Gráfico
txt = '\downarrow Me';
text(1380,35.7,txt,'FontSize',12);%dato 1
txt = ' Ne \rightarrow';
text(1050,32.5,txt,'FontSize',12);%dato 2
txt = ' \leftarrow ge ';
text(1220,31,txt,'FontSize',12);%dato 3
txt = 'ne \rightarrow ';
text(1700,31,txt,'FontSize',12);%dato 4

%%%%GRAFICA COMPRESION CARGA


%n velocidad del motor [RPM] eje x
hold on
n=[2.835 4.524 5.67 6.876 7.117 7.238];

%Momento efectivo [N-m] dato 1


Me=[15.04 24 30.08 36.48 37.76 38.4];

%Consumo de combustible [kg/h] dato 2


Gc=[0.794 1.078 1.342 1.702 1.853 1.966];

%Consumo Específico del combustible [g/kW-h] dato 3


ge=[280.13 238.244 236.777 247.473 260.347 271.682];

%ne dato 4
ne=[0.292 0.343 0.346 0.331 0.314 0.301];

%Creando Linea de Tendencia


p1=polyfit(n,Me,2);
p2=polyfit(n,Gc,2);
p3=polyfit(n,ge,2);
p4=polyfit(n,ne,2);

n1=2.5:0.01:7.5;

Me1=polyval(p1,n1);
Ne1=polyval(p2,n1);
ge1=polyval(p3,n1);
ne1=polyval(p4,n1);

%Creando 4 Ejes Y

plot(n1,Me1,'k','linewidth',1);
xlim([2.5 7.5])%eje x
ylim([10 40])%dato 2
addaxis(n1,Ne1,'b','linewidth',1);
%addaxis(x,y,[ ],...)
addaxis(n1,ge1,[220 285],'r','linewidth',1);%dato 3
addaxis(n1,ne1,[0.28 0.35],'m','linewidth',1);%dato 4

%Introduciendo Títulos de los Ejes


xlabel('Potencia efectiva [kW]','FontSize',12)
ylabel('Momento efectivo (Me) [N.m]','FontSize',12)
addaxislabel(2,'Consumo horario de combustible (Gc)
[kg/h]','FontSize',12);
addaxislabel(3,'Consumo específico de combustible (ge)
[g/kW.h]','FontSize',12);
addaxislabel(4,'Eficiencia efectiva
(ne)','FontSize',12);
title('Curvas características en función del régimen
de carga','FontSize',22);
grid on
Gcc=[14 17.5 23.8 31.5 34 35.1];
gee=[37.6 18.77 17.3 23.7 28.6 33.4];
nee=[15 36.5 36.76 32 25 17];
plot(n,Me,'o','LineWidth',1.5,'MarkerEdgeColor','k')
plot(n,Gcc,'o','LineWidth',1.5,'MarkerEdgeColor','b')
plot(n,gee,'o','LineWidth',1.5,'MarkerEdgeColor','r')
plot(n,nee,'o','LineWidth',1.5,'MarkerEdgeColor','m')
%Introduciendo las Marcas dentro del Gráfico
txt = 'Me\rightarrow';
text(4.91,30,txt,'FontSize',12);%dato 1
txt = '\uparrow Gc';
text(3.5,14.8,txt,'FontSize',12);%dato 2
txt = ' \leftarrow ge ';
text(5.8,17.3,txt,'FontSize',12);%dato 3
txt = 'ne \rightarrow ';
text(3.62,35,txt,'FontSize',12);%dato 4

%%%PERDIDA MECANICA CHISPA


close all
clear;clc;
%define eje x
x=3000:-200:2000;
%define eje y dato 1
y1=[14.749 14.818 13.76 14.2 12.945 12.36];
plot(x,y1,'o','LineWidth',1.5,'MarkerEdgeColor','k')
txt = '\downarrow Ni';
text(2500,15,txt,'FontSize',14)
hold on
%aproximacion del dato 1
p1=polyfit(x,y1,2);
yy1=polyval(p1,x);
plot(x,yy1,'k','linewidth',1.5);
%define eje y dato 4
y4=[10.7489 10.9527 10.6831 10.7292 10.1243 9.7299];
plot(x,y4,'o','LineWidth',1.5,'MarkerEdgeColor','b')
txt = '\uparrow Ne';
text(2700,10,txt,'FontSize',14)
%aproximacion del dato 4
p4=polyfit(x,y4,2);
yy4=polyval(p4,x);
plot(x,yy4,'b','linewidth',1.5);
%define eje y dato 2
y2=[4.0432 3.8657 3.0767 3.4712 2.8203 2.63];
plot(x,y2,'o','LineWidth',1.5,'MarkerEdgeColor','y')
txt = 'Npm \downarrow ';
text(2400,4,txt,'FontSize',14)
%aproximacion del dato 2
p2=polyfit(x,y2,2);
yy2=polyval(p2,x);
plot(x,yy2,'y','linewidth',1.5);
ylabel({'Potencia efectiva(Ne) [kW]','Potencia
indicada (Ni) [kW]','Potencia de pérdidas
mecánicas(Npm) [kW]' })
yyaxis right
%define eje y dato 3
y3=[0.7267 0.7391 0.7764 0.7556 0.7821 0.7872];
plot(x,y3,'o','LineWidth',1.5,'MarkerEdgeColor','r')
txt = 'nm \rightarrow ';
text(2560,0.75,txt,'FontSize',14)
%aproximacion del dato 3
p3=polyfit(x,y3,2);
yy3=polyval(p3,x);
plot(x,yy3,'r','linewidth',1.5);
title('Pérdidas mecánicas en régimen de
velocidad','FontSize',22)
ylabel('Eficiencia mecanica (nm)')
xlabel('Velocidad del motor (RPM)')
xlim([1900 3100])
grid on

%%%%GRAFICA PERDIDAS MECANICAS TEMPERATURA VS Npm


close all
clear;clc;
x=[21.5 26 30.5 40.5 50 60 69.5];
y=[0.8090 0.5912 0.5410 0.4740 0.4405 0.4070 0.3902];
hold on
plot(x,y,'o','linewidth',1,'MarkerEdgeColor','k')

p1=polyfit(x,y,2);
x1=21:0.01:70;
Me1=polyval(p1,x1);
plot(x1,Me1,'k','linewidth',1);
grid on
title('Potencia de pérdidas mecanicas en régimen
temperatura','FontSize',22)
xlabel('Temperatura de entrada del liquido
refrigerante (Te) [°C]')
ylabel('Potencia de perdidas mecanicas (Npm)[kW]')

%%%GRAFICA PERDIDAS MECANICAS RPM VS Npm


close all
clear;clc;
x=[ 200 300 400 500 600 700 800 900 1000 1100];
y=[0.1561 0.2241 0.3256 0.4153 1.0714 1.3672 1.5893
1.8483 2.1207 2.4065];
hold on
plot(x,y,'o','linewidth',1,'MarkerEdgeColor','k')
%curva aproximada
p1=polyfit(x,y,2);
x1=200:100:1100;
Me1=polyval(p1,x1);
plot(x1,Me1,'k','linewidth',1);

grid on
title('Potencia de pérdidas mecanicas en régimen de
velocidad','FontSize',22)
xlabel('Velocidad del motor (RPM)')
ylabel('Potencia de perdidas mecanicas (Npm)[kW]')

También podría gustarte