Diferencia entre revisiones de «Manual de Scilab/Xcos/Gráficos»
Contenido eliminado Contenido añadido
Sin resumen de edición |
|||
Línea 76:
<source lang=matlab>
cod
a1=1;a2=-10;a3=1;a4=12;
b1=5;b2=4;b3=8;b4=-9;
clf
t=linspace(-5,5,30);
function z=my_surface(x, y),z=a1*x^2+a2*x*y+a3*y^2+a4,endfunction
subplot(3,2,1)
contour(t,t,my_surface,10)
xtitle('$\textstyle z=a_1*x^2+a_2*x*y+a_3*y^2+a_4$')
function z1=my_surface1(x, y),z1=b1*x^2+b2*x*y+b3*y^2+b4,endfunction
subplot(3,2,2)
contour(t,t,my_surface1,10)
xtitle('$\textstyle z_1=b_1x^2+b_2*x*y+b_3*y^2+b_4$')
xset("colormap",[jetcolormap(64);hotcolormap(64)])
subplot(3,2,3)
colorbar(0,2,[1,64])
Sfgrayplot(x,y,my_surface,strf="041",colminmax=[1,64])
xtitle('$\textstyle z=a_1*x^2+a_2*x*y+a_3*y^2+a_4$')
subplot(3,2,4)
colorbar(0,2,[1,64])
Sfgrayplot(x,y,my_surface1,strf="041",colminmax=[1,64])
xtitle('$\textstyle z_1=b_1x^2+b_2*x*y+b_3*y^2+b_4$')
drawnow() ;
f1=a1*x1.^2+a2*x1.*x2+a3*x2.^2+a4;
f2=b1*x1.^2+b2*x1.*x2+b3*x2^2+b4;
//scf(1);
[X,Y]=meshgrid(-5:.3:5,-5:.3:5);
Z=a1*X.^2+a2*X.*Y+a3*Y.^2+a4;
Z1=b1*X.^2+b2*X.*Y+b3*Y^2+b4;
//xtitle('z=a1*X.^2+b1*Y.^2+c1*X.*Y+d1*X+e1*Y+f1');
subplot(3,2,5)
mesh(X,Y,Z);
subplot(3,2,6);
mesh(X,Y,Z1);
</source>
| |||