(* Intersct.nb ---------------------------------------------------------- *)

(* For nc = nstrt to nend, the intersections of two families of posets are 
	written to files. *)

(* Utility Needed: WriteLstOfLst[]. *)

(* User needs to specify the directory, the starting size, the ending size, 
	the 2 input families, and the output file family. *)

(* Change the directory: *) 
SetDirectory["G:/.isis/home/c/a/cagann/public_html/Posets"];
<< GenrlUtils.m; 

(* Change starting size: *)  nstrt = 4;
(* Change ending size: *)     nend = 4;

(* Change both the input families: *)  fam1 = "Connets/connets";
													fam2 = "dCmplts/dcmplts";

(* Change the output family: *)      newfam = "Cnctdcs/cnctdcs";

Do[
	inpt1 = ReadList[ StringJoin[fam1,ToString[nc]] ];
	inpt2 = ReadList[ StringJoin[fam2,ToString[nc]] ];

	WriteLstOfLst[
		StringJoin[newfam,ToString[nc]],
		Intersection[inpt1,inpt2]
	];
,{nc,nstrt,nend}];

(* End of Intersct.nb. *)