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

Electromagnetismo

Framed[
OpenerView[{
	    Style[ "1. Objetivo",FontColor-> White,FontFamily->"Times New Roman",24],TextCell["		·Comprender que es un campo magnético.
		·Comprender que es un polo magnético
		·Entender la relación entre magnetismo y electricidad
		·Comprender las diferencias entre un polo magnetico y una carga electrica",
FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1]
}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]

DynamicModule[{
text1,ope1,sim1,text2,ope2,sim2},text1=Style["
Un  campo magnético  está  formado por  líneas de  fuerza que van del polo positivo  al  polo negativo. La tierra tiene un campo magnético

¿Alguna vez  has  jugado  con  una  brújula  o  con  un  imán? Seguramente has descubierto  que  los  imanes  tienen  dos polos: positivo  y  negativo. 

Por  convención,  el  polo  positivo  es  el  que  apunta  hacia  el  lado  Norte  de  la  Tierra  y  el  polo  negativo  hacia  el  Sur. 
Por  eso,  es  que  también  son  llamados  como  polo  norte  y  polo  sur,  respectivamente.  

",FontColor->Black,FontFamily->"Times New Roman",16];
ope1=OpenerView[{
Style["2.1 Campo magnético",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text1,sim1}]}];

text2=Style["
Los polos de un iman son los puntos donde la fuerza es mayor, estos puntos se pueden ubicar como el norte o positivo si es de donde salen las lineas de campo y el polo sur o negativos si es donde entran las lineas de campo. Estos polos siguen comportamiento deacuerdo a su campo magnetico.
Una  de  las  leyes  fundamentales  del  magnetismo  es:  “los  polos  opuestos  se  atraen;  los  polos  iguales  se  repelen”.
",FontColor->Black,FontFamily->"Times New Roman",16];
ope2=OpenerView[{
Style["2.2 Interacción de polos magneticos",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text2,sim2}]}];
sim1=Style[Manipulate[Graphics3D[{Table[Table[Sphere[{3(1+cambio*iman2)Sin[n π/4],3(1+cambio*iman2)Cos[n π/4],z},.2],{n,0,8}],{z,0,3,1}],Style[Cuboid[{-1,-1,4},{1,1,5}],If[iman2==1,Blue,Red]],Style[Cuboid[{-1,-1,0},{1,1,4}],If[iman2==1,Red,Blue]]},PlotRange->5,ImageSize->Large],{{iman2,1,"Cambiar lado del iman "},{1->"Carga Positiva ", -1->"Carga Negativa"}},{{cambio,0,"Observa el comportamiento del iman"},0,.5,ControlType->Trigger}],Background->RGBColor["#1c3d6d"],FontColor->GrayLevel[.6]];
sim2=Style[
Manipulate[
	Graphics3D[
{
Style[Cuboid[{-2+iman1acercar-iman1acercar*accion(iman2*iman1cambiar),0,0},{-1+iman1acercar-iman1acercar*accion(iman2*iman1cambiar),1,.5}],If[iman1cambiar==-1,Red,Black]],Style[Cuboid[{-1+iman1acercar-iman1acercar*accion(iman2*iman1cambiar),0,0},{0+iman1acercar-iman1acercar*accion(iman2*iman1cambiar),1,.5}],If[iman1cambiar==-1,Black,Red]],
Style[Cuboid[{4,0,0},{5,1,.5}],If[iman2==-1,Blue,Red]],Style[Cuboid[{5,0,0},{6,1,.5}],If[iman2==-1,Red,Blue]]
},PlotRange->{{-2,8},{-3,3},{-3,3}},ImageSize->Large],
{{iman1acercar,0,"Acercar iman negro con rojo"},0,2},{{iman2,1,"Cambiar lado del iman azul con rojo"},{1->"Carga Positiva al centro", -1->"Carga Negativa al centro"}},{{iman1cambiar,1,"Cambiar lado del iman negro con rojo"},{1->"Carga Positiva al centro", -1->"Carga Negativa al centro"}},
{{accion,0,"accionar"},0,1,ControlType->Trigger}
],Background->RGBColor["#1c3d6d"],FontColor->GrayLevel[.30]
];
Framed[
Grid[{
{Framed[OpenerView[{
Style["2. Magnetismo",FontColor->Black,FontFamily->"Times New Roman",24],Column[{ope1,ope2}]}],Background->White,FrameStyle->White,RoundingRadius->25]}}],RoundingRadius->5,FrameMargins->Large,Background->White]
]

DynamicModule[{text31,text32,sim31,op31,op32,sim32},
text31=TextCell["
En  1819, el  físico danés  Hans Oersted  observó por  primera vez  que si  colocaba  una  brújula  en  posición  paralela  a  un  alambre, y  hacía  circular  por  éste  una  corriente  eléctrica,  la  aguja  magnética  de  la  brújula  se  desviaba,  y  se  colocaba  en  posición  casi  perpendicular  al  alambre.    A  este  fenómeno  se  le  llamo  “inducción  magnética”,  y  se  demostró  que  la  corriente  eléctrica  produce  a  su  alrededor  un  campo  magnético.  

En el siguiente simulador tenemos una brújula que se altera al estar en contacto con el campo magnético de una corriente, podemos ver que la posición y la dirección de la corriente influye en los cambios de la brújula 
",
FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1];

sim32=Style[Framed[
Manipulate[
Graphics3D[
{
Style[Cylinder[{{4.7,2Cos[θ],2Sin[θ]},{5.1,2Cos[θ],2Sin[θ]}},1],Black],Style[Cylinder[{{5.1,2Cos[θ],2Sin[θ]},{5.12,2Cos[θ],2Sin[θ]}},1],White],
Style[Tube[{{-6,0,0},{6,0,0}},.35],Black,Opacity[.3]],If[direccion==0,,Table[Style[Sphere[{i+direccion*iniciar,0,0},.1],Yellow],{i,-16,16,2}]],
Style[Arrow[{{0,0,-3},{0,3,-3}}],Black,Thickness[.012]],Style[Text["N",{0,3.5,-3}],25,FontFamily->"Times New Roman"],


If[direccion==0,Style[Text["Sin dirección no hay corriente",{5,1,-2.4}],20,FontFamily->"Times New Roman"],{Style[Arrow[{{0+(1-direccion)*3/2,0,-1.5},{3-(1-direccion)*3/2,0,-1.5}}],Black,Thickness[.012]],Style[Text["Dirección de la corriente",{5,-1,-2.4}],20,FontFamily->"Times New Roman"]}],Style[Arrow[Tube[{{5.13,2Cos[θ]+If[direccion==0,.5Cos[-0],direccion*.5Sin[-θ]],2Sin[θ]+If[direccion==0,.5Sin[-0],direccion*.5Cos[-θ]]},{5.13,2Cos[θ]+If[direccion==0,.9Cos[-0],direccion*.9Sin[-θ]],2Sin[θ]+If[direccion==0,.9Sin[-0],direccion*.9Cos[-θ]]}}]],
Red,Arrowheads[0.05],Opacity[1],Thickness[.02]]
},PlotRange->{{-6,6},{-4,4},{-4,4}},ViewPoint->{2, 1, .10}],{{θ,0},0,2π},{{direccion,1,"Dirección de la corriente"},{-1->"->",1->"<-",0->"Apagar"}},{iniciar,0,10,ControlType->Trigger}],Background->GrayLevel[.8]]
];
text32=TextCell["
Ya que, al igual que los polos; las cargas electricas iguales se repelen y las cargas diferentes se atraen el comportamiento de las cargas y los polos podrían confundirce.  La  diferencia es que los polos son concecuencia del movimiento de cargas electricas, mientras que las cargas son electrones que van de una molecula a otra, estimulando una corriente electrica atravez de el material conductor.

Es decir que si hay una corriente electrica esta induce un campo magnetico, ¿Será posible lo contrario, es decir; que dado un campo magnetico se pueda generar unas corriente electrica.? 
",
FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1];
op32=OpenerView[{
	    Style[ "3.1 El campo magnetico de una corriente",FontColor->White,FontFamily->"Times New Roman",24],Column[{text31,sim32},Center]
}];
op31=Framed[
OpenerView[{
	    Style[ "3. Electromagnetismo",FontColor->White,FontFamily->"Times New Roman",24],Column[{text32,op32}]
}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]]

Framed[
OpenerView[{
TextCell["4. Bibliografía.",FontColor->Black,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-> Black,FontFamily->"Times New Roman",16]}],RoundingRadius->5,FrameMargins->Large,Background->White]

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