[BACK]Return to complex.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/complex.sm1 between version 1.8 and 1.9

version 1.8, 2002/08/11 08:39:50 version 1.9, 2004/09/10 13:20:22
Line 1 
Line 1 
 % $OpenXM: OpenXM/src/kan96xx/Doc/complex.sm1,v 1.7 2001/11/26 01:25:44 takayama Exp $  % $OpenXM: OpenXM/src/kan96xx/Doc/complex.sm1,v 1.8 2002/08/11 08:39:50 takayama Exp $
 %% lib/complex.sm1  [ functions for complex ], 1999, 9/9  %% lib/complex.sm1  [ functions for complex ], 1999, 9/9
 %% cf.  yama:1999/Int/uli.sm1  %% cf.  yama:1999/Int/uli.sm1
 %%%%%%%%%%%%%%%%%%%   commands %%%%%%%%%%%%%%%%%%%%%%%%%  %%%%%%%%%%%%%%%%%%%   commands %%%%%%%%%%%%%%%%%%%%%%%%%
Line 305 
Line 305 
      d G 0 get reduction-noH  /rr set       d G 0 get reduction-noH  /rr set
      rr 0 get (0). eq {       rr 0 get (0). eq {
        [rr 2 get] B mul 0 get /ans set         [rr 2 get] B mul 0 get /ans set
        /ans [ ans { toString rng ,, (-1) rng ,, mul} map         /ans [ ans { toString rng __ (-1) rng __ mul} map
               rr 1 get toString .. ] def                rr 1 get toString .. ] def
      } {       } {
        /ans null def         /ans null def
Line 411 
Line 411 
      d G 0 get reduction  /rr set       d G 0 get reduction  /rr set
      rr 0 get (0). eq {       rr 0 get (0). eq {
        [rr 2 get] B mul 0 get /ans set         [rr 2 get] B mul 0 get /ans set
        /ans [ ans { toString rng ,, (-1) rng ,, mul} map         /ans [ ans { toString rng __ (-1) rng __ mul} map
               rr 1 get toString .. ] def                rr 1 get toString .. ] def
      } {       } {
        /ans null def         /ans null def
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>