问一下；在用mathematica画图的时候，如何来调整纵坐标的大小啊，就像{x，-1，-5}一样，

用PlotRange 限定y轴的范围，用法PlotRange -> {min, max}，举例如下：

Plot[Sin[x], {x, -\[Pi], \[Pi]}, PlotRange -> {-05, 05}]

要画图的话自然还得补充x0和p1的值，我这里随便补了两个。如果你要调节的话，必须注意画图的时候所取的区域得选好。（语句的语法并不难，你应该知道怎么改吧。不知道的话就看看帮助）：

p1 = 1/2; x0 = 1;

eqn = Simplify@Sum[Binomial[x, k] p1^(k y) (1 - p1^y)^(x - k), {k, x0, x}] == 9/10;

ContourPlot[Evaluate@eqn, {x, 0, 10}, {y, 0, 5}]

注意用的软件版本不要太老，版本6以下的铁定是画不出来的。