summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-func/dvips/pst-func.pro')
-rw-r--r--graphics/pstricks/contrib/pst-func/dvips/pst-func.pro16
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
+%