1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
%%
%% The LaTeX Graphics Companion, 2ed (first printing May 2007)
%%
%% Example D-6-1 on page .
%%
%% Copyright (C) 2007 Michel Goossens, Frank Mittelbach, Denis Roegel, Sebastian Rahtz, Herbert Vo\ss
%%
%% It may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%%
%% See http://www.latex-project.org/lppl.txt for details.
%%
\documentclass{ttctexaplate}
\pagestyle{empty}
\setcounter{page}{6}
\setlength\textwidth{413.44133pt}
\StartShownPreambleCommands
\usepackage{pst-func,amsmath}
\StopShownPreambleCommands
\begin{document}
\psset{xunit=0.2cm,yunit=10cm}
\begin{pspicture*}(-1,-0.1)(61,0.5)
\psaxes[Dx=5,dx=5\psxunit,Dy=0.2,dy=0.2\psyunit]{->}(60,0.48)
\uput[-90](60,0){$k$} \uput[0](0,0.48){$P(X=k)$}
\psBinomial[markZeros,linecolor={[cmyk]{0,1,0,0}}]{4}{.5}
\psset{linewidth=1pt}
\psBinomial[linecolor={[cmyk]{1,1,0,0}}]{5}{.5}
\psBinomial[linecolor=blue!50]{10}{.5}
\psBinomial[linecolor={[cmyk]{0,0,1,0.4}}]{20}{.5}
\psBinomial[linecolor={[cmyk]{0.7,0,0.8,0}}]{50}{.5}
\psBinomial[linecolor=cyan]{75}{.5}
\rput[l](25,0.4){$P(k) = P(k-1)\cdot\dfrac{N-k+1}{k}\cdot\dfrac{p}{1-p}$}
\rput[l](5,0.38){\color[cmyk]{0,1,0,0}$N=4;\, p=0.5$}
\rput[l](5,0.3){\color[cmyk]{1,1,0,0}$N=5;\, p=0.5$}
\rput[l](7,0.21){\color{blue!50}$N=10;\, p=0.5$}
\rput[l](12,0.16){\color[cmyk]{0,0,1,0.4}$N=20;\, p=0.5$}
\rput[l](25,0.14){\color[cmyk]{0.7,0,0.8,0}$N=50;\, p=0.5$}
\rput[l](40,0.1){\color{cyan}$N=75;\, p=0.5$}
\end{pspicture*}
\end{document}
|