Universidad Nacional Autónoma de México
Dirección General de Cómputo y de Tecnologías 
de la Información y Comunicación
Trabajo realizado con el apoyo del Programa UNAM-DGAPA-PAPIME PE110517

Principio de 
Pascal

Module[{x0},x0=Framed[OpenerView[{Style["1. Objetivo",FontColor->White,FontFamily->"Times New Roman",24],TextCell["·Comprender la distribución de fuerzas dentro de un líquido en un medio cerrado.
·Comprender el uso de este principio en la prensa hidráulica.
·Comprender el concepto de presión.",FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1]}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]]

Module[{x0,x1,x2},x1=OpenerView[{Style["2.2 Simulador de un área bajo una presión",Black,FontFamily->"Calibri",Bold,18],TextCell["En el siguiente simulador se observa un área a la cual se le aplica una fuerza de forma perpendicular al área, al aumentar el área la presion en esta es la misma pero de distribuye de forma distinta dejando una menor fuerza para cuando el área es mayor.",FontColor->Black,FontFamily->"Calibri",16]}];x2=OpenerView[{Style["2.2.1. Simulador de la Primera ley
",Black,FontFamily->"Calibri",Bold,18],Panel[Style[Manipulate[Graphics3D[{Opacity[.75],Thickness[.006],RGBColor[.48,.11,.56],Table[{Line[{{δ,γ,0},{δ,γ,f/(d^2)}}],Line[{{δ,γ,0},{δ+f.25/(((d+1))^2),γ,f.5/(((d+1))^2)}}],Line[{{δ,γ,0},{δ-f.25/(((d+1))^2),γ,f.5/(((d+1))^2)}}]},{δ,Mod[1,1/d]+1/(2d),1,1/d},{γ,Mod[1,1/d]+1/(2d),1,1/d}],EdgeForm[RGBColor[.25,.43,.82]],RGBColor[.33,.6,.7],Table[Polygon[{{x,y,0},{x,y+1/d,0},{x+1/d,y+1/d,0},{x+1/d,y,0}}],{x,0,1-1/d,1/d},{y,0,1-1/d,1/d}]},Boxed->False,ImageSize->{400,400},PlotRange->{{0,1},{0,1},{0,1}},PlotLabel->Grid[{{"La presión es ",f ," kg" ,Superscript["s",-2] ,Superscript["m",-1]},{"La presión en cada sección es ",f/d^2 ," kg" ,Superscript["s",-2] ,Superscript["m",-1]}}]],{{d,3,"Área en la que se aplica la presión"},1,10,1,Appearance->"Labeled"},{{f,3,"Fuerza  (kg m/(s^2))"},.5,5,Appearance->"Labeled"}],DefaultOptions->{Panel->{Background->RGBColor["#D8D8D8"]}}],FrameMargins->None]}];
x0=TextCell["    La presión es la magnitud que relaciona la fuerza con la superficie sobre la cual actúa, es decir, equivale a la fuerza que actúa sobre la superficie.
",FontColor->Black,FontFamily->"Calibri",16,TextJustification->1];
Framed[
OpenerView[
{Style["2. Definicion de presión ",Darker[Gray],FontFamily->"Calibri",24],
Column[{x0,x1,x2},Alignment->{{Left,Left},{Left,Left},{},{}}]
}],RoundingRadius->5,FrameMargins->Large]
]

DynamicModule[{x1,x2,x3,x4,x5,x6,a,r=0},
x1=TextCell["La presión ejercida sobre un fluido poco compresible y en equilibrio dentro de un recipiente de paredes indeformables se transmite con igual intensidad en todas las direcciones y en todos los puntos del fluido.",FontColor->White,FontFamily->"Calibri",16,TextJustification->1];
x2=TextCell["El principio de Pascal puede comprobarse utilizando una esfera hueca, perforada en diferentes lugares y provista de un émbolo. Al llenar la esfera con agua y ejercer presión sobre ella mediante el émbolo, se observa que el agua sale por todos los agujeros con la misma velocidad y por lo tanto con la misma presión.",FontColor->White,FontFamily->"Calibri",16,TextJustification->1];
x3=TextCell["La prensa hidráulica constituye la aplicación fundamental del principio de Pascal y también un dispositivo que permite entender mejor su significado. Consiste, en esencia, en dos cilindros de diferente sección comunicados entre sí, y cuyo interior está completamente lleno de un líquido que puede ser agua o aceite. Dos émbolos de secciones diferentes se ajustan, respectivamente, en cada uno de los dos cilindros, de modo que estén en contacto con el líquido. Cuando sobre el émbolo de menor sección A1 se ejerce una fuerza F1 la presión p1 que se origina en el líquido en contacto con él se transmite íntegramente y de forma casi instantánea a todo el resto del líquido. Por el principio de Pascal esta presión será igual a la presión p2 que ejerce el fluido en la sección A2.",FontColor->White,FontFamily->"Calibri",16,TextJustification->1];
x4=Style["p1=p2 ⇒ (F1/A1)=(F2/A2)",FontFamily->"Times New Roman",FontColor->White,Italic,16];
x5=Manipulate[Graphics3D[{
GrayLevel[0.4],
{Opacity[0.2],Blue,Cylinder[{{0,-3,0},{0,-3,4}},1]},
{Opacity[.5],Blue,Cylinder[{{0,-3,0},{0,-3,2-If[-5<a<5,If[-2.5<a<2.5,-1.5,(Abs[a]-4)],1]}},1]},
{Yellow,Opacity[.90],Cylinder[{{0,-3,1.5-If[-5<a<5,If[-2.5<a<2.5,-1.5,(Abs[a]-4)],1]},{0,-3,2-If[-5<a<5,If[-2.5<a<2.5,-1.5,(Abs[a]-4)],1]}},1]},
{Opacity[0.2],Blue,Cylinder[{{0,5,0},{0,5,1.5}},4]},
{Opacity[0.5],Blue,Cylinder[{{0,5,0},{0,5,1.5+((((1/4)))^2)r}},4]},
{Gray,Opacity[.90],Cylinder[{{0,5,1.1+((((1/4)))^2)If[-5<a<5,If[-2.5<a<2.5,-1.5,(Abs[a]-4)],1]},{0,5,1.6+((((1/4)))^2)If[-5<a<5,If[-2.5<a<2.5,-1.5,(Abs[a]-4)],1]}},4]},
{Opacity[0.5],Blue,Cylinder[{{0,-3+1,.5},{0,5-4,.5}},.25]},
Translate[Rotate[{
{Gray,Polygon[{{-3.02+1.2(a),0,-1-5},{-3.02+1.2(a),0,1-5},{-3.02+1.2(a),.3,1-5},{-3.02+1.2(a),.3,-1-5}}]},{Gray,Polygon[{{3.01+1.2(a),0,-1.01-5},{3.01+1.2(a),.3,-1.01-5},{2.5+1.2(a),.3,-1.01-5},{2.5+1.2(a),0,-1.01-5}}]},{Gray,Polygon[{{3.01+1.2(a),0,1.01-5},{3.01+1.2(a),.3,1.01-5},{2.5+1.2(a),.3,1.01-5},{2.5+1.2(a),0,1.01-5}}]},{Gray,Polygon[{{-3.01+1.2(a),0,-1-5},{-3.01+1.2(a),0,1-5},{-3.01+1.2(a),.3,1-5},{-3.01+1.2(a),.3,-1-5}}]},{Gray,Polygon[{{-3.01+1.2(a),0,-1.01-5},{-3.01+1.2(a),.3,-1.01-5},{-2.5+1.2(a),.3,-1.01-5},{-2.5+1.2(a),0,-1.01-5}}]},{Gray,Polygon[{{-3.01+1.2(a),0,1.01-5},{-3.01+1.2(a),.3,1.01-5},{-2.5+1.2(a),.3,1.01-5},{-2.5+1.2(a),0,1.01-5}}]},
(*Caras laterales*){Red,Polygon[{{3+1.2(a),0,-1-5},{3+1.2(a),1,-1-5},{2+1.2(a),1,-1-5},{1+1.2(a),2,-1-5},{-1+1.2(a),2,-1-5},{-2+1.2(a),1,-1-5},{-3+1.2(a),1,-1-5},{-3+1.2(a),0,-1-5}}]},{Red,Polygon[{{3+1.2(a),0,1-5},{3+1.2(a),1,1-5},{2+1.2(a),1,1-5},{1+1.2(a),2,1-5},{-1+1.2(a),2,1-5},{-2+1.2(a),1,1-5},{-3+1.2(a),1,1-5},{-3+1.2(a),0,1-5}}]},
(*Toldo,cofre y capo*){Red,Polygon[{{3+1.2(a),0,-1-5},{3+1.2(a),0,1-5},{3+1.2(a),1,1-5},{3+1.2(a),1,-1-5}}]},{Red,Polygon[{{3+1.2(a),1,1-5},{2+1.2(a),1,1-5},{2+1.2(a),1,-1-5},{3+1.2(a),1,-1-5}}]},{Red,Polygon[{{2+1.2(a),1,1-5},{1+1.2(a),2,1-5},{1+1.2(a),2,-1-5},{2+1.2(a),1,-1-5}}]},{Red,Polygon[{{1+1.2(a),2,1-5},{-1+1.2(a),2,1-5},{-1+1.2(a),2,-1-5},{1+1.2(a),2,-1-5}}]},{Red,Polygon[{{-2+1.2(a),1,1-5},{-1+1.2(a),2,1-5},{-1+1.2(a),2,-1-5},{-2+1.2(a),1,-1-5}}]},{Red,Polygon[{{-3+1.2(a),1,1-5},{-2+1.2(a),1,1-5},{-2+1.2(a),1,-1-5},{-3+1.2(a),1,-1-5}}]},{Red,Polygon[{{-3+1.2(a),0,-1-5},{-3+1.2(a),0,1-5},{-3+1.2(a),1,1-5},{-3+1.2(a),1,-1-5}}]},
(*Ventanas*)
{Lighter[Blue],Polygon[{{-1.7+1.2(a),1.1,-1.01-5},{-0.2+1.2(a),1.1,-1.01-5},{-0.2+1.2(a),1.8,-1.01-5},{-1+1.2(a),1.8,-1.01-5}}]},{Lighter[Blue],Polygon[{{1.7+1.2(a),1.1,-1.01-5},{0+1.2(a),1.1,-1.01-5},{0+1.2(a),1.8,-1.01-5},{1+1.2(a),1.8,-1.01-5}}]},{Lighter[Blue],Polygon[{{-1.7+1.2(a),1.1,1.01-5},{-0.2+1.2(a),1.1,1.01-5},{-0.2+1.2(a),1.8,1.01-5},{-1+1.2(a),1.8,1.01-5}}]},{Lighter[Blue],Polygon[{{1.7+1.2(a),1.1,1.01-5},{0+1.2(a),1.1,1.01-5},{0+1.2(a),1.8,1.01-5},{1+1.2(a),1.8,1.01-5}}]},
(*Puertas*)
{Red,Polygon[{{1.7+1.2(a),1,-1.01-5},{0+1.2(a),1,-1.01-5},{0+1.2(a),0.2,-1.01-5},{1.4+1.2(a),0.2,-1.01-5}}]},{Red,Polygon[{{-1.7+1.2(a),1,-1.01-5},{-0.2+1.2(a),1,-1.01-5},{-0.2+1.2(a),0.2,-1.01-5},{-1.4+1.2(a),0.2,-1.01-5}}]},{Cylinder[{{1.5+1.2(a),0.85,-1-5},{1.5+1.2(a),0.85,-1.01-5}},0.05]},{Red,Polygon[{{1.7+1.2(a),1,1.01-5},{0+1.2(a),1,1.01-5},{0+1.2(a),0.2,1.01-5},{1.4+1.2(a),0.2,1.01-5}}]},{Red,Polygon[{{-1.7+1.2(a),1,1.01-5},{-0.2+1.2(a),1,1.01-5},{-0.2+1.2(a),0.2,1.01-5},{-1.4+1.2(a),0.2,1.01-5}}]},{Cylinder[{{1.5+1.2(a),0.85,1-5},{1.5+1.2(a),0.85,1.01-5}},0.05]},{Cylinder[{{-0.5+1.2(a),0.85,1-5},{-0.5+1.2(a),0.85,1.01-5}},0.05]},{Cylinder[{{1.5+1.2(a),0.85,-1-5},{1.5+1.2(a),0.85,-1.01-5}},0.05]},{Cylinder[{{-0.5+1.2(a),0.85,-1-5},{-0.5+1.2(a),0.85,-1.01-5}},0.05]},
(*Ruedas traceras*){Cylinder[{{-2+1.2(a),0,-0.75-5},{-2+1.2(a),0,-1.25-5}},.3]},{Black,Cylinder[{{-2+1.2(a),0,-0.75-5},{-2+1.2(a),0,-1.24-5}},.5]},{Cylinder[{{-2+1.2(a),0,0.75-5},{-2+1.2(a),0,1.25-5}},.3]},{Black,Cylinder[{{-2+1.2(a),0,0.75-5},{-2+1.2(a),0,1.24-5}},.5]},
(*Ruedas delanteras*){Cylinder[{{2+1.2(a),0,-0.75-5},{2+1.2(a),0,-1.25-5}},.3]},{Black,Cylinder[{{2+1.2(a),0,-0.75-5},{2+1.2(a),0,-1.24-5}},.5]},{Cylinder[{{2+1.2(a),0,0.75-5},{2+1.2(a),0,1.25-5}},.3]},{Black,Cylinder[{{2+1.2(a),0,0.75-5},{2+1.2(a),0,1.24-5}},.5]},
(*Ventas enfrente*){Lighter[Blue],Polygon[{{2.001+1.2(a),1.1,0.9-5},{1.1+1.2(a),1.9,0.9-5},{1.1+1.2(a),1.9,-0.9-5},{2.001+1.2(a),1.1,-0.9-5}}]},{Lighter[Blue],Polygon[{{-2.001+1.2(a),1.1,0.9-5},{-1.1+1.2(a),1.9,0.9-5},{-1.1+1.2(a),1.9,-0.9-5},{-2.001+1.2(a),1.1,-0.9-5}}]},
(*Faros*)
{Yellow,Cylinder[{{3.01+1.2(a),.7,-.7-5},{3+1.2(a),.7,-.7-5}},.2]},
{Yellow,Cylinder[{{3.01+1.2(a),.7,.7-5},{3+1.2(a),.7,.7-5}},.2]},
{Red,Cylinder[{{-3.01+1.2(a),.7,-.7-5},{-3+1.2(a),.7,-.7-5}},.2]},
{Red,Cylinder[{{-3.01+1.2(a),.7,.7-5},{-3+1.2(a),.7,.7-5}},.2]}},π/2,{1,0,0}],{0,0,1.9-1/32*If[-5<a<5,If[-2.5<a<2.5,-1.5,(Abs[a]-4)],1]}]},
PlotRange->{{-10,10},{-8,10},{0,5}},Background->Lighter[LightBlue, 0.1],ViewPoint->{0, 10, 10}],

{{a,-10,"Mover Auto"},-10,10}];
x6=OpenerView[{Style["Simulador de una prensa hidráulica",FontFamily->"TimesNewRoman",FontColor->White,20],x5}];
Framed[OpenerView[{Style["2. Principio de Pascal",FontFamily->"Times New Roman",FontColor->White,24],Column[{x1,x2,x3,x4,x6}]}],RoundingRadius->5,Background->RGBColor["#1C3D6C"],FrameMargins->Large]
]

Framed[OpenerView[{Style["6. Bibliografía",Darker[Gray],FontFamily->"Calibri",24],TextCell["
[1] Aguirre.Física III:actividades experimentales de electromagnetismo.México,Trillas,2008. 
[2] Alvarenga,B.y Máximo A.Física general con experimentos sencillos.4ª ed.México,Oxford,2014. 
[3] Bravo,M.S.Física y creatividad experimentales:paquete didáctico Siladín para física I y II. México,UNAM-CCH,2006. 
[4] Bueche,F.;E.Hetch.Física general.10ª ed.México,McGraw Hill,2007(Serie Schaum).
[5] Colavita,E.;Echeverría Arjonilla,E.Física.México,McMillan Castillo,2012. (Red Joven).
",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}],RoundingRadius->5,FrameMargins->Large]

UN=;
DG=;
FC=;
Framed[Grid[{{"                        ",Image[UN,"Real"],"                    ",Image[DG,"Real"],"                ",Image[FC,"Real"],"                               "}}],Background->RGBColor["#1C3D6C"],FrameMargins->30]