diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-07 03:01:59 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-07 03:01:59 +0000 |
commit | 70fe7f94e8281b0691a51754da3e2d40b1dd7732 (patch) | |
tree | f4be4cdf15aa796af9ae46eaf33d24279659cdb9 /graphics/pstricks/contrib/pst-func/dvips/pst-func.pro | |
parent | e4d1c68b2517d031bb9adc055fe19d1051c81042 (diff) |
CTAN sync 202104070301
Diffstat (limited to 'graphics/pstricks/contrib/pst-func/dvips/pst-func.pro')
-rw-r--r-- | graphics/pstricks/contrib/pst-func/dvips/pst-func.pro | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro b/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro index 1eca86df51..09252c19a3 100644 --- a/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro +++ b/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro @@ -366,10 +366,11 @@ tx@FuncDict begin } def %end{vasicek density} % - +end %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % subroutines for complex numbers, given as an array [a b] % which is a+bi = Real+i Imag +%% Global defined % /cxadd { % [a1 b1] [a2 b2] = [a1+a2 b1+b2] dup 0 get % [a1 b1] [a2 b2] a2 @@ -504,4 +505,15 @@ tx@FuncDict begin RadtoDeg dup sin exch cos cxmake2 } def % -end +% cxexp z^k with k as a natural number +/cxexp { % z k + 3 dict begin + dup 0 eq { pop pop [1 0] }{ + /k ED + /z ED + /sol [1 0] def + k { sol z cxmul /sol ED } repeat + sol } ifelse + end +} def +% |