Área de un Trapecio

 Descargar como Notebook

En el Método del Trapecio para calcular una aproximación de una integral definda es necesario mostrar el área de un trapecio, en este aplicativo se muestra como obtenerla.

Clear["Global`*"]

poli = {{0, 0}, {1, 0}, {1, 3}, {0, 1}};

Manipulate[s[a_, b_] := {a, b + (\[Theta] - Pi)/(Pi/2)}; 

 Graphics[{Red, 

   Polygon[poli], {Text["a", {-0.2, 0.5}], Text["b", {1.2, 1.5}], 

    Text["h", {0.5, -0.2}]}, Pink, 

   If[\[Theta] < Pi, Rotate[Polygon[poli], \[Theta]], 

    Rotate[Polygon[Apply[s, poli, {1}]], Pi]], 

   If[\[Theta] == 3 Pi/2, {Text["b", {-0.2, 2.5}], 

     Text["a", {1.2, 3.5}], Text["h", {0.5, 4.2}]}], Black, 

   If[Area, 

    Text["Area = (a+b)h/2",

{3, 2}]]}, PlotRange -> {{-2, 4}, {-1, 5}}], {\[Theta], 0, 3 Pi/2, 

  Trigger}, {Area, {False, True}}, ContentSize -> {300, 250}]

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 Yu Takeuchi

 Un colombiano es más inteligente que un japonés,

pero dos japoneses son más inteligentes que dos colombianos.

Yu Takeuchi

Regla de Simpson

 Descargar como Notebook

Es un método de aproximación de integrales definidas, se realiza una partición en un número par de subdivisiones, se toman cada tres puntos la parábola que mejor se acopla a ellos.

f1[x_] := x (x - 2) (x - 3);

f2[x_] := Sin[x];

f3[x_] := x^2;

f4[x_] := Exp[x];

Manipulate[a = Switch[f, f1, 4, f2, 2 Pi, f3, 4, f4, 4]; 

 pol[k_] := 

  LinearSolve[

    N[{{(a k/n)^2, a k/n, 1}, {(a (k + 1)/n)^2, a (k + 1)/n, 

       1}, {(a (k + 2)/n)^2, a (k + 2)/n, 1}}], 

    N[{f[a k/n], f[a (k + 1)/n], f[a (k + 2)/n]}]] . {x^2, x, 1}; 

 Show[Plot[f[x], {x, 0, a}, AspectRatio -> 1], 

  If[seg, Evaluate@

    Table[Plot[pol[k], {x, a (k)/n, a (k + 2)/n}, 

      PlotStyle -> {Hue[k/n], Dashed}], {k, 0, n - 2, 2}], 

   Plot[100, {x, 0, a}]], 

  Graphics[{Red, If[part, Table[Point[{a k/n, 0}], {k, 0, n}]], 

    If[proy, Table[Point[{a k/n, f[a k/n]}], {k, 0, n}]], Dashed, 

    If[proy, 

     Table[Line[{{a k/n, 0}, {a k/n, f[a k/n]}}], {k, 0, n}]]}]], 

 Text[Style["Regla de Simpson", Medium]], {{f, f2, 

   "Función"}, {f1 -> "f(x) = x(x-2)(x-3) en [0,4]", 

   f2 -> "f(x) = Sen(x) en [0,2\[Pi]]", 

   f3 -> "f(x) = x^2 en [0,4]", 

   f4 -> "f(x) = e^x en [0,4]"}, ControlType -> PopupMenu}, 

 Text[Style["Paso a paso", Medium]], {{part, False, 

   "Particiones"}, {False, True}}, {{n, 2, 

   Column[{"Número de", " Particiones"}]}, 2, 10, 2, 

  Appearance -> "Open"}, {{proy, False, "Proyecciones"}, {False, 

   True}}, {{seg, False, "Parábolas"}, {False, True}}, 

 ControlPlacement -> Left]

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