cpuTasks=DynamicModule[{data,cpu,pid,assoc,command,percentage,input},data={RunProcess[{"ps", "-A", "-o" ,"%cpu"}],RunProcess[{"ps", "-A", "-o" ,"command"}]};cpu=ToExpression[#]&/@StringSplit[ StringDelete[Normal[data[[1]]][[2,2]],"%CPU"]];command=StringSplit[StringSplit[#,"/"][[-1]]][[1]]&/@StringSplit[StringDelete[data[[2]][[2]],"COMMAND"],"\n"];assoc=Take[Sort[AssociationThread[command,cpu],Greater],6];input=AssociationThread[Keys[assoc],Table[0,6,10]];Dynamic[data={RunProcess[{"ps", "-A", "-o" ,"%cpu"}],RunProcess[{"ps", "-A", "-o" ,"command"}]};cpu=ToExpression[#]&/@StringSplit[ StringDelete[Normal[data[[1]]][[2,2]],"%CPU"]];command=StringSplit[StringSplit[#,"/"][[-1]]][[1]]&/@StringSplit[StringDelete[data[[2]][[2]],"COMMAND"],"\n"];assoc=Take[Sort[AssociationThread[command,cpu],Greater],6];percentage=Values[assoc];Table[input[[i]]=Flatten[{Values[input][[i]],percentage[[i]]}][[-10;;]],{i,6}];ListLinePlot[input,AxesOrigin->{1,0},PlotLegends->{Keys[input]},Filling->Axis,ImageSize->{200,150}],TrackedSymbols:>{},UpdateInterval->.5]]