summaryrefslogtreecommitdiff
path: root/graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty')
-rw-r--r--graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty91
1 files changed, 86 insertions, 5 deletions
diff --git a/graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty b/graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty
index 88e3ebaed4..5398bbbb0c 100644
--- a/graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty
+++ b/graphics/pgf/contrib/tkz-bernoulli/tex/tkz-bernoulli.sty
@@ -2,9 +2,10 @@
% licence : Released under the LaTeX Project Public License v1.3c or later, see http://www.latex-project.org/lppl.txtf
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{tkz-bernoulli}[2023/09/09 0.1.0 Draw Bernoulli tree with tikz]
+\ProvidesPackage{tkz-bernoulli}[2023/10/10 0.1.1 Draw Bernoulli tree with tikz]
%====HISTORIQUE
+% v 0.1.1 Correction de bugs + ajout d'une commande pour une épreuve de Bernoulli
% v 0.1.0 Version initiale [fr] et [en]
%====BASE
@@ -83,6 +84,45 @@
N=3
}
+\NewDocumentCommand\tkzEpreuvBernoulli{ s O{} D<>{} }{%
+ \useKVdefault[ArbreBernoulli]%
+ \setKV[ArbreBernoulli]{#2}%
+ \saveexpandmode\expandarg
+ \StrCut{\ArBinEvts}{/}{\ArBinSucces}{\ArBinEchec}%
+ \StrCut{\ArBinProbas}{/}{\ArBinProbSucces}{\ArBinProbEchec}%
+ \restoreexpandmode
+ \IfBooleanT{#1}%
+ {%
+ \begin{tikzpicture}[#3]
+ }%
+ \IfStrEq{\ArBinRacine}{false}%
+ {%
+ \coordinate (A0-1) at (0,0) ;%
+ \coordinate (B0-1) at (0,0) ;%
+ }%
+ {%
+ \coordinate (A0-1) at (0,0) ;%
+ \node[BernRacine] (B0-1) at (A0-1) {\ArBinRacine} ;%
+ }%
+ \coordinate (A1-1) at ($(A0-1)+({\ArBinIN},{0.5*\ArBinIF})$) ;
+ \coordinate (A1-2) at ($(A0-1)+({\ArBinIN},{-0.5*\ArBinIF})$) ;
+ \node[BernNoeudS] (B1-1) at (A1-1) {\ArBinSucces} ;%succès
+ \node[BernNoeudE] (B1-2) at (A1-2) {\ArBinEchec} ;%échec
+ \ifboolKV[ArbreBernoulli]{AffProbas}%
+ {%
+ \draw[BernBranche] (B0-1) -- (B1-1) node[BernProbaS] {\ArBinProbSucces} ;
+ \draw[BernBranche] (B0-1) -- (B1-2) node[BernProbaE] {\ArBinProbEchec} ;
+ }%
+ {%
+ \draw[BernBranche] (B0-1) -- (B1-1) ;
+ \draw[BernBranche] (B0-1) -- (B1-2) ;
+ }%
+ \IfBooleanT{#1}%
+ {%
+ \end{tikzpicture}%
+ }%
+}
+
\NewDocumentCommand\tkzSchemBernoulli{ s O{} D<>{} }{%
\useKVdefault[ArbreBernoulli]%
\setKV[ArbreBernoulli]{#2}%
@@ -104,6 +144,7 @@
%Racine
\IfStrEq{\ArBinRacine}{false}%
{%
+ \coordinate (A0-1) at (0,0) ;%
\coordinate (B0-1) at (0,0) ;%
}%
{%
@@ -160,7 +201,7 @@
\foreach \i in {1,...,\fpeval{2**\ArBinN}}{%
\def\itmp{\fpeval{2**\ArBinN-\i}}%
\def\ArBenTmpBin{\xintDecToBin{\itmp}}%
- \draw (B\ArBinN-\i) node[BernNotice] {$\longrightarrow X=\StrCount{\ArBenTmpBin}{1}$} ;
+ \draw (B\ArBinN-\i) node[BernNotice] {$\longrightarrow \ArBinVar=\StrCount{\ArBenTmpBin}{1}$} ;
}%
}%
{}%
@@ -227,7 +268,7 @@
\setKVdefault[BernoulliTree]{%
LevelSep=2.25,%
NodeSep=1,%
- Events={$S$/$E$},%
+ Events={$S$/$F$},%
Probs={$p$/$1-p$},%
Grid=false,%
ShowProbs=true,%
@@ -238,6 +279,45 @@
N=3
}
+\NewDocumentCommand\tkzBernoulliTrial{ s O{} D<>{} }{%
+ \useKVdefault[BernoulliTree]%
+ \setKV[BernoulliTree]{#2}%
+ \saveexpandmode\expandarg
+ \StrCut{\ArBinEvts}{/}{\ArBinSucces}{\ArBinEchec}%
+ \StrCut{\ArBinProbas}{/}{\ArBinProbSucces}{\ArBinProbEchec}%
+ \restoreexpandmode
+ \IfBooleanT{#1}%
+ {%
+ \begin{tikzpicture}[#3]
+ }%
+ \IfStrEq{\ArBinRacine}{false}%
+ {%
+ \coordinate (A0-1) at (0,0) ;%
+ \coordinate (B0-1) at (0,0) ;%
+ }%
+ {%
+ \coordinate (A0-1) at (0,0) ;%
+ \node[BernRoot] (B0-1) at (A0-1) {\ArBinRacine} ;%
+ }%
+ \coordinate (A1-1) at ($(A0-1)+({\ArBinIN},{0.5*\ArBinIF})$) ;
+ \coordinate (A1-2) at ($(A0-1)+({\ArBinIN},{-0.5*\ArBinIF})$) ;
+ \node[BernNodeS] (B1-1) at (A1-1) {\ArBinSucces} ;%succès
+ \node[BernNodeF] (B1-2) at (A1-2) {\ArBinEchec} ;%échec
+ \ifboolKV[BernoulliTree]{ShowProbs}%
+ {%
+ \draw[BernEdge] (B0-1) -- (B1-1) node[BernProbS] {\ArBinProbSucces} ;
+ \draw[BernEdge] (B0-1) -- (B1-2) node[BernProbF] {\ArBinProbEchec} ;
+ }%
+ {%
+ \draw[BernEdge] (B0-1) -- (B1-1) ;
+ \draw[BernEdge] (B0-1) -- (B1-2) ;
+ }%
+ \IfBooleanT{#1}%
+ {%
+ \end{tikzpicture}%
+ }%
+}
+
\NewDocumentCommand\tkzBernoulliTree{ s O{} D<>{} }{%
\useKVdefault[BernoulliTree]%
\setKV[BernoulliTree]{#2}%
@@ -259,6 +339,7 @@
%Racine
\IfStrEq{\ArBinRacine}{false}%
{%
+ \coordinate (A0-1) at (0,0) ;%
\coordinate (B0-1) at (0,0) ;%
}%
{%
@@ -267,7 +348,7 @@
}%
%Aide Racine
\ifboolKV[BernoulliTree]{Help}%
- {\draw[teal] (B0-1) node[below=4pt,font=\tiny\ttfamily] {A00} ;}%
+ {\draw[teal] (B0-1) node[below=4pt,font=\tiny\ttfamily] {B0-1} ;}%
{}%
%générations des nœuds du premier chemin
\foreach \i in {1,...,\ArBinN}{%
@@ -315,7 +396,7 @@
\foreach \i in {1,...,\fpeval{2**\ArBinN}}{%
\def\itmp{\fpeval{2**\ArBinN-\i}}%
\def\ArBenTmpBin{\xintDecToBin{\itmp}}%
- \draw (B\ArBinN-\i) node[BernGuide] {$\longrightarrow X=\StrCount{\ArBenTmpBin}{1}$} ;
+ \draw (B\ArBinN-\i) node[BernGuide] {$\longrightarrow \ArBinVar=\StrCount{\ArBenTmpBin}{1}$} ;
}%
}%
{}%