%% prog002 lectura y escritura

clearvars;
close all;
clc;

%este programa resolvera la ecuación algebraica de segundo grado determinando las
%raices del polinomio de segundo grado
%sin embargo proposito principal será la entrada y salida de datos 
%
%solucion del polinomio ax^2 + bx + c =0
% 
%                   ___________
%         ( -b  ±  \/ b^2 -4ac   )
% x1,2 =  -------------------------
%                  (2a)

%% primera parte 
%darle valores a, b, c no hay lectura
a = 1;
b = 4;
c = 7;

%resolucion
x1 =  ( -b + sqrt(b^2 - 4*a*c) )/( 2*a );
x2 =  ( -b - sqrt(b^2 - 4*a*c) )/( 2*a );
% el uso de parentesis y operadores aritmeticos debe ser cuidadoso

%% segunda parte
%leer desde el teclado para darle valor a las variables
%usaremos el comando input();
%nombre_variable = input('cadena de caracteres');
disp('programa que calcula las raices de un polinomio de segundo grado');
disp(' ');
disp('                   ___________     ');
disp('         ( -B  ±  \/ B^2 - 4AC   ) ');
disp(' X1,2 =  ------------------------- ');
disp('                  (2A)             ');
disp(' ');    

A = input('coeficiente A = ');
B = input('coeficiente B = ');
C = input('coeficiente C = ');

%resolucion
X1 =  ( -B + sqrt(B^2 - 4*A*C) )/( 2*A );
X2 =  ( -B - sqrt(B^2 - 4*A*C) )/( 2*A );
%recordemos que mayusculas y minusculas

%escribimos los resultados usando el comando disp();
%disp('cadena de caracteres');
%disp(nombre_variable)
disp(' ');
disp('resultados usando comando disp()');
disp(' ');
disp('X1 = ');
disp(X1);
disp('X2 = ');
disp(X2);

%% tercera parte del programa
%escribir resultados usando comando fprintf
disp(' ');
disp('resultados usando comando fprintf() parte 1');
%fprintf('cadena de caracteres formato',nombre variable);
fprintf('X1 = %f\n',X1);
fprintf('X2 = %f\n',X2);
%el formato %f es para escribir variable numero en punto flotante
%el formato %d es para escribir variable numero en entero
%el formato %e es para escribir variable numero mantisa con exponente
%el formato %s es para escribir variable que es cadena de caracteres
%el formato \n es para saltar de linea

disp(' ');
disp('resultados usando comando fprintf() parte 2');
%usaremos los comandos real() que saca la parte real de un complejo
%en conjunto con imag() que saca la parte imaginaria de un complejo
%adiacionalmete usaremos abs() que es el valor absoluto
s1 = '+ '; %al estar entre comillas el + es un caracter no es operador aritmetico
s2 = '- '; %al estar entre comillas el - es un caracter no es operador aritmetico
s3 = 'j'; %al estar entre comillas el j es un caracter no es raiz de menos uno
fprintf('X1 = %f %s %f%s\n',real(X1),s1,imag(X1),s3);
fprintf('X2 = %f %s %f%s\n',real(X2),s2,abs(imag(X2)),s3);

disp(' ');
disp('resultados usando comando fprintf() parte 3');
fprintf('X1 = %e %s %e%s\n',real(X1),s1,imag(X1),s3);
fprintf('X2 = %e %s %e%s\n',real(X2),s2,abs(imag(X2)),s3);