UTILIZANDO SUB-PROCESO EN PSEINT

ALGORITMO1

//campo magnetico
SubProceso campo()
   Escribir "calculo del campo magnetico";
   Escribir "ingrese la corriente";
   Leer i;
   Escribir "ingrese la permeabilida magnetica";
   Leer u;
   Escribir "ingrese longitud";
   Leer l;
   inicial2=10;
   final2=100;
   Si l<>0 Entonces
       Para n<-inicial2 Hasta final2 Con Paso 15 Hacer
           b=u*i*n/l;
           Escribir "el campo magnetico es",b, "cuando el numero es n ", n;
       Fin Para
   Sino
       Escribir "no se puede determinar"
   Fin Si
Fin SubProceso

//tension
SubProceso tension()
   Escribir "calculo del procedimiento de la caida de la tension";
   Escribir "ingrese la corriente";
   Leer i;
   Escribir "ingrese la seccion";
   Leer s;
   ang=0.88;
   dro=0.0175;
   inicial1=2.5;
   final1=10;
   Si s<>0 Entonces
       Para p<-inicial1 Hasta final1 Con Paso 0.5 Hacer
           t=(dro*rc(3)*i*p*cos(ang))/s;
           Escribir "la caida de la tension es", t, "cuando la potencia es p", p;
       Fin Para
   Sino
       Escribir "no se puede determinar"
   Fin Si
Fin SubProceso

//corriente
   SubProceso corriente()
       Escribir "calculo del procedimiento de la corriente";
       Escribir "ingresa la resistencia";
       Leer r;
       Escribir "ingrese la impedancia inductiva";
       Leer xl;
       Escribir "ingrese la impedancia capacitica";
       Leer xc;
       inicial=110;
       final=220;
       Si xl<>xc Entonces
           Para v<-inicial Hasta final Con Paso 10 Hacer
               i<-v/(rc(r^2+(xl-xc)^2));
               Escribir "la corriente es", i, "cuandoel voltaje v", v;
           Fin Para
       Sino
           Escribir "xl es diferente que xc"
       Fin Si
   FinSubProceso



   Proceso parametro1

   Definir i,v,r,xl,xc Como Real;
definir t,dro,p,s,ang como real;
   definir b,u,n,l como real;
   definir inicial2,final2 como real;
   definir inicial1,final1 como real;
   definir inicial,final,opcion Como Entero;
   escribir " menu";
   escribir " 1-calculo de la corriente";
   escribir " 2-caida de tension";
   escribir " 3-campo magnetico";
   escribir " elija una opcion";
   leer opcion;
   Segun opcion Hacer
       1:
           corriente()
       2:
           tension()
       3:
           campo()
       De Otro Modo:
           escribir "no valido";
       Fin Segun



FinProceso

ALGORITMO2

// voltaje
SubProceso voltaje()
   escribir " ingrese valor para vo";
   leer vo;
   escribir " ingrese valor para angulo";
   leer w;
   inicio3=2;
   final3=15;
   Si vo>4 Entonces
       Para t<-inicio3 Hasta final3 Con Paso 2 Hacer
           vol=vo*t*sen(w);
           escribir "el voltaje es ",vol;
       Fin Para
   Sino
       escribir " es indeterminado";
   Fin Si
Fin SubProceso

//energia cinetica
SubProceso energiacinetica()
   escribir " ingrese valor para u";
   leer u;
   inicio2=10;
   final2=20;
   Si u<>0 Entonces
       Para m<-inicio2 Hasta final2 Con Paso 2 Hacer
           ec=(m*u^2)/2
           escribir "la energia cinetica es ",ec;
       Fin Para
   Sino
       escribir " es indeterminado";
   Fin Si
Fin SubProceso

// inductancia
SubProceso inductancia()
   escribir " ingrese valor para fm";
   leer fm;
   escribir " ingrese valor para i";
   leer i;
   inicio=100;
   final=200;
   Si i>2 Y i<10 Entonces
       Para n<-inicio Hasta final Con Paso 1.5 Hacer
           l=fm*n/i
           escribir "la inductancia es ",l;
       Fin Para
   Sino
       escribir " es indeterminado";
   Fin Si
Fin SubProceso

