Overlay[
 Table[
  DiscretePlot[
   PDF[
    PascalDistribution[
     100,
     probab/100
     ],
    x
    ],
   {x, 100, 137},
   ImageSize -> 1000
   ],
  {probab, 75, 95, 5}
  ]
 ]
h[x_] = (RandomReal[{-1, 0}] x - RandomReal[{0, 1}])/(x^2 - 7); Plot[
 h[x], {x, -7, 7}]
DiscretePlot[
 Table[
   PDF[
    BinomialDistribution[100, p],
    k],
   {p, Range[10]/10}
   ] // Evaluate,
 {k, 100},
 PlotRange -> All,
 PlotMarkers -> Automatic,
 ExtentSize -> 1/2
 ]

Dear Peter, we noticed your interesting plots and special type characters.

Please let us know if you need any help to make them more appealing or behave better on cloud, and please feel free to create more posts if you have ideas to share.