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

Ley de Coulomb

Framed[
OpenerView[{
	    Style[ "1. Objetivo",FontColor-> White,FontFamily->"Times New Roman",24],TextCell["		·Comprender que es La  fuerza  eléctrica.
		·Comprender la interacción de cargas
		·Comprender la ley de Coulomb",
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["
Como la gravedad, la electricidad también es una fuerza, así como la gravedad es la fuerza entre cuerpos con masa, la electricidad tiene que ver con las fuerzas eléctricas que existen entre los cuerpos con carga eléctrica. 

los cuerpos, que en general tienen una carga eléctrica balanceada, tienen un campo eléctrico, que comienza desde una carga positiva y termina en una carga negativa.

En un átomo de cualquier elemento existe un electrón por cada protón. Sin embargo, los electrones de las órbitas externas son atraídos con menos fuerza por el núcleo, por lo que pueden pasar a las órbitas externas de otros átomos, produciendo una corriente eléctrica, que es el flujo de electrones libres. 

Cuando los átomos de un cuerpo pierden electrones, se considera que ese cuerpo tiene carga positiva. Cuando un cuerpo absorbe electrones, su carga es negativa.
 ",FontColor->Black,FontFamily->"Times New Roman",16];
ope1=OpenerView[{
Style["2.1 Fuerza eléctrica",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text1,sim1}]}];
text2=Style["
Sin embargo, a diferencia de la gravedad, que sólo produce atracción, la fuerza eléctrica puede atraer o repeler, dependiendo de si la carga eléctrica es positiva, o negativa. Por eso, cuando un cuerpo se introduce en un campo eléctrico, puede ser atraído, o repelido, de acuerdo con el signo de su carga.

“Las cargas iguales se repelen. Las cargas opuestas se atraen”.
",FontColor->Black,FontFamily->"Times New Roman",16];
ope2=OpenerView[{
Style["2.2 Interacción de cargas eléctricas",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text2,sim2}]}];
sim1=Style[Manipulate[Graphics3D[{Table[Sphere[{2(cambio)Sin[n π/4],0,2(cambio)Cos[n π/4]},.1],{n,0,8}],Table[Sphere[{0,2(cambio)Sin[n π/4],2(cambio)Cos[n π/4]},.1],{n,0,8}],Table[Sphere[{2(cambio)Sin[n π/4],2(cambio)Cos[n π/4],0},.1],{n,0,8}],Style[Sphere[{0,0,0},1.5],Which[cambio<2,Blue,2≤cambio&&cambio<3,Green,3≤cambio,Red]]},PlotRange->5,ImageSize->Large],{{cambio,2.5,"Cambia la carga del atomo"},1,4}],Background->RGBColor["#1c3d6d"],FontColor->White];
sim2=Style[
Manipulate[


	Graphics3D[
{
Style[Sphere[{4+carga1*carga2*accion,0,0},1],If[Mostrar==1,If[carga1==1,Red,Blue],Green]],Style[Sphere[{-4-carga1*carga2*accion,0,0},1],If[Mostrar==1,If[carga2==1,Red,Blue],Yellow]]
},PlotRange->6,ImageSize->Large],
{{carga1,1,"Carga de esfera Verde"},{1->"Carga Positiva", -1->"Carga Negativa"}},{{carga2,1,"Carga de esfera Amarilla"},{1->"Carga Positiva", -1->"Carga Negativa"}},{{accion,0,"accionar"},0,1,ControlType->Trigger},{{Mostrar,0,"Mostrar Cargas"},{1->"si",0->"no"}}
],Background->RGBColor["#1c3d6d"],FontColor->White
];
Framed[
Grid[{
{Framed[OpenerView[{
Style["2. Fuerza eléctrica (Interacción de Cargas).",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["
Así como Isaac Newton descubrió, en el siglo XVIII, que la fuerza de gravedad varía inversamente con el cuadrado de la distancia entre las masas; el científico francés Charles Coulomb descubrió, en el siglo XIX, que la fuerza eléctrica disminuye igualmente con el cuadrado de la distancia entre las cargas.

A esto se llama la Ley de Coulomb, y es análoga a la ecuación de la gravedad, formulada por Newton.

Coulomb señaló que, para objetos cargados que son mucho menores que la distancia que hay entre ellos, idealmente partículas con cargas puntuales, la fuerza eléctrica varía en relación directa con el producto de las cargas y en relación inversa con una separación igual al cuadrado de la distancia.

Ley de Coulomb:

“La magnitud de cada una de las fuerzas eléctricas con que interactúan dos cargas puntuales en reposo es directamente proporcional al producto de la magnitud de ambas cargas e inversamente proporcional al cuadrado de la distancia que las separa y tiene la dirección de la línea que las une. La fuerza es de repulsión si las cargas son de igual signo, y de atracción si son de signo contrario”.

",
FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1];
text32=Style[ "F = k \!\(\*FractionBox[\(\*SubscriptBox[\(q\), \(1\)]\\ \\ \*SubscriptBox[\(q\), \(2\)]\), SuperscriptBox[\(r\), \(2\)]]\)",FontColor-> White,FontFamily->"Times New Roman",32];

sim32=Style[
Manipulate[


	Graphics3D[
{Style[Text["La Fuerza es "<>If[carga1*carga2>0,"","-"]<>ToString[mag1*mag2/(d^2)],{3,3,3}],FontSize->20],
Style[Sphere[{1+carga1*carga2*accion+d,0,0},.3],If[Mostrar==1,If[carga1==1,Red,Blue],Green]],Style[Sphere[{-1-carga1*carga2*accion,0,0},.3],If[Mostrar==1,If[carga2==1,Red,Blue],Yellow]]
},PlotRange->6,ImageSize->Large],
{{carga1,1,"Carga de esfera Verde"},{1->"Carga Positiva", -1->"Carga Negativa"}},{{mag1,1,"Magnitud de Carga"},1,3},{{carga2,1,"Carga de esfera Amarilla"},{1->"Carga Positiva", -1->"Carga Negativa"}},{{mag2,1,"Magnitud de Carga"},1,3},{{accion,0,"accionar"},0,1,ControlType->Trigger},{{Mostrar,0,"Mostrar Cargas"},{1->"si",0->"no"}},{{d,1,"distancia"},1,3}
],FontColor->RGBColor["#1c3d6d"],Background->RGBColor[0.87,0.87,0.87]
];
op31=Framed[
OpenerView[{
	    Style[ "3. Ley de Coulomb",FontColor-> White,FontFamily->"Times New Roman",24],Column[{text31,text32,sim32},Center]
}],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"]]