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.pro39
1 files changed, 37 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 09252c19a3..f752442e87 100644
--- a/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro
+++ b/graphics/pstricks/contrib/pst-func/dvips/pst-func.pro
@@ -316,7 +316,8 @@ tx@FuncDict begin
end
} def
%
-/ChebyshevT { 5 dict begin % z on stack
+/ChebyshevT {
+ 5 dict begin % z on stack
/xtmp exch def
/n exch def
0 0 1 n .5 mul floor {
@@ -329,7 +330,8 @@ tx@FuncDict begin
end
} def
%
-/ChebyshevU {5 dict begin % z on stack
+/ChebyshevU {
+ 5 dict begin % z on stack
/xtmp exch def
/n exch def
0 0 1 n .5 mul floor {
@@ -367,6 +369,39 @@ tx@FuncDict begin
%end{vasicek density}
%
end
+%
+/arraySum { % on stack the array
+ 5 dict begin
+ dup length 0 eq
+ {}
+ { /xArray exch def
+ /xSum 0 def
+ /i 0 def
+ xArray length {
+ /xSum xSum xArray i get add def
+ /i i 1 add def
+ } repeat
+ } ifelse
+ xSum
+ end
+} def
+%
+/arrayProd { % on stack the array
+ 5 dict begin
+ dup length 0 eq
+ {}
+ { /xArray exch def
+ /xProd 1 def
+ /i 0 def
+ xArray length {
+ /xProd xProd xArray i get mul def
+ /i i 1 add def
+ } repeat
+ } ifelse
+ xProd
+ end
+} def
+%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% subroutines for complex numbers, given as an array [a b]
% which is a+bi = Real+i Imag