summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tkz-fct
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-03-09 21:17:50 +0000
committerKarl Berry <karl@freefriends.org>2020-03-09 21:17:50 +0000
commitbd33670c40e22d98ce78e5a68620a96a308733a2 (patch)
tree4356d32136f527ced8cd5035904eda4b2ecd1317 /Master/texmf-dist/tex/latex/tkz-fct
parent2f6b882099bed8fbee175a68cea9e6f27d03462e (diff)
rm tkz-fct, obsolete on ctan
git-svn-id: svn://tug.org/texlive/trunk@54206 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tkz-fct')
-rw-r--r--Master/texmf-dist/tex/latex/tkz-fct/tkz-fct.sty697
1 files changed, 0 insertions, 697 deletions
diff --git a/Master/texmf-dist/tex/latex/tkz-fct/tkz-fct.sty b/Master/texmf-dist/tex/latex/tkz-fct/tkz-fct.sty
deleted file mode 100644
index 881066229b0..00000000000
--- a/Master/texmf-dist/tex/latex/tkz-fct/tkz-fct.sty
+++ /dev/null
@@ -1,697 +0,0 @@
-% Copyright 2020 by Alain Matthes
-%
-% This file may be distributed and/or modified
-%
-% 1. under the LaTeX Project Public License and/or
-% 2. under the GNU Public License.
-% Objet : fonctions numériques en 2D with gnuplot
-% constants from tkz-base
-% \tkz@init@xstep
-% \tkz@init@ystep
-\typeout{2020/02/06 1.2 beta function tkz-fct}
-%<--------------------------------------------------------------------------->
-\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{tkz-fct}[2020/02/06 1.2 beta function ]
-\newcount\tkz@tkzf@fct
-\edef\tkzTWOPTCode{\the\catcode`\:}
-\tkz@tkzf@fct=0 %
-\def\tkzfctloaded{}
-%<--------------------------------------------------------------------------->
-% Initialisation
-%<--------------------------------------------------------------------------->
-\RequirePackage{tkz-base,fp}
-% % Code from Christian Tellechea 2009 % modified by AM
-% modified \FP@pow from fp.sty
-\def\FP@pow#1#2#3{%
- \FP@beginmessage{POW}%
- {\def\FP@beginmessage##1{}%
- \def\FP@endmessage##1{}%
- \FPifzero{#2}%
- \expandafter\@firstoftwo
- \else
- \expandafter\@secondoftwo
- \fi
- {\FP@pow@zero{#3}}%
- {\FPifint{#3}%
- \expandafter\@firstoftwo
- \else
- \expandafter\@secondoftwo
- \fi
-{\FPifneg{#2}%
- \FPneg\FP@tmpd{#2}%
- \FPln\FP@tmpd\FP@tmpd
- \FPmul\FP@tmpd\FP@tmpd{#3}%
- \FPexp\FP@tmpd\FP@tmpd
- \FPtrunc\FP@tmp{#3}0%
- \ifodd\FP@tmp
- \FPneg\FP@tmp\FP@tmpd
- \else
- \let\FP@tmp\FP@tmpd
- \fi
-\else
- \FPln\FP@tmpd{#2}%
- \FPmul\FP@tmpd\FP@tmpd{#3}%
- \FPexp\FP@tmp\FP@tmpd
-\fi
-}%
-{\FPln\FP@tmpd{#2}%
- \FPmul\FP@tmpd\FP@tmpd{#3}%
- \FPexp\FP@tmp\FP@tmpd}%
-}%
-\global\let\FP@tmp\FP@tmp}%
-\FP@endmessage{}%
-\let#1\FP@tmp}
-%<--------------------------------------------------------------------------->
-% Styles
-%<--------------------------------------------------------------------------->
-\def\tkzfctset#1{\pgfkeys{/tkztan/.cd,#1}}
-
-\tkzfctset{tan style/.style={->,>=latex}} %<--------------------------------------------------------------------------->
-% tkzFct
-%<--------------------------------------------------------------------------->
-\newif\iftkz@draw
-\newif\iftkz@fp
-\def\tkz@dmin{-5}\def\tkz@dmax{5}
-\global\let\tkz@tmp@xa\tkz@init@xmin% modif 2016
-\global\let\tkz@tmp@xb\tkz@init@xmax% modif 2016
-\global\let\tkz@tmp@ya\tkz@init@ymin% modif 2016
-\global\let\tkz@tmp@yb\tkz@init@ymax% modif 2016
-\catcode`\:=12
-\pgfkeys{/@tkzfct/.cd,
- domain/.code args = {#1:#2} {\FPeval\tkz@min{(#1)}
- \FPeval\tkz@max{(#2)}},
- domain = \tkz@tmp@xa:\tkz@tmp@xb,
- samples/.store in = \tkz@fct@samples,
- id/.store in = \tkz@fct@id,
- fp/.is if = tkz@fp,
- fp/.default = false,
- samples = 200,
- fp = true,
- id = tkzfct,
- /@tkzfct/.search also = {/tikz},
-}%
-
-\def\tkzFct{\pgfutil@ifnextchar[{\tkzActivOff\tkz@fct}{\tkz@fct[]}}
-\def\tkz@fct[#1]#2{%
-\pgfqkeys{/@tkzfct}{#1}%
-\iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
-\else
- \FPset{\tkz@x@delta}{0}%
- \FPset{\tkz@y@delta}{0}%
-\fi%
-% stockage
-\advance\tkz@tkzf@fct by 1 %
-\FPdiv\tkz@ba{\tkz@min}{\tkz@init@xstep}%
-\FPdiv\tkz@bb{\tkz@max}{\tkz@init@xstep}%
-\def\x{(x*\tkz@init@xstep)}%
-\expandafter\edef\csname tkzFctgnu\@alph\tkz@tkzf@fct \endcsname{#2}%
-\expandafter\edef\csname tkzFctgnuLast\endcsname{#2}
-% %%%%%%%
-\begin{scope}
- \clip (\tkz@xa,\tkz@ya) rectangle (\tkz@xb,\tkz@yb);
- \draw[#1, xshift = -\tkz@x@delta cm,yshift = -\tkz@y@delta cm]%
- plot[ samples = \tkz@fct@samples,id=\tkz@fct@id,
- domain= \tkz@ba:\tkz@bb] function{(#2)/\tkz@init@ystep};%
-\end{scope}
-% %%%%%%%
- \let\tkz@tmp@xstep\tkz@init@xstep
- \def\tkz@init@xstep{1}
-\iftkz@fp%
- \ReplaceSubStrings{\tkz@tempa}{#2}{log}{ln}
- \ReplaceSubStrings{\tkz@tempb}{\tkz@tempa}{**}{^}
- \ReplaceSubStrings{\tkz@tempa}{\tkz@tempb}{\x}{x}
- \ReplaceSubStrings{\tkz@tempb}{\tkz@tempa}{asin}{arcsin}
- \ReplaceSubStrings{\tkz@tempa}{\tkz@tempb}{acos}{arccos}
- \ReplaceSubStrings{\tkz@tempb}{\tkz@tempa}{atan}{arctan}
- \expandafter\edef\csname tkzFct\@alph\tkz@tkzf@fct\endcsname{\tkz@tempb}%
- \expandafter\edef\csname tkzFctLast\endcsname{\tkz@tempb}%
- \fi
- \let\tkz@init@xstep\tkz@tmp@xstep
- \catcode`\:=\tkzTWOPTCode\relax
-}%
-%<--------------------------------------------------------------------------->
-% point d'une courbe (new method)
-%<--------------------------------------------------------------------------->
-\pgfkeys{/tkzfctpt/.cd,
- draw/.is if = tkz@draw,
- draw/.default = true,
- with/.store in = \tkz@fct@used,
- ref/.store in = \tkz@fct@ref,
- draw = false,
- with = {},
- ref = {}
- }
-
-\def\tkzDefPointByFct{\pgfutil@ifnextchar[{\tkz@fctpoint}{\tkz@fctpoint[]}}
-\def\tkz@fctpoint[#1](#2){%
-\pgfqkeys{/tkzfctpt}{#1}
- \FPeval\x{(#2)}%
- \ifx\tkzutil@empty\tkz@fct@used
- \FPeval\tkz@fx{\tkzFctLast}
- \else
- \edef\tkz@fct{\csname tkzFct\tkz@fct@used\endcsname}
- \FPeval\tkz@fx{\tkz@fct}
- \fi
- \tkzDefPoint(\x,\tkz@fx){tkzPointResult}%
- \iftkz@draw
- \tkzDrawPoint(tkzPointResult)
- \fi
-\ifx\tkzutil@empty\tkz@fct@ref
-\else
- \tkzGetPoint{\tkz@fct@ref}
-\fi
-}%
-%<--------------------------------------------------------------------------->
-% tangente \tkzDrawTangentLine
-%<--------------------------------------------------------------------------->
-\pgfkeys{/@tkztan/.cd,
- with/.store in = \tkz@fct@used,
- kr/.store in = \tkz@tan@kr,
- kl/.store in = \tkz@tan@kl,
- draw/.is if = tkz@draw,
- draw/.default = true,
- draw = false,
- with = {},
- kr = 1,
- kl = 1,
- /@tkztan/.search also = {/tikz},
-}%
-%<--------------------------------------------------------------------------->
-\def\tkzDrawTangentLine{\pgfutil@ifnextchar[{\tkz@DrawTangentLine}{%
- \tkz@DrawTangentLine[]}}
-\def\tkz@DrawTangentLine[#1](#2){%
-\begingroup
-\pgfqkeys{/@tkztan}{#1}
-\FPeval\x{(#2)}%
-\ifx\tkzutil@empty\tkz@fct@used
- \FPeval\tkz@img{\tkzFctLast}
- \let\tkz@fct\tkzFctLast
-\else
- \edef\tkz@fct{\csname tkzFct\tkz@fct@used\endcsname}
- \FPeval\tkz@img{\tkz@fct}
- \fi
-\let\tkz@old@img\tkz@img
-\let\tkz@old@x\x
-\tkzDefPoint(\tkz@old@x,\tkz@old@img){tkzPointResult}
-\FPdiv{\tkz@krx}{\tkz@tan@kr}{\tkz@init@xstep}
-\FPdiv{\tkz@kry}{\tkz@tan@kr}{\tkz@init@ystep}
-\FPdiv{\tkz@klx}{\tkz@tan@kl}{\tkz@init@xstep}
-\FPdiv{\tkz@kly}{\tkz@tan@kl}{\tkz@init@ystep}
- % demi tgt--> droite
-\FPifzero{\tkz@tan@kr}%
-\else
-\FPadd{\x}{\tkz@old@x}{0.000001}%
-\FPeval\tkz@img{\tkz@fct}%
-\FPadd{\tkz@deltay}{\tkz@old@img}{-\tkz@img}%
-\FPmul{\tkz@slope}{\tkz@deltay}{1000000}%
-\protected@edef\tkz@temp{%
-\noexpand\draw[/tkztan/tan style,/@tkztan/.cd,#1]}\tkz@temp%
- (tkzPointResult)--++(\tkz@krx,-\tkz@kry*\tkz@slope);
-\fi
-% demi tgt --> gauche
-\FPifzero{\tkz@tan@kl}%
- \else
-\FPadd{\x}{\tkz@old@x}{-0.000001}
-\FPeval\tkz@img{\tkz@fct}%
-\FPadd{\tkz@deltay}{\tkz@old@img}{-\tkz@img}
-\FPmul{\tkz@slope}{\tkz@deltay}{-1000000}
-\protected@edef\tkz@temp{%
-\noexpand\draw[/tkztan/tan style,/@tkztan/.cd,#1]}\tkz@temp%
- (tkzPointResult)--++(-\tkz@klx,\tkz@kly*\tkz@slope);
- \fi
- \iftkz@draw
- \tkzDrawPoint(tkzPointResult)
- \fi
-\endgroup
-}
-%<--------------------------------------------------------------------------->
-% tkzArea
-%<--------------------------------------------------------------------------->
-\pgfkeys{%
-/tkzarea/.cd,
- domain/.code args={#1:#2} {\FPeval\tkz@min{(#1)}
- \FPeval\tkz@max{(#2)}},
- opacity/.store in = \tkz@fct@opacity,
- id/.store in = \tkz@fct@id,
- color/.store in = \tkz@fct@color,
- samples/.store in = \tkz@fct@samples,
- domain = -5:5,
- color = \tkz@otherlinecolor,
- samples = 200,
- id = tkzfonct,
- opacity = .5,
- /tkzarea/.search also = {/tikz}
- }
-\def\tkzArea{\pgfutil@ifnextchar[{\catcode`\:=12 \tkz@aire}{\tkz@aire[]}}
-\def\tkz@aire[#1]{%
-\begingroup
-\pgfqkeys{/tkzarea}{#1}
-\iftkz@init@NO
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
-\else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
-\fi%
-\def\x{(x*\tkz@init@xstep)}
-\FPdiv\tkz@ba{\tkz@min}{\tkz@init@xstep}%
-\FPdiv\tkz@bb{\tkz@max}{\tkz@init@xstep}%
-\begin{scope}[]
- \path[ fill,
- xshift = -\tkz@x@delta cm,
- yshift = -\tkz@y@delta cm,
- color = \tkz@fct@color,%
- fill opacity = \tkz@fct@opacity,#1,
- domain = \tkz@ba:\tkz@bb,
- samples = \tkz@fct@samples]%
- (\tkz@ba,0)--plot [id = \tkz@fct@id]%
- function{(\tkzFctgnuLast)/\tkz@init@ystep}--(\tkz@bb,0);
- \end{scope}
-\endgroup
-}
-\let\tkzDrawArea\tkzArea
-
-%<--------------------------------------------------------------------------->
-% tkzAreafg
-%<--------------------------------------------------------------------------->
-\pgfkeys{/@tkzareafg/.cd,
- domain/.code args ={#1:#2} {\FPeval\tkz@min{(#1)}
- \FPeval\tkz@max{(#2)}},
- between/.code args ={#1 and #2}{\def\tkz@below{#1}
- \def\tkz@above{#2}},
- opacity/.store in = \tkz@fct@opacity,
- id/.store in = \tkz@fct@id,
- color/.store in = \tkz@fct@color,
- samples/.store in = \tkz@fct@samples,
- domain = -5:5,
- between = a and b,
- color = lightgray,
- samples = 200,
- id = tkzfonct,
- opacity = .5,
- /@tkzareafg/.search also = {/tikz}
- }
-\def\tkzAreafg{\pgfutil@ifnextchar[{\tkz@airefg}{\tkz@airefg[]}}
-\def\tkz@airefg[#1]{%
-\begingroup
-\pgfqkeys{/@tkzareafg}{#1}
-\def\tkz@fctsup{\csname tkzFctgnu\tkz@below\endcsname}
-\def\tkz@fctinf{\csname tkzFctgnu\tkz@above\endcsname}
-\iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@xstep}%
-\else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
-\fi%
-% essai du test sur xstep
-\def\x{(x*\tkz@init@xstep)}
-\FPdiv\tkz@ba{\tkz@min}{\tkz@init@xstep}
-\FPdiv\tkz@bb{\tkz@max}{\tkz@init@xstep}
-\begin{scope}[domain = \tkz@ba:\tkz@bb,
- samples = \tkz@fct@samples,
- id = \tkz@fct@id]
- \clip (\tkz@ba,\tkz@ya)--plot function{(\tkz@fctsup)/\tkz@init@ystep}%
- --(\tkz@bb,\tkz@ya);%
- \clip (\tkz@ba,\tkz@yb)--plot function{(\tkz@fctinf)/\tkz@init@ystep}%
- --(\tkz@bb,\tkz@yb);
- \fill [color = \tkz@fct@color,
- fill opacity = \tkz@fct@opacity,
- /@tkzareafg/.cd,
- #1]%
- (\tkz@ba,\tkz@ya) rectangle (\tkz@bb,\tkz@yb);
-\end{scope}
-\endgroup
-}
-\let\tkzDrawAreafg\tkzAreafg
-\def\tkz@pamin{-5}\def\tkz@pamax{5}
-%<--------------------------------------------------------------------------->
-% tkzFctPar
-%<--------------------------------------------------------------------------->
-\def\tkzFctPar{\pgfutil@ifnextchar[{\catcode`\:=12 \tkz@fctp}{\tkz@fctp[]}}
-\def\tkz@fctp[#1]#2#3{%
-\begingroup
-\pgfkeys{/@tkzfct/.cd,
- domain = \tkz@pamin:\tkz@pamax,
- samples = 200,
- fp = true,
- id = tkzfct}
-\pgfqkeys{/@tkzfct}{#1}
- \iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
- \else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
- \fi%
- \begin{scope}[samples = \tkz@fct@samples]
- \tkzActivOff
- \clip (\tkz@xa,\tkz@ya) rectangle (\tkz@xb,\tkz@yb);
- \draw [xshift = -\tkz@x@delta cm,%
- yshift = -\tkz@y@delta cm,
- /@tkzfct/.cd, #1]%
- plot [parametric,domain = \tkz@min:\tkz@max,%
- id = tkzparfct]%
- function {(#2)/\tkz@init@xstep,(#3)/\tkz@init@ystep};
- \tkzActivOn
- \end{scope}
-\endgroup
-}
-%<--------------------------------------------------------------------------->
-% tkzFctPolar
-%<--------------------------------------------------------------------------->
-\def\tkz@pomin{0}\def\tkz@pomax{2*pi}
-\def\tkzFctPolar{\pgfutil@ifnextchar[{%
- \catcode`\:=12 \tkz@FctPolar}{\tkz@FctPolar[]}}
-\def\tkz@FctPolar[#1]#2{%
-\begingroup
-\pgfkeys{/@tkzfct/.cd,
- domain = \tkz@pomin:\tkz@pomax,
- fp = true,
- samples = 200,
- id = tkzfctpolar
- }
-\pgfqkeys{/@tkzfct}{#1}
- \iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
- \else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
- \fi%
-
- \begin{scope}
- \tkzActivOff
- \draw [xshift = -\tkz@x@delta cm,%
- yshift = -\tkz@y@delta cm,
- /@tkzfct/.cd, #1]%
- plot [raw gnuplot,id = tkzpolarfct]%
- function { set polar;set samples \tkz@fct@samples ; set trange [\tkz@min:\tkz@max]; plot (#2)/\tkz@init@xstep};
- \tkzActivOn
- \end{scope}
-\endgroup
-}
-%<--------------------------------------------------------------------------->
-% tkzDrawRiemannSum
-%<--------------------------------------------------------------------------->
-\pgfkeys{/@tkzriemann/.cd,
- interval/.code args={#1:#2} {\FPeval\tkz@min{(#1)}
- \FPeval\tkz@max{(#2)}},
- number/.store in = \tkz@fct@nb,
- opacity/.store in = \tkz@fct@opacity,
- color/.store in = \tkz@fct@color,
- /@tkzriemann/.search also = {/tikz},
-}
-\def\tkzDrawRiemannSum{\pgfutil@ifnextchar[{%
- \catcode`\:=12 \tkz@DrawRiemannSum}{\tkz@DrawRiemannSum[]}}
-\def\tkz@DrawRiemannSum[#1]{%
-\begingroup
-\pgfkeys{/@tkzriemann/.cd,
- interval = 1:2,
- number = 10,
- opacity = 0.5,
- line width = 1pt
-}
-\pgfqkeys{/@tkzriemann}{#1}
- \iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
- \else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
- \fi%
-\FPadd\tkz@intwd{\tkz@max}{-\tkz@min}
-\FPdiv\tkz@delta{\tkz@intwd}{\tkz@fct@nb}
-\FPadd\tkz@fct@nb{\tkz@fct@nb}{-1}
- \begin{scope}
-\foreach \i in {0,1,...,\tkz@fct@nb}{%
- \FPeval\x{(\tkz@min+i*\tkz@delta)}
- \FPeval\tkz@fx{\tkzFcta}
- \FPadd\tkz@next{\x}{\tkz@delta}
- \draw[ color=\tkz@fct@color,
- opacity=\tkz@fct@opacity,
- /@tkzriemann/.cd,#1] (\x ,0 ) rectangle (\tkz@next,
- \tkz@fx/\tkz@init@ystep );
-}
- \end{scope}
-\endgroup
-}
-%<--------------------------------------------------------------------------->
-% tkzDrawRiemannSumInf
-%<--------------------------------------------------------------------------->
-\pgfkeys{/@tkzriemann/.cd,
- interval/.code args={#1:#2} {\FPeval\tkz@min{(#1)}
- \FPeval\tkz@max{(#2)}},
- number/.store in = \tkz@fct@nb,
- opacity/.store in = \tkz@fct@opacity,
- color/.store in = \tkz@fct@color,
- /@tkzriemann/.search also = {/tikz},
- }
-\def\tkzDrawRiemannSumInf{\pgfutil@ifnextchar[{%
- \catcode`\:=12 \tkz@DrawRiemannSumInf}{\tkz@DrawRiemannSumInf[]}}
-\def\tkz@DrawRiemannSumInf[#1]{%
-\begingroup
-\pgfkeys{/@tkzriemann/.cd,
- interval = 1:2,
- number = 10,
- opacity = 0.5,
- line width = 1pt
- }
-\pgfqkeys{/@tkzriemann}{#1}
- \iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
- \else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
- \fi%
-\FPadd\tkz@intwd{\tkz@max}{-\tkz@min}
-\FPdiv\tkz@delta{\tkz@intwd}{\tkz@fct@nb}
-\FPadd\tkz@fct@nb{\tkz@fct@nb}{-1}
-
-\begin{scope}
-\foreach \i in {0,1,...,\tkz@fct@nb}{%
- \FPeval\x{(\tkz@min+i*\tkz@delta)}
- \FPeval\tkz@fx{\tkzFcta}
- \let\tkz@firstimg\tkz@fx
- \let\tkz@firstx\x
- \FPadd\tkz@next{\x}{\tkz@delta}
- \let\tkzFctTmp\tkzFcta
- \FPset\x{\tkz@next}
- \FPeval\tkz@fxnext{\tkzFcta}
- \ifdim \tkz@fx pt < \tkz@fxnext pt\relax
- \draw[opacity=\tkz@fct@opacity,/@tkzriemann/.cd,#1] (\tkz@firstx ,0 ) rectangle (\tkz@next , \tkz@firstimg/\tkz@init@ystep );
-\else
-\draw[opacity=\tkz@fct@opacity,/@tkzriemann/.cd,#1] (\tkz@firstx ,0 ) rectangle (\tkz@next , \tkz@fxnext/\tkz@init@ystep );
- \fi
- }
- \end{scope}
-\endgroup
-}
-%<--------------------------------------------------------------------------->
-% tkzDrawRiemannSumSup
-%<--------------------------------------------------------------------------->
-
-\def\tkzDrawRiemannSumSup{\pgfutil@ifnextchar[{%
- \catcode`\:=12 \tkz@DrawRiemannSumSup}{\tkz@DrawRiemannSumSup[]}}
-\def\tkz@DrawRiemannSumSup[#1]{%
-\begingroup
-\pgfkeys{/@tkzriemann/.cd,
- interval = 1:2,
- number = 10,
- opacity = 0.5,
- line width = 1pt
- }
-\pgfqkeys{/@tkzriemann}{#1}
- \iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
- \else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
- \fi%
-\FPadd\tkz@intwd{\tkz@max}{-\tkz@min}
-\FPdiv\tkz@delta{\tkz@intwd}{\tkz@fct@nb}
-\FPadd\tkz@fct@nb{\tkz@fct@nb}{-1}
-
-\begin{scope}
-\foreach \i in {0,1,...,\tkz@fct@nb}{%
- \FPeval\x{(\tkz@min+i*\tkz@delta)}
- \FPeval\tkz@fx{\tkzFcta}
- \let\tkz@firstimg\tkz@fx
- \let\tkz@firstx\x
- \FPadd\tkz@next{\x}{\tkz@delta}
- \let\tkzFctTmp\tkzFcta
- \FPset\x{\tkz@next}
- \FPeval\tkz@fxnext{\tkzFcta}
-\ifdim \tkz@fx pt > \tkz@fxnext pt\relax
- \draw[opacity=\tkz@fct@opacity,/@tkzriemann/.cd,#1] (\tkz@firstx ,0 ) rectangle (\tkz@next , \tkz@firstimg/\tkz@init@ystep );
-\else
-\draw[opacity=\tkz@fct@opacity,/@tkzriemann/.cd,#1] (\tkz@firstx ,0 ) rectangle (\tkz@next , \tkz@fxnext/\tkz@init@ystep );
- \fi
- }
- \end{scope}
-\endgroup
-}
-%<--------------------------------------------------------------------------->
-% tkzDrawRiemannSumMid
-%<--------------------------------------------------------------------------->
-
-\def\tkzDrawRiemannSumMid{\pgfutil@ifnextchar[{%
- \catcode`\:=12 \tkz@DrawRiemannSumMid}{\tkz@DrawRiemannSumMid[]}}
-\def\tkz@DrawRiemannSumMid[#1]{%
-\begingroup
-\pgfkeys{/@tkzriemann/.cd,
- interval = 1:2,
- number = 10,
- opacity = 0.5,
- line width = 1pt
- }
-\pgfqkeys{/@tkzriemann}{#1}
- \iftkz@init@NO%
- \FPdiv{\tkz@x@delta}{\tkz@init@xorigine}{\tkz@init@xstep}%
- \FPdiv{\tkz@y@delta}{\tkz@init@yorigine}{\tkz@init@ystep}%
- \else
- \FPset{\tkz@x@delta}{0}
- \FPset{\tkz@y@delta}{0}%
- \fi%
-\FPadd\tkz@intwd{\tkz@max}{-\tkz@min}
-\FPdiv\tkz@delta{\tkz@intwd}{\tkz@fct@nb}
-\FPadd\tkz@fct@nb{\tkz@fct@nb}{-1}
-
-\begin{scope}
-\foreach \i in {0,1,...,\tkz@fct@nb}{%
- \FPeval\x{(\tkz@min+i*\tkz@delta)}
- \FPeval\tkz@fx{\tkzFcta}
- \let\tkz@firstimg\tkz@fx
- \let\tkz@firstx\x
- \FPadd\tkz@next{\x}{\tkz@delta}
- \FPset\x{\tkz@next}
- \FPeval\tkz@fxnext{\tkzFcta}
- \FPeval\tkz@midimg{(\tkz@firstimg+\tkz@fxnext)/2}
-
- \draw[opacity=\tkz@fct@opacity,/@tkzriemann/.cd,#1] (\tkz@firstx ,0 ) rectangle (\tkz@next , \tkz@midimg/\tkz@init@ystep );
- }
- \end{scope}
-\endgroup
-}
-
-%<--------------------------------------------------------------------------–>
-% tkzXH F rien T et [ ou ]
-%<--------------------------------------------------------------------------–>
-\def\tkz@ComT{v} % need
-
-\pgfkeys{/@tkzxh/.cd,
- posgrad/.store in = \tkz@tkzXh@posgrad,
- left/.store in = \tkz@tkzXh@left,
- right/.store in = \tkz@tkzXh@right,
- color/.store in = \tkz@tkzXh@color,
- posgrad = {below=6 pt},
- color = \tkz@mainlinecolor,
- left = {},
- right = {},
- }
-\def\tkzXH{\pgfutil@ifnextchar[{\tkz@xh}{\tkz@xh[]}}
-\def\tkz@xh[#1]#2{%
- \pgfqkeys{/@tkzxh}{#1}
-\begingroup
-\foreach \xA/\RA/\sA/\xB/\RB/\sB in {#2}{%
- \tkzDefPoint(\xA,0){deb}\tkzDefPoint(\xB,0){fin}
- \begin{scope}[decoration={border,angle=-45,
- amplitude=0.3cm,segment length=2mm,raise=0.1cm}]
- \draw[decorate,\tkz@tkzXh@color,thick] (deb) -- (fin);
- \node at (deb) {\Large\textbf{\sA}};
- \node at (fin) {\Large\textbf{\sB}};
-\ifx\RA\tkz@ComT
- \protected@edef\tkz@temp{%
- \noexpand\node[\tkz@tkzXh@posgrad]}\tkz@temp at (deb){%
- \tkz@showgrad{\xA}$\numprint{\tkz@result}$};\fi
-
-\ifx\RB\tkz@ComT
- \protected@edef\tkz@temp{\noexpand\node[\tkz@tkzXh@posgrad]}\tkz@temp%
- at (fin){%
- \tkz@showgrad{\xB}$\numprint{\tkz@result}$};\fi
-
-\protected@edef\tkz@temp{%
- \noexpand\node[\tkz@tkzXh@posgrad]}\tkz@temp at (\tkz@xa,0) {\tkz@tkzXh@left};%
-\protected@edef\tkz@temp{\noexpand\node[\tkz@tkzXh@posgrad]}\tkz@temp%
- at (\tkz@xb,0) {\tkz@tkzXh@right};
-\end{scope}
-}%
-\endgroup
-}%
-% %<--------------------------------------------------------------------------->
-% % tangente obsolete
-% %<--------------------------------------------------------------------------->
-% \def\tkzTan{\pgfutil@ifnextchar[{\tkz@Tan}{\tkz@Tan[]}}
-%
-% \def\tkz@Tan[#1]#2(#3)#{
-% \pgfkeys{/@tkztan/.cd,
-% draw = false,
-% with = {},
-% kr = 1,
-% kl = 1
-% }
-% \pgfqkeys{/@tkztan}{#1}
-% \global\edef\tkz@opttan{#1}
-% \FPeval\x{(#3)}%
-% \FPeval\tkz@img{#2}
-% \let\tkz@yy #2%
-% \let\tkz@xx\x%
-% \let\tkz@old@img\tkz@img
-% \tkz@@Tan
-% }
-% \def\tkz@@Tan#1{%
-% \FPdiv{\tkz@old@x}{\x}{1}
-% \let\tkz@nexpty\tkz@img
-% \tkz@ptStar[](\tkz@old@x,\tkz@nexpty){#1}
-% \FPdiv{\tkz@krx}{\tkz@tan@kr}{\tkz@tmp@xstep}
-% \FPdiv{\tkz@kry}{\tkz@tan@kr}{\tkz@init@ystep}
-% \FPdiv{\tkz@klx}{\tkz@tan@kl}{\tkz@tmp@xstep}
-% \FPdiv{\tkz@kly}{\tkz@tan@kl}{\tkz@init@ystep}
-% % demi tgt--> droite
-% \FPifzero{\tkz@tan@kr}%
-% \else
-% \FPadd{\x}{\tkz@xx}{0.000001}%
-% \FPeval\tkz@img{\tkz@yy}%
-% \FPadd{\tkz@deltay}{\tkz@old@img}{-\tkz@img}%
-% \FPmul{\tkz@slope}{\tkz@deltay}{1000000}%
-% \protected@edef\tkz@temp{
-% \noexpand\draw[tan style,/@tkztan/.cd,\tkz@opttan,-]}\tkz@temp%
-% (#1)--++(\tkz@krx,-\tkz@kry*\tkz@slope);
-% \fi
-% % demi tgt --> gauche
-% \FPifzero{\tkz@tan@kl}%
-% \else
-% \FPadd{\x}{\tkz@xx}{-0.000001}
-% \FPeval\tkz@img{\tkz@yy}%
-% \FPadd{\tkz@deltay}{\tkz@old@img}{-\tkz@img}
-% \FPmul{\tkz@slope}{\tkz@deltay}{-1000000}
-% \protected@edef\tkz@temp{
-% \noexpand
-% \draw[tan style,/@tkztan/.cd,\tkz@opttan,-]}\tkz@temp%
-% (#1)--++(-\tkz@klx,\tkz@kly*\tkz@slope);
-% \fi
-% }
-%<--------------------------------------------------------------------------->
-% point d'une courbe obsolete
-%<--------------------------------------------------------------------------->
-\def\tkzFctPt{\pgfutil@ifnextchar[{\tkz@fctpt}{\tkz@fctpt[]}}
-\def\tkz@fctpt[#1]#2(#3)#{%
- \global\edef\tkz@optptfct{#1}
- \FPeval\x{(#3)}%
- \FPeval\tkz@y{#2}
- \tkz@defpoint
-}
-\def\tkz@defpoint#1{
- \tkzDefPoint(\x,\tkz@y){#1}
-\protected@edef\tkz@temp{
- \noexpand \tkzDrawPoint[\tkz@optptfct](#1)}\tkz@temp
- \let\tkz@init@xstep\tkz@tmp@xstep
-}
-%<-------------------------- the end --------------------------------------->
-\endinput
-
- \ No newline at end of file