home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / isetl / env.t < prev    next >
Encoding:
Text File  |  1987-08-20  |  529 b   |  19 lines
  1. number:=5;
  2.  
  3. first:=[[random(100.0),random(100.0)]: x in [1..number]]; 
  4. second:=[[random(100.0),random(100.0)]: x in [1..number]]; 
  5.  
  6. f:=func(t1,t2);
  7.  return (%+[x*x: x in t1])*(%+[x*x: x in t2])
  8.        >= abs(%+[t1(i)+t2(i): i in [1..(#t1)]])**2;
  9. end;
  10.  
  11. print "print f(first(1),second(1));";
  12. print f(first(1),second(1));     
  13. print "print f(first(number),second(number));";
  14. print f(first(number), second(number));
  15.  
  16. print "print #[i: i in [1..number]| f(first(i),second(i))];";
  17.  
  18. print #[i: i in [1..number]| f(first(i),second(i))];
  19.