indexing
	description: " Test selected data class, matrix printing";
	status: "See notice at end of class.";
	date: "$Date$";
	revision: "$Revision$"

class 

	TEST_SELECTABLE_DATA

inherit

	EIFFELMATH_TESTING_FRAMEWORK

create

	make

feature -- Initialization

	tested: SELECTABLE_DATA;
			-- data set for testing

	number_of_variables: INTEGER is 8;
			-- number of columns in the matrix

	number_of_observations: INTEGER is 10;
			-- number of rows in the matrix

	make is
			-- Test of SELECTABLE_DATA
		local
			i, j: INTEGER
			c: BASIC_MATRIX;
		do
			create tested.make(number_of_observations, number_of_variables);
			from i := 1 until i > number_of_observations loop
				from j := 1 until j > number_of_variables loop
					tested.put (i + j/100., i, j);
					j := j + 1
				end;
				i := i + 1
			end;
			print_nl ("Entire set:");
			print_nl (tested);
			tested.deselect_observation (1);
			tested.deselect_observation (3);
			tested.deselect_observation (5);
			tested.select_observation (3);
			tested.deselect_observation (number_of_observations);
			tested.deselect_variable (3);
			tested.deselect_variable (4);
			tested.deselect_variable (4);
			tested.select_variable (3);
			tested.select_variable (3);
			tested.deselect_variable (number_of_variables);
			print_nl ("Set 1:");
			print_nl (tested);
			tested.deselect_variable (1);
			print_nl ("Set 2:");
			print_nl (tested);

			tested.set_weight (2.2, 3);
			print_nl (tested);

			print_nl ("Test printing as matrix...");
			print_nl (tested.data)
			print_nl ("Test complex relative...");
			create c.make_dual_complex (number_of_observations, number_of_variables);
			from i := 1 until i > number_of_observations loop
				from j := 1 until j > number_of_variables loop
					c.put_grid_real (i + j/100., i, j);
					c.put_grid_imaginary (-(i + j/100.), i, j);
					j := j + 1
				end;
				i := i + 1
			end;

			print_nl (c);
		end;

end -- class TEST_SELECTABLE_DATA

--|----------------------------------------------------------------
--| EiffelMath: library of reusable components for ISE Eiffel.
--| Copyright (C) 1986-2001 Interactive Software Engineering Inc.
--| All rights reserved. Duplication and distribution prohibited.
--| May be used only with ISE Eiffel, under terms of user license. 
--| Contact ISE for any other use.
--|
--| Interactive Software Engineering Inc.
--| ISE Building
--| 360 Storke Road, Goleta, CA 93117 USA
--| Telephone 805-685-1006, Fax 805-685-6869
--| Electronic mail <info@eiffel.com>
--| Customer support: http://support.eiffel.com>
--| For latest info see award-winning pages: http://www.eiffel.com
--|----------------------------------------------------------------