NewOpenerView[Titulo_,Contenido_,Tipo_]:=Module[{x=False},
PaneSelector[{True->
Framed[Grid[{{Framed[Opener[Dynamic[x]],Background->White,FrameStyle->White,RoundingRadius->25],Item[Style[Titulo,FontColor->If[Tipo==1, White,Black],FontFamily->"Times New Roman",24],Alignment->Left]},{"",Column[Contenido]}}],RoundingRadius->5,FrameMargins->Large,Background->If[Tipo==1,RGBColor["#1c3d6d"],White]],
False->
Framed[Grid[{{Framed[Opener[Dynamic[x]],Background->White,FrameStyle->White,RoundingRadius->25],Item[Style[Titulo,FontColor->If[Tipo==1, White,Black],FontFamily->"Times New Roman",24],Alignment->Left]}}],RoundingRadius->5,FrameMargins->Large,Background->If[Tipo==1,RGBColor["#1c3d6d"],White]]},Dynamic[x]]];
Estilo[x_,Tipo_]:=Style[x,FontColor->If[Tipo==1, White,Black],FontFamily->"Times New Roman",16]

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

Presión Atmosférica

Framed[
OpenerView[{
TextCell["1. Objetivos",FontColor->White,FontFamily->"Calibri",24],{Style[TextCell["
Definir el concepto de presión atmosférica 

Identificar las unidades para medir la presión atmosférica

Determinar cuál es el instrumento que se utiliza para medir la presión atmosférica",White,TextJustification->1,FontFamily->"Times New Roman",16]]}}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]

Module[{x1,x2,x3},x1=TextCell["
¿Quién la descubrió y cómo? 

“Hasta la época de Galileo (siglo XVIII) la existencia de la presión atmosférica era desconocida por muchos, e incluso, muchos estudiosos de la física la negaban” .

“El Físico Italiano Torricelli, contemporáneo y amigo de Galileo, realizó un famoso experimento que, además de demostrar que la presión atmosférica realmente existe, permitió la determinación de su valor”",FontColor->RGBColor["#1C3D6C"],FontFamily->"Times New Roman",TextJustification->1,16];
Framed[OpenerView[{TextCell["2. Introducción",FontFamily->"Calibri",25,FontColor->RGBColor["#1C3D6C"]],Column[{x1}]}],FrameMargins->Large,RoundingRadius->5]]

DynamicModule[{op1,op2,sim},sim=Framed[Manipulate[Graphics3D[{Style[Tube[{{0,0,5},{0,0,-2.99},{0,0,-5}},.5],Opacity[.3]],Style[Tube[{{0,0,-4},{0,0,-5}},.4],CapForm["Square"],Opacity[1],Gray],Style[Tube[{{0,0,-4},{0,0,4.9-If[tiempo≤3,tiempo,3]}},.4],CapForm[If[tiempo<=0.2,"Round","Square"]],Opacity[1],Gray],Style[Tube[{{0,0,-7},{0,0,-4}},3],CapForm[None],Opacity[.5]],
Style[Cylinder[{{0,0,-7},{0,0,-5+If[tiempo≤3,tiempo/9,1/3]}},2.8],Gray,Opacity[1]]},
ViewPoint->Front,ImageSize->Medium,PlotRange->{{-3,3},{-3,3},{-7,7}}],{tiempo,0,4,Trigger}],Background->RGBColor["#d8d8d8"]];

Framed[OpenerView[{Style["3. El experimento de Torricelli",FontColor-> White,FontFamily->"Times New Roman",24],Column[{Estilo[
"“Para efectuar su experimento,Torricelli tomó un tubo de vidrio,de casi 1 m de longitud,cerrado por uno de sus extremos,y lo llenó de mercurio.Tapando el extremo abierto con un dedo e invirtiendo el tubo,sumergió este extremo en un recipiente que también contenía mercurio.Al destapar el tubo,estando éste en posición vertical,Torricelli comprobó que la columna líquida bajaba hasta tener una altura de casi 76 cm,por arriba del nivel del mercurio del recipiente.Concluyó entonces que la presión atmosférica Pa,al actuar sobre la superficie del líquido del recipiente,lograba equilibrar el peso de la columna de mercurio.Observo que arriba del mercurio,en el tubo,existe un vacío,pues si se hiciera un orificio en esta parte,a fin de permitir la entrada del aire,la columna descendería hasta nivelarse con el mercurio del recipiente.

Como la altura de la columna líquida en el tubo era de 76 cm,Torricelli llegó a la conclusión de que el valor de la presión atmosférica,Pa,equivale a la presión ejercida por una columna de mercurio de 76 cm de altura,es decir,
		Pa=76 cmHg 
Por este motivo,una presión de 76 cmHg recibe el nombre de atmósfera y se emplea como unidad de presión.“
",1],sim}]}

],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]
]

x[p_]:=10(1-((p-980)/120));θ[p_]:=(π/14)(1-((p-1040)/5))
alt[h_]:=Which[0≤h,"Nivel del mar.",251≤h≤770,"Altitud sobre el mar 500 m.",751≤h≤1250,"Altitud sobre el mar 1000 m.",1251≤h≤1750,"Altitud sobre el mar 1500 m.",1751≤h≤2000,"Altitud sobre el mar 2000 m."];
f[h_]:=Exp[-Round[h,500]/7000];
dial[p_,h_]:=Graphics[{RGBColor["#1c3d6c"],Disk[{0,0},9.8,{.03π,.97π}],White,Disk[{0,0},8.2,{0,π}],
Table[Rotate[Text[Style[StringTake[" DE TORMENTA CAMBIA A SECO ",{n}],14,Bold,FontFamily->"Courier"],{9Cos[π-n π/30],9Sin[π-n π/30]}],(15-n )π/30,{9Cos[π-n π/30],9Sin[π-n π/30]}],{n,1,26}],
Table[Rotate[Text[Style[IntegerPart[(975+10n)f[h]],10,Black],{7.5Cos[π-n π/7],7.5Sin[π-n π/7]}],(3.5-n )π/6.5,{7.5Cos[π-n π/7],7.5Sin[π-n π/7]}],{n,.5,6.5}],Orange,Table[Line[{{6Cos[n π/14],6Sin[n π/14]},{7Cos[n π/14],7Sin[n π/14]}}],{n,1,13}],
Thick,Line[{{8.5Cos[θ[p]],8.5Sin[θ[p]]},{-3Cos[θ[p]],-3Sin[θ[p]]}}],PointSize[Large],Point[{0,0}],Point[{-3Cos[θ[p]],-3Sin[θ[p]]}],Polygon[{{-.5-3Cos[θ[p]],-3Sin[θ[p]]},{.5-3Cos[θ[p]],-3Sin[θ[p]]},{.5-3Cos[θ[p]],-7.8},{-.5-3Cos[θ[p]],-7.8}}],Thick,Line[{{-3Cos[θ[p]],-4},{-10+.6x[p],-4}}],Text[Style["MILLIBARS",12],{0,5}],Text[Style[alt[h],12],{0,4}]
},PlotRange->{{-12,10},{-10,10}}];
cell[p_]:=Graphics[{Gray,Rectangle[{-11,-8},{-12,-2}],Gray,Rectangle[{-10,-4.25},{-11,-3.75}],Gray,Rectangle[{5,-7},{-12,-8}],
Thick,Black,Table[{Line[{{-10+.1n x[p],-2},{-10+.1n x[p],-6}}],Line[{{-10+.1n x[p],-2},{-10+.1(n-.5) x[p],-1.7},{-10+.1(n-1) x[p],-2}}],Line[{{-10+.1n x[p],-6},{-10+.1(n-.5) x[p],-6.3},{-10+.1(n-1) x[p],-6}}]},{n,1,6}],Line[{{-10,-2},{-10,-6}}]}];
sim2=Style[Manipulate[
Show[dial[p,h],cell[p],ImageSize->{575,350}],{{h,0,Style["Elevación sobre el mar (m)",White,FontFamily->"TimesNewRoman",14]},0,2000,1,Appearance->"Labeled",LabelStyle->Directive[ White,Medium]},{{p,1013.2,Style["Presión a nivel del mar (mb)",White,FontFamily->"TimesNewRoman",14]},980,1040,.1,Appearance->"Labeled",LabelStyle->Directive[ White,Medium]},TrackedSymbols:>{h,p},SaveDefinitions->True],DefaultOptions->{Panel->{Background->RGBColor["#1c3d6c"]}}];
DynamicModule[{sim1,text1,text2},
sim1=Manipulate[
Show[
Graphics[{
Style[Text["A mayor altura 
menor presión 
Presión "<>ToString[100-Sin[y^2]-y]<>"
Altura "<>ToString[Sin[y^2]+y],{1,5.5}],FontSize->14],
PointSize[0.035],
Point[{y,Sin[y^2]+y}],
InfiniteLine[{y,0},{0,1}],
InfiniteLine[{y,Sin[y^2]+y},{1,0}]}],
Plot[{Sin[x^2]+x},{x,0,2π}],
PlotRange->{{0,3/2π},{0,6}},Axes->True],
{y,0,4.4}];
text2=TextCell["La presión atmosferica varía de un punto a otro del planeta y según las condiciones meteorológicas. Se ha convenido tomar como condición estandar a la presión de 101.3 kilo Pascales a 20 °C.",FontFamily->"Times New Roman",TextJustification->1,16];
text1=Estilo["Observa que si estas muy alto, la presión provoca que no puedas respirar, es  importante este hecho para los montañistas que deben llevar un tanque de oxígeno ",2];
Framed[OpenerView[{TextCell["4.Presión Atmosférica",FontFamily->"Calibri",25,FontColor->RGBColor["#1C3D6C"]],Column[{text1,sim1,text2,sim2}]}],FrameMargins->Large,RoundingRadius->5]
]

Framed[
OpenerView[{
TextCell["4. Bibliografía.",FontColor->White,FontFamily->"Calibri",24],Estilo[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)
[6] Tippens, Paul, Física. Conceptos y aplicaciones. México, McGraw-Hill, 1987."],1]}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]

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