Hola bola

Ejemplo 6.-

%figuras en 3d

t=0:pi/10:2*pi;

figure

[x,y,z]=cylinder(4*cos(t));

subplot(2,2,1); mesh(x,y,z)

subplot(2,2,2); ezmesh('x.*exp(-x.^2-y.^2)',40);

fh='x.*exp(-x.^2-y.^2)';

subplot(2,2,2); ezmesh(fh,40)

[x,y,z] = sphere;

subplot(2,2,3); plot3(x,y,z)

subplot(2,2,4); surf(x,y,z)

________________________________________________________________________________________

ejemplo  7.- 

%se definen las matrices de prueba

A=[ 2 3 4;

   6 7 8;

   9 0 9];

B=[ 3 0 1;

    5 2 4;

    7 8 1];

A+B;  % suma de matrices

 A-B; %resta de matrices

%en general la multiplicación no es conmutativa

 A*B;

B*A;

A'   % transpuesta de la matriz A

(A')' % transpuesta de la transpuesta =  A

As=(A+A')/2; % parte simétrica

Ask=(A-A')/2; % parte antisimétrica

As+Ask  % matriz original A

A'*A  %obtiene una matriz simétrica

A^(-1);  %inversa de la matriz

det(A)  % determinante

inv(A); %inversa de la matriz A\n

A*inv(A);

inv(A)*A; % matriz identidad\n

eig(A)  % valores propios de la matriz A

norm(A) % norma de la matriz A

p=poly(A) %retorna coeficientes del polinomio característico de A

r=roots(p) %retorna raíces del polinomio característico de A

[m n]=size(A);

C=zeros(m,n);

for i=1:m

    for  j=1:n

        C(i,j)=A(i,j)+B(i,j);

    end    

end

________________________________________________________________________________________

Ejemplo.-8

disp('Encuentra mínimo y máximo de una función')

%variables para registrar máximo y mínimo

max=0;

min=0;

t_min=0;

t_max=0;

%generación del vector de tiempo

t=[0:0.01:10]'; %tiempo de 0 a 10 segundos con incremento de 0.01 seg.

[n m]=size(t); %dimensión del arreglo

...