exp-6

%Realice lo que se le indique en los siguientes ejercicios escribiendo el
%codigo en scripts (explique detalladamente el procedimiento con
%comentarios). Imprima el codigo y haga captura de pantalla para mostrar la
%ejecucion de cada uno de sus scripts.

%Dados los vertices de un triangulo: (-3,1),(1,5) y (4,-7) encuentre el
%radio de la circunferencia inscrita. Explique detalladamente el
%procedimiento.
%LIMPIAMOS TODO
clc;
clear all;
close all;
%1-. Paso definir el sistema de ecuaciones
A = [-3 1 1; 1 5 1; 4 -7 1];
d=det(A);
fprintf('El determinante principal es: %2.2f\n',d);
%2-. Calculo para el determinante auxiliar D
B = [-10 -26 -65; 1 5 1; 4 -7 1];
d1=det(B);
fprintf('El determinante principal auxiliar D es: %2.2f\n',d1);
%3-. Calculo para el determinante auxiliar E
C = [-3 1 1; -10 -26 -65; 4 -7 1];
d2=det(C);
fprintf('El determinante principal auxiliar E es: %2.2f\n',d2);
%4-. Calculo para el determinante auxiliar F
D = [-3 1 1; 1 5 1; -10 -26 -65];
d3=det(D);
fprintf('El determinante principal auxiliar F es: %2.2f\n',d3);
%4-. Finamente obtenemos el valor de D, E y F
dd=d1/d;
de=d2/d;
df=d3/d;
fprintf('El valor de D es: %2.2f\n',dd);
fprintf('El valor de E es: %2.2f\n',de);
fprintf('El valor de F es: %2.2f\n',df);