Algoritmo INICIO
Escribir 'Ingrese los datos del parque eólico: '
Escribir 'densidad: '
Leer densidad
Escribir 'Área barrida 1: '
Leer ab1
Escribir 'Área barrida 2: '
Leer ab2
Escribir 'Área barrida 3: '
Leer ab3
Escribir 'Área barrida 4: '
Leer ab4
Escribir 'Coeficiente de Betz: '
Leer coef_betz
Escribir 'velocidad del viento: '
Leer velocidad
Escribir 'cantidad de turbinas 1: '
Leer ct1
Escribir 'cantidad de turbinas 2: '
Leer ct2
Escribir 'cantidad de turbinas 3: '
Leer ct3
Escribir 'cantidad de turbinas 4: '
Leer ct4
Si densidad<=0 O area_barrida<=0 O coef_betz<=0 O velocidad<=0
O cantidad_turbinas<=0 Entonces
Escribir 'Error: Todos los valores deben ser positivos o mayores
a cero.'
FinSi
pt1<- 0.5*densidad*coef_betz*velocidad^3*ab1*ct1/1000
pt2<- 0.5*densidad*coef_betz*velocidad^3*ab2*ct2/1000
pt3<- 0.5*densidad*coef_betz*velocidad^3*ab3*ct3/1000
pt4<- 0.5*densidad*coef_betz*velocidad^3*ab4*ct4/1000
Escribir 'pt 1: ', pt1
Escribir 'pt 2: ', pt2
Escribir 'pt 3: ', pt3
Escribir 'pt 4: ', pt4
potencia_teorica=pt1+pt2+pt3+pt4
Escribir 'Potencia teórica en Kw: ', potencia_teorica
Escribir 'Ingrese los datos del parque eólico para cálculo del
coeficiente P: '
Escribir 'velocidad del viento turbina 1: '
Leer vt1
Escribir 'velocidad del viento turbina 2: '
Leer vt2
Escribir 'velocidad del viento turbina 3: '
Leer vt3
Escribir 'velocidad del viento turbina 4: '
Leer vt4
Escribir 'Potencia obtenida 1: '
Leer po1
Escribir 'Potencia obtenida 2: '
Leer po2
Escribir 'Potencia obtenida 3: '
Leer po3
Escribir 'Potencia obtenida 4: '
Leer po4
coef_p1<- po1*1000/(0.5*densidad*ab1*vt1^3)
coef_p2<- po2*1000/(0.5*densidad*ab2*vt2^3)
coef_p3<- po3*1000/(0.5*densidad*ab3*vt3^3)
coef_p4<- po4*1000/(0.5*densidad*ab4*vt4^3)
Escribir 'Coeficiente P1: ', coef_p1
Escribir 'Coeficiente P2: ', coef_p2
Escribir 'Coeficiente P3: ', coef_p3
Escribir 'Coeficiente P4: ', coef_p4
pr1<- 0.5*densidad*ab1*coef_p1*velocidad^3*ct1/1000
pr2<- 0.5*densidad*ab2*coef_p2*velocidad^3*ct2/1000
pr3<- 0.5*densidad*ab3*coef_p3*velocidad^3*ct3/1000
pr4<- 0.5*densidad*ab4*coef_p4*velocidad^3*ct4/1000
Escribir 'Potencia real 1: ', pr1
Escribir 'Potencia real 2: ', pr2
Escribir 'Potencia real 3: ', pr3
Escribir 'Potencia real 4: ', pr4
potencia_real=pr1+pr2+pr3+pr4
Escribir 'Potencia real en Kw: ', potencia_real
eficiencia=(potencia_real/potencia_teorica)*100
Escribir "eficiencia: ', eficiencia
FinAlgoritmo