Mathlab

* Creación de funciones básicas:

* Escribir una función que calcule el perímetro de un círculo dado su radio.
* Escribir una función que calcule el área de un círculo dado su radio.
*Modificar la función anterior para que dado el radio del círculo, calcule tanto el área como la longitud de la circunferencia.

function p=radio(r)
pi=3.1415
p=2*r*pi



function a=radio(r)pi=3.1415
a=pi*(r*r)



function [a,l]=radio(r)
pi=3.1415
a=pi*(r*r)
l=2*pi*r

* Escribir una función que calcule las dos raíces de una ecuación de segundo grado: ax2+bx+c=0. a, b, y cson parámetros de entrada.

function raiz=var(a,b,c)
raiz1=(-b+sqrt(b^2-4*a*c))/2*a
raiz2=(-b-sqrt(b^2-4*a*c))/2*a

* La siguiente función calcula la parábola y=x2 entre n y -n a intervalosde 0.1:

function y = x(n)
% x Calcula la función y=x2
% La función se representa entre los valores -n y n
x=-n:0.1:n;
y=x.^2;
plot(x,y);
grid;

function y = x(n)
% x Calcula la funcióny=x2
% La función se representa entre los valores -n y n
x=-n:0.1:n;
y=x.^2;
plot(x,y);
grid;


* Modificar la función para que podamos calcular la función y=xp, donde p sea cualquier valorpositivo.

function y = x(n,p)
% x Calcula la función y=x2
% La función se representa entre los valores -n y n
if(p>0)
x=-n:0.1:n;
y=x.^p;
plot(x,y);
grid;
else
disp('error p tienque ser positivo')
end

* Definir una función que dados cinco (5) valores de resistencias R1, R2, R3, R4, R5 devuelva la resistencia equivalentemente en serie REQS, y REQP que indica laresistencia equivalente en paralelo.
; %Resistencia equivalente en serie
; %Resistencia equivalente en paralelo
function y = resistencia(a,b,c,d,e)
Rserie=a+b+c+d+e
Rparalelo=1/(1/a+1/b+1/c+1/d+1/e)end



* La presión atmosférica (p) varía en función de la altura (h) según la siguiente expresión: p=1035*e-0.12h, donde la altura se mide en kilómetros y la presión en milibares....