-
Notifications
You must be signed in to change notification settings - Fork 0
/
EcuacionRacionalCaso4.m
58 lines (47 loc) · 1.96 KB
/
EcuacionRacionalCaso4.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
% Autor: Juan Carlos Estevez Vargas
% Canal de Youtube: Apuntes de un Ingeniero
% Actualizado: 9/junio/2022
% ------- DESCRIPCIÓN ----------------------------------------------------
% Calcula el dominio y rango de una función racional de tipo
% (ax + b) / (cx^2 + dx + e)
% ------------------------------------------------------------------------
% ------- ESTA FUNCION PIDE LOS SIGUIENTES DATOS DE ENTRADA: -------------
% A, B, C, D, E = Coeficientes que pertenecen a la ecuación.
% ------------------------------------------------------------------------
% ------- VARIABLES DE SALIDA: -------------------------------------------
% Dominio de la función.
% -----------------------------------------------------------------------
function EcuacionRacionalCaso4()
clear all;
disp ('Calculo del dominio y rango de funciones');
disp ('Funcion Racional Caso 4');
disp ('Sea la funcion (ax + b) / (cx^2 + dx + e) :');
global A B C E F X1 X2 X3 X4 D
A=input('Ingrese el valor de A: ');
B=input('Ingrese el valor de B: ');
C=input('Ingrese el valor de C: ');
D=input('Ingrese el valor de D: ');
E=input('Ingrese el valor de E: ');
F=D^2-4*C*E;
if (D>=0)
X1=(-D+F^0.5)/(2*C);
X2=(-D-F^0.5)/(2*C);
fprintf('La primera solución de la ecuación cuadratica es %2.2f\n',X1);
fprintf('La segunda solución de la ecuación cuadratica es %2.2f\n',X2);
elseif D==0
X1=(-D)/(2*C);
X2=(-D)/(2*C);
fprintf('La primera solución de la ecuación cuadratica es %2.2f\n',X1);
fprintf('La segunda solución de la ecuación cuadratica es %2.2f\n',X2);
else
X1=(-D)/(2*C);
X2=(-D)/(2*C);
X3=(abs(F))^0.5/(2*C);
X4=-(abs(F))^0.5/(2*C);
fprintf('La primera solución de la ecuación cuadratica es %2.2f + %2.2f i\n',X1,X3);
fprintf('La segunda solución de la ecuación cuadratica es %2.2f + %2.2f i\n',X2,X4);
end
x = linspace (-20, 20, 50);
y = (A*x + B)./(C*x.^2 + D*x + E);
plot (x,y);
disp ("El dominio es: (-?, " + X1 + ") U (" + X1 + ", " + X2 + ") U ("+ X2 + ", ?)");