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

y=zeros(n,m);  %variables de registro

%función de prueba para generar la gráfica del proceso\n

for i=1:n

 y(i)=sin(t(i))-cos(pi*t(i))-2*tanh(t(i))+0.1*log(t(i)^3+1);

end

%gráfica de la función del proceso

plot(t,y)

for i=1:n

      if (y(i)>= max)

                 max=y(i);

                 t_max=t(i);

      elseif (y(i)<= min)

             min=y(i);

             t_min=t(i);

      end

end

disp( '      Max      Tmax      Min       Tmin')

Resultado=[max  t_max  min  t_min ];

disp(Resultado)

________________________________________________________________________________________

...