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

Ley  

Gay-Lussac

Framed[OpenerView[{Style["1. Objetivo",White,FontFamily->"Calibri",30],Style["-Comprender e identificar la Ley de Gay Lussac.
-Analizar la Ley de Gay Lussac relacionando la temperatura, la presión y el volumen de un gas.",White,FontFamily->"Calibri",16]}],RoundingRadius->5,
Background->RGBColor["#1C3D6C"],FrameMargins->Large]

tx1=Style["Para una cierta cantidad de gas, al aumentar la temperatura, las moléculas del gas se mueven más rápidamente y por lo tanto aumenta el número de choques contra las paredes por unidad de tiempo, es decir, aumenta la presión ya que el recipiente es de paredes fijas y su volumen no puede cambiar. Gay-Lussac descubió que, en cualquier momento del proceso, el cociente entre la presion y la temperatura absoluta tenía un valor constante.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
Op1=OpenerView[{Style["2.1 Ley Gay-Lussac",Darker[Gray],FontFamily->"Calibri",24],Style["La ley de Gay-Lussac​ establece que la presión de un volumen fijo de un gas, es directamente proporcional a su temperatura.

Si el volumen de una cierta cantidad de gas a presión moderada se mantiene constante, el cociente entre presión y temperatura (kelvin) permanece constante:
(P/T)=(Subscript[k, 3])
donde:

P es la presión
T es la temperatura absoluta (es decir, medida en kelvin)
(Subscript[k, 3]) una constante de proporcionalidad
",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}];
tx2=Style["Supongamos que tenemos un gas que se encuentra a presión (Subscript[P, 1]) y a una temperatura (Subscript[T, 1]) al comienzo del experimento. Si variamos la temperatura hasta un nuevo valor (Subscript[T, 2]), entonces la presión  cambiará a (Subscript[P, 2]), y se cumplira:",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
tx3=Style["((Subscript[P, 1])/(Subscript[T, 1]))=((Subscript[P, 2])/(Subscript[T, 2])).",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
Op2=OpenerView[{Style["2.2 Validez de la ley",FontColor->Darker[Gray],FontFamily->"Calibri",24],Style["Estrictamente la ley de Gay-Lussac es válida para gases ideales y en los gases reales se cumple con un alto grado de exactitud sólo en condiciones de presión y temperaturas moderadas y bajas densidades del gas. A altas presiones la ley necesita corregirse con términos específicos según la naturaleza del gas. Por ejemplo para un gas que satisface la ecuación de Van der Waals la ley de Gay-Lussac debería escribirse como:
((P - (Subscript[P, 0]))/T)=constante
El término (Subscript[P, 0]) es una constante que dependerá de la cantidad de gas en el recipiente y de su densidad, y para densidades relativamente bajas será pequeño frente a P, pero no para presiones grandes.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}];
im=Framed[Import["https://upload.wikimedia.org/wikipedia/commons/d/db/2%C2%B0legge_Gay_Lussac.jpg","jpg"],RoundingRadius->10,Background->RGBColor["#1C3D6C"]];
tx4=Style["La pendiente de la es constante."FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
Op3=OpenerView[{Style["2.3. Representación gráfica",FontColor->Darker[Gray],FontFamily->"Calibri",24],Grid[{{tx4,""},{im,""}},Alignment->{{Left,Left},{Left,Left}}]}];
Op4=OpenerView[{Style["2.4. Simulador de la ley Gay-Lussac",FontColor->Darker[Gray],FontFamily->"Calibri",24],Panel[Style[Manipulate[Module[{p1,t1,flame1,flame2,flame3,fire},p1=3;
t1=2;
p2[p1_,t1_,t2_]=(p1*t2)/t1;
flame1={{Red,Disk[{0,-7},1]},{Red,Polygon[{{-.88,-6.5},{0,-5.3},{.88,-6.5}}]}};
flame2={{Orange,Disk[{0,-7},1]},{Orange,Polygon[{{-.88,-6.5},{0,-5.3},{.88,-6.5}}]}};
flame3={{Yellow,Disk[{0,-7},1]},{Yellow,Polygon[{{-.88,-6.5},{0,-5.3},{.88,-6.5}}]}};
fire={{flame1},{Translate[Scale[flame2,.6],{0,-.2}]},{Translate[Scale[flame3,.3],{0,-.4}]}};
Grid[{{ThermometerGauge[t2,{0,100},GaugeLabels->Style["Temperatura",Black,FontFamily->"Calibri",10],ImageSize->{58,270}],"     ",AngularGauge[p2[p1,t1,t2],{0,150},GaugeMarkers->Placed[ChartElementData["Sector"],"DivisionInterval"],GaugeStyle->Darker[Blue],GaugeFaceStyle->LightBlue,GaugeLabels->"presión"],Row[{Graphics[{{Gray,Rectangle[{-5,-5},{10,5}]},{White,Rectangle[{-4,-4},{9,4}]},{If[t2>30,fire]},{If[t2>2,Translate[fire,{2.5,0}]]},{If[t2>30,Translate[fire,{5,0}]]},{If[t2>60,Translate[fire,{7.5,0}]]},{If[t2>90,Translate[fire,{10,0}]]},{If[t2>60,Translate[fire,{-2.5,0}]]},{If[t2>90,Translate[fire,{-5,0}]]},{Blend[{Black,Red},t2/100],Disk[{-3.5+12 Sin[Dynamic[Clock[{0,Pi},60/t2]]],0},.5]},{Blend[{Black,Red},t2/100],Disk[{2.5,-3.5+7 Sin[Dynamic[Clock[{0,Pi},50/t2]]]},.5]},{Blend[{Black,Red},t2/100],Disk[{-3.5+12 Sin[Dynamic[Clock[{0,Pi},70/t2]]],-3.5+7 Sin[Dynamic[Clock[{0,Pi},70/t2]]]},.5]},{Blend[{Black,Red},t2/100],Disk[{8.5-12 Sin[Dynamic[Clock[{0,Pi},65/t2]]],-3.5+7 Sin[Dynamic[Clock[{0,Pi},65/t2]]]},.5]}},PlotRange->{{-6.5,11.5},{-9,5.5}},ImageSize->{270,270}]}]}}]],{{t2,50,Style["Temperatura (°C)",White,FontFamily->"Calibri",16]},2,100,1,Appearance->"Labeled",LabelStyle->White},ContentSize->{590,350},ControlPlacement->Top],DefaultOptions->{Panel->{Background->RGBColor["#1C3D6C"]}}],FrameMargins->None]}];
Framed[OpenerView[{Style["2. Introducción",FontColor->Darker[Gray],FontFamily->"Calibri",30],Grid[{{tx1,""},{Op1,""},{tx2,""},{tx3,""},{Op2,""},{Op3,""},{Op4,""}},Alignment->{{Left,Left},{Left,Left},{Left,Left},{Left,Left},{Left,Left},{Left,Left},{Left,Left}}]}],FrameMargins->Large,RoundingRadius->5]

Framed[OpenerView[{Style["4. Bibliografía",White,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->White,FontFamily->"Calibri",16]}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1C3D6C"]]

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