Random[Integer,{1,2}] Random[Integer,{-1,-2}] Expand[(x-(${zero1}))*(x-(${zero2}))] The zeroes are and . The expression now becomes . Expand[(x-(${zero1}))*(x-(${zero2}))] Plot[(x-(${zero1}))*(x-(${zero2})),{x,-3,3},{PlotStyle->Hue[.9],ImageSize->{320,320},GridLines->Automatic}]