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

Diff for /OpenXM/src/kan96xx/Kan/dr.sm1 between version 1.19 and 1.22

version 1.19, 2003/08/23 02:28:38 version 1.22, 2003/08/26 12:46:04
Line 1 
Line 1 
 % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.18 2003/08/20 01:39:16 takayama Exp $  % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.21 2003/08/24 05:25:58 takayama Exp $
 %% dr.sm1 (Define Ring) 1994/9/25, 26  %% dr.sm1 (Define Ring) 1994/9/25, 26
 %% This file is error clean.  %% This file is error clean.
   
Line 3772  $ [ff ff] fromVectors :: $ 
Line 3772  $ [ff ff] fromVectors :: $ 
 /endEcart {  /endEcart {
   (red@) (standard) switch_function    (red@) (standard) switch_function
   [(Ecart) 0] system_variable    [(Ecart) 0] system_variable
     [(degreeShift) (reset)] homogenize pop
 } def  } def
   
 /ord_ws_all {  /ord_ws_all {
Line 3794  $ [ff ff] fromVectors :: $ 
Line 3795  $ [ff ff] fromVectors :: $ 
    (cf: init, gbext.   Obsolete: ord_w, ord_w_all)     (cf: init, gbext.   Obsolete: ord_w, ord_w_all)
  ]   ]
 ] putUsages  ] putUsages
   
   [(newVector)
    [( n newVector vec)
   ]] putUsages
   /newVector {
     /arg1 set
     [/in-newVector /n] pushVariables
     [
       /n arg1 def
       [(newVector) n] extension /arg1 set
     ] pop
     popVariables
     arg1
   } def
   
   [(newMatrix)
    [( [m n] newMatrix mat)
   ]] putUsages
   /newMatrix {
     /arg1 set
     [/in-newMatrix /n] pushVariables
     [
       /n arg1 def
       [(newMatrix) n 0 get n 1 get] extension /arg1 set
     ] pop
     popVariables
     arg1
   } def
   
   
 ;  ;
   
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>