WolframAlpha computational knowledge AI
discreteplot y = Power[60,k] * Power[e,(-60)] / k! for k from 0 .. 120, discreteplot y = Power[30,k] * Power[e,(-30)] / k! for k from 0 .. 120