Written Code
Myles_Zadok 15 Feb 2017 00:56
:ClrHome
:ClrList L1
:Input "L1 ",Str1
:expr("{"+Str1sto→L1
:Lbl SM
:Menu(" FIND? ","SAMPLE SD",SP,"MEAN",ME,"VARIANCE",VA,"POPULATION SD",PS,"POP VARIANCE",PV,"QUIT",QU
:Lbl SP
:Disp "STND. DEV. OF L1",stdDev(L1
:Pause
:Goto SM
:Lbl ME
:Disp "MEAN OF L1",mean(L1
:Pause
:Goto SM
:Lbl VA
:Disp "VARIANCE OF L1",variance(L1
:Pause
:Goto SM
:Lbl PS
:Disp "POP STND. DEV. OF L1",stdDev(augment(L1,{mean(L1
:Pause
:Goto SM
:Lbl PV
:(stdDev(augment(L1,{mean(L1)})))^2sto→A
:Disp "POPULATION VARIANCE OF L1",A
:Pause
:Goto SM
:Lbl QU
:Stop