Celestin Apprentice 7/Apprentice-Release7.iso/Environments/Small Eiffel 0.4.8/lib_show/bench3/bench.e

Text File | 1997-04-13 | 1.5 KB | 88 lines | [TEXT/ttxt]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
deferred class BENCH
--
-- Comparison : ARRAY2 and FIXED_ARRAY2.
--

feature

   -- According to the power of your computer, set `tuning'
   -- to a good positive value. Default is for very small
   -- computer :
   tuning: INTEGER is 1; -- 300;

feature {NONE}

   cltn: COLLECTION2[DOUBLE] is
      deferred
      end;

   count1: INTEGER is
      do
     Result := 1 + tuning;
      end;

   count2: INTEGER is
      do
     Result := 7 + tuning;
      end;

   frozen bench is
      require
     cltn.count = count1 * count2
      do
     increment(cltn,+2.5);
     increment(cltn,-2.5);
     increment(cltn,+2.5);
     increment(cltn,-2.5);
     check_all(cltn,0.0);
      end;

   increment(c: like cltn; value: DOUBLE) is
      local
     i1, i2: INTEGER;
      do
     from
        i1 := c.upper1;
     until
        i1 < c.lower1
     loop
        from
           i2 := c.upper2;
        until
           i2 < c.lower2
        loop
           c.put(c.item(i1,i2) + value,i1,i2);
           i2 := i2 - 1;
        end;
        i1 := i1 - 1;
     end;
      end;

   check_all(c: like cltn; value: DOUBLE) is
      local
     i1, i2: INTEGER;
      do
     from
        i1 := c.upper1;
     until
        i1 < c.lower1
     loop
        from
           i2 := c.upper2;
        until
           i2 < c.lower2
        loop
           if c.item(i1,i2) /= value then
          std_output.put_string("Error bench.%N");
           end;
           i2 := i2 - 1;
        end;
        i1 := i1 - 1;
     end;
      end;

end