[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.7 and 1.8

version 1.7, 2001/11/26 01:25:44 version 1.8, 2002/08/11 08:39:50
Line 1 
Line 1 
 % $OpenXM: OpenXM/src/kan96xx/Doc/complex.sm1,v 1.6 2000/12/29 07:19:37 takayama Exp $  % $OpenXM: OpenXM/src/kan96xx/Doc/complex.sm1,v 1.7 2001/11/26 01:25:44 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 882 
Line 882 
     /vlist ff 2 get  def      /vlist ff 2 get  def
     /mm slist length def      /mm slist length def
   
       vlist tag ArrayP eq {
         vlist { toString } map from_records /vlist set
       } {  } ifelse
     [vlist to_records pop] [(_z) (_y)] join /vlist2 set      [vlist to_records pop] [(_z) (_y)] join /vlist2 set
     [vlist2 from_records ring_of_polynomials      [vlist2 from_records ring_of_polynomials
      [[(_z) 1 (_y) 1]] weight_vector       [[(_z) 1 (_y) 1]] weight_vector
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>