Scribd
Cargar
26 vistas3 páginas

Tarea Dos de Programación 2

El documento presenta varios programas en MATLAB que resuelven problemas matemáticos, incluyendo la resolución de ecuaciones cuadráticas, la generación de la serie de Fibonacci, la solución de sistemas de ecuaciones lineales y el cálculo del área de triángulos. Cada sección incluye instrucciones para el usuario y cálculos matemáticos específicos. Además, se utilizan gráficos para visualizar algunos resultados, como la serie de Fibonacci.

Cargado por

y mv
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
26 vistas3 páginas

Tarea Dos de Programación 2

El documento presenta varios programas en MATLAB que resuelven problemas matemáticos, incluyendo la resolución de ecuaciones cuadráticas, la generación de la serie de Fibonacci, la solución de sistemas de ecuaciones lineales y el cálculo del área de triángulos. Cada sección incluye instrucciones para el usuario y cálculos matemáticos específicos. Además, se utilizan gráficos para visualizar algunos resultados, como la serie de Fibonacci.

Cargado por

y mv
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Tarea dos de programación

Yael Mena Venegas


Cuadrática

% programa que resuelve la ecuacion cuadratuca


% Ax2+Bx+C=0
disp ("vamos a resolver la ecuacion cuadratica");
disp ("Ax2+Bx+C=0");
A= input("dame el valor de A: ");
B= input ("dame el valor B: ");
C= input ("dame el valor de C: ");
if (B+(B^2-4*A*C)==0)
disp ("las raices son iguales");
elseif (-B+(B^2-4*A*C)<0)
disp ("las raices son imaginarias");
end

X1=(-B+(B^2-4*A*C)^1/2)/(2*A);
X2=(-B+(B^2-4*A*C)^1/2)/(2*A);
disp ("las raises de la ecuacion dada son:");
disp (X1)
disp (X2);
syms x;
ezplot (A*x^2+B*x+C);
disp ("quieres hacer otro calculo 1/si 0/no");
if R == 1
cuadra
else
disp("gracias por usar este programa")
R2=imput ("hasta la vista, presiona enter para terminar ");
end
grind x;

serie de fabinocci
x = 0;
y = 1;
syms v u

axis off
hold on

for n = 1:8
a = fibonacci(n);

% Define squares and arcs


switch mod(n,4)
case 0
y = y - fibonacci(n-2);
x = x - a;
eqnArc = (u-(x+a))^2 + (v-y)^2 == a^2;
case 1
y = y - a;
eqnArc = (u-(x+a))^2 + (v-(y+a))^2 == a^2;
case 2
x = x + fibonacci(n-1);
eqnArc = (u-x)^2 + (v-(y+a))^2 == a^2;
case 3
x = x - fibonacci(n-2);
y = y + fibonacci(n-1);
eqnArc = (u-x)^2 + (v-y)^2 == a^2;
end

% Draw square
pos = [x y a a];
rectangle('Position', pos)

% Add Fibonacci number


xText = (x+x+a)/2;
yText = (y+y+a)/2;
text(xText, yText, num2str(a))

% Draw arc
interval = [x x+a y y+a];
fimplicit(eqnArc, interval, 'b')

end

ecuaciones 3*3
smys x y z
eqn1 = 2*x + y + z == 2;
eqn2 = -x + y + z == 3;
eqn3 = x + 2*y + 3*z == -10;
[A,B] = equationsToMatrix([eqn1,eqn2,eqn3],[x,y,z]);
R = linsolve (A, B);

Triángulos
% Si se cumple la propiedad e la suma de sus dos lados sea mayor al
tercero, es un triangulo
%Area = (S* (S-A) * (S-B) * (S-C))^(1/2)
%S = (A+B+C)/2
a = double(imput("ingrese el primer lado del triangulo"));
b = double(imput("ingrese el segundo lado del triangulo"));
c = double(imput("ingrese el tercer lado del triangulo"));
if (a+b)>c & (a+c)>b & (b+c)>a
sprintf("se trata de un triangulo");
S = (A+B+C)/2;
Area = sqrt(S* (S-A) * (S-B) * (S-C));
sprintf("el area del triangulo es: %f",area);
if a==b & a==c & b==c
sprintf("se trata de un triangulo equilatero");
elseif a==b | a==c | b==c
sprintf("se trata de un triangulo isoseles");
else
sprintf("se trata de un triangulo escaleno");
end

else
sprintf("no se trata de un triangulo")
end

ecuaciones 2*2
smys x y
eqn1 = 2*x + y == 2;
eqn2 = -x + y == 3;
[A,B] = equationsToMatrix([eqn1,eqn2],[x,y]);
R = linsolve (A, B);

También podría gustarte