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

MOVIMIENTO RECTILÍNEO 

UNIFORMEMENTE ACELERADO

Framed[OpenerView[{Style["1. Objetivo",FontColor->White,FontFamily->"Calibri",24],Style["- Comprender el concepto del movimiento rectilíneo uniformemente acelerado.
- Identificar un caso de aplicación del M.R.U.A en la vida cotidiana.", FontColor->White,FontFamily->"Calibri",16]}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1C3D6C"]]

Framed[OpenerView[{Style["2. Introducción",Darker[Gray],FontFamily->"Calibri",24],Style["Encontrar el movimiento rectilíneo uniformemente acelerado (m.r.u.a.) en tu día a día es bastante común. Un objeto que dejas caer y no encuentra ningún obstáculo en su camino (caída libre) o un esquiador que desciende una cuesta justo antes de llegar a la zona de salto, son buenos ejemplos de ello. El movimiento rectilíneo uniformemente acelerado (m.r.u.a.) es también conocido como movimiento rectilíneo uniformemente variado (m.r.u.v).",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16]}],RoundingRadius->5,FrameMargins->Large]

Framed[OpenerView[{Style["3. Propiedades del m.r.u.a",White,FontFamily->"Calibri",24],Style["Un cuerpo realiza un movimiento rectilíneo uniformemente acelerado (m.r.u.a.) o movimiento rectilíneo uniformemente variado (m.r.u.v.) cuando su trayectoria es una línea recta y su aceleración es constante y distinta de 0. Esto implica que la velocidad aumenta o disminuye de manera uniforme.",FontColor->White,FontFamily->"Calibri",16]}],Background->RGBColor["#1C3D6C"],RoundingRadius->5,FrameMargins->Large]

EJ=Style["El siguiente es un ejemplo de aplicación en la vida cotidiana. Observemos que tenemos dos autos en una carretera con límite de velocidad a 80km/h, si se supone que son conductores que respetan el límite de velocidad entonces ambos autos van a 80Km/h de manera constante, pero a la hora de hacer un rebase el auto de color rojo cambia su velocidad acelerando, por lo que a partir del momento en el que comienza a cambiar su velocidad para llegar a 95km/h para hacer el rebase, se encuentra en un movimiento rectilíneo uniformemente acelerado. ",FontColor->RGBColor["#1C3D6C"],FontFamily->"Calibri",16];
SM=OpenerView[{Style["4.1 Simulador del ejemplo",Darker[Gray],FontFamily->"Calibri",18],Panel[Style[Manipulate[
Graphics3D[{(*Caras laterales*){Green,Polygon[{{3+(a),0,-1+5},{3+(a),1,-1+5},{2+(a),1,-1+5},{1+(a),2,-1+5},{-1+(a),2,-1+5},{-2+(a),1,-1+5},{-3+(a),1,-1+5},{-3+(a),0,-1+5}}]},{Green,Polygon[{{3+(a),0,1+5},{3+(a),1,1+5},{2+(a),1,1+5},{1+(a),2,1+5},{-1+(a),2,1+5},{-2+(a),1,1+5},{-3+(a),1,1+5},{-3+(a),0,1+5}}]},
(*Toldo,cofre y capo*){Green,Polygon[{{3+(a),0,-1+5},{3+(a),0,1+5},{3+(a),1,1+5},{3+(a),1,-1+5}}]},{Green,Polygon[{{3+(a),1,1+5},{2+(a),1,1+5},{2+(a),1,-1+5},{3+(a),1,-1+5}}]},{Green,Polygon[{{2+(a),1,1+5},{1+(a),2,1+5},{1+(a),2,-1+5},{2+(a),1,-1+5}}]},{Green,Polygon[{{1+(a),2,1+5},{-1+(a),2,1+5},{-1+(a),2,-1+5},{1+(a),2,-1+5}}]},{Green,Polygon[{{-2+(a),1,1+5},{-1+(a),2,1+5},{-1+(a),2,-1+5},{-2+(a),1,-1+5}}]},{Green,Polygon[{{-3+(a),1,1+5},{-2+(a),1,1+5},{-2+(a),1,-1+5},{-3+(a),1,-1+5}}]},{Green,Polygon[{{-3+(a),0,-1+5},{-3+(a),0,1+5},{-3+(a),1,1+5},{-3+(a),1,-1+5}}]},
(*Ventanas*){Lighter[Blue],Polygon[{{-1.7+(a),1.1,-1.01+5},{-0.2+(a),1.1,-1.01+5},{-0.2+(a),1.8,-1.01+5},{-1+(a),1.8,-1.01+5}}]},{Lighter[Blue],Polygon[{{1.7+(a),1.1,-1.01+5},{0+(a),1.1,-1.01+5},{0+(a),1.8,-1.01+5},{1+(a),1.8,-1.01+5}}]},{Lighter[Blue],Polygon[{{-1.7+(a),1.1,1.01+5},{-0.2+(a),1.1,1.01+5},{-0.2+(a),1.8,1.01+5},{-1+(a),1.8,1.01+5}}]},{Lighter[Blue],Polygon[{{1.7+(a),1.1,1.01+5},{0+(a),1.1,1.01+5},{0+(a),1.8,1.01+5},{1+(a),1.8,1.01+5}}]},
(*Puertas*){Green,Polygon[{{1.7+(a),1,-1.01+5},{0+(a),1,-1.01+5},{0+(a),0.2,-1.01+5},{1.4+(a),0.2,-1.01+5}}]},{Green,Polygon[{{-1.7+(a),1,-1.01+5},{-0.2+(a),1,-1.01+5},{-0.2+(a),0.2,-1.01+5},{-1.4+(a),0.2,-1.01+5}}]},{Cylinder[{{1.5+(a),0.85,-1+5},{1.5+(a),0.85,-1.01+5}},0.05]},{Green,Polygon[{{1.7+(a),1,1.01+5},{0+(a),1,1.01+5},{0+(a),0.2,1.01+5},{1.4+(a),0.2,1.01+5}}]},{Green,Polygon[{{-1.7+(a),1,1.01+5},{-0.2+(a),1,1.01+5},{-0.2+(a),0.2,1.01+5},{-1.4+(a),0.2,1.01+5}}]},{Cylinder[{{1.5+(a),0.85,1+5},{1.5+(a),0.85,1.01+5}},0.05]},{Cylinder[{{-0.5+(a),0.85,1+5},{-0.5+(a),0.85,1.01+5}},0.05]},{Cylinder[{{1.5+(a),0.85,-1+5},{1.5+(a),0.85,-1.01+5}},0.05]},{Cylinder[{{-0.5+(a),0.85,-1+5},{-0.5+(a),0.85,-1.01+5}},0.05]},
(*Ruedas traceras*){Cylinder[{{-2+(a),0,-0.75+5},{-2+(a),0,-1.25+5}},.3]},{Black,Cylinder[{{-2+(a),0,-0.75+5},{-2+(a),0,-1.24+5}},.5]},{Cylinder[{{-2+(a),0,0.75+5},{-2+(a),0,1.25+5}},.3]},{Black,Cylinder[{{-2+(a),0,0.75+5},{-2+(a),0,1.24+5}},.5]},
(*Ruedas delanteras*){Cylinder[{{2+(a),0,-0.75+5},{2+(a),0,-1.25+5}},.3]},{Black,Cylinder[{{2+(a),0,-0.75+5},{2+(a),0,-1.24+5}},.5]},{Cylinder[{{2+(a),0,0.75+5},{2+(a),0,1.25+5}},.3]},{Black,Cylinder[{{2+(a),0,0.75+5},{2+(a),0,1.24+5}},.5]},
(*Ventas enfrente*){Lighter[Blue],Polygon[{{2.001+(a),1.1,0.9+5},{1.1+(a),1.9,0.9+5},{1.1+(a),1.9,-0.9+5},{2.001+(a),1.1,-0.9+5}}]},{Lighter[Blue],Polygon[{{-2.001+(a),1.1,0.9+5},{-1.1+(a),1.9,0.9+5},{-1.1+(a),1.9,-0.9+5},{-2.001+(a),1.1,-0.9+5}}]},
(*Faros*){Yellow,Cylinder[{{3.01+(a),.7,-.7+5},{3+(a),.7,-.7+5}},.2]},{Yellow,Cylinder[{{3.01+(a),.7,.7+5},{3+(a),.7,.7+5}},.2]},{Red,Cylinder[{{-3.01+(a),.7,-.7+5},{-3+(a),.7,-.7+5}},.2]},{Red,Cylinder[{{-3.01+(a),.7,.7+5},{-3+(a),.7,.7+5}},.2]},{Gray,Polygon[{{-3.02+(a),0,-1+5},{-3.02+(a),0,1+5},{-3.02+(a),.3,1+5},{-3.02+(a),.3,-1+5}}]},{Gray,Polygon[{{3.01+(a),0,-1.01+5},{3.01+(a),.3,-1.01+5},{2.5+(a),.3,-1.01+5},{2.5+(a),0,-1.01+5}}]},{Gray,Polygon[{{3.01+(a),0,1.01+5},{3.01+(a),.3,1.01+5},{2.5+(a),.3,1.01+5},{2.5+(a),0,1.01+5}}]},{Gray,Polygon[{{-3.01+(a),0,-1+5},{-3.01+(a),0,1+5},{-3.01+(a),.3,1+5},{-3.01+(a),.3,-1+5}}]},{Gray,Polygon[{{-3.01+(a),0,-1.01+5},{-3.01+(a),.3,-1.01+5},{-2.5+(a),.3,-1.01+5},{-2.5+(a),0,-1.01+5}}]},{Gray,Polygon[{{-3.01+(a),0,1.01+5},{-3.01+(a),.3,1.01+5},{-2.5+(a),.3,1.01+5},{-2.5+(a),0,1.01+5}}]},
(*Segundo Auto*),
(*Caras laterales*){Red,Polygon[{{3+1.2(a),0,-1-5},{3+1.2(a),1,-1-5},{2+1.2(a),1,-1-5},{1+1.2(a),2,-1-5},{-1+1.2(a),2,-1-5},{-2+1.2(a),1,-1-5},{-3+1.2(a),1,-1-5},{-3+1.2(a),0,-1-5}}]},{Red,Polygon[{{3+1.2(a),0,1-5},{3+1.2(a),1,1-5},{2+1.2(a),1,1-5},{1+1.2(a),2,1-5},{-1+1.2(a),2,1-5},{-2+1.2(a),1,1-5},{-3+1.2(a),1,1-5},{-3+1.2(a),0,1-5}}]},
(*Toldo,cofre y capo*){Red,Polygon[{{3+1.2(a),0,-1-5},{3+1.2(a),0,1-5},{3+1.2(a),1,1-5},{3+1.2(a),1,-1-5}}]},{Red,Polygon[{{3+1.2(a),1,1-5},{2+1.2(a),1,1-5},{2+1.2(a),1,-1-5},{3+1.2(a),1,-1-5}}]},{Red,Polygon[{{2+1.2(a),1,1-5},{1+1.2(a),2,1-5},{1+1.2(a),2,-1-5},{2+1.2(a),1,-1-5}}]},{Red,Polygon[{{1+1.2(a),2,1-5},{-1+1.2(a),2,1-5},{-1+1.2(a),2,-1-5},{1+1.2(a),2,-1-5}}]},{Red,Polygon[{{-2+1.2(a),1,1-5},{-1+1.2(a),2,1-5},{-1+1.2(a),2,-1-5},{-2+1.2(a),1,-1-5}}]},{Red,Polygon[{{-3+1.2(a),1,1-5},{-2+1.2(a),1,1-5},{-2+1.2(a),1,-1-5},{-3+1.2(a),1,-1-5}}]},{Red,Polygon[{{-3+1.2(a),0,-1-5},{-3+1.2(a),0,1-5},{-3+1.2(a),1,1-5},{-3+1.2(a),1,-1-5}}]},
(*Ventanas*){Lighter[Blue],Polygon[{{-1.7+1.2(a),1.1,-1.01-5},{-0.2+1.2(a),1.1,-1.01-5},{-0.2+1.2(a),1.8,-1.01-5},{-1+1.2(a),1.8,-1.01-5}}]},{Lighter[Blue],Polygon[{{1.7+1.2(a),1.1,-1.01-5},{0+1.2(a),1.1,-1.01-5},{0+1.2(a),1.8,-1.01-5},{1+1.2(a),1.8,-1.01-5}}]},{Lighter[Blue],Polygon[{{-1.7+1.2(a),1.1,1.01-5},{-0.2+1.2(a),1.1,1.01-5},{-0.2+1.2(a),1.8,1.01-5},{-1+1.2(a),1.8,1.01-5}}]},{Lighter[Blue],Polygon[{{1.7+1.2(a),1.1,1.01-5},{0+1.2(a),1.1,1.01-5},{0+1.2(a),1.8,1.01-5},{1+1.2(a),1.8,1.01-5}}]},
(*Puertas*){Red,Polygon[{{1.7+1.2(a),1,-1.01-5},{0+1.2(a),1,-1.01-5},{0+1.2(a),0.2,-1.01-5},{1.4+1.2(a),0.2,-1.01-5}}]},{Red,Polygon[{{-1.7+1.2(a),1,-1.01-5},{-0.2+1.2(a),1,-1.01-5},{-0.2+1.2(a),0.2,-1.01-5},{-1.4+1.2(a),0.2,-1.01-5}}]},{Cylinder[{{1.5+1.2(a),0.85,-1-5},{1.5+1.2(a),0.85,-1.01-5}},0.05]},{Red,Polygon[{{1.7+1.2(a),1,1.01-5},{0+1.2(a),1,1.01-5},{0+1.2(a),0.2,1.01-5},{1.4+1.2(a),0.2,1.01-5}}]},{Red,Polygon[{{-1.7+1.2(a),1,1.01-5},{-0.2+1.2(a),1,1.01-5},{-0.2+1.2(a),0.2,1.01-5},{-1.4+1.2(a),0.2,1.01-5}}]},{Cylinder[{{1.5+1.2(a),0.85,1-5},{1.5+1.2(a),0.85,1.01-5}},0.05]},{Cylinder[{{-0.5+1.2(a),0.85,1-5},{-0.5+1.2(a),0.85,1.01-5}},0.05]},{Cylinder[{{1.5+1.2(a),0.85,-1-5},{1.5+1.2(a),0.85,-1.01-5}},0.05]},{Cylinder[{{-0.5+1.2(a),0.85,-1-5},{-0.5+1.2(a),0.85,-1.01-5}},0.05]},
(*Ruedas traceras*){Cylinder[{{-2+1.2(a),0,-0.75-5},{-2+1.2(a),0,-1.25-5}},.3]},{Black,Cylinder[{{-2+1.2(a),0,-0.75-5},{-2+1.2(a),0,-1.24-5}},.5]},{Cylinder[{{-2+1.2(a),0,0.75-5},{-2+1.2(a),0,1.25-5}},.3]},{Black,Cylinder[{{-2+1.2(a),0,0.75-5},{-2+1.2(a),0,1.24-5}},.5]},
(*Ruedas delanteras*){Cylinder[{{2+1.2(a),0,-0.75-5},{2+1.2(a),0,-1.25-5}},.3]},{Black,Cylinder[{{2+1.2(a),0,-0.75-5},{2+1.2(a),0,-1.24-5}},.5]},{Cylinder[{{2+1.2(a),0,0.75-5},{2+1.2(a),0,1.25-5}},.3]},{Black,Cylinder[{{2+1.2(a),0,0.75-5},{2+1.2(a),0,1.24-5}},.5]},
(*Ventas enfrente*){Lighter[Blue],Polygon[{{2.001+1.2(a),1.1,0.9-5},{1.1+1.2(a),1.9,0.9-5},{1.1+1.2(a),1.9,-0.9-5},{2.001+1.2(a),1.1,-0.9-5}}]},{Lighter[Blue],Polygon[{{-2.001+1.2(a),1.1,0.9-5},{-1.1+1.2(a),1.9,0.9-5},{-1.1+1.2(a),1.9,-0.9-5},{-2.001+1.2(a),1.1,-0.9-5}}]},
(*Faros*){Yellow,Cylinder[{{3.01+1.2(a),.7,-.7-5},{3+1.2(a),.7,-.7-5}},.2]},{Yellow,Cylinder[{{3.01+1.2(a),.7,.7-5},{3+1.2(a),.7,.7-5}},.2]},{Red,Cylinder[{{-3.01+1.2(a),.7,-.7-5},{-3+1.2(a),.7,-.7-5}},.2]},{Red,Cylinder[{{-3.01+1.2(a),.7,.7-5},{-3+1.2(a),.7,.7-5}},.2]},{Gray,Polygon[{{-3.02+1.2(a),0,-1-5},{-3.02+1.2(a),0,1-5},{-3.02+1.2(a),.3,1-5},{-3.02+1.2(a),.3,-1-5}}]},{Gray,Polygon[{{3.01+1.2(a),0,-1.01-5},{3.01+1.2(a),.3,-1.01-5},{2.5+1.2(a),.3,-1.01-5},{2.5+1.2(a),0,-1.01-5}}]},{Gray,Polygon[{{3.01+1.2(a),0,1.01-5},{3.01+1.2(a),.3,1.01-5},{2.5+1.2(a),.3,1.01-5},{2.5+1.2(a),0,1.01-5}}]},{Gray,Polygon[{{-3.01+1.2(a),0,-1-5},{-3.01+1.2(a),0,1-5},{-3.01+1.2(a),.3,1-5},{-3.01+1.2(a),.3,-1-5}}]},{Gray,Polygon[{{-3.01+1.2(a),0,-1.01-5},{-3.01+1.2(a),.3,-1.01-5},{-2.5+1.2(a),.3,-1.01-5},{-2.5+1.2(a),0,-1.01-5}}]},{Gray,Polygon[{{-3.01+1.2(a),0,1.01-5},{-3.01+1.2(a),.3,1.01-5},{-2.5+1.2(a),.3,1.01-5},{-2.5+1.2(a),0,1.01-5}}]},

(*Plano de movimiento*),{Gray,Cuboid[{-50,-1,-10},{50,-1/2,10}]}, 
{Dashed,Yellow,Line[{{-50,-.51,0},{50,-.51,0}}]},
(*Texto*),{Text[Style["La Velocidad del",Italic, 14],{3,6,7}]},
{Text[Style["auto verde es constante",Italic,14],{3,5,7}]},
{Text[Style["La Velocidad del",Italic,14],{-3,7,-7}]},
{Text[Style["auto rojo cambia para",Italic,14],{-3,6,-7}]},
{Text[Style["hacer el rebase",Italic,14],{-3,5,-7}]}
},ImageSize->900,ViewPoint->{0,30,-75}],
Style["Movimiento Rectilíneo Uniformemente Acelerado",White,FontFamily->"Calibri",20],{{a,-40,Style["Tiempo (s) ",White,FontFamily->"Calibri",Italic,16]},-40,40}],DefaultOptions->{Panel->{Background->RGBColor["#1C3D6C"]}}],FrameMargins->None]}];
Framed[OpenerView[{Style["4. Ejemplo de la vida cotidiana",Darker[Gray],FontFamily->"Calibri",24],Grid[{{EJ,""},{SM,""}},Alignment->{Left,Left}]}],RoundingRadius->5,FrameMargins->Large]

Framed[OpenerView[{Style["5. Bibliografía",White,FontFamily->"Calibri",24],TextCell["[1] Aguirre, C. 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. y E. Hetch. Física general. 10ª ed. México, McGraw Hill, 2007. (Serie Schaum).
[5] Colavita, E. y 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=;
DG=;
FC=;
Framed[Grid[{{"                   ",Image[UN,"Real"],"               ",Image[DG,"Real"],"               ",Image[FC,"Real"],"                    "}}],Background->RGBColor["#1C3D6C"]]