Modelo de Kostiakov!!

[Patricio Aranda Salinas]

Alguien sabe como desglozar el modelo de kostiakov para visual basic 6.0. lo
necesito para una aplicación de mineria.
de antemano gracias.

PAS

[Eduardo Olaz]

El modelo de kostiakov trata de dar respuesta a dos temas
relacionados con la permeabilidad de los suelos
1º - La infiltración acumulada por un suelo
2º - La velocidad de infiltración de un suelo

La ecuación general es:

I = a * t ^ b
I representa la infiltración acumulada en mm.
t es el tiempo en minutos
a y b son dos parámetros obtenidos empíricamente con pruebas de suelo
Para calcular la velocidad de infiltración derivamos la Infiltración
acumulada respecto a la variable tiempo
VI = dI/dt
por lo que derivando VI = a * b * t ^ (b-1)
VI nos dará la velocidad de infiltración en mm. por minuto

Por lo tanto podemos crear dos funciones
que nos calcularán la Infiltración acumulada
y la Velocidad de infiltración sabiendo a y b
y otras dos para calcular los parámetros a y b
sabiendo la infiltración acumulada
teniendo valores de infiltración acumulada
podremos calcular a y b por sucesivos tanteos
(esto último te lo dejo para tí)
____________________________________

Option Explicit

' Estas dos funciones devuelven los valores estimados de
' Infiltración Acumulada y Velocidad de Infiltración
' en suelos, siguiendo las ecuaciones de kostiakov
' edu...@olaz.net
Public Function InfiltracionAcumulada( _
ByVal a As Double, _
b As Double, _
t As Double) _
As Double
InfiltracionAcumulada = a * t ^ b
End Function

Public Function VelocidadDeInfiltracion( _
ByVal a As Double, _
b As Double, _
t As Double) _
As Double
VelocidadDeInfiltracion = a * b * t ^ (b - 1)
End Function

' Cálculo de los coeficientes a y b
' Si partimos del dato de la Infiltración Acumulada
Public Function CoeficienteA( _
ByVal InfiltracionAcumulada As Double, _
b As Double, _
t As Double) _
As Double
CoeficienteA = InfiltracionAcumulada / b / t
End Function

Public Function CoeficienteB( _
ByVal InfiltracionAcumulada As Double, _
a As Double, _
t As Double) _
As Double
CoeficienteB = InfiltracionAcumulada / a / t
End Function
____________________________________

Los Coeficientes a y b se deben calcular de forma empírica, con suficientes
ensayos, por ejemplo midiendo la InfiltracionAcumulada real.

Saludos desde la calle Estafeta de Pamplona

Eduardo Olaz
[Microsoft Access MVP]

edu...@olaz.net

"Patricio Aranda Salinas" <par...@directo.cl> escribió en el mensaje
news:OEZZ5DmwCHA.1928@TK2MSFTNGP10...

[nanus]

Estoy impresionado, lo que voy a fardar cuando esta tarde se lo cuente a mi
señora :)

"Eduardo Olaz" <edu...@olaz.net> escribió en el mensaje
news:uYjI0vmwCHA.2528@TK2MSFTNGP09...

[Eduardo Olaz]

Je, je... ;)

--