QB レーティング・プログラム

week one のブレイディーの QB レーティング:

同じくロスリスバーガー:
f:id:ti-nspire:20150915094949j:plain

同じくラッセル・ウィルソン:
f:id:ti-nspire:20150915095150j:plain

同じくマリオタ (デビュー戦にして満点):
f:id:ti-nspire:20150915101308j:plain


プログラム:

Define qb_rating()=
Prgm
:Request "Number of passing attempts (ATT)?",att
:Request "Number of completions (COMP)?",comp
:Request "Passing yards (YDS)?",yds
:Request "Touchdown passes (TD)?",td
:Request "Interceptions (INT)?",intcpt
:
:a:=median({(((comp)/(att))*100-30)*0.05,0,2.375})
:b:=median({(((yds)/(att))-3)*0.25,0,2.375})
:c:=median({((td)/(att))*100*0.2,0,2.375})
:d:=median({2.375-((intcpt)/(att))*100*0.25,0,2.375})
:Disp "QB Rating = ",round(((a+b+c+d)/(6))*100,1)
:
:EndPrgm