diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/tkz-base/tkz-tools-math.tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/tkz-base/tkz-tools-math.tex | 117 |
1 files changed, 0 insertions, 117 deletions
diff --git a/Master/texmf-dist/tex/latex/tkz-base/tkz-tools-math.tex b/Master/texmf-dist/tex/latex/tkz-base/tkz-tools-math.tex deleted file mode 100644 index f42d57397bc..00000000000 --- a/Master/texmf-dist/tex/latex/tkz-base/tkz-tools-math.tex +++ /dev/null @@ -1,117 +0,0 @@ -% tkz-tools-math.tex -% 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. -\def\fileversion{3.02c} -\def\filedate{2020/01/24} -\typeout{2020/01/24 3.02c tkz-tools-math.tex} -\makeatletter -%<--------------------------------------------------------------------------> -% \tkzpointnormalised normalise un point A-->A' tq ||v(OA')=1|| -% équivalent de \pgfpointnormalised avec fp -% example -% \tkzpointnormalised{% -% \pgfpointdiff{\pgfpointanchor{A}{center}} -% {\pgfpointanchor{B}{center}}} - -% or -% \pgf@x=1 cm -% \pgf@y=12 cm -% \tkzpointnormalised{} -%<-------------------------------------------------------------------------- -\def\tkzpointnormalised#1{% -\pgf@process{#1}% -\edef\tkz@den{\fpeval{sqrt((\pgf@x)^2+(\pgf@y)^2)}} -\edef\tkz@coordx{\fpeval{\pgf@x/\tkz@den}} -\edef\tkz@coordx{\fpeval{round(\tkz@coordx,5)}} -\edef\tkz@coordy{\fpeval{\pgf@y/\tkz@den}} -\edef\tkz@coordy{\fpeval{round(\tkz@coordy,5)}} -\pgf@x = \tkz@coordx pt -\pgf@y = \tkz@coordy pt -} -%<--------------------------------------------------------------------------> -% restaure and save length -\def\tkz@save@length{% -\global\let\tkz@temp@length\tkzLengthResult}% -\def\tkz@restore@length{% - \global\let\tkzLengthResult\tkz@temp@length }% -%<--------------------------------------------------------------------------> -% \tkzCalcLength Distance entre deux points en pt ou en cm avec xfp -% \veclen mais avec fp -% option cm le résultat est en cm sinon en pt -%<--------------------------------------------------------------------------> -\pgfkeys{tkzcalclen/.cd, - cm/.is if = tkzLengthIncm, - cm/.default = true} - -\def\tkzCalcLength{\pgfutil@ifnextchar[{\tkz@CalcLength}{\tkz@CalcLength[]}} -\def\tkz@CalcLength[#1](#2,#3){% -\pgfkeys{tkzcalclen/.cd, cm = false} -\pgfqkeys{/tkzcalclen}{#1}% -\begingroup -\tkz@@CalcLength(#2,#3){tkzLengthResult} -\iftkzLengthIncm - \pgfmathparse{\tkz@xfpMathLen pt/1cm} - \edef\tkz@xfpMathLen{\fpeval{round(\pgfmathresult,5)}} - \global\let\tkzLengthResult\tkz@xfpMathLen -\fi -\endgroup -}% -\def\tkz@@CalcLength(#1,#2)#3{% -\pgfpointdiff{\pgfpointanchor{#1}{center}}% - {\pgfpointanchor{#2}{center}}% -\edef\tkz@xfpMathLen{\fpeval{sqrt((\pgf@x)^2+(\pgf@y)^2)}} -\edef\tkz@xfpMathLen{\fpeval{round(\tkz@xfpMathLen,5)}} -\global\expandafter\edef\csname #3\endcsname{\tkz@xfpMathLen} -} -%<--------------------------------------------------------------------------> -\def\tkzGetLength#1{% -\global\expandafter\edef\csname #1\endcsname{\tkzLengthResult}} -%<--------------------------------------------------------------------------> -% \tkzpttocm passage de pt cm div par 28.45274 -%<--------------------------------------------------------------------------> -\def\tkzpttocm(#1)#2{% -\begingroup - \pgfmathparse{#1/1cm} - \edef\tkz@mathresult{\fpeval{round(\pgfmathresult,5)}} - \global\let\tkz@mathresult\tkz@mathresult - \global\expandafter\edef\csname #2\endcsname{\tkz@mathresult}% -\endgroup -}% -%<--------------------------------------------------------------------------> -% \tkzcmtopt passage de cm pt mul par 28.45274 -%<-------------------------------------------------------------------------- -\def\tkzcmtopt(#1)#2{% -\begingroup - \pgfmathparse{#1/1pt} - \edef\tkz@mathresult{\fpeval{round(\pgfmathresult,5)}} - \global\let\tkz@mathresult\tkz@mathresult - \global\expandafter\edef\csname #2\endcsname{\tkz@mathresult}% -\endgroup -}% -%<--------------------------------------------------------------------------> -% Slope -%<--------------------------------------------------------------------------> -\def\tkzFindSlope{\tkz@FindSlope} -\def\tkz@FindSlope(#1,#2)#3{% -\begingroup - \tkzpointnormalised{\pgfpointdiff{\pgfpointanchor{#1}{center}}% - {\pgfpointanchor{#2}{center}}} - \edef\tkz@Slope{\fpeval{\pgfmath@tonumber{\pgf@y}/\pgfmath@tonumber{\pgf@x}}} - \edef\tkz@Slope{\fpeval{round(\tkz@Slope,5)}} - \global\expandafter\edef\csname #3\endcsname{\tkz@Slope}% -\endgroup -} -% Schrodinger's cat idea 03/01/20 -\tikzset{xfp/.code={% -\pgfmathdeclarefunction*{veclen}{2}{% -\begingroup% - \pgfmath@x##1pt\relax% - \pgfmath@y##2pt\relax% - \edef\tkz@xfpMathLen{\fpeval{sqrt((\pgf@x)^2+(\pgf@y)^2)}} - \pgfmath@returnone\tkz@xfpMathLen pt% -\endgroup% -}}} - \makeatother -\endinput
\ No newline at end of file |