JeT
I have a list of functions I define for multiple graphs along my course
```
%--------- Librairie de fonctions ---------
\tikzset{
declare function={
ZC(\x,\y)= pow(1+\x,-\y);
binom(\k,\n,\p)=\n!/(\k!*(\n-\k)!)*\p^\k*(1-\p)^(\n-\k);
Transfo(\a,\b,\c) = \a+\b+\c;
Spread(\a,\b,\c,\d,\e,\f)=\a*\d+\b*\e+\c*\f ;
normcdf(\x,\m,\SIG) = 1/(1 + exp(-0.07056*((\x-\m)/\SIG)^3 - 1.5976*(\x-\m)/\SIG));
invgauss(\a,\b) = sqrt(-2*ln(\a))*cos(deg(2*pi*\b));
d1(\x,\y,\KK,\RR,\SIG) = d2(\x,\y,\KK,\RR,\SIG) + (\SIG*(sqrt(\y)));
d2(\x,\y,\KK,\RR,\SIG) = (ln(\x/\KK)+(\RR-(pow(\SIG,2)/2)*\y))/(\SIG*(sqrt(\y)));
Nd1(\x,\y,\KK,\RR,\SIG) = normcdf(d1(\x,\y,\KK,\RR,\SIG),0,1);
Nd2(\x,\y,\KK,\RR,\SIG) = normcdf(d2(\x,\y,\KK,\RR,\SIG),0,1);
NPd1(\x,\y,\KK,\RR,\SIG) = Nprime(d1(\x,\y,\KK,\RR,\SIG));
NPd2(\x,\y,\KK,\RR,\SIG) = Nprime(d2(\x,\y,\KK,\RR,\SIG));
%... x100 more...
}
```
Since they're already written, why use `PythonTeX` (I thought about this interesting solution for calculations but a bazooka for a simple task) while I could use [mathematical-function-in-pgf-tikz](https://tex.stackexchange.com/questions/105766/using-mathematical-function-in-pgf-tikz) ?
However, I think the use of `\pgfmathparse{int(d1(\x,\y,\KK,\RR,\SIG)/100}\pgfmathresult` is quite heavy, so I must be doing someting wrong.
I could use a `\newcommand` like
```
\newcommand{\dOne}[5]{\pgfmathparse{int(d1(#1,#3,#2,#4,#5)*100)/100}\pgfmathresult}
```
but I lose the ability to name `\d1` my macro. I also believe what I do here is not elegant (d!mn French with elegance issues :))
Hence my question :
I'd like to have a fluid way of calling the functions and get the result (for a set of parameters) in my text.
```
MWE
\documentclass[tikz]{article}
%--------- Librairie de fonctions ---------
\tikzset{
declare function={
ZC(\x,\y)= pow(1+\x,-\y);
binom(\k,\n,\p)=\n!/(\k!*(\n-\k)!)*\p^\k*(1-\p)^(\n-\k);
Transfo(\a,\b,\c) = \a+\b+\c; %<- not pretty
Spread(\a,\b,\c,\d,\e,\f)=\a*\d+\b*\e+\c*\f ; %<-hum hum too
normcdf(\x,\m,\SIG) = 1/(1 + exp(-0.07056*((\x-\m)/\SIG)^3 - 1.5976*(\x-\m)/\SIG));
invgauss(\a,\b) = sqrt(-2*ln(\a))*cos(deg(2*pi*\b));
d1(\x,\y,\KK,\RR,\SIG) = d2(\x,\y,\KK,\RR,\SIG) + (\SIG*(sqrt(\y)));
d2(\x,\y,\KK,\RR,\SIG) = (ln(\x/\KK)+(\RR-(pow(\SIG,2)/2)*\y))/(\SIG*(sqrt(\y)));
Nd1(\x,\y,\KK,\RR,\SIG) = normcdf(d1(\x,\y,\KK,\RR,\SIG),0,1);
Nd2(\x,\y,\KK,\RR,\SIG) = normcdf(d2(\x,\y,\KK,\RR,\SIG),0,1);
NPd1(\x,\y,\KK,\RR,\SIG) = Nprime(d1(\x,\y,\KK,\RR,\SIG));
NPd2(\x,\y,\KK,\RR,\SIG) = Nprime(d2(\x,\y,\KK,\RR,\SIG));
%... x100 more...
}
\newcommand{\dOne}[5]{\pgfmathparse{int(d1(#1,#3,#2,#4,#5)*100)/100}\pgfmathresult}
\begin{document}
\dOne{100}{100}{1}{0}{0.25} result prints ok
\dOne{100}{100}{1}{0}{0.50} result prints ok
\dOne{100}{100}{1}{0}{0.75} result prints ok
\dOne{100}{100}{1}{0}{1.00} result prints ok
\end{document}
```
NB : I don't mention here the roundings of the results. I know it's a limitation.