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

CAÍDA

LIBRE

Framed[OpenerView[{Style["1. Objetivo",FontColor->White,FontFamily->"Calibri",24],Style["A lo largo de esta lección se revisará el concepto de caída libre para que el alumno logre familiarizarce con dicho movimiento y sus caracteristicas.", FontColor->White,FontFamily->"Calibri",16]}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1C3D6C"]]

Op2=OpenerView[{Style["2.1 Definición de caída libre",Darker[Gray],FontFamily->"Calibri",20],Style["Caída libre se designa a aquel movimiento que un cuerpo experimenta cuando está únicamente sometido a la acción de gravedad.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri"16]}];
tx1=Style["En la caída libre un objeto cae verticalmente desde cierta altura H despreciando cualquier tipo de rozamiento con el aire o cualquier otro obstáculo. Se trata de un movimiento rectilíneo uniformemente acelerado (m.r.u.a.)  en el que la aceleración coincide con el valor de la aceleración de la gravedad. En la superficie de la Tierra, la aceleración de la gravedad se puede considerar constante, dirigida hacia abajo, se designa por la letra g y su valor es de 9.8 m/(s^2).",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
tx2=Style["Para estudiar el movimiento de caída libre normalmente utilizaremos un sistema de referencia cuyo origen de coordenadas se encuentra en el pie de la vertical del punto desde el que soltamos el cuerpo y consideraremos el sentido positivo del eje y apuntando hacia arriba.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
Op1=OpenerView[{Style["2.2 Caracterizticas de la caída libre",Darker[Gray],FontFamily->"Calibri",20],Grid[{{tx1,""},{tx2,""}},Alignment->{{Left,Left},{Left,Left}}]}];
Framed[OpenerView[{Style["2. Caída libre",Darker[Gray],FontFamily->"Calibri",24 ],Grid[{{Op2,""},{Op1,""}},Alignment->{{Left,Left},{Left,Left}}]}],RoundingRadius->5,FrameMargins->Large]

tx3=Style["En el siguiente simulador se puede calcular y obtener las diferentes aceleraciones obtenidas por las distintas fuerzas de gravedad en el sistema solar.",FontColor->White,FontFamily->"Calibri",16];
Sm=Panel[Style[Manipulate[
With[{ticks=Table[125-10((h^2)/2),{h,0,5}]},Graphics[{Inset[ImageRules[[3,2]],{-26,62.5},Automatic,{35,35}],RGBColor[.6,.73,.36],Line[{{0,0},{0,125}}],Inset[planet/.ImageRules,{25,62.5},Automatic,{35,35}],Line[{{50,0},{50,125}}],RGBColor[.48,.11,.56],Disk[{0,125-5(t^2)},2],Disk[{50,125-(planet/.GravityRules)((t^2)/2)},2],Black,Inset[Style["Valor de la aceleración \ngravitacional en m/(s^2):",Italic,12],{-55,105}],Inset[Style[9.8,12],{-26,105}],Inset[Style[(planet/.GravityRules),12],{25,105}],Inset[Style["Distancia recorrida en m:",Italic,12],{-55,22.5}],Inset[Style[5(t^2),12],{-26,22.5}],Inset[Style[(planet/.GravityRules)((t^2)/2),12],{25,22.5}],RGBColor[.25,.43,.82],Table[Inset[125-ticks[[i]],{65,ticks[[i]]}],{i,6,1,-1}],Table[Line[{{-2+x,ticks[[i]]},{2+x,ticks[[i]]}}],{i,6},{x,{0,50}}]},PlotRange->{{-75,68},{-5,130}},ImageSize->{Automatic,450}]],
{{t,0,Style["Tiempo",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]},0,5,ControlType->Trigger},{{planet,"Luna",Style["Planeta/Luna",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]},{"Mercurio","Venus","Luna","Marte","Jupiter","Saturno","Urano","Neptuno","Pluton"}},
SynchronousInitialization->False,
Initialization:>(
ImageRules=Insert[{"Mercurio"->AstronomicalData[1,"Image"],
"Venus"->AstronomicalData[2,"Image"],
"Tierra"->AstronomicalData[3,"Image"],"Marte"->AstronomicalData[4,"Image"],
"Jupiter"->AstronomicalData[5,"Image"],"Saturno"->AstronomicalData[6,"Image"],"Urano"->AstronomicalData[7,"Image"],"Neptuno"->AstronomicalData[8,"Image"],"Pluton"->AstronomicalData[9,"Image"]},
"Luna"->AstronomicalData["Moon","Image"],4];GravityRules = {"Mercurio" -> 3.7`3.000000000000006,
"Venus" -> 8.87`2.9999999999999973,
 "Tierra" -> 9.8`2.9999999999999973,
"Luna" -> 1.6240322136535376016`4.39685562737982,
"Marte" -> 3.71`3.000000000000006,
"Jupiter" -> 23.12`3.9999999999999996, 
    "Saturno" -> 8.96`2.9999999999999973,
 "Urano" -> 8.69`3.000000000000006, 
    "Neptuno" -> 11.`2.000000000000004,
 "Pluton" -> 0.81`2.000000000000004}; 
)],DefaultOptions->{Panel->{Background->RGBColor["#D8D8D8"]}}],FrameMargins->None];
Framed[OpenerView[{Style["3. Simulador de caída libre en el sistema solar",FontColor->White,FontFamily->"Calibri",24],Grid[{{tx3,""},{Sm,""}},Alignment->{{Left,Left},{Left,Left}}]}],FrameMargins->Large,RoundingRadius->5,Background->RGBColor["#1C3D6C"]]

Framed[OpenerView[{Style["4. 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"]]