F.MATLAB

PRODUCTO DE DOS MATRIZ

function [x] =prodmatriz(A,B)

[f1,c1]=size(A);

[f2,c2]=size(B);

if (c1==f2)

    for(i=1:f1)

       for(j=1:c2)

           s=0;

           for(k=1:c1)

               A(i,k);

               B(k,j);

               s=s+A(i,k)+B(k,j);

           end

           x(i,j)=s;

       end

    end

end

RAÍCES DE UNA ECUACIÓN DE SEGUNDO GRADO

function [ c ] =Raices(a,b,c)

x1=(-b+sqrt((b*b)-(4*a*c)))/(2*a)

x2=(-b-sqrt((b*b)-(4*a*c)))/(2*a)

end

RAZÓN DE UNA PROGRESIÓN ARITMÉTICA YGEOMETRICA

function [ d ] = razon_a( an,a1,n )

d=(an-a1)/(n-1);

end

function [ r ] = razon_g( an,a1,n )

r=nthroot((an/a1),(n-1));

end