Plotte Entropy mit tikz

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
\documentclass{article}
\usepackage{pgfplots}
\begin{document}
\begin{tikzpicture}[scale=1]
    % Axis
    \node (1) at (0,6.5) {$H(x)$};
    \node (2) at (7.5,0) {$p$};
    \begin{axis}[
        samples=100,
        smooth,
        domain=0.01:0.99,
        ]
            \foreach \N in {1,...,5} {%
            \addplot+ [mark = none] gnuplot[raw gnuplot] {%
                set samples 100;
                b(k, n, p) = n!/(k!*(n-k)!)*p**k*(1-p)**(n-k);
                plot[0.01:0.99] sum [k=0:\N] -b(k,\N,x)*log(b(k,\N,x))/log(2)
            };
            \addlegendentryexpanded{$B_\N$}
        }
        \end{axis}
\end{tikzpicture}
\end{document}
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX