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

LEYES

DE NEWTON

Framed[OpenerView[{Style["1. Objetivos",White,FontFamily->"Calibri", 24],
TextCell["·Conocer las tres leyes de Newton.
·Comprender la diferencia entre masa y peso.
·Comprender el concepto de fuerza normal.",FontColor->White,FontFamily->"Calibri",18]}],RoundingRadius->5,Background->RGBColor["#1C3D6C"],FrameMargins->Large]

O1=OpenerView[{Style["2.1. Problema",Darker[Gray],FontFamily->"Calibri",18],Style["¿Cómo se relaciona el movimiento de un cuerpo con las fuerzas que actúan sobre él?",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}];
TC1=TextCell["     Las tres leyes de Newton son el fundamento de la mecánica clásica. A partir de ellas pueden describirse los movimientos de traslación y rotación de los cuerpos sólidos, las órbitas de los planetas y el comportamiento de las maeras.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16,TextJustification->1
];
Framed[OpenerView[{Style["2. Introducción",Darker[Gray],FontFamily->"Calibri",24],Grid[{{TC1," "},{O1," "}},Alignment->{{Left,Left},{Left,Left}}]}],RoundingRadius->5,FrameMargins->Large]

EJ311=OpenerView[{Style["3.1.1. Simulador del ejemplo 3.1.
",White,FontFamily->"Calibri",Bold,18],
Panel[Style[Manipulate[
Graphics[{(**Plano Coordenado**){{Blue,Opacity[0.35],Line/@Table[{{0,j},{10,j}},{j,0,10}],Rotate[Line/@Table[{{0,j},{10,j}},{j,-10,0}],π/2,{0,0}]},{Opacity[0.4],Arrowheads[0.025],Arrow[{{0,0},{10,0}}],Rotate[Arrow[{{0,0},{10,0}}],π/2,{0,0}]},{EdgeForm[Black],White,Disk[{0,0},0.1]}},

(**Nombres y vectores**)
{If[n>0,{{Text[Style["A",Black,16], {1,0.5}]},{Blue,Arrow[{{0,0},{2,0}}]}},Nothing]},
{If[n>1,{{Text[Style["B",Black,16],{2.6,2.2}]},{Red,Arrow[{{2,0},{4,4}}]}},Nothing]},
{If[n>2,{{Text[Style["C",Black,16],{5,4.5}]},{Blue,Arrow[{{4,4},{6,4}}]}},Nothing]},
{If[n>3,{{Text[Style["D",Black,16],{7.2,3.3}]},{Red,Arrow[{{6,4},{8,2}}]}},Nothing]},
{If[n>4,{{Text[Style["E",Black,16],{9,2.5}]},{Blue,Arrow[{{8,2},{10,2}}]}},Nothing]},

(**Parámetros del plano**)
{Text[Style["Distancia",Black,FontFamily->"Times New Roman",Italic,16],{-1,5.5}]},{{Text[Style["(d)",Black,FontFamily->"Times New Roman",Italic,16],{-1,5}]}},{Text[Style["Metros",Black,FontFamily->"Times New Roman",Italic,16],{-1,4.5}]},
{Text[Style["Tiempo",Black,FontFamily->"Times New Roman",Italic,16],{5,-.5}]},{Text[Style["(t)",Black,FontFamily->"Times New Roman",Italic,16],{5,-1}]},{Text[Style["Segundos",Black,FontFamily->"Times New Roman",Italic,16],{5,-1.5}]},

(**Escalas**)
{Text[Style["1",Black,10], {0.1,1.1}]},{Text[Style["2",Black,10], {0.1,2.1}]},
{Text[Style["3",Black,10], {0.1,3.1}]},{Text[Style["4",Black,10], {0.1,4.1}]},
{Text[Style["5",Black,10], {0.1,5.1}]},{Text[Style["6",Black,10], {0.1,6.1}]},
{Text[Style["7",Black,10], {0.1,7.1}]},{Text[Style["8",Black,10], {0.1,8.1}]},
{Text[Style["9",Black,10], {0.1,9.1}]},{Text[Style["10",Black,10], {0.1,10.1}]},
{Text[Style["10",Black,10], {9.9,0.15}]},{Text[Style["9",Black,10], {8.9,0.15}]},
{Text[Style["8",Black,10], {7.9,0.15}]},{Text[Style["7",Black,10], {6.9,0.15}]},
{Text[Style["6",Black,10], {5.9,0.15}]},{Text[Style["5",Black,10], {4.9,0.15}]},
{Text[Style["4",Black,10], {3.9,0.15}]},{Text[Style["3",Black,10], {2.9,0.15}]},
{Text[Style["2",Black,10], {1.9,0.15}]},{Text[Style["1",Black,10], {0.9,0.15}]}},
PlotRange->Automatic,ImageSize->500
],{{n,1,Style["Momentos ",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]},{1->1,2->2,3->3,4->4,5->5}}],DefaultOptions->{Panel->{Background->RGBColor["#D8D8D8"]}}],FrameMargins->None]}];
EJ321=OpenerView[{Style["3.2.1. Simulador de la Primera ley
",White,FontFamily->"Calibri",Bold,18],Panel[Style[Manipulate[
 Graphics[{
(**Textro dentro del Manipulate**)
{Text[Style["Equilibra las fuerzas que actúan en la caja .",Black,FontFamily->"Times New Roman",18], {-5,  40}]},
 {Text[Style["Fuerza 1",Black,FontFamily->"Times New Roman",18], {-25, 30}]},
{Text[Style[ a,Black,FontFamily->"Times New Roman",18], {-6, 30}]}, 
{Text[   Style[ b,Black,FontFamily->"Times New Roman",18] , {6, 35}]},
{Text[ Style[     "Fuerza 2",Black,FontFamily->"Times New Roman",18] , {-25, 35}]},
{Text[Style["Aceleración por la",Black,FontFamily->"Times New Roman",18],{-25,26}]},
{Text[Style["fuerza resultante",Black,FontFamily->"Times New Roman",18],{-25,24}]},
{Text[Style["Fuerza resultante",Black,FontFamily->"Times New Roman",18],{-25,19}]},

(**Caja**)
{Darker[Brown],Rectangle[{-2+a-b,-2},{2+a-b,2}]},
{Darker[Brown],Polygon[{{2+a-b,2},{4+a-b,4},{0+a-b,4},{-2+a-b,2}}]},

{Darker[Brown],Polygon[{{4+a-b,0},{4+a-b,4},{2+a-b,2},{2+a-b,-2}}]},
(**Lineas limite de la caja**)
(**Cara frontal**)
Line[{{-2+a-b,-2},{2+a-b,-2}}],Line[{{2+a-b,2},{-2+a-b,2}}],
Line[{{-2+a-b,2},{-2+a-b,-2}}],
(**Cara lateral**)
Line[{{2+a-b,-2},{4+a-b,0}}],Line[{{4+a-b,0},{4+a-b,4}}],
Line[{{2+a-b,2},{4+a-b,4}}],Line[{{2+a-b,2},{2+a-b,-2}}],
(**Cara Superior**)
Line[{{-2+a-b,2},{0+a-b,4}}],Line[{{0+a-b,4},{4+a-b,4}}],
(**Marco de referencia**)

(***Flechas de Fuerza*)
{Arrow[{{0, 30}, {a, 30}}]},
{Arrow[{{0, 35}, {-b, 35}}]},
{Arrow[{{0,20},{a-b,20}}]},
(**Marcador de Aceleración**)
m=1;
fr=a-b;
v=fr;
{Text[Style[v "(m/(s^2))",Black,FontFamily->"Times New Roman",18],{0,25}]},
(**Fuerza resultante**)
{Text[Style[fr "N"Black,FontFamily->"Times New Roman",18],{0,18}]}
}, PlotRange -> {{-35,25},{-10,45}}, ImageSize -> 500 
  (*Background -> LightBlue*)
],
 Style["Primera ley de newton",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",20],Grid[{{Button["Inicio",],Button["Pausa",]}}], {{a, 0,Style["Fuerza 1",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}, 0, 10}, {{b, 0,Style["Fuerza 2",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16] }, 0, 10}
],DefaultOptions->{Panel->{Background->RGBColor["#D8D8D8"]}}],FrameMargins->None]
}];
EJ32=OpenerView[{Style["3.2. Similador de la primera ley de Newton",White,FontFamily->"Calibri",Bold,18],TextCell["En el siguiente simulador se observa una caja que inicialmente está en reposo y al aplicarle una fuerza comienza a desplazarse en la misma dirección en la que la fuerza es aplicada. También se observa que al aplicar dos fuerzas con sentidos opuestos al igualar sus magnitudes éstas se anulan.",FontColor->White,FontFamily->"Calibri",16]}];
EJ31=OpenerView[{Style["3.1. Ejemplo",White,FontFamily->"Calibri",Bold,18],TextCell["     Suponga que tenemos un objeto en movimiento rectilíneo unifotme, es decir, el objeto mantiene una velocidad constante. Observe que en el simulador 3.1.1 tenemos los momentos A, B, C, D y E. En los momentos A, C y E tenemos que el objeto se mantiene en movimiento rectilíneo uniforme, pero en los momentos B y D el objeto se encuentra en un movimiento uniformenete acelerado por lo que se infiere que sobre el objeto está actuando una fuerza de frenado o de aceleración segun corresponda.",FontColor->White,FontFamily->"Calibri",16,TextJustification->1]}];
LN1=TextCell["    Es también conocida como el principio de inercia, la cual establece que si no se aplica ninguna fuerza a un cuerpo o la suma de todas las fuerzas aplicadas a un cuerpo es nulla, el cuerpo permanecerá en reposo o en movimiento rectilíneo uniforme si el cuerpo ya se encontraba en movimiento. (Todo cuerpo mantiene su estado de reposo o movimiento a menos que la acción de una fuerza modifique su estado inicial. (Newton)).
     Los cuerpos en gneral, tienden a oponerse al cambio de estado de movimiento. Esta oposición recibe el nombre de inercia.
",FontColor->White,FontFamily->"Calibri",16,TextJustification->1];
Framed[
OpenerView[
{Style["3. Primera Ley ",White,FontFamily->"Calibri", 24],
Grid[{{LN1,""},{EJ31,""},{EJ311,""},{EJ32,""},{EJ321,""}},Alignment->{{Left,Left},{Left,Left},{},{}}]
}],RoundingRadius->5,Background->RGBColor["#1C3D6C"],FrameMargins->Large]

LN2=Style["La segunda ley de Newton o también llamada principio fundamental. Las fuerzas son capaces de producir cambios en el movimiento de los cuerpos. Por otro lado, sabemos que la aceleración es una magnitud que refleja precisamente estos cambios. Por lo tanto, las fuerzas son causas de la aceleración. 
Tras realizar una serie de experimentos, se observó que:
Si se aplica la misma fuerza a cuerpos con distinta masa, se consiguen aceleraciones diferentes.
La fuerza es directamente proporcional a la aceleración que experimenta un cuerpo, y la constante de proporcionalidad del cuerpo utilizado corresponde con su masa. 
Si la fuerza resultante que se aplica a un cuerpo no es nula, este experimentará un cambio en su estado de reposo o de movimiento, o lo que es lo mismo, experimentará una aceleración. La ecuación que relaciona este fenómeno recibe el nombre de ecuación fundamental de la dinámica o segundo principio de Newton y se expresa de la siguiente forma:
(Subscript[F, R])=(∑_(i = 1)^n)(Subscript[F, i])=(∑_(i = 1)^n)(Subscript[m, i])((Subscript[a, i]))
De aquí podemos deducir que si no se aplica ninguna fuerza a un cuerpo o la resultante de las fuerzas aplicadas es 0, no existe aceleración, o lo que es lo mismo, si un cuerpo no tiene aceleración, sobre el cuerpo no actúa ninguna fuerza o la resultante es 0.
",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
EJ41=OpenerView[{Style["4.1. Ejemplo",Darker[Gray],FontFamily->"Calibri",Bold,18],TextCell["
En este primer ejemplo se muestra la relación que existe entre la masa y la fueza aplicada a un objeto. Entre más masa posea un objeto la fuerza aplicada desarrollará una acelerción menor en el objeto.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}];
SM411=OpenerView[{Style["4.1.1. Simulador de la segunda ley de Newton
",Darker[Gray],FontFamily->"Calibri",Bold,18],Panel[Style[Manipulate[Graphics[{{Text[Style[Grid[{{"Haz crecer la masa de la caja o la fuerza que"},{"se le aplica y observa como cambia la aceleración."}}],Black,FontFamily->"Times New Roman",18] ,{0,40}]},{Text[Style["Aceleracion",Black,FontFamily->"Times New Roman",18],{-15,20}]},{Text[Style["Fuerza",Black,FontFamily->"Times New Roman",18],{-15,25}]},{Brown,Rectangle[{0*a,0*a},{2*a,2*a}]},{Brown,Polygon[{{2*a,0*a},{3*a,1*a},{3*a,3*a},{2*a,2*a}}]},{Brown,Polygon[{{2*a,2*a},{3*a,3*a},{1*a,3*a},{0*a,2*a}}]},
{Line[{{2*a,2*a},{0*a,2*a}}]},{Line[{{2*a,0*a},{2*a,2*a}}]},{Line[{{2*a,2*a},{3*a,3*a}}]},{Line[{{0*a,0*a},{2*a,0*a}}]},{Line[{{0*a,2*a},{1*a,3*a}}]},
{Line[{{0*a,2*a},{0*a,0*a}}]},
{Line[{{3*a,3*a},{3*a,1*a}}]},{Line[{{2*a,0*a},{3*a,1*a}}]},{Line[{{1*a,3*a},{3*a,3*a}}]},{Arrow[{{0,20},{5*b/(a),20}}]},{Arrow[{{0,25},{5*b,25}}]}},PlotRange->50,ImageSize->500],Style["Segunda ley de newton",White,FontFamily->"Calibri",20],{{a,1,Style["Masa",White,FontFamily->"Calibri",16]},1,3},{{b,1,Style["Fuerza Aplicada",White,FontFamily->"Calibri",16]},1,10}],DefaultOptions->{Panel->{Background->RGBColor["#1C3D6C"]}}],FrameMargins->None]}];
EJ42=OpenerView[{Style["4.2. Ejemplo",Darker[Gray],FontFamily->"Calibri",Bold,18],TextCell["En el siguiente simulador se muestran los diferentes pesos obtenidos por cambial la maza en los diferentes planetas del sistema solar. Ya que la fuerza que ejercen los diferentes planetas sobre un ojeto con masa es distinta en cada uno de ellos.",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",18]}];
SM421=OpenerView[{Style["4.2.1. Simulador de masa en el sistema solar
",Darker[Gray],FontFamily->"Calibri",Bold,18],
Panel[Style[
Manipulate[
Graphics[{Inset[ImageRules[[3,2]],{-26,50},Automatic,{35,35}],Inset[planet/.ImageRules,{25,50},Automatic,{35,35}],Text[Style[" Masa       "<>ToString[m]<>"Kg",Black,Italic,18],{-30,125}],Inset[Style["Valor de la gravedad  \naceleración en m/(s^2):",12],{-55,105}],Inset[Style[9.8,12],{-26,105}],Inset[Style[(planet/.GravityRules),12],{25,105}],Inset[Style["Peso",12],{-55,85}],Inset[Style[ToString[m*(planet/.GravityRules)]<>"N",12],{25,85}],Inset[Style[ToString[9.8*m]<>"N",12],{-26,85}]},PlotRange->{{-75,68},{-5,130}},ImageSize->{Automatic,400}],
{{m,100,Style["Masa",White,FontFamily->"Calibri",20]},0,1000,Appearance-> "Labeled",LabelStyle->White},{{planet,"Mercurio",Style["Planeta/Luna",White,FontFamily->"Calibri",20]},{"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["#1C3D6C"]}}],FrameMargins->None]}];
Framed[OpenerView[{Style["4. Segunda Ley",Darker[Gray],FontFamily->"Calibri",24],Grid[{{LN2,""},{EJ41,""},{SM411""},{EJ42,""},{SM421,""}},Alignment->{{Left,Left},{Left,Left},{Left,Left},{Left,Left},{Left,Left}}]}],RoundingRadius->5,FrameMargins->Large]

LN3=Style["
Imagina una partida de billar. Cuando una bola golpea a otra que se encuentra en reposo, ambas modifican su velocidad. Por tanto, en el instante del choque sobre cada bola debe existir alguna fuerza que las lleve a cambiar de posición.
La tercera ley es también conocida como principio de acción y reacción, esto debido a que: 
“Cuando un cuerpo A ejerce una fuerza sobre otro cuerpo B, B reaccionará ejerciendo otra fuerza sobre A de igual intensidad y dirección aunque de sentido contrario.”(Newton)
La primera de las fuerzas recibe el nombre de fuerza de acción y la segunda fuerza de reacción."
"",FontColor->White,FontFamily->"Calibri",16];
EJ51=OpenerView[{Style["5.1. Ejemplo",White,FontFamily->"Calibri",Bold,18],TextCell["La partícula A ejerce una fuerza F sobre la partícula B.
La partícula B ejerce una fuerza -F sobre la partícula A.
Sobre el sistema de las dos partículas A y B actúa una fuerza resultante cero.
Donde:
La partícula A es la bala. 
La partícula B es el tanque.",FontColor->White,FontFamily->"Calibri",16]}];
SM511=OpenerView[{Style["5.1.1. Simulador de la tercer ley de Newton
",White,FontFamily->"Calibri",Bold,18],Panel[Style[Manipulate[Graphics3D[{{Darker[Darker[Darker[Green]]],Cuboid[{-5-(a/10),-5,-3},{5-(a/10),5,3}]},
(**********Ruedas laterales**********)
{Brown,Cylinder[{{-5-(a/10),-2,-2},{-5-(a/10),-6,-2}},1]},{Brown,Cylinder[{{-4-(a/10),-2,-3},{-4-(a/10),-6,-3}},1]},{Brown,Cylinder[{{-3-(a/10),-2,-3.2},{-3-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{-2-(a/10),-2,-3.2},{-2-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{-1-(a/10),-2,-3.2},{-1-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{0-(a/10),-2,-3.2},{0-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{1-(a/10),-2,-3.2},{1-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{2-(a/10),-2,-3.2},{2-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{3-(a/10),-2,-3.2},{3-(a/10),-6,-3.2}},1]},{Brown,Cylinder[{{4-(a/10),-2,-3},{4-(a/10),-6,-3}},1]},{Brown,Cylinder[{{5-(a/10),-2,-2},{5-(a/10),-6,-2}},1]},{Brown,Cylinder[{{-4-(a/10),-2,-1},{-4-(a/10),-6,-1}},1]},{Brown,Cylinder[{{-3-(a/10),-2,-1},{-3-(a/10),-6,-1}},1]},{Brown,Cylinder[{{-2-(a/10),-2,-1},{-2-(a/10),-6,-1}},1]},{Brown,Cylinder[{{-1-(a/10),-2,-1},{-1-(a/10),-6,-1}},1]},{Brown,Cylinder[{{0-(a/10),-2,-1},{0-(a/10),-6,-1}},1]},{Brown,Cylinder[{{1-(a/10),-2,-1},{1-(a/10),-6,-1}},1]},{Brown,Cylinder[{{2-(a/10),-2,-1},{2-(a/10),-6,-1}},1]},{Brown,Cylinder[{{3-(a/10),-2,-1},{3-(a/10),-6,-1}},1]},{Brown,Cylinder[{{4-(a/10),-2,-1},{4-(a/10),-6,-1}},1]},(**********Ruedas laterales**********)
{Brown,Cylinder[{{-5-(a/10),2,-2},{-5-(a/10),6,-2}},1]},{Brown,Cylinder[{{-4-(a/10),2,-3},{-4-(a/10),6,-3}},1]},{Brown,Cylinder[{{-3-(a/10),2,-3.2},{-3-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{-2-(a/10),2,-3.2},{-2-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{-1-(a/10),2,-3.2},{-1-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{0-(a/10),2,-3.2},{0-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{1-(a/10),2,-3.2},{1-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{2-(a/10),2,-3.2},{2-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{3-(a/10),2,-3.2},{3-(a/10),6,-3.2}},1]},{Brown,Cylinder[{{4-(a/10),2,-3},{4-(a/10),6,-3}},1]},{Brown,Cylinder[{{5-(a/10),2,-2},{5-(a/10),6,-2}},1]},{Brown,Cylinder[{{-4-(a/10),2,-1},{-4-(a/10),6,-1}},1]},{Brown,Cylinder[{{-3-(a/10),2,-1},{-3-(a/10),6,-1}},1]},{Brown,Cylinder[{{-2-(a/10),2,-1},{-2-(a/10),6,-1}},1]},{Brown,Cylinder[{{-1-(a/10),2,-1},{-1-(a/10),6,-1}},1]},{Brown,Cylinder[{{0-(a/10),2,-1},{0-(a/10),6,-1}},1]},{Brown,Cylinder[{{1-(a/10),2,-1},{1-(a/10),6,-1}},1]},{Brown,Cylinder[{{2-(a/10),2,-1},{2-(a/10),6,-1}},1]},{Brown,Cylinder[{{3-(a/10),2,-1},{3-(a/10),6,-1}},1]},{Brown,Cylinder[{{4-(a/10),2,-1},{4-(a/10),6,-1}},1]},
(**********Parte superior**********)
{Darker[Darker[Green]],Ellipsoid[{-1-(a/10),0,3},{4,4,3}]},{Darker[Darker[Green]],Cylinder[{{0-(a/10),0,3},{0-(a/10),0,6}},2]},{Darker[Darker[Green]],Cylinder[{{0-(a/10),0,3},{0-(a/10),0,6}},1.5]},Cylinder[{{1-(a/10),0,5},{1-(a/10),0,6}},.2],
(**********Cañon**********)
{Darker[Darker[Green]],Cylinder[{{0-(a/10),0,5},{9-(a/10),0,5}},.75]},{Black,Cylinder[{{0-(a/10)+.1,0,5},{10-(a/10),0,5}},0.5]},{Cylinder[{{9-(a/10),0,5},{10-(a/10),0,5}},1]},
(**********Bala**********)
{Black,Ellipsoid[{9+a,0,5},{1,.5,.5}]},
(**********Suelo**********)
{Gray,Cuboid[{-80,-80,-4.2},{120,120,-4.2}]},{White,Cuboid[{-6,-6.5,-4.19},{6,6.5,-4.19}]},{Blue,Arrow[{{-0,0,8},{-10,0,8}}]},{Red,Arrow[{{0,0,8},{109,0,8}}]},{Text[Style["Fuerza en sentido contrario",Blue,FontFamily->"Times New Roman",13],{-10,0,10}]},{Text[Style["Fuerza aplicada a la bala",Red,FontFamily->"Times New Roman",13],{50,0,10}]}},PlotRange->{{-25,110},{-10,10},{-4.21,20}},ImageSize->500,Axes->True],{{a,0,Style["Tiempo",FontColor->RGBColor["#1C3D6C"],FontFamily->"Times New Roman",16]},0,100}],DefaultOptions->{Panel->{Background->RGBColor["#D8D8D8"]}}],FrameMargins->None]}];
Framed[OpenerView[{Style["5. Tercera ley",White,FontFamily->"Calibri",24],Grid[{{LN3,""},{EJ51,""},{SM511,""}},Alignment->{{Left,Left},{Left,Left},{Left,Left}}]}],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]