PPRuNe Forums - View Single Post - Rainy day tasks
Thread: Rainy day tasks
View Single Post
Old 2nd May 2014 | 00:57
  #9 (permalink)  
500ft
 
Joined: Feb 2013
Posts: 41
Likes: 0
From: New Zealand
Piper Classique

Did you find what you were looking for?

If you open excel Press ALT-F11, this will open a visual basic screen, then choose insert > module.

Then paste the following


Function GROUNDSPEED(TAS, WINDSPEED, WINDDIRECTION, TRACK)
GROUNDSPEED = Sqr((TAS * TAS) + (WINDSPEED * WINDSPEED) - (2 * TAS * WINDSPEED * Cos(WorksheetFunction.Radians(TRACK - WINDDIRECTION + 180))))
End Function

Function HEADING(TAS, WINDSPEED, WINDDIRECTION, TRACK)
HEADING = TRACK + WorksheetFunction.Degrees(WorksheetFunction.Asin(WINDSPEED / TAS * Sin(WorksheetFunction.Radians(TRACK - WINDDIRECTION + 180))))
End Function



Then close the module and visual basic.

You will now have 2 user defined functions which you can use for your formulas. You can use these like other formulas.

So if you have 100knts TAS, 20knots windspeed, 030 wind direction, 260 track.

=GROUNDSPEED(TAS, WINDSPEED, WINDDIRECTION, TRACK)
=HEADING(TAS, WINDSPEED, WINDDIRECTION, TRACK)

If you type =HEADING(100,20,030,260) the you will the answer 268.8
If you type =GROUNDSPEED(100,20,30,260) you will get 88.5

Just replace with references as required eg. =HEADING(B6,B7,B8,B9)

You can also use fx in the formula bar to remind you what goes where.

You will need to save the excel as macro enabled or the functions will not save
500ft is offline  
Reply