累積確率

Rでのプロット

d=4
y=20
df=rep(d,y)
byb=1
ncp=seq(from=0,to=y,by=byb)
cols=c(heat.colors(y+1)[1:y+1] )
lw=4
x=seq(0,y*2,length=700)

plot(x,pchisq(q=x,df=df[1],ncp=ncp[1]),type="l",lwd=lw,col=cols[1],xlab="",ylab="",ylim=c(0,1),cex.axis=1.5)
for(i in seq(from=2,to=y+1,by=byb)){
lines(x,pchisq(q=x,df=df[i],ncp=ncp[i]),col=cols[i],lwd=lw)}

カシオの計算サイトも使えます。