if (tipoEjercicio==1 or tipoEjercicio==2) {	// Campo eléctrico
	DB="No usado";
	Domega="No usado";
	DTT="No usado";
	DR="No usado";
	Dd=0.126;
	if (ejercicio==1) {	// Datos: V, d, m, x, y, v0, sentidoCE
		// Datos
		Dm=d_m;
		DVV=d_V;
		Dv0=fc(d_v0);
		// Resultados
		Ca=r_a;
		CE=r_E;
		CF=r_F;
		Cq=r_q;
		// Respuestas
		Aa=a;
		AE=E;
		AF=F;
		Aq=q;
	}
	if (ejercicio==2) {
		// Datos
		Dx=d_m;
		Dq=d_V;
		Dm=fc(d_v0);
		Dv0=fc(d_v0);
		// Resultados
		Ca=r_a;
		CE=r_E;
		CF=r_F;
		CVV=r_VV;
		// Respuestas
		Aa=a;
		AE=E;
		AF=F;
		Aq=q;
		setProperty(_root.LA,_visible,false);
		setProperty(_root.LD,_visible,false);
		// Datos
		d_x=a_x;
		d_q=cargas[particula];
		d_m=masas[particula];
		d_signo=signos[particula];
		d_v0=Math.sqrt(cargas[particula]*a_V*d_x*d_x/(2*d_d*d_m*d_y));
		// Resultados
		r_a=d_y*d_v0*d_v0/(0.5*d_x*d_x);
		r_F=d_m*r_a;
		r_E=r_F/d_q;
		r_V=a_V;
		r_sentidoCE=sentidoCE;
		// Muestra inicial panel
		q=d_q;
		m=d_m;
		v0=fc(d_v0);
		signo=d_signo;
		// Para movimiento
		k=r_a/(2*d_v0*d_v0);
	}
	if (ejercicio==3) {
		// Datos
		d_x=a_x;
		d_q=cargas[particula];
		d_E=a_V/d_d;
		d_v0=Math.sqrt(cargas[particula]*a_V*d_x*d_x/(2*d_d*masas[particula]*d_y));
		d_sentidoCE=sentidoCE;
		// Resultados
		r_m=masas[particula];
		r_a=d_y*d_v0*d_v0/(0.5*d_x*d_x);
		r_F=r_m*r_a;
		r_V=a_V;
		r_signo=signos[particula];
		// Muestra inicial panel
		q=d_q;
		E=fc(d_E);
		v0=fc(d_v0);
		sCE=d_sentidoCE;
		// Para movimiento
		k=r_a/(2*d_v0*d_v0);
	}
	if (ejercicio==4) {
		setProperty(_root.LA,_visible,false);
		setProperty(_root.LD,_visible,false);
		// Datos
		d_x=a_x;
		d_q=cargas[particula];
		d_m=masas[particula];
		d_V=a_V;
		d_signo=signos[particula];
		// Resultados
		r_E=a_V/d_d;
		r_F=d_q*r_E;
		r_a=r_F/d_m;
		r_v0=Math.sqrt(d_q*a_V*d_x*d_x/(2*d_d*d_m*d_y));
		r_sentidoCE=sentidoCE;
		// Muestra inicial panel
		q=d_q;
		m=d_m;
		VV=d_V;
		signo=d_signo;
		// Para movimiento
		k=r_a/(2*r_v0*r_v0);
	}
}
if (tipoEjercicio==3 or tipoEjercicio==4) {	// Campo magnético
	setProperty(_root.LA,_visible,false);
	setProperty(_root.LD,_visible,false);
	setProperty(_root.letreroCE,_visible,false);
	setProperty(_root.LS,_visible,false);
	setProperty(_root.LE,_visible,false);
	VV="No usado";
	d="No usado";
	E="No usado";
	sCE="no";
	sentido=((signos[particula]=="+")?((sentidoCM=="S")?"D":"A"):((sentidoCM=="S")?"A":"D"));
	// Datos/valores aleatorios/fijos para cualquier ejercicio del tipo 1
	d_y=0.063;
	a_x=(Math.random()*150+80)/1000;
	a_v0=Math.random()*1e6;
	if (ejercicio==1) {
		_root.LS._visible=(sentidoCM=="S")?1:0;
		setProperty(_root.LE,_visible,(sentidoCM=="E")?1:0);
		// Datos y Resultados
		d_x=a_x;
		d_v0=a_v0;
		d_q=cargas[particula];
		d_sentidoCM=sentidoCM;
		r_R=(d_x*d_x+d_y*d_y)/(2*d_y);
		r_m=masas[particula];
		d_B=r_m*d_v0/(r_R*d_q);
		r_F=d_q*d_v0*d_B;
		r_omega=d_v0/r_R;
		r_T=2*Math.PI/r_omega;
		r_signo=signos[particula];
		// Muestra inicial panel
		q=d_q;
		v0=fc(d_v0);
		B=fc(d_B);
		sCM=d_sentidoCM;
	}
	if (ejercicio==2) {
		// Datos y Resultados
		d_q=cargas[particula];
		d_v0=a_v0;
		d_m=masas[particula];
		d_R=(a_x*a_x+d_y*d_y)/(2*d_y);
		d_signo=signos[particula];
		r_x=a_x;
		r_sentidoCM=sentidoCM;
		r_B=d_m*d_v0/(d_R*d_q);
		r_F=d_q*d_v0*r_B;
		r_omega=d_v0/d_R;
		r_T=2*Math.PI/r_omega;
		// Muestra inicial panel
		m=d_m;
		q=d_q;
		v0=fc(d_v0);
		R=fc(d_R);
		signo=d_signo;
	}
	if (ejercicio==3) {
		setProperty(_root.LS,_visible,(sentidoCM=="S")?1:0);
		setProperty(_root.LE,_visible,(sentidoCM=="E")?1:0);
		// Datos y Resultados
		d_x=a_x;
		d_q=cargas[particula];
		d_m=masas[particula];
		d_sentidoCM=sentidoCM;
		r_v0=a_v0;
		r_R=(d_x*d_x+d_y*d_y)/(2*d_y);
		d_B=d_m*r_v0/(r_R*d_q);
		r_F=d_q*r_v0*d_B;
		r_omega=r_v0/r_R;
		r_T=2*Math.PI/r_omega;
		r_signo=signos[particula];
		// Muestra inicial panel
		q=d_q;
		m=d_m;
		B=fc(d_B);
		sCM=d_sentidoCM;
	}
	if (ejercicio==4) {
		// Datos y Resultados
		d_x=a_x;
		d_v0=a_v0;
		d_signo=signos[particula];
		r_R=(d_x*d_x+d_y*d_y)/(2*d_y);
		r_m=masas[particula];
		r_q=cargas[particula];
		d_B=r_m*d_v0/(r_R*r_q);
		d_F=r_q*d_v0*d_B;
		r_omega=d_v0/r_R;
		r_T=2*Math.PI/r_omega;
		r_sentidoCM=sentidoCM;
		// Muestra inicial panel
		F=fc(d_F);
		v0=fc(d_v0);
		B=fc(d_B);
		signo=d_signo;
	}
}
if (tipoEjercicio==5) {	// Ambos campos
	setProperty(_root.LA,_visible,false);
	setProperty(_root.LD,_visible,false);
	setProperty(_root.LS,_visible,false);
	setProperty(_root.LE,_visible,false);
	sentidoCM=(sentidoCE=="A")?"S":"E";
	a_B=0.01+0.09*Math.random();
	a_E=10000+50000*Math.random();
	m="no usado";
	a="no usado";
	R="no usado";
	omega="no usado";
	TT="no usado";
	x="no usado";
	y="no usado";
	if (ejercicio==1) {
		setProperty(_root.LS,_visible,(sentidoCM=="S")?1:0);
		setProperty(_root.LE,_visible,(sentidoCM=="E")?1:0);
		// Datos y Resultados
		d_E=a_E;
		d_d=0.126;
		d_B=a_B;
		d_q=cargas[particula];
		d_sentidoCM=sentidoCM;
		d_signo=signos[particula];
		r_V=d_E*d_d;
		r_v0=d_E/d_B;
		r_F=d_q*d_E;
		r_sentidoCE=sentidoCE;
		// Muestra inicial panel
		E=d_E;
		d=d_d;
		B=fc(d_B);
		q=d_q;
		sCM=d_sentidoCM;
		signo=d_signo;
	}
	if (ejercicio==2) {
		setProperty(_root.LA,_visible,(sentidoCM=="S")?1:0);
		setProperty(_root.LD,_visible,(sentidoCM=="E")?1:0);
		// Datos y Resultados
		d_d=0.126;
		d_v0=a_E/a_B;
		d_B=a_B;
		d_q=cargas[particula];
		d_sentidoCE=sentidoCE;
		d_signo=signos[particula];
		r_E=a_E;
		r_V=r_E*d_d;
		r_F=d_q*r_E;
		r_sentidoCM=sentidoCM;
		// Muestra inicial panel
		v0=fc(d_v0);
		d=d_d;
		B=fc(d_B);
		q=d_q;
		sCE=d_sentidoCE;
		signo=d_signo;
	}
	if (ejercicio==3) {
		setProperty(_root.LS,_visible,(sentidoCM=="S")?1:0);
		setProperty(_root.LE,_visible,(sentidoCM=="E")?1:0);
		// Datos y Resultados
		d_E=a_E;
		d_d=0.126;
		d_v0=a_E/a_B;
		d_sentidoCM=sentidoCM;
		d_signo=signos[particula];
		r_B=a_B;
		r_q=cargas[particula];
		d_F=d_q*d_E;
		r_sentidoCE=sentidoCE;
		r_V=d_E*d_d;
		// Muestra inicial panel
		E=d_E;
		d=d_d;
		v0=fc(d_v0);
		F=fc(d_F);
		sCM=d_sentidoCM;
		signo=d_signo;
	}
	if (ejercicio==4) {
		setProperty(_root.LA,_visible,(sentidoCM=="S")?1:0);
		setProperty(_root.LD,_visible,(sentidoCM=="E")?1:0);
		// Datos y Resultados
		d_E=a_E;
		d_d=0.126;
		d_B=a_B;
		d_sentidoCE=sentidoCE;
		d_signo=signos[particula];
		r_q=cargas[particula];
		d_F=d_q*d_E;
		r_v0=a_E/a_B;
		r_V=d_E*d_d;
		r_sentidoCM=sentidoCM;
		// Muestra inicial panel
		E=d_E;
		d=d_d;
		B=fc(d_B);
		F=fc(d_F);
		sCE=d_sentidoCE;
		signo=d_signo;
	}
}
