Matlab - convertir a matlab promedio con funcion

!similar a la definicion de analisis funcional

!una funcion puede recibir varios parametros

!con esos parametros realiza procedimientos, calculos, etc

!devuelve un solo valor

REAL promSQ1, promSQ2

REAL f_promedio

WRITE (*,*)"ingrese a,b,c"

READ(*,*) a,b,c

!calcular promedios

prom = f_promedio(a,b,c)

promSQ1 = f_promedio(a,b,c)**2

promSQ2 = f_promedio(a**2,b**2,c**2)

!imprimir resultados

print *, 'el promedio de los 3 numeros es= ', prom

print *, 'el promedio al cuadrado es=', promSQ1

print *, 'el promedio de los cuadrados es= ', promSQ2

END PROGRAM

!DEFINIR FUNCION

real function f_promedio(X,Y,Z)

     real X,Y,Z,SUM

     sum = X+Y+Z

     f_promedio = sum/3

     return

end

disp('Ingrese a, b y c:')

a=input('a= ');

b=input('b= ');

c=input('c= ');

prom=mean([a b c]);

promSQ1=prom^2;

promSQ2=mean([a^2 b^2 c^2]);

fprintf('El promedio de a, b y c es %3.2f\n',prom);

fprintf('El promedio al cuadrado es %3.2f\n',promSQ1);

fprintf('El promedio de los cuadrados es %3.2f\n',promSQ2);

function promedios

disp('Ingrese a, b y c:')

a=input('a= ');

b=input('b= ');

c=input('c= ');

prom=f_promedio(a,b,c);

promSQ1=prom^2;

promSQ2=mean([a^2 b^2 c^2]);

fprintf('El promedio de a, b y c es %3.2f\n',prom);

fprintf('El promedio al cuadrado es %3.2f\n',promSQ1);

fprintf('El promedio de los cuadrados es %3.2f\n',promSQ2);

end

function prom=f_promedio(x,y,z)

suma=x+y+z;

prom=suma/3;

end