Hello,
I have an unusual wind speed / crosswind problem.
I have formulas / functions to calculate headwind and crosswind given Wind Speed, Wind Direction and current heading.
These calculate the wind speed relative to the direction you are pointing and 90° left or right of the direction you are pointing.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Function Headwind(WindSpeed As Variant, WindDir As Variant, Heading As Variant) As Variant
If Len(Heading) = 0 Then
Headwind = ""
Else
Headwind = Round(WindSpeed * Cos((WindDir - Heading) * Application.WorksheetFunction.Pi / 180), 1)
End If
End Function
<o> </o>
Function Crosswind(WindSpeed As Variant, WindDir As Variant, Heading As Variant) As Variant
If Len(Heading) = 0 Then
Crosswind = ""
Else
Crosswind = Round(WindSpeed * Sin((WindDir - Heading) * Application.WorksheetFunction.Pi / 180), 1)
End If
End Function
<o> </o>
What I need to calculate is the wind speed at a specified angle from heading.
Example:
If Heading = 360°, Wind Direction = 060°, Wind Speed = 30kts
Then Headwind = 15kts and Crosswind, or the wind speed coming directly from the right or 090°, is 26kts.
<o> </o>
I need to calculate the relative wind speed coming from x° from the heading
Using the above example I need to calculate the wind speed at 015° or 030°
<o> </o>
Thanks in advance for your help.
Kevin
I have an unusual wind speed / crosswind problem.
I have formulas / functions to calculate headwind and crosswind given Wind Speed, Wind Direction and current heading.
These calculate the wind speed relative to the direction you are pointing and 90° left or right of the direction you are pointing.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Function Headwind(WindSpeed As Variant, WindDir As Variant, Heading As Variant) As Variant
If Len(Heading) = 0 Then
Headwind = ""
Else
Headwind = Round(WindSpeed * Cos((WindDir - Heading) * Application.WorksheetFunction.Pi / 180), 1)
End If
End Function
<o> </o>
Function Crosswind(WindSpeed As Variant, WindDir As Variant, Heading As Variant) As Variant
If Len(Heading) = 0 Then
Crosswind = ""
Else
Crosswind = Round(WindSpeed * Sin((WindDir - Heading) * Application.WorksheetFunction.Pi / 180), 1)
End If
End Function
<o> </o>
What I need to calculate is the wind speed at a specified angle from heading.
Example:
If Heading = 360°, Wind Direction = 060°, Wind Speed = 30kts
Then Headwind = 15kts and Crosswind, or the wind speed coming directly from the right or 090°, is 26kts.
<o> </o>
I need to calculate the relative wind speed coming from x° from the heading
Using the above example I need to calculate the wind speed at 015° or 030°
<o> </o>
Thanks in advance for your help.
Kevin