diff options
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r-- | Master/texmf-dist/dvips/pst-func/pst-func.pro | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro index 1eca86df516..09252c19a36 100644 --- a/Master/texmf-dist/dvips/pst-func/pst-func.pro +++ b/Master/texmf-dist/dvips/pst-func/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 +% |