-
Notifications
You must be signed in to change notification settings - Fork 0
/
EcuacionExponencialCaso4.m
58 lines (47 loc) · 2.01 KB
/
EcuacionExponencialCaso4.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 exponencial de tipo
% A^((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 EcuacionExponencialCaso4()
disp ('Calculo del dominio y rango de funciones');
disp ('Funcion Racional Caso 4');
disp ('Sea la funcion A^((Bx + C) / (Dx^2 + Ex + F)) :');
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=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, 50);
y = A.^((B*x + C)./(D*x.^2 + E*x + F));
plot (x,y);
disp ("El dominio es: (-?, " + X1 + ") U (" + X1 + ", " + X2 + ") U ("+ X2 + ", ?)");