Chiamata di procedura non valida

chiesto il 2016-09-09 08:10:20 +0100

Immagine gravatar per Iniziato

updated 2020-02-15 00:35:22 +0100

Immagine gravatar per akurery

Ciao a tutti! Eseguendo questo codice mi esce la dicitura in oggetto ma non capisco perché..

Il problema punta alla riga con la variabile tr = sqr(...)

function x1_tan_1(Xp As Double, Yp As Double, R As Double, Xc As Double,Yc As Double)

Dim pr As double Dim se As Double Dim tr As Double Dim den As Double

If Xp <> inf & Yp <> inf Then

pr = R^2    * (Xp - Xc)
se = R      * (Yp - Yc)
tr = sqr((Xp - Xc)^2 + (Yp - Yc)^2 - R^2)
den = (Xp - Xc)^2 + (Yp - Yc)^2

x1_tan_1 = ((pr + se * tr) / den) + Xc

else if Xp = "inf" then

x1_tan_1 = 0

else if Yp ="inf" Then

x1_tan_1 = Xc + R

end if

end function

modifica retag flag offensive close merge delete