Moderatori: Anthony47, Flash30005
Function TrovaPiano(AziF, InclF, DiamF, ProfA, ProfB, ProfC As Double) As Variant
PiGrec = Application.Pi
xD = DiamF / 2
yD = DiamF / 2
zD = ProfA - ProfB
xE = 0
yE = DiamF
zE = ProfA - ProfC
w1 = ((yE - yD) * (-zD) - (zE - zD) * (-yD))
w2 = ((zE - zD) * (-xD) - (xE - xD) * (-zD))
w3 = ((xE - xD) * (-yD) - (yE - yD) * (-xD))
RotOriz = (AziF) * PiGrec / 180
RotVert = (InclF - 90) * PiGrec / 180
u1 = w1
u2 = w2 * Cos(RotVert) + w3 * Sin(RotVert)
u3 = w2 * (-Sin(RotVert)) + w3 * Cos(RotVert)
v1 = u1 * Cos(RotOriz) + u2 * (Sin(RotOriz))
v2 = u1 * (-Sin(RotOriz)) + u2 * (Cos(RotOriz))
v3 = u3
If v3 < 0 Then
v1 = -v1
v2 = -v2
v3 = -v3
End If
If v2 = 0 Then
v2 = 0.000000001
End If
AziS = Atn(v1 / v2) * 180 / PiGrec
If v2 < 0 Then
AziS = AziS + 180
End If
If v2 >= 0 And v1 < 0 Then
AziS = AziS + 360
End If
InclS = 90 - (Atn(v3 / Sqr(v1 * v1 + v2 * v2))) * 180 / PiGrec
TrovaPiano = Array(AziS, InclS)
End Function
Torna a Applicazioni Office Windows
Calcolo numero giorni settimana nel periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 16 |
Calcolo del Bitrate per un formato CD Autore: franco11 |
Forum: Audio/Video e masterizzazione Risposte: 4 |
Visitano il forum: Nessuno e 75 ospiti