Proceso formulas
   definir l,fm,i,n,ec,u,v,m,vo,vol,w,t,menu Como Real;
   definir inicio,final,opcion,inicio2,final2,inicio3,final3 Como Entero;
   Escribir "menu";
   Escribir "1-inductancia";
   Escribir "2-energia cinetica";
   Escribir "3-voltaje";
   escribir " ingrese opcion";
   leer opcion;
   Segun opcion Hacer
       1:
           inductancia()
       2:
           energiacinetica()
       3:
           voltaje()
       De Otro Modo:
           escribir "fuera de rango"
       Fin Segun

FinProceso

CAMPO MAGNETICO

OBJETIVOS:

Dar a conocer las propiedades del magnetismo, así como la forma en que se generan los campos magnéticos y su relación con los polos a través de la implementación del método científico para identificar su importancia en el desarrollo y bienestar de la humanidad.
Conocer los efectos del campo magnético sobre las cargas en movimiento.
Determinar la fórmula de la fuerza que ejerce un campo magnético sobre una corriente y el momento sobre una espira.
Obtener, aplicando la ley de Ampère, el campo magnético producido por una corriente rectilínea, un solenoide y un toroide.
Calcular el flujo de campo magnético a través de una superficie.

ALCANCES:

Investigación: ¿qué tanto alcance tiene el imán?

La organización europea Fusion for Energy (F4E), con sede en Barcelona, acaba de informar que ya está listo el imán más sofisticado del mundo. Formará parte de los equipos que se están instalando al sur de Francia en el ITER, la mayor máquina experimental que demostrará la viabilidad de la energía de fusión nuclear. Los responsables de este megaproyecto, en el que participa España, están fabricando poderosos imanes superconductores (conocidos como bobinas de campo toroidal) para confinar el plasma supercaliente del reactor experimental, que se espera alcance una temperatura de 150 millones de grados centígrados.

Cada una de estas bobinas tiene una altura de 13 metros, una anchura de 9 metros y pesa aproximadamente 300 toneladas, tanto como un Boeing 747. Cuando sean propulsadas con 68.000 amperios, generarán un campo magnético que alcanzará 11,8 teslas, aproximadamente un millón de veces más poderoso que el campo magnético de la Tierra.

JUSTIFICACION:

El campo magnético también es importante ya que sin este la vida no podría existir ni desarrollarse en el planeta tierra. Migraciones de las aves guiadas por el campo magnético terrestre. Algunos animales pueden determinar las líneas de la ubicación geográfica de la tierra, gracias al campo magnético de la tierra desarrollaron este sentido de la orientación como las palomas mensajeras estas vuelan según un rumbo de la brújula de imán ,sin una orientación no es posible que se ubiquen dentro de la atmosfera terrestre. Para los seres humanos después de los primeros vuelos al espacio, los astronautas tuvieron serios problemas de salud, se habló del "mal del espacio" que fue causado por la falta del campo geomagnético natural. Desde entonces, la NASA incluye generadores de campo magnético para generar un campo magnético artificial en las cápsulas espaciales, no hubo problemas de salud nunca más.

Gracias a este campo magnético la vida se desarrolló de forma normal, sin el seguramente no habría vida en el planeta tierra.

MARCO TEORICO:

Un campo magnético es una descripción matemática de la influencia magnética de las corrientes eléctricas y de los materiales magnéticos. El campo magnético en cualquier punto está especificado por dos valores, la dirección y la magnitud; de tal forma que es un campo vectorial. Específicamente, el campo magnético es un vector axial, como lo son los momentos mecánicos y los campos rotacionales. El campo magnético es más comúnmente definido en términos de la fuerza de Lorentz ejercida en cargas eléctricas.

El término se usa para dos campos distintos pero estrechamente relacionados, indicados por los símbolos B y H, donde, en el Sistema Internacional de Unidades, H se mide en unidades de amperios por metro y B se mide en teslas o newtons por metro por amperio. Los campos magnéticos se producen por cualquier carga eléctrica producida por los electrones en movimiento y el momento magnético intrínseco de las partículas elementales asociadas con una propiedad cuántica fundamental, su espín.

MARCO PROCEDIMENTAL:

//campo magnetico4

SubProceso fuerza()

Escribir "calculo de la fuerza sobre el cable";

