- π /2

- π 

5 π /2

-2  π 

-5 π/2

-3 π 

-7 π/2

-4 π

4 π 

7 π /2

3 π 

-3 π /2

2 π

 π 

3 π /2

 π /2

0

Ocultar

Ver

2

2

seno

coseno

tangente

secante

cosecante

cotangente

seno

coseno

tangente

secante

OX

OY

Origen

Ocultar

Simetría

OX

OY

Origen

NO

Asíntotas verticales

Hor

Ocultar

Oblic

Hor

Ver

Oblic

Zoom

Aleja

Acerca

Derivadas

1ª

1ª

2ª

2ª

Crecimiento /

Decrecimiento

Concavidad /

Convexidad

cosecante

cotangente

Periodicidad

dada

Ver

Ocultar

T = 2 π 

T = π 

Impar:  sen(-x)=-sen(x)

  Recta tangente
máximos, mínimos

Cortes con ejes

Ocultar

OX

OY

OX

OY

f(x) = cos(x)
q = 2 (slider from 1 to 6, step 1)
e2 = If(q ≟ 3, 1.5707963267948966, If[q ≟ 6, 3.141592653589793, 6.283185307179586])
e1 = If(q ≟ 3, -1.5707963267948966, 0)
R2 = (1.5707963267948966, 0)
R1 = (-1.5707963267948966, 0)
u1 = Vector(R1, R2)
u2 = Vector((3.141592653589793, 0))
u3 = Vector((0, 0), (6.283185307179586, 0))
u = If(q ≟ 3, u1, Vector[If[q ≟ 6, u2, u3]])
t = 0.516 (slider from -0.1 to 1.3, step 0.001)
tt = Min(t, 1)
ttt = Max(0, tt)
dd = 1 (slider from 1 to 2, step 1)
a = 3 (slider from -5 to 5, step 1)
b = 0 (slider from 0 to 1, step 1)
c = 0 (slider from -5 to 5, step 1)
n(x) = (a * x^(2)) + (b * x) + c
p = 5 (slider from -5 to 5, step 1)
texto2h: "a x^2+b x+c= " + (LaTeX[n]) + ""
d_2(x) = ((x - p) * (x - q))
d_1(x) = x - p
d = If(dd ≟ 1, d_1, d_2)
texto2i: "(x+p)·(x-q) = (x-" + (LaTeX[p]) + ")·(x-" + (LaTeX[q]) + ")"
g_2(x) = f((-x))
P1: (0, f(0))
A, B, C, D, E_1, F, G, H, I, J, K, L, M = Roots(f, -20, 20)
fd1 = Derivative(f)
texto2a: "f(x)=\frac{a x^2+bx+c}{(x-p)·(x-q)}=\frac{" + (LaTeX[n]) + "}{" + (LaTeX[d]) + "}"
texto2b: "f(x)=\frac{a x^2+bx+c}{(x-p)}=\frac{" + (LaTeX[n]) + " }{ " + (LaTeX[d]) + "}"
texto2 = If(dd ≟ 1, texto2b, texto2a)
ds = 0 (slider from 0 to 3, step 1)
g_1(x) = (-f(x))
f_1 = Mirror(f, y = 0)
f_2 = Mirror(f, x = 0)
dh = 0 (slider from 0 to 1, step 1)
dv = 0 (slider from 0 to 1, step 1)
do = 0 (slider from 0 to 1, step 1)
i = Limit(f, Infinity)
d1 = 0 (slider from 0 to 1, step 1)
d2 = 0 (slider from 0 to 1, step 1)
fd2 = Derivative(fd1)
abscisa = -0.34323 (slider from ((-6.43364) * escala) - 0.3 to (9.54818 * escala), step 0.001)
vv = 0 (slider from 0 to 1, step 1)
PX: (abscisa, 0)
k = OrthogonalLine(PX, xAxis)
E = Intersect(f, k, (-0.34323, 0.9416725862654205))
E1: E
E2: E
l = Segment(E, PX)
E4: E
E5: E
dcr = 0 (slider from 0 to 1, step 1)
dco = 0 (slider from 0 to 1, step 1)
A2(x) = sin(x)
A3(x) = cos(x)
A4(x) = tan(x)
A5(x) = csc(x)
A6(x) = sec(x)
A7(x) = cot(x)
escala = 0.75 (slider from 0.25 to 1.5, step 0.25)
lista1 = Sequence((n * π), n, -10, 10)
lista2 = Sequence(x = Element[lista1, n], n, 1, 21)
lista3 = Sequence(x = Element[lista1 + π / 2, n], n, 1, 21)
listaa: {t01, t02, t03, t04, t05, t06, t07, t08, t10, t11, t12, t13, t14, t15, t16, t17, t18}
listab: {-12.57, -11, -9.42, -7.85, -6.28, -4.71, -3.14, -1.57, 0, 1.57, 3.14, 4.71, 6.28, 7.85398, 9.42478, 10.99557, 12.56637}
listac = Sequence((Element[listab, i], 0), i, 1, 17)
vp = 0 (slider from 0 to 1, step 0.1)
N = (-2.38, -9.08)
O = (-1, -8.82)
m = Segment(N, O)
uu: ((-ttt) * u)
h(x) = If[e1 ≤ x ≤ e2,f]
hh = Translate(h, uu)
texto5 = If(q ≟ 3 ∨ q ≟ 6, texto5b, texto5a)
P = (1.48, 1.58)
Q = (1.3, 3.42)
R = (-0.04, 3.44)
S = (-3.62, -2.04)
f_3 = Mirror(f, (0, 0))
e = Tangent(E, f)
RR_1, RR_2, RR_3, RR_4, RR_5, RR_6, RR_7, RR_8, RR_9, RR_a, RR_b, RR_c, T = Roots(f, -20, 20)
listar: {RR_1, RR_2, RR_3, RR_4, RR_5, RR_6, RR_7, RR_8, RR_9, RR_a, RR_b, RR_c}
cc = 0 (slider from 0 to 2, step 1)
D1 = NaN
listad = Sequence(Text[Element[listaa, k], Element[listac, k] - (0.05, 0.2)], k, 1, 17)
V = Min(f, ((-6.43364) * escala), (9.54818 * escala))
U = Max(f, ((-6.43364) * escala) - 10, (9.54818 * escala) + 10)