Frase Célebre de J. J. Silvester

¿No se puede describir la Música como 
la Matemática de las emociones,
y la Matemática como la Música de la Razón?

J. J. Silvester

Teorema Fundamental del Cálculo

 Descargar como Notebook

Función área bajo la curva

Dada la función f(t)=t, definimos la función que calcula el área bajo la curva entre 0 y x:

s[x_] := Integrate[t, {t, 0, x}]

Manipulate[

 Row[{Show[

    Plot[t, {t, 0, 10}, PlotLabel -> Row[{"s(", x, ") = ", s[x]}], 

     ImageSize -> Small], Plot[t, {t, 0, x}, Filling -> Axis]], 

   Plot[s[a], {a, 0, x}, PlotRange -> {{0, 10}, {0, 50}}, 

    ImageSize -> Small, PlotLabel -> "s(x)"]}], {x, 0.0001, 9}]

Visualización de la relación entre el área bajo la curva y la pendiente de la recta tangente

f1[x_] := x^2

g1[x_] := 2 x

f2[x_] := Sin[x]

g2[x_] := Cos[x]

Manipulate[f = Switch[g, g1, f1, g2, f2]; 

 s[x_] := N[Integrate[g[t], {t, 0, x}], 2]; 

 Row[{Show[

    Plot[g[t], {t, -1.5, 10}, 

     PlotLabel -> 

      Row[{"Area Sombreada = ", Text[Style[N[s[x], 2], Green]]}], 

     ImageSize -> 300], Plot[g[t], {t, 0, x}, Filling -> 0], 

    Graphics[{{Red, Dashed, 

       Line[{{x, 0}, {x, g[x]}, {0, g[x]}}]}, {Red, 

       Text[g[x], {-0.5, g[x]}]}}]], 

   Show[Plot[f[t], {t, -1.5, 10}, ImageSize -> 300, 

     PlotLabel -> 

      Row[{"Pendiente de la recta tangente = ", 

        Text[Style[f'[x], Red]]}]], 

    Plot[f'[x] (t - x) + f[x], {t, -1, 10}], 

    Graphics[{{Green, Dashed, 

       Line[{{x, 0}, {x, f[x]}, {0, f[x]}}]}, {Green, 

       Text[N[f[x], 2], {-0.8, f[x]}]}}]]}], {x, 0.5, 

  9}, {{g, g1, 

   "Función"}, {g1 -> "2x y x²", 

   g2 -> "Cos(x) y Sen(x)"}}, ContentSize -> {700, 260}]

Integral vs. Derivada

La altura de la primera es la pendiente de la recta tangente de la segunda, y la altura de la segunda es el área bajo la curva acumulada de la primera.

Así, vemos que: Pendiente de la recta tangente y Area bajo la curva, son problemas relacionados.

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas

Frase Célebre de Stephen Wolfram

 ¿Podría ser que en algún lugar 

del universo computacional, 

podríamos encontrar 

nuestro universo físico?

Stephen Wolfram

Cinco años y cien mil visitas

 Descargar como Notebook

Estas cifras son un excelente momento para agradecer a las personas que me han impulsado con sus colaboraciones, comentarios y visitas: MUCHAS GRACIAS.

f[n_, p_] := {Cos[n Pi/p], Sin[n Pi/p]}

a = 8;

Manipulate[

 Graphics[{If[t < 1, 

    Table[{Text[Style["5 años", RGBColor[t, Sin[n], Cos[t]]], 

       a t f[n, 10]], {RGBColor[t, Sin[n], Cos[t]], 

       Point[a p f[n, 10]]}}, {p, 0, t, 0.1}, {n, 1, 9}]], 

   If[2 > t >= 

     1, {Table[

      Text[Style[Column[{"100 000", "  visitas"}], 5 t, 

        RGBColor[t, Sin[n], Cos[n]]], a  f[n, 10]], {n, 1, 9}], 

     Table[{Orange, 

       Point[a (2 - t) f[n, 

           10] + (t - 1) (a  f[n, 10] + f[m, 5])]}, {m, 1, 10}, {n, 1,

        9}]}], If[3 > t > 2, 

    Table[Text[

      Style[Column[{"100 000", "  visitas"}], 5 t, 

       RGBColor[t, Sin[n], Cos[n]]], 

      a  f[n, 10] (3 - t) + (t - 2) {0, 5}], {n, 1, 9}]], 

   If[t >= 3, 

    Text[Style[Column[{"100 000", "  visitas"}], t^2 + t + 3, 

      Orange], (t - 2) {0, 5}]], 

   If[t >= 3.2, 

    Text[Style["5 años", 2 Exp[(t - 2)^2], Blue], {0, 5}]]}, 

  PlotRange -> {{-10, 10}, {-1, 12}}, Axes -> False, 

  Background -> Black], {t, 0, 4, Trigger, DefaultDuration -> 15}]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas