\documentclass[a4j]{jsarticle}
%\document...[a4j,eclepsf]{jarticle}
\usepackage{latexsym,amssymb,amsmath}
\usepackage[dviout]{graphicx,color}
\usepackage{wrapfig}
%2段に分けて図を入れるコマンド
% \rightfigure{ここに文章を入れる}{scale=0.4}{filename.eps}{図のキャプション}
% \leftfigure{ここに文章を入れる}{scale=0.4}{filename.eps}{図のキャプション}
%
% \rightfigure{
%   ここは図の左側にくる文章です．
%   }{scale=0.4}{filename.eps}{図のキャプション}
\newlength{\minitwocolumn}
\newcommand{\rightfigure}[4]{%
\setlength{\minitwocolumn}{0.5\textwidth}
\addtolength{\minitwocolumn}{-0.5\columnsep}%
\ \vspace*{-1\baselineskip}\\
\begin{minipage}[t]{\minitwocolumn}%
#1\end{minipage}%
\hspace{\columnsep}%
\begin{minipage}[t]{\minitwocolumn}%
\begin{center}
\ \vspace*{2mm}\\
\includegraphics[#2]{#3}\\
\refstepcounter{figure}
\vspace*{2mm}
図\thefigure:~#4
\end{center}\end{minipage}\\%
\vspace*{-0.16\baselineskip}
}%%%%
% \leftfigure{
%   ここは図の右側にくる文章です．
%   }{scale=0.4}{filename.eps}{図のキャプション}
\newcommand{\leftfigure}[4]{%
\begin{minipage}[t]{\minitwocolumn}
 \begin{center}
  \ \vspace*{2mm}\\
  \includegraphics[#2]{#3}\\
  \refstepcounter{figure}
  \vspace*{2mm}図\thefigure:~#4
 \end{center}
\end{minipage}%
\hspace{\columnsep}%
\begin{minipage}[t]{\minitwocolumn}%
  #1%
\end{minipage}%
\vspace*{-0.16\baselineskip}
}%%%%%


\title{2項分布とカイ2乗分布,ポアソン分布}
\begin{document}
\maketitle

\section{2項分布}
\noindent
これは2項分布で 
  \( Binom(n,p) = (8,\frac{3}{10}), (8,\frac{5}{10}), 
  (8,\frac{8}{10}) \)
の3通りを書いています。
\begin{wrapfigure}{r}{0.5\textwidth}
 \includegraphics[width=5.2cm, height=4.5cm]{binomial.eps}
 \label{}
 \caption{}
\end{wrapfigure}
\[
   \displaystyle p(k) = \binom{n}{k} p^k (1-p)^{n-k},\, k=0,1,2,\cdots,n
\]

\vspace{5cm}

%\begin{center}
%   \includegraphics[width=5.2cm, height=4.5cm]{binomial.eps}
%\end{center}

\noindent
上の3つのグラフをMathematica で描くコマンド；
\begin{verbatim}
ListPlot[Table[{k, 
   PDF[BinomialDistribution[8, p], k]}, 
   {p, {0.3, 0.5, 0.8}}, {k, 0, 8}], 
   PlotMarkers -> Automatic, Joined -> True, 
   PlotRange -> All]
\begin{center}
     \includegraphics[width=5.2cm, height=4.5cm]{binomial.eps}
\end{center}
\end{verbatim}

\leftfigure{
上の3つのグラフをMathematica で描くコマンド；
\begin{verbatim}
ListPlot[Table[{k, 
   PDF[BinomialDistribution[8, p], k]}, 
   {p, {0.3, 0.5, 0.8}}, {k, 0, 8}], 
   PlotMarkers -> Automatic, Joined -> True, 
   PlotRange -> All]
\end{verbatim}%
}{scale=0.4}{binomial.eps}{図のキャプション}



\newpage
\section{カイ2乗分布}
これはカイ2乗分布のパラメータ
\(
\nu = 10, 7, 5, 
\chi(10),\chi(7),\chi(5)
\) 
がつぎで与えられます。

\begin{center}
\begin{figure}[h]
%\begin{wrapfigure}{r}{0.5\textwidth}
   \includegraphics[width=5.2cm, height=4.5cm]{ChiSquare.eps}
   \label{} \caption{}
%\end{wrapfigure}
\end{figure}
\end{center}
\[
   \displaystyle f(x) = \mbox{(const)} x^{{\nu}/2-1} \exp(-x/2), \, x>0
\]


\begin{verbatim}
Plot[{PDF[ChiSquareDistribution[10], x], 
  PDF[ChiSquareDistribution[7], x], 
  PDF[ChiSquareDistribution[5], x]}, 
  {x, 0, 25}]
\begin{center}
  \includegraphics[width=5cm, height=5cm]%
  {ChiSquare.eps}
\end{center}
\end{verbatim}


\newpage
\section{ポアソン分布}


ポアソン分布のパラメータ、$\lambda=5, 7, 9, 11, 13$を変域が
$k=0,1,2,\cdots,20$ までを書いています。 
$\lambda=11,13$にもなると、だんだん正規分布に近くなることが
分かります。ポアソン分布は正規分布に早く収束します。

\begin{verbatim}
ListPlot[Table[
  {k, PDF[PoissonDistribution[l], k]}, 
  {l, 5, 13, 2}, {k, 0, 25}], 
  PlotMarkers -> Automatic, Joined -> True, 
  PlotRange -> All]
\begin{center}
  \includegraphics[width=5cm, height=5cm]
    {Poisson.eps}
\end{center}
\end{verbatim}

\begin{center}
\begin{figure}[h]
%\begin{wrapfigure}{r}{0.5\textwidth}
   \includegraphics[width=5.5cm, height=4.5cm]{Poisson.eps}
   \label{} \caption{}
%\end{wrapfigure}
\end{figure}
\end{center}
\[
   \displaystyle p(k) =  \dfrac{\lambda^k}{k!} e^{-\lambda}, 
   \, k=0,1,2,\cdots
\]



\end{document}


%% sample

\begin{wrapfigure}{r}{0.5\textwidth}
\begin{center}
\includegraphics[width=0.4\textwidth]{gradation_fig.eps}
\end{center}
\end{wrapfigure}
来シーズンのタイガースは，かなりやれそうである．というのは，監督がかなり本気であり，また外国人が安くしかも日本の野球にあいそうだからである．しかし，こういった議論は，毎年キャンプからシーズンが始まるまでのタイガースファンの一つの楽しみであり，実際成績が伴うことは少ない．．．（泣）

