OPL For Calculation Of Take Off V1/VR & V2 Speeds With Built In Climb Speed Function

Note:
 There is no error handling in these, it's up to you how you want to handle it.
So garbage in will give garbage out. (bit like the chief pilots office)
Revised 25-Mar-2001
 
Back To Index

 

-------------START---------------------

Proc TOFF:

REM I called this TOFF but you can call it whatever you like

LOCAL F,W,R,S,V2,VR,CS

REM Choose you own size font and style

Print "TAKE OFF FLAP SETTING",

Input F If F=15 R=104

Elseif F=5 R=112

Elseif F=25 R=96

Endif Print "ENTER ETOW IN 1,000's OF lbs",

Input W VR=((W-100)/2)+R V2=VR+12

REM Optional climb speed calculation assumes a 3,000lb burn off before entering climb.

CS=((W-103)/2)+270

REM 280 is the 100 series datum and 270 is the 200 series datum

CLS

Print "Weight",W;",000"

Print "Flap Setting",F Print "VR ","VR,"Kts" Print "V2 ",V2 Print "Climb Speed", CS

GET

ENDP

--------------------END------------------------------
Back To Index