(*						      *)
(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid		              *)
(* Brooks/Cole Publ. Co.			      *)
(* (c) 2003                                           *)
(* No warranties implied or expressed.	              *)
(* File: timing 				      *)

(* Timing *)
mat[n_] := Table[Random[Complex, {-10 -10I, 1 + 10I}, 5], 
                                 {i, 1, n,}, {j, 1, n}]
Timing[mat[1000];]