UTILIZANDO SUB-PROCESO MAXIMO EN PSEINT
DIMENSIÓN vector(10);
inicial=1;
final=5;
//leer el vector
Para i<-incial Hasta final Con Paso 1 Hacer
Escribir "v[",i,"]=";Leer vector(i);
Fin Para
//minimo
Para i<-incial Hasta final Con Paso 1 Hacer
Si vector(i)<vector(i+1) Entonces
maxi=vector(i);
Sino
maxi=vector(i+1);
Fin Si
Escribir "el maximo es: ", maxi ;
Fin Para
Escribir "el maximo es: ",maxi;
Fin SubProceso
SubProceso mirarvector()
DIMENSION vector(10);
inicial=1;
final=10;
v=0
Para i<-inicial Hasta final Con Paso 1 Hacer
v=v+3
escribir "v[",i ,"]=", vector(i);
Escribir (v)
Fin Para
Fin SubProceso
SubProceso mínimo()
DIMENSIÓN vector(10);
inicial=1;
final=5;
//leer el vector
Para i<-incial Hasta final Con Paso 1 Hacer
Escribir "v[",i,"]=";leer vector(i);
Fin Para
//minimo
Para i<-incial Hasta final Con Paso 1 Hacer
Si vector(i)<vector(i+1) Entonces
mini=vector(i);
Sino
mini=vector(i+1);
Fin Si
Escribir "el minimo es: ", mini ;
Fin Para
escribir "el minimo es: ",mini;
Fin SubProceso
SubProceso promedio()
DIMENSION vector(10)
inicial=1;
final=10;
Para i<-incial Hasta final Con Paso 1 Hacer
escribir "ingrese V[",i,"]=";
//Leer vector(i);
Escribir "es:",vector(i);
Fin Para
//promedio
sumar=0
Para i<-incial Hasta final Con Paso 1 Hacer
sumar=sumar+vector(i);
escribir "el resultado es: ",sumar;
Fin Para
prom=sumar/final;
Escribir (prom);
Fin SubProceso
Proceso laurasadmaria
definir maxi, mini,sumar,inicial,final como real;
definir vector, i,v, opciones como entero;
escribir "ingrese una opción";
leer opciones ;
escribir " 1- calcular promedio";
escribir " 2- calcular mínimo";
escribir " 3- calcular mirarvector";
escribir " 4- calcular máximo";
Segun opciones Hacer
1:
promedio()
2:
minimo()
3:
mirarvector()
4:
maximo()
De Otro Modo:
escribir " no es determinado";
Fin Segun
finproceso
DIMENSION vector(10);
inicial=1;
final=5;
//leer el vector
Para i<-incial Hasta final Con Paso 1 Hacer
Escribir "v[",i,"]=";Leer vector(i);
Fin Para
//minimo
Para i<-incial Hasta final Con Paso 1 Hacer
Si vector(i)<vector(i+1) Entonces
maxi=vector(i);
Sino
maxi=vector(i+1);
Fin Si
Escribir "el maximo es: ", maxi ;
Fin Para
Escribir "el máximo es: ",maxi;
Fin SubProceso
SubProceso mirarvector()
DIMENSION vector(10);
inicial=1;
final=10;
v=0
Para i<-inicial Hasta final Con Paso 1 Hacer
v=v+3
escribir "v[",i ,"]=", vector(i);
Escribir (v)
Fin Para
Fin SubProceso
SubProceso minimo()
DIMENSION vector(10);
inicial=1;
final=5;
//leer el vector
Para i<-incial Hasta final Con Paso 1 Hacer
Escribir "v[",i,"]=";leer vector(i);
Fin Para
//minimo
Para i<-incial Hasta final Con Paso 1 Hacer
Si vector(i)<vector(i+1) Entonces
mini=vector(i);
Sino
mini=vector(i+1);
Fin Si
Escribir "el minimo es: ", mini ;
Fin Para
escribir "el minimo es: ",mini;
Fin SubProceso
SubProceso promedio()
DIMENSION vector(10)
inicial=1;
final=10;
Para i<-incial Hasta final Con Paso 1 Hacer
escribir "ingrese V[",i,"]=";
//Leer vector(i);
Escribir "es:",vector(i);
Fin Para
//promedio
sumar=0
Para i<-incial Hasta final Con Paso 1 Hacer
sumar=sumar+vector(i);
escribir "el resultado es: ",sumar;
Fin Para
prom=sumar/final;
Escribir (prom);
Fin SubProceso
Proceso laurasadmaria
definir maxi, mini,sumar,inicial,final como real;
definir vector, i,v, opciones como entero;
escribir "ingrese una opción";
leer opciones ;
escribir " 1- calcular promedio";
escribir " 2- calcular mínimo";
escribir " 3- calcular mirarvector";
escribir " 4- calcular máximo";
Segun opciones Hacer
1:
promedio()
2:
minimo()
3:
mirarvector()
4:
maximo()
De Otro Modo:
escribir " no es determinado";
Fin Según
fin proceso
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 complementació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 Fusión 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 mega proyecto, en el que participa España, están fabricando poderosos imanes superconductores (conocidos como bobinas de campo toroidal) para confinar el plasma super caliente 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 magnetico1
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 magnetico2
SubProceso fuerza2()
Escribir "calculo de la fuerza magnética sobre una carga";
Escribir "ingrese la carga";
Leer q;
Escribir "ingrese valor para campo magnético";
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 magnetico3
SubProceso campomagnetico()
Escribir "calculo del campo magnético";
Escribir "ingresa la permeabilidad magnética";
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 magnetico4
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 magnético";
escribir " 2-calculo del campo magnético";
escribir " 3-fuerza magnética sobre una carga";
escribir " 4-calculo de la fuerza sobre el cable";
escribir " elija una opción";
leer opción;
Según opción Hacer
1:
intensidad()
2:
campo magnetico()
3:
fuerza2()
4:
fuerza()
De Otro Modo:
escribir "no valido";
Fin Según
FinProceso