FUNCIONES Y PROCEDIMIENTOS
MATRICES
Usando dos fórmulas:
1.- Campo Magnético
2.- Potencia
1.- Campo Magnético
B = U. I . N / L
Donde:
B = Tesla
U = Permeabilidad
I = Corriente
L = Inductancia
2.5 < L < 8
Incremento = 0.5
2.- Potencia
P = V . I . Cos(Alpha)
Donde:
P = Potencia
V = Voltaje
I = Corriente
60 < Alpha < 120
Incremento = 5
1.- Campo Magnético
Algoritmo:
1.- INICIO
2.- DECLARACIÓN
corriente, n, u <- real
campo (11) <- real
inicial, final, i, x <- real
3.- ASIGNACIÓN
x = 2.5
final = 8
Leer (corriente, n, u);
4.- PROCESO
Mientras (x <= final) Hacer
Leer campo [i] <- (u * corriente * n) /x;
i <- i + 1;
x <- x + 0.5;
FinMientras
FinProceso
SubProceso suma ()
Definir suma () como real
Suma = 0
Para <i = inicial> hacer <final>, i <- i + 1;
Suma <- suma + campo [i];
FinPara
Escribir (suma);
FinSubProceso
2.- Potencia
Algoritmo:
1.- INICIO
2.- DECLARACIÓN
Pi, v, corriente <- real
Alpha, potencia (120) <- real
Rad, inicial, final, i <- real
3.- ASIGNACIÓN
Alpha = 60
Final = 120
Pi = 3.1415
Leer (v, corriente)
4.- PROCESO
Mientras (Alpha <= final) Hacer
Rad <- (2*Pi*Alpha) / 360;
Leer potencia [i] <- v*corriente*cos(Rad);
I <- i + 1
Alpha <- Alpha + 5
FinMientras
FinProceso
SubProceso Maximo ()
i = 1
Maximo <- Potencia ()
Si Potencia [i] > Maximo Entonces
Maximo <- Potencia [i];
Sino
Maximo <- Maximo;
FinSi
Escribir (Maximo);
FinSubProceso