Resultados
0 recomendaciones184 vistas
Este documento presenta un resumen de resultados de clases prácticas sobre el sistema de monitoreo de crecidas en El Sabinal. Incluye la topología del sistema dividido en subcuencas, el código VBA para calcular acumulaciones de lluvia y lluvias en subcuencas, y la definición final del boletín de monitoreo.
Resultados
- 1. 1 Clases prácticas. Resumen de resultados Angel Luis Aldana Valverde Consultor OMM Coordinador de PROHIMET (http://www.prohimet.org) angel.l.aldana@prohimet.org
- 2. 2 Topología del sistema Subdivisión en subcuencas tal y como aparece en el modelo de pronóstico de El Sabinal Subdivisión en subcuencas propuesta para el seguimiento de crecidas en El Sabinal Selección de estaciones y variables
- 3. 3 Código VBA-Excel.- Cálculo de acumulaciones de lluvias Public Function Acumula_Prec(pluv As Range, TolPCFallos As Double, numIntFinales As Integer) As Double Dim i As Integer Dim valor As Double Dim numInvalidos As Integer Dim pcFallos As Double Dim vmedio As Double valor = 0# numInvalidos = 0 For i = pluv.Count - numIntFinales + 1 To pluv.Count If pluv(i) < 0 Then numInvalidos = numInvalidos + 1 Else valor = valor + pluv(i) End If Next i pcFallos = numInvalidos / numIntFinales * 100# If pcFallos > TolPCFallos Then valor = Cte_ValorInvalido Else vmedio = valor / (numIntFinales - numInvalidos) valor = valor + vmedio * numInvalidos End If Acumula_Prec = valor End Function
- 4. 4 Código VBA-Excel.- Cálculo de lluvias en subcuencas Public Const Cte_ValorInvalido = -1 Public Function Pondera(valores As Range, pesos As Range) ' Suponemos valor inválido si valor<0. Dim v As Double Dim sumP As Double Dim i As Integer v = 0# sumP = 0# For i = 1 To valores.Count If valores(i) >= 0# Then v = v + valores(i) * pesos(i) sumP = sumP + pesos(i) End If Next i If sumP = 0 Then Pondera = Cte_ValorInvalido Else Pondera = v / sumP End If End Function
- 5. 5 Definición final del boletín