[pstricks] Re :Bessel function $J_2$ in pstricks

[MLuque5130 at aol.com]

To answer more exactly the question. The difficulties come that when one 
calculates the terms of the series, one exceeds rather quickly PostScript's limits 
(10^38). 
One can test him with the following example PostScript :

 /Times-Roman findfont
 15 scalefont
 setfont
 /MG 72 def
 /chaine 15 string def
 /imprime {chaine cvs show } def
%
/factorielle
    { dup 1 gt
        { dup 1 sub factorielle mul } if
        }
    def
/nterme %
        {/k exch def
        -1 k exp %(-1)^k
        k factorielle % k!
        mul
        k 1 add factorielle % (k+1)!
        mul
        2 2 k mul 1 add exp % 2^(2k+1)
        mul }
      def
MG 600 moveto
16 nterme imprime
showpage
    
Manuel
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://tug.org/pipermail/pstricks/attachments/20040110/678f2bd3/attachment.html