Diferencia entre revisiones de «Archivo:Area aproximada.png»
De MateWiki
(Herraiz subió una nueva versión de «Archivo:Area aproximada.png»: Versión con área rallada) |
(→Aproximación del área bajo una curva) |
||
| Línea 10: | Línea 10: | ||
set(gca,'LineWidth',4); | set(gca,'LineWidth',4); | ||
grid minor; | grid minor; | ||
| + | p = []; | ||
for xx = min(x):s:max(x)-s | for xx = min(x):s:max(x)-s | ||
x2 = linspace(xx, xx+s, 50); | x2 = linspace(xx, xx+s, 50); | ||
| Línea 15: | Línea 16: | ||
fill([xx xx+s xx+s xx],[0 0 f(xx+s) f(xx+s)], 'y'); | fill([xx xx+s xx+s xx],[0 0 f(xx+s) f(xx+s)], 'y'); | ||
patch([x2 xx xx],[y2 f(xx+s) f(xx)], 'r'); | patch([x2 xx xx],[y2 f(xx+s) f(xx)], 'r'); | ||
| − | + | p1 = patch([xx xx+s xx+s xx],[0 0 f(xx+s) f(xx+s)], 'y'); | |
| − | + | p = [p p1]; | |
end | end | ||
| + | hatchfill(p); % Relleno rayado | ||
plot(x,f(x), 'LineWidth',16); | plot(x,f(x), 'LineWidth',16); | ||
text(11,25,'A_1','fontsize',24,'fontweight','bold'); | text(11,25,'A_1','fontsize',24,'fontweight','bold'); | ||
Revisión del 15:35 20 ago 2013
Aproximación del área bajo una curva
Para generar este archivo se ha usado la siguiente función de Octave UPM, junto con la función hatchfill que se encuentra un fichero en MATLAB Central.
function dibujaFunc(x,f,s)
clf;
hold on;
set(gca,'FontSize',14);
set(gca,'FontWeight','bold');
set(gca,'LineWidth',4);
grid minor;
p = [];
for xx = min(x):s:max(x)-s
x2 = linspace(xx, xx+s, 50);
y2 = f(x2);
fill([xx xx+s xx+s xx],[0 0 f(xx+s) f(xx+s)], 'y');
patch([x2 xx xx],[y2 f(xx+s) f(xx)], 'r');
p1 = patch([xx xx+s xx+s xx],[0 0 f(xx+s) f(xx+s)], 'y');
p = [p p1];
end
hatchfill(p); % Relleno rayado
plot(x,f(x), 'LineWidth',16);
text(11,25,'A_1','fontsize',24,'fontweight','bold');
text(13,25,'A_2','fontsize',24,'fontweight','bold');
text(15,25,'A_3','fontsize',24,'fontweight','bold');
text(17,25,'A_4','fontsize',24,'fontweight','bold');
text(19,25,'A_5','fontsize',24,'fontweight','bold');
xlabel('Eje X');
ylabel('Eje Y');
hold off;
end
Luego, se llama a la función con
>> x = linspace(10,20,100);
>> dibujaFunc(x,@(x) (3+sin(x))/100.*x.^3+x+1,2);Historial del archivo
Haz clic sobre una fecha/hora para ver el archivo a esa fecha.
| Fecha y hora | Miniatura | Dimensiones | Usuario | Comentario | |
|---|---|---|---|---|---|
| actual | 15:36 20 ago 2013 |  | 1200 × 900 (81 KB) | Herraiz (Discusión | contribuciones) | Rayado homogéneo |
| 19:12 19 ago 2013 |  | 1200 × 900 (48 KB) | Herraiz (Discusión | contribuciones) | Aproximación del área bajo una curva |
- No puedes sobrescribir este archivo.
Usos del archivo
La siguiente página enlaza a este archivo:
