Á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