Proceso VARIABLES
Definir Menu Como Entero;
Escribir "********** MENÚ **********"
Escribir "INGRESE UNA OPCION";
Escribir "1. Armonico F(t)";
Escribir "2. Resonancia L(t)";
Escribir "3. Atenuacion Y(w)";
Escribir "4. Voltaje V";
Leer Menu;
Segun Menu Hacer
1:
Definir FT, FO, W, T Como Real;
Definir INICIAL, FINAL, INICIAL2, FINAL2 Como Entero;
Escribir "Ingrese la Frecuencia Inicial: ";
Leer FO;
//Escribir "Ingrese el Armónico";
//Leer W;
INICIAL <- 10;
FINAL <- 20;
INICIAL2 <- 100;
FINAL2 <- 200;
T <- FINAL;
Para T<-INICIAL Hasta FINAL Con Paso 2 Hacer
Escribir "Para un Tiempo T= ", T;
Escribir "-----------------------";
Para W<-INICIAL2 Hasta FINAL2 Con Paso 15 Hacer
FT <- (FO) * cos(W*T);
Escribir "La Frecuencia F(T)= ",FT, " Para W= ",W, " y Tiempo T= ",T;
Fin Para
Fin Para
2:
Definir LW, R, W, WO Como Real;
Definir INICIAL, FINAL Como Entero;
Escribir "Ingrese R: ";
Leer R;
Escribir "Ingrese WO: ";
Leer WO;
INICIAL <- 100;
FINAL <- 150;
W <- FINAL;
Para W<-INICIAL Hasta FINAL Con Paso 1.5 Hacer
LW <- (((R)^2)/((W - WO)^2 +(R)^2));
Escribir "La Resonancia L(W)= ", LW, " Para R= ", R, " y WO= ", WO;
Fin Para
3:
Definir YW, W Como Real;
Definir INICIAL, FINAL Como Entero;
//Escribir "INGRESE W: ";
//Leer W;
INICIAL <- 45;
FINAL <- 65;
W <- FINAL;
Para W <-INICIAL Hasta FINAL Con Paso 3.5 Hacer
YW <- sen (w) + 2*cos(2*w);
Escribir "La Atenuación Y(W)= ", YW, "Para W= ", W;
Fin Para
4:
Definir V, I, R Como Real;
Definir INICIAL, FINAL Como Entero;
Escribir "INGRESE I: ";
Leer I;
//Escribir "INGRESE R: ";
//Leer R;
INICIAL <- 80;
FINAL <- 100;
R <- FINAL;
Para R<-INICIAL Hasta FINAL Con Paso 5 Hacer
V <- (I)*(R);
Escribir "El Voltaje V= ", V, "Para I= ", I, "Para R= ", R;
Fin Para
De Otro Modo:
Escribir "System Failure";
Fin Segun
FinProceso
TITULO: RESONANCIA
OBJETIVO: Conocer mas sobre el tema de resonancia, aplicaciones y la funcion que
el al que aplica.
ALCANCE:
El fenómeno de la resonancia
JUSTIFICACION:
fenómeno para un caso sencillo como es el sistema resorte-masa, para luego ir más allá ilustrándolo con una serie de casos en los cuales el fenómeno está presente en la vida real, por ejemplo: en la comunicación entre insectos como los mosquitos al sintonizarse la frecuencia del aleteo de las hembras con las frecuencias naturales de las antenas de los machos, durante la ocurrencia de un sismo cuando la frecuencia de éste coincide con algunas de las frecuencias naturales de los edificios, en la vibración de ventanas cuando las notas musicales coinciden con alguno de los modos de vibración de éstas, en el diseño de los automóviles para evitar que las frecuencias del motor provoquen indeseables vibraciones en sus partes, y en el cuerpo humano sujeto a vibraciones en ciertas situaciones de la vida laboral. Finalmente, mostramos algunas prácticas y dispositivos que se pueden desarrollar en el laboratorio para inducir a los estudiantes a desarrollar un conocimiento detallado del fenómeno.
MARCO TEORICO:
Resonancia
Se dice que un circuito está en resonancia cuando existe en él, una tensión a una frecuencia igual a la natural de oscilación del circuito. Bajo estas condiciones el circuito tendrá las siguientes características:
-
El circuito presenta la menor impedancia.
-
La corriente que circula por el circuito será la mayor posible. En teoría tendería a infinito si no se limitara por la resistencia.
-
El circuito adicionalmente presenta características oscilatorias a una frecuencia más baja que la natural del sistema. Esta oscilación, en el tiempo, puede ser: amortiguada, cuando después de algunas oscilaciones se estabiliza o desaparece, permanente, cuando la oscilación permanece constante.
Esta condición es la más peligrosa en los sistemas de potencia, pues tiende al infinito, y en el caso real opera la protección o se dañan los equipos
MARCO PROCEDIMENTAL:
Proceso resonacia
Escribir "**********************************"
Escribir " resonacia magnetica";
Escribir "**********************************"
Definir L, C, F, Inicial1, Final1, Incial2, Final2 Como Real;
Inicial1<-0.003;
Final1<-4;
Inicial2<-20;
Final2<-90;
Para C<-Inicial1 Hasta Final1 Con Paso 0.003 Hacer
Para F<-Inicial2 Hasta Final2 Con Paso 0.7 Hacer
Si (C!=0) Entonces
L<-((1)/((4)*((PI)^2)*(C)*((F)^2)));
Escribir "El valor de L es:", L,", Para C:", C,", Para F:", F;
Escribir "AlgoritmoDJ"
SiNo
Escribir "Indeterminado";
Fin Si
Fin Para
Fin Para
FinProceso
BIBLIOGRAFIA
