home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / educatin / aviautl1.lbr / WNDTRNGL.BZS / WNDTRNGL.BAS
BASIC Source File  |  1987-03-22  |  2KB  |  35 lines
  1. 10 REM This program will solve the wind triangle for following a desired
  2. 20 'course. To solve it, the user must specify the wind direction, and velocity
  3. 30 'as well as the desired True Course and the cruise True Air Speed.  Wind
  4. 40 'velocity and TAS must be in similar units, i.e., both in knots or both in
  5. 50 'miles per hour.
  6. 51 'This program has been modified to run on an H/Z-89,H/Z-90 CP/M-80 system.
  7. 60 DEF FNRW=RW/180*3.14159'converts degrees to radians for PC
  8. 70 DEF FNDA=DA*180/3.14159'converts radians to degrees for display
  9. 80 REM input NAV and Wind data
  10. 90 PRINT CHR$(27);CHR$(69):PRINT TAB(30) "WNDTRNGL PROGRAM":PRINT
  11. 100 INPUT "Wind direction=";WD
  12. 110 INPUT "Wind Velocity=";WV
  13. 120 INPUT "True Course=";TC
  14. 130 INPUT "TAS=";TAS
  15. 140 RW=WD+TC+360'RW represents wind direction relative to desired course
  16. 150 IF RW<360 THEN 170
  17. 160 RW=WD-TC
  18. 170 PRP=SIN(FNRW)*WV'PRP is cross-wind component
  19. 180 WC=WV*COS(FNRW)'WC=along-course component of wind
  20. 190 DA=ATN(PRP/TAS/SQR(ABS(1-PRP*PRP/TAS/TAS)))
  21. 200 TH=TC+(FNDA)'TH=True Heading
  22. 210 IF TH>360 THEN LET TH=TH-360
  23. 220 IF TH<0 THEN LET TH=TH+360
  24. 230 EFFTAS=COS(DA)*TAS'EFFTAS is TAS (reduced by drift) component of GS
  25. 240 PRINT
  26. 250 PRINT
  27. 260 GS=EFFTAS-WC'GS=ground speed
  28. 270 PRINT"True Heading=";TH
  29. 280 PRINT "Ground Speed=";GS
  30. 281 PRINT
  31. 290 PRINT TAB(20)"Would you like to run another (Y or N)?";:X$=INPUT$(1)
  32. 300 IF X$="Y" THEN 90   
  33. 310 IF X$="N" THEN 320
  34. 320 PRINT CHR$(27);CHR$(69):END
  35.