Escribir "ingrese la corriente sobre un cable";

Leer il;

inicial2=10;

final2=100;

Si il<>0 Entonces

Para b<-inicial2 Hasta final2 Con Paso 10 Hacer

f=il*b;

Escribir "la fuerza sobre el cable es",f, "cuando la corriente es ", il;

Fin Para

Sino

Escribir "no se puede determinar"

Fin Si

Fin SubProceso

//campo magnetico3

SubProceso fuerza2()

Escribir "calculo de la fuerza magnetica sobre una carga";

Escribir "ingrese la carga";

Leer q;

Escribir "ingrese valor para campo magnetico";

Leer b;

Escribir "ingrese valor para angulo";

Leer ang;

inicial1=15;

final1=150;

Si q<>0 Entonces

Para v<-inicial1 Hasta final1 Con Paso 12 Hacer

fm=q*v*b*sen(ang);

Escribir "la fuerza magnetica es ", fm, "cuando la carga es ", q;

Fin Para

Sino

Escribir "no se puede determinar"

Fin Si

Fin SubProceso

//campo magnetico2

SubProceso campomagnetico()

Escribir "calculo del campo magnetico";

Escribir "ingresa la permeabilidad magnetica";

Leer u;

Escribir "ingrese el numero de espiras";

Leer n;

Escribir "ingrese la corriente";

Leer i;

inicial=52;

final=220;

Si i<>n Entonces

Para l<-inicial Hasta final Con Paso 22 Hacer

b=u*n*i/l;

Escribir "el campo magnetico es ", b, "cuando i es", i;

Fin Para

Sino

Escribir "no es determinado"

Fin Si

FinSubProceso

//campo magnetico 1

SubProceso intensidad()

Escribir "calculo de la intensidad del campo magnetico";

Escribir "ingresa el numero de vueltas de una bobina";

Leer nv;

Escribir "ingrese la intensidad de la corriente";

Leer i;

inicial3=80;

final3=95;

Si i<>nv Entonces

Para l<-inicial3 Hasta final3 Con Paso 0.1 Hacer

h=nv*i/l;

Escribir "la intensidad del campo magnetico es ",h, "cuando la impedancia es ", i;

Fin Para

Sino

Escribir "no es determinado"

Fin Si

FinSubProceso

Proceso parametro1

Definir f,il,b Como Real;

definir fm,v,q,ang como real;

definir i,u,n,l como real;

definir h,nv como real;

definir inicial3,final3 como real;

definir inicial2,final2 como real;

definir inicial1,final1 como real;

definir inicial,final,opcion Como Entero;

escribir " menu";

escribir " 1-calculo de la intensidad del campo magnetico";

escribir " 2-calculo del campo magnetico";

escribir " 3-fuerza magnetica sobre una carga";

escribir " 4-calculo de la fuerza sobre el cable";

escribir " elija una opcion";

leer opcion;

Segun opcion Hacer

intensidad()

campomagnetico()

fuerza2()

fuerza()

De Otro Modo:

escribir "no valido";

Fin Segun

FinProceso

CONCLUSIONES:

Como conclusión a todo esto que hemos estudiado podemos decir en resumen que, el magnetismo es un fenómeno físico por el que los materiales ejercen fuerzas de atracción o repulsión sobre otros materiales. El magnetismo se utiliza para el diseño de todos los motores y generadores, y electroimanes. El magnetismo de los materiales es el resultado del movimiento de los electrones dentro de sus átomos. Los átomos en el material magnético se orientan en una sola dirección y en los no magnéticos se orientan al azar.

BIBLIOGRAFIA:

http://www.sc.ehu.es/sbweb/ocw-fisica/intro/guia_docente/magnetico.xhtml

https://es.wikipedia.org/wiki/Campo_magn%C3%A9tico

https://www.abc.es/ciencia/abci-iman-mas-poderoso-mundo-generara-campo-magnetico-millon-veces-tierra-201705231139_noticia.html

https://es.slideshare.net/AdelisOGarciaF/campo-magnetico-trabajo

https://prezi.com/mmmqpphxtuyu/importancia-del-campo-magnetico/

UTILIZANDO SUB-PROCESO EN PSEINT

ALGORITMO1

ALGORITMO2

​

CAMPO MAGNETICO