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