-
Notifications
You must be signed in to change notification settings - Fork 0
/
EcuacionLogaritmicaCaso4.m
58 lines (47 loc) · 2 KB
/
EcuacionLogaritmicaCaso4.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 logaritmica de tipo
% (loga((bx + c) / (dx^2 + ex + f))
% ------------------------------------------------------------------------
% ------- ESTA FUNCION PIDE LOS SIGUIENTES DATOS DE ENTRADA: -------------
% A, B, C, D, E, F = Coeficientes que pertenecen a la ecuación.
% ------------------------------------------------------------------------
% ------- VARIABLES DE SALIDA: -------------------------------------------
% Dominio de la función.
% -----------------------------------------------------------------------
function EcuacionLogaritmicaCaso4()
disp ('Calculo del dominio y rango de funciones');
disp ('Funcion Logarítmica Caso 4');
disp ('Sea la funcion loga((bx + c) / (dx^2 + ex + f)) :');
global A B C E F G 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=input('Ingrese el valor de F: ');
G=E^2-4*D*F;
if (E>=0)
X1=(-E+G^0.5)/(2*D);
X2=(-E-G^0.5)/(2*D);
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 E==0
X1=(-E)/(2*D);
X2=(-E)/(2*D);
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=(-E)/(2*D);
X2=(-E)/(2*D);
X3=(abs(G))^0.5/(2*D);
X4=-(abs(G))^0.5/(2*D);
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, 100);
y = log10((B*x + C)./(D*x.^2 + E*x + F))./log10(A);
plot (x,y);
disp ("El dominio es: (-?, " + X2 + ") U ("+ X1 + ", ?)");