NewOpenerView[Titulo_,Contenido_,Tipo_]:=Module[{x=False},
PaneSelector[{True->
Framed[Grid[{{Framed[Opener[Dynamic[x]],Background->White,FrameStyle->White,RoundingRadius->25],Item[Style[Titulo,FontColor->If[Tipo==1, White,Black],FontFamily->"Times New Roman",24],Alignment->Left]},{"",Column[Contenido]}}],RoundingRadius->5,FrameMargins->Large,Background->If[Tipo==1,RGBColor["#1c3d6d"],White]],
False->
Framed[Grid[{{Framed[Opener[Dynamic[x]],Background->White,FrameStyle->White,RoundingRadius->25],Item[Style[Titulo,FontColor->If[Tipo==1, White,Black],FontFamily->"Times New Roman",24],Alignment->Left]}}],RoundingRadius->5,FrameMargins->Large,Background->If[Tipo==1,RGBColor["#1c3d6d"],White]]},Dynamic[x]]];
Estilo[x_,Tipo_]:=Style[x,FontColor->If[Tipo==1, White,Black],FontFamily->"Times New Roman",16]

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

Circuitos eléctricos

Framed[
OpenerView[{
	    Style[ "1. Objetivo",FontColor-> White,FontFamily->"Times New Roman",24],TextCell["		·Comprender que es la corriente  eléctrica.
		·Comprender que es la diferencia de potencial, la resistencia y la intensidad
		·Comprender la ley de Ohm
·Comprender que es un circuito
·Comprender la diferencia entre un circuito cerrado y un circuito abierto",
FontColor->White,FontFamily->"Times New Roman",16,TextJustification->1]
}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]

DynamicModule[{
text1,ope1,sim1,text2,ope2,sim2,text3,ope3,sim3,,text4,ope4,sim4},text1=Style["
La diferencia de potencial se presenta entre dos cuerpos con distinta carga eléctrica. Cuando se encuentran uno en la cercanía del otro, se produce un flujo de electrones libres desde el potencial más alto al potencial más bajo, si la diferencia del potencial es de cero, la corriente simplemente no fluye..
A la diferencia de potencial también se le conoce como voltaje.
 ",FontColor->Black,FontFamily->"Times New Roman",16];
ope1=OpenerView[{
Style["2.1 Diferencia de potencial",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text1}]}];
text2=Style["
“La corriente eléctrica es producida por la diferencia de potencial entre dos puntos”. 
	 
	 La diferencia de potencial eléctrico es producida por un generador, como por ejemplo  una batería,igual que una bomba de agua impulsa la corriente a través del conductor (en este ejemplo un cable) que va de un polo al otro, convencionalmente, del polo negativo al positivo.

	 El voltaje es para la corriente eléctrica lo que la presión es al flujo de agua. En el Sistema Internacional de Unidades se mide en Volts, o voltios. Un volt es la cantidad de energía que se requiere para mover las cargas eléctricas

",FontColor->Black,FontFamily->"Times New Roman",16];
ope2=OpenerView[{
Style["2.2 Corriente electrica",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text2,sim2}]}];

sim2=Manipulate[
Graphics3D[{
Table[Sphere[{-4+If[diferenciadepotencial1-diferenciadepotencial2>0,Accionar,0],RandomReal[{-1,1}],RandomReal[{-1,1}]},.1],{n,0,diferenciadepotencial1}],
Table[Sphere[{4-If[diferenciadepotencial1-diferenciadepotencial2<0,Accionar,0],RandomReal[{-1,1}],RandomReal[{-1,1}]},.1],{n,0,diferenciadepotencial2}],
Style[Tube[{{-4,0,0},{4,0,0}},1.5,VertexColors->{Red,Green}],Opacity[.4],CapForm["Square"]]}
,ImageSize->Large,PlotRange->{{-5,5},{-5,5},{-5,5}}],{{diferenciadepotencial1,1,"Potencial en Rojo"},1,10,1},{{diferenciadepotencial2,1,"Potencial en Verde"},1,10,1},{Accionar,0,7,ControlType->Trigger}];
Framed[
Grid[{
{Framed[OpenerView[{
Style["2. Diferencia de potencial y Corriente electrica",FontColor->Black,FontFamily->"Times New Roman",24],Column[{ope1,ope2}]}],Background->White,FrameStyle->White,RoundingRadius->25]}}],RoundingRadius->5,FrameMargins->Large,Background->White]
]

DynamicModule[{
text1,ope1,sim1,text2,ope2,sim2,text3,ope3,sim3,,text4,ope4,sim4},text1=Style["
Es la cantidad de electrones, o la carga que pasa por una sección del conductor, como un cable, en cada unidadde tiempo.  Puede ser fuerte o débil, según pasen muchos o pocos electrones.
 
La intensidad de la corriente es proporcional a la diferencia del potencial; es decir, es proporcional al voltaje.
 ",FontColor->White,FontFamily->"Times New Roman",16];
ope1=OpenerView[{
Style["3.1 Intensidad de la corriente",FontColor->White,FontFamily->"Times New Roman",24],Column[{text1,sim1}]}];
text2=Style["La resistencia no es una propiedad de los materiales sino del material y su geometría, por ejemplo un alambre delgado presenta mayor resistencia que uno grueso, y un alambre corto ofrece menor resistencia que otro largo.

La propiedad del material, se llama resistividad. 
En algunas sustancias, como los metales, la resistividad es menor, en ellos los electrones son tan libres que fluyen con facilidad.

En otros materiales, como el hule o el plástico, los átomos mantienen firmemente a sus electrones. Estas sustancias son conocidas como aislantes eléctricos. Los materiales aislantes producen una buena resistencia al flujo de corriente.

Otros motivos que pueden aumentar la resistencia es cuando a un circuito eléctrico le agregamos un aparato, por ejemplo, un foco.

Así tenemos que el material y el tamaño del conductor, además de los aparatos que integremos en un circuito,
producen una resistencia que afecta el paso de la corriente eléctrica.
",FontColor->White,FontFamily->"Times New Roman",16];
ope2=OpenerView[{
Style["3.2 La resistencia",FontColor->White,FontFamily->"Times New Roman",24],Column[{text2,sim2}]}];
sim1=Manipulate[
Graphics3D[{
Table[Sphere[{-4+Accionar,RandomReal[{-1,1}],RandomReal[{-1,1}]},.1],{n,0,diferenciadepotencial1}],
Style[Tube[{{-4,0,0},{4,0,0}},1.5,VertexColors->{Red,Green}],Opacity[.4],CapForm["Square"]]}
,ImageSize->Large,PlotRange->{{-5,5},{-5,5},{-5,5}}],{{diferenciadepotencial1,1,"Intensidad"},1,50,1},{Accionar,0,7,ControlType->Trigger}];
sim2=Manipulate[Switch[control,1,
Manipulate[
Graphics3D[{Table[Sphere[{Accionar-RandomInteger[{0,resistividad}], Cos[u+RandomReal[{-1,1}]],Sin[u+RandomReal[{-1,1}]]},.1],{u,0,intensidad}],Blend[{Yellow,Orange },2forma],Opacity[.5],Tube[BSplineCurve[Table[{x,forma Cos[x],forma Sin[x]},{x,-5,30}]],2]},PlotRange->{{-5,25},{-5,5},{-5,5}},ImageSize->Large],{{intensidad,5,"Intensidad"},5,30,1},{{resistividad,1,"resistividad"},1,4,1},{{forma,0,"Forma"},0,.5},{Accionar,1,16,ControlType->Trigger}],0,
Manipulate[
Graphics3D[{
Table[Sphere[{-4+Accionar+.1*Sin[1/2π Accionar]-RandomInteger[{0,resistividad}],RandomReal[{-1,1}],RandomReal[{-1,1}]},.1],{n,0,diferenciadepotencial1}],
Style[Tube[{{-4,0,0},{4+largo,0,0}},1.5,VertexColors->{Red,Green}],Opacity[.2],CapForm["Square"]]}
,ImageSize->Large,PlotRange->{{-5,5+largo},{-5,5},{-5,5}}],{{diferenciadepotencial1,5,"Intensidad"},5,30,1},{{resistividad,1,"resistividad"},1,10,1},{{largo,1,"Largo"},1,10},{Accionar,0,8,ControlType->Trigger}
]],{{control,0,""},{1->"La forma del medio",0->"La resistividad"},ControlType->Setter}];

Framed[
Grid[{
{OpenerView[{
Style["3. Intensidad de la corriente y la resistencia",FontColor->White,FontFamily->"Times New Roman",24],Column[{ope1,ope2}]}]}}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]
]

DynamicModule[{
text1,ope1,sim1,text2,ope2,sim2,text3,ope3,sim3,,text4,ope4,sim4},
text1=Style["
La intensidad de la corriente es proporcional a la diferencia del potencial; es decir, es proporcional al voltaje. Así tenemos que, a mayor diferencia de voltaje, mayor corriente. 

La constante de proporcionalidad entre la diferencia de potencial y la intensidad de corriente es la resistencia. 
Con esta constante de proporcionalidad la relación entre la diferencia de potencial (o Voltaje) y la Intensidad de corriente (o Amperes) puede escribirse como una ecuación. ",FontColor->Black,FontFamily->"Times New Roman",16];
ope1=Column[{text1,""}];
text2=Style["
En 1827, Georg Simon Ohm descubrió esta relación entre corriente, voltaje y resistencia, y encontró que la intensidad de corriente en un circuito es igual al voltaje que pasa por el cable, dividido entre las resistencias que encuentre.

							I = V/R   o bien	V =R I  

",FontColor->Black,FontFamily->"Times New Roman",16];
ope2=OpenerView[{
Style["4.1 Enunciado",FontColor->Black,FontFamily->"Times New Roman",24],Column[{text2}]}];


Framed[
Grid[{
{Framed[OpenerView[{
Style["4. Ley de Ohm",FontColor->Black,FontFamily->"Times New Roman",24],Column[{ope1,ope2}]}],Background->White,FrameStyle->White,RoundingRadius->25]}}],RoundingRadius->5,FrameMargins->Large,Background->White]
]

DynamicModule[{op1,tex0,tex1,tex2,sim1},
tex0=TextCell["
Un circuito electrico es una red (líneas de transmisión o cables), en la cual hay una o varias fuentes que provocan una diferencia de voltaje; esto hace que haya una corriente eléctrica.

Laa corriente eléctrica puede ser interrumpida o desviada mediante interruptores, además de interactuar con diferentes componentes como una bocina, un foco o un micrófono.
",FontColor-> White,FontFamily->"Times New Roman",16];
tex1=TextCell["
Los circuitos pueden estar cerrados, lo cual provoca que la corriente fluya hacia los distintos componentes; o pueden estar abiertos lo que impide el paso de la corriente y provoca que ningun componente este activo. 
",FontColor-> White,FontFamily->"Times New Roman",16];
sim1=Framed[
Manipulate[
Graphics[
{Style[Rectangle[{-2,-2},{2,2}],White,EdgeForm[Thickness[.01]]],If[control==0,{Style[Line[{{-.5,2},{.5,2}}],White,Thickness[.02]],Style[Line[{{-.6,2},{.2,2.7}}],Thickness[.014]]},Style[Line[{{-.5,2},{.5,2}}],Thickness[.001]]],
Style[Line[{{-2,-.2},{-2,.2}}],White,Thickness[.02]],
Style[Line[{{-2.5,.23},{-1.5,.23}}],Black,Thickness[.007]],
Style[Line[{{-2.3,-.2},{-1.7,-.2}}],Black,Thickness[.02]],Style[Disk[{2,0},.3],If[control==1,Yellow,White],EdgeForm[Directive[Thick,Black]]]
},PlotRange->3,ImageSize->Medium],
{{control,0,"Circuito"},{1->"Cerrado",0->"Abierto"}}],Background->GrayLevel[0.55]];
op1=OpenerView[{Style["5.1 Circuito cerrado y circuito abierto",FontColor-> White,FontFamily->"Times New Roman",24],Column[{tex1,sim1}]}];

Framed[
OpenerView[{
TextCell["5.Circuitos electricos.",FontColor->White,FontFamily->"Calibri",24],Column[{tex0,op1}]}],RoundingRadius->5,FrameMargins->Large,Background->RGBColor["#1c3d6d"]]]

Framed[
OpenerView[{
TextCell["6. 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"]]