%% prog20230329 lectura y escritura

clearvars;
clear all;
close all;
clc;

% usaremos como ejemplo la ecuación de segundo grado
% a*x^2 + b*x + c = 0
%cuyas soluciones son
%               ____________
%       -b +- \/b^2 - 4*a*c
%x1,2 = ---------------------
%               2*a
%
%leeremos desde el teclado y la ventana de comandos (command window)
%los valores de las variables a, b, c y programaremos la formula

%% lectura
%usaremos el comando input
%nombre_variable = input('cadena de caracteres');

%para explicar lo que hace el programa usaremos el comando disp
%disp(cadena de caracteres);

disp(' ');
disp('ecuación de segundo grado');
disp(' ');
disp('a*x^2 + b*x + c = 0');
disp(' ');
disp('soluciones');
disp('               ____________ ');
disp('       -b +- \/b^2 - 4*a*c  ');
disp('x1,2 = ---------------------');
disp('               2*a          ');

%usaremos el comando input
%nombre_variable = input('cadena de caracteres');
disp(' ');
a = input(' coeficiente a = ');
b = input(' coeficiente b = ');
c = input(' coeficiente c = ');

%% calculo de soluciones
x1 = ( -b + sqrt(b^2 -4*a*c) )/(2*a);
x2 = ( -b - sqrt(b^2 -4*a*c) )/(2*a);

%% escribir los resultados usando disp()
disp(' ');
disp('escribir los resultados usando disp()');
disp('x1 = ');
disp(x1);
disp('x2 = ');
disp(x2);
disp(' ');

%% escribir usando comando fprintf()
%fprintf('cadena de caracteres formato',nombre_variable);
disp('escribir los resultados usando fprintf()');
fprintf('x1 = %f\n',x1);
fprintf('x2 = %f\n',x2);
disp(' ');
%formato del comando
%el comando "%f" significa numero de punto flotante
%el comando "%d" significa numero entero
%el comando "%e" significa numero de punto flotante en formato mantisa exponente
%el comando "%s" significa caracter

%% resultados en numeros complejos con fprintf
disp('escribir los resultados usando fprintf() complejos');
carac01 = 'i';
carac02 = '+';
carac03 = '-';
fprintf('x1 = %e %s %e%s\n',real(x1),carac02,abs(imag(x1)),carac01);
fprintf('x2 = %e %s %e%s\n',real(x2),carac03,abs(imag(x2)),carac01);