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 Cómputo y de Tecnologías de la 
Información y Comunicación
Trabajo realizado con el apoyo del Programa UNAM-DGAPA-PAPIME PE110517

Ley de Boyle

NewOpenerView["1. Objetivo",{TextCell["·Comprender que pasa cuando se aplica presión a un gas con temperatura constante.
·Comprender la relación entre la ley de Gay-Lussac, ley de Boyle y la ley de Charles.
·Comprender la ley combinada de los gases ideales.",FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1]},1]

Module[{op1,op2,op3,txt1,txt2,txt3,sim,a,b},
txt1=TextCell["Cuando lentamente apretamos un objeto cerrado que almacena un gas, el objeto conserva su temperatura constante, decimos entonces que se ha experimentado una tranformacion isotérmica, es una transformación en la cual la temperatura se mantiene constante, por ejemplo 
",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
txt2=TextCell["Si efectuamos mediciones de presión y volumen del gas del experimento pasado podemos encontrar una relación muy simple: el volumen del gas es inversamente proporcional a la presión que a éste se le ejerce.

El físico ingles, Robert Boyle llegó a las mismas conclusiones, por esta razón, el resultado al que llegamos se le conoce como Ley de Boyle:
Si la temperatura T de sierta masa gaseosa se mantiene constante, el volumen V de dicho gas será inversamente proporcional a la presión p ejercida sobre el, o sea:

					pV=constante (si T es constante)

",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
b=DynamicModule[{x},x[p_]:=10(1-((p-9)/16));Manipulate[Grid[{{Graphics[{Style[Text["Observa como mientras mas presión ",{5,-3}],FontFamily->"TimesNewRoman",14],

Style[Text["se ejerce menor es el volumen.",{5,-4}],FontFamily->"TimesNewRoman",14],
Gray,Rectangle[{-11,-8},{-12,-2}],Gray,Rectangle[{-10,-4.25},{-11,-3.75}],Gray,Rectangle[{5,-7},{-12,-8}],Table[Style[Arrow[{{-9+presion/4+.6 x[presion],-4+n},{-10+.6 x[presion],-4+n}}],Thickness[presion/1600]],{n,-1,1}],
Thick,Black,Table[{
Line[{{-10+.1n x[presion],-2},{-10+.1n x[presion],-6}}],Line[{{-10+.1n x[presion],-2},{-10+.1(n-.5) x[presion],-1.7},{-10+.1(n-1) x[presion],-2}}],Line[{{-10+.1n x[presion],-6},{-10+.1(n-.5) x[presion],-6.3},{-10+.1(n-1) x[presion],-6}}]},{n,1,6}],Line[{{-10,-2},{-10,-6}}]},ImageSize->Large]}}],{{presion,1,"Presión"},1,16,1}]];
a=DynamicModule[{pt=AngleVector[2.05],pt2={.5,0},pt3={0,.25},p,t,Can},p=Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]];Can=Dynamic[2*Part[pt2,1]];t=Dynamic[100*Part[pt3,2]];Grid[{{Deploy@EventHandler[Framed@AngularGauge[Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]],{0,1}],"MouseDown":>(pt=MousePosition["Graphics"]),"MouseDragged":>(pt=MousePosition["Graphics"])],
Framed[HorizontalGauge[1,{0,2},ScaleRanges->All,GaugeFaceStyle->LightGray]]},{Framed[VerticalGauge[20,{0,100},GaugeFrameStyle->Gray,GaugeMarkers->"GlassRectangle"]],Dynamic[Graphics3D[{{Style[Cylinder[{{0,0,-8},{0,0,5}},4],Blue,Opacity[.03]]},{Style[Cylinder[{{0,0,2-p},{0,0,4-p}},2],Gray,Opacity[.99]]},
{Style[Cylinder[{{0,0,1-p},{0,0,2-p}},4],Gray,Opacity[.99]]}},ImageSize->Medium,PlotRange->{{-5,5},{-5,5},{-9,11}},ViewPoint->{5,0,1}]]}}]];
txt3=TextCell["En el simulador tenemos modelada la ley de boyle en donde si cambiamos la ",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];

op2=OpenerView[{Style["2.1 Ley de Boyle.",Darker[Gray],FontFamily->"Calibri",24],Column[{"",txt2}]}];
op1=Framed[OpenerView[{Style["2. Introducción.",Darker[Gray],FontFamily->"Calibri",24],Column[{"",txt1,b,op2}]}],RoundingRadius->5,FrameMargins->Large]]

DynamicModule[{txt1,txt2,txt3,op1,op2,op3,gaylussac,boyle,charles,leycompleta},
gaylussac=DynamicModule[{pt=AngleVector[2.05],pt2={.5,0},pt3={0,.25},p,t,Can},p=Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]];Can=Dynamic[2*Part[pt2,1]];t=Dynamic[100*Part[pt3,2]];Grid[{{EventHandler[Framed@AngularGauge[Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]],{0,1},GaugeLabels->{"Value",Style["Presión",FontSize->16]}],"MouseDown":>(pt=MousePosition["Graphics"]),"MouseDragged":>(pt=MousePosition["Graphics"])],
HorizontalGauge[2*Part[pt2,1],{1,4},ScaleRanges->All,GaugeFaceStyle->LightGray,GaugeLabels->{"Value",Placed[Style["Cantidad de Gas",FontSize->16],Below]}]},{Deploy@EventHandler[Framed@VerticalGauge[Dynamic[100*Part[pt3,2]],{0,100},GaugeFrameStyle->Gray,GaugeMarkers->"GlassRectangle",GaugeLabels->{"Value",Placed[Style["Temperatura",FontSize->16],Above]}],"MouseDown":>(pt3=MousePosition["Graphics"]),"MouseDragged":>(pt3=MousePosition["Graphics"])],Dynamic[Graphics3D[{{Style[Cylinder[{{0,0,-8},{0,0,5}},4],Blue,Opacity[.03]]},{Style[Cylinder[{{0,0,2-p/1/2+t*1/80},{0,0,4-p/1/2+t*1/80}},2],Gray,Opacity[.99]]},
{Style[Cylinder[{{0,0,1-p/1/2+t*1/80},{0,0,2-p/1/2+t*1/80}},4],Gray,Opacity[.99]]}},ImageSize->Medium,PlotRange->{{-5,5},{-5,5},{-9,11}},ViewPoint->{5,0,1}]]}}]];
boyle=DynamicModule[{pt=AngleVector[2.05],pt2={.5,0},pt3={0,.25},p,t,Can},p=Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]];Can=Dynamic[2*Part[pt2,1]];t=Dynamic[100*Part[pt3,2]];Grid[{{Deploy@EventHandler[Framed@AngularGauge[Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]],{0,1},GaugeLabels->{"Value",Style["Presión",FontSize->16]}],"MouseDown":>(pt=MousePosition["Graphics"]),"MouseDragged":>(pt=MousePosition["Graphics"])],
HorizontalGauge[2*Part[pt2,1],{1,4},ScaleRanges->All,GaugeFaceStyle->LightGray,GaugeLabels->{"Value",Placed[Style["Cantidad de Gas",FontSize->16],Below]}]},{VerticalGauge[100*Part[pt3,2],{0,100},GaugeFrameStyle->Gray,GaugeMarkers->"GlassRectangle",GaugeLabels->{"Value",Placed[Style["Temperatura",FontSize->16],Above]}],Dynamic[Graphics3D[{{Style[Cylinder[{{0,0,-8},{0,0,5}},4],Blue,Opacity[.03]]},{Style[Cylinder[{{0,0,2-p/Can/2+t*Can/80},{0,0,4-p/Can/2+t*Can/80}},2],Gray,Opacity[.99]]},
{Style[Cylinder[{{0,0,1-p/Can/2+t*Can/80},{0,0,2-p/Can/2+t*Can/80}},4],Gray,Opacity[.99]]}},ImageSize->Medium,PlotRange->{{-5,5},{-5,5},{-9,11}},ViewPoint->{5,0,1}]]}}]];
charles=DynamicModule[{pt=AngleVector[2.05],pt2={.5,0},pt3={0,.25},p,t,Can},p=Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]];Can=Dynamic[2*Part[pt2,1]];t=Dynamic[100*Part[pt3,2]];Grid[{{AngularGauge[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]],{0,1},GaugeLabels->{"Value",Style["Presión",FontSize->16]}],
HorizontalGauge[2*Part[pt2,1],{1,4},ScaleRanges->All,GaugeFaceStyle->LightGray,GaugeLabels->{"Value",Placed[Style["Cantidad de Gas",FontSize->16],Below]}]},{Deploy@EventHandler[Framed@VerticalGauge[Dynamic[100*Part[pt3,2]],{0,100},GaugeFrameStyle->Gray,GaugeMarkers->"GlassRectangle",GaugeLabels->{"Value",Placed[Style["Temperatura",FontSize->16],Above]}],"MouseDown":>(pt3=MousePosition["Graphics"]),"MouseDragged":>(pt3=MousePosition["Graphics"])],Dynamic[Graphics3D[{{Style[Cylinder[{{0,0,-8},{0,0,5}},4],Blue,Opacity[.03]]},{Style[Cylinder[{{0,0,2-p/Can/2+t*Can/80},{0,0,4-p/Can/2+t*Can/80}},2],Gray,Opacity[.99]]},
{Style[Cylinder[{{0,0,1-p/Can/2+t*Can/80},{0,0,2-p/Can/2+t*Can/80}},4],Gray,Opacity[.99]]}},ImageSize->Medium,PlotRange->{{-5,5},{-5,5},{-9,11}},ViewPoint->{5,0,1}]]}}]];
leycompleta=Module[{a},a=DynamicModule[{pt=AngleVector[2.05],pt2={.5,0},pt3={0,.25},p,t,Can},p=Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]];Can=Dynamic[2*Part[pt2,1]];t=Dynamic[100*Part[pt3,2]];Grid[{{Deploy@EventHandler[Framed@AngularGauge[Dynamic[1/π*VectorAngle[{-0.4,+0.90},AngleVector[pt]]],{0,1},GaugeLabels->{"Value",Style["Presión",FontSize->16]}],"MouseDown":>(pt=MousePosition["Graphics"]),"MouseDragged":>(pt=MousePosition["Graphics"])],
Deploy@EventHandler[Framed@HorizontalGauge[Dynamic[2*Part[pt2,1]],{1,3},ScaleRanges->All,GaugeFaceStyle->LightGray,GaugeLabels->{"Value",Placed[Style["Cantidad de Gas",FontSize->16],Below]}],"MouseDown":>(pt2=MousePosition["Graphics"]),"MouseDragged":>(pt2=MousePosition["Graphics"])]},{Deploy@EventHandler[Framed@VerticalGauge[Dynamic[100*Part[pt3,2]],{0,100},GaugeFrameStyle->Gray,GaugeMarkers->"GlassRectangle",GaugeLabels->{"Value",Placed[Style["Temperatura",FontSize->16],Above]}],"MouseDown":>(pt3=MousePosition["Graphics"]),"MouseDragged":>(pt3=MousePosition["Graphics"])],Dynamic[Graphics3D[{{Style[Cylinder[{{0,0,-8},{0,0,5}},4],Blue,Opacity[.03]]},{Style[Cylinder[{{0,0,2-p/Can/2+t*Can/80},{0,0,4-p/Can/2+t*Can/80}},2],Gray,Opacity[.99]]},
{Style[Cylinder[{{0,0,1-p/Can/2+t*Can/80},{0,0,2-p/Can/2+t*Can/80}},4],Gray,Opacity[.99]]}},ImageSize->Medium,PlotRange->{{-5,5},{-5,5},{-9,11}},ViewPoint->{5,0,1}]]}}]]];


NewOpenerView["3.Ley de los gases ideales",{"","",Estilo[Text["En el siguente simulador tenemos las tres leyes que conforman la ley de los gases ideales"],1],"",Estilo[Text["En todas las leyes se tiene en valor constante los parámetros que estan contemplados como constantes por la ley, así por ejemplo en la ley de Boyle la temperatura es fija y la cantidad de gas es fija.  Notemos como la presión que metemos al  sistema se traduce en que el émbolo baja y si el sistema tiene presión interna el émbolo sube.

Para el caso de la ley de Gay Lussac la presión y la temperatura son las que se pueden mover.


"],1],Manipulate[Switch[control,1,boyle,2,charles,3,gaylussac,4,leycompleta],{{control,1,""},{1->"Ley de Boyle",2->"Ley de Charles",3->"Ley de Gay Lussac",4->"Ley de los gases Ideales"}}]},1]]

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