Interpolação Linear com VBA

Baseado no bom vídeo (não de minha autoria) abaixo, desenvolvi um simples método para fazer interpolação linear de valores. O objetivo da interpolação linear é obter valores dentro de um conjunto de dados.

 

Segue o código:

Public Function InterpolacaoLinear(ByVal x1 As Double, ByVal x2 As Double, ByVal y1 As Double, ByVal y2 As Double, _
 ByVal xa As Double) As Double
   '?InterpolacaoLinear( 0.4,0.4,4.05,4.1,0.4)
   Dim ya As Double
 
   If (xa - x1) = 0 Or (x2 - x1) = 0 Then
     ya = y1 + (y2 - y1)
   Else
     ya = y1 + (((xa - x1) / (x2 - x1)) * (y2 - y1))
   End If
 
   InterpolacaoLinear = ya
End Function

Veja também:
https://pt.wikipedia.org/wiki/Interpola%C3%A7%C3%A3o

 

Esta entrada foi publicada em Visual Basic 6.0 e VBA com as etiquetas , , , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s