[BACK]Return to help.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097

Diff for /OpenXM/src/k097/help.k between version 1.1.1.1 and 1.4

version 1.1.1.1, 1999/10/08 02:12:15 version 1.4, 2000/12/12 13:58:21
Line 1 
Line 1 
   /* $OpenXM: OpenXM/src/k097/help.k,v 1.3 2000/12/10 09:34:27 takayama Exp $ */
 if (K00_verbose)  if (K00_verbose)
   Println("help.k (help.ccc).  8/6, 1996 --- 8/7, 1996. 3/6, 1997 --- 12/21, 1997.");    Println("help.k (help.ccc).  8/6, 1996 --- 8/7, 1996. 3/6, 1997 --- 12/21, 1997.");
   
Line 331  def RingPoly(vList,weightMatrix,pp) {
Line 331  def RingPoly(vList,weightMatrix,pp) {
     sm1("[", vList,      sm1("[", vList,
         "ring_of_polynomials ( ) elimination_order 0 ] define_ring          "ring_of_polynomials ( ) elimination_order 0 ] define_ring
          /tmp set ");           /tmp set ");
       SetRingVariables();
     return(tmp);      return(tmp);
   } else ;    } else ;
   if (argsize == 2) {    if (argsize == 2) {
Line 351  def RingPoly(vList,weightMatrix,pp) {
Line 352  def RingPoly(vList,weightMatrix,pp) {
     }      }
     new0[i] = newtmp;      new0[i] = newtmp;
   }    }
     SetRingVariables();
   ringpp =    ringpp =
   sm1("[", vList,    sm1("[", vList,
       "ring_of_polynomials ", new0, " weight_vector", pp, " ] define_ring");        "ring_of_polynomials ", new0, " weight_vector", pp, " ] define_ring");
Line 506  def RingDonIndexedVariables(vList, size, weightMatrix,
Line 508  def RingDonIndexedVariables(vList, size, weightMatrix,
   if (argsize == 2) {    if (argsize == 2) {
     vListD = AddString(["D",vList]);      vListD = AddString(["D",vList]);
     myring = RingD(IndexedVariables(vList,size));      myring = RingD(IndexedVariables(vList,size));
     SetRingVariables();  
     tmp = NewArray(size);      tmp = NewArray(size);
     for (k00_i=0; k00_i<size; k00_i++) {tmp[k00_i]=Poly(Indexed(vList,k00_i));}      for (k00_i=0; k00_i<size; k00_i++) {tmp[k00_i]=Poly(Indexed(vList,k00_i));}
     sm1(vList, " (literal) dc ", tmp, " def ");      sm1(vList, " (literal) dc ", tmp, " def ");
Line 756  def Tag(f) {
Line 757  def Tag(f) {
   if (IsArray(f)) {    if (IsArray(f)) {
     return(Map(f,"Tag"));      return(Map(f,"Tag"));
   }else {    }else {
     ans = sm1(f," tag (universalNumber) dc ");      ans = sm1(f," etag (universalNumber) dc ");
     return(ans);      return(ans);
   }    }
 }  }
 HelpAdd(["Tag",  HelpAdd(["Tag",
 ["Tag(f) returns the datatype tags of f where",  ["Tag(f) returns the datatype tags of f where",
  "5: string,  9: polynomial, 15: integer(big-num), 16: rational, ",   "5: string,  9: polynomial, 15: integer(big-num), 16: rational, ",
  "17: object, 18:double.",   "18:double, 257: Error ",
  "Ex. Tag([Poly(\"0\"), 0]):"   "Ex. Tag([Poly(\"0\"), 0]):"
 ]]);  ]]);
   
   def Error(s) {
     sm1(" s error ");
   }
   HelpAdd(["Error",
   ["Error(s) causes an error and outputs a message s."]]);
   
 OutputPrompt ;  OutputPrompt ;
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>