create worksheetname -s 19;
jj=1;
doc -e w
{
	worksheetname[$(jj)]$=%h;
	jj++;
};

//Create a new worksheet to hold the data
create FitData -wn 6;
worksheet -a 18;
col(1)=data(1,6);

//Create a new worksheet to hold the result
create FitResult -wn 19 Index Slope Error;
col(1)=data(1,19);

//Copy data
for (ii=1; ii<jj; ii++)
{
	%j = worksheetname[$(ii)]$;  //The name of worksheet
	%a = %j!wks.col$(1).name$;  //The name of Column 1
	%a = %j_%a;
	%b = %j!wks.col$(2).name$;  //The name of Column 2
	%b = %j_%b;
	%z= FitData!wks.col$(ii+1).name$;
	%z=FitData_%z;

	%z[1]=%a[2];
	%z[2]=%b[2];
	%z[3]=%a[4];
	%z[4]=%b[4];
	%z[5]=%a[5];
	%z[6]=%b[5];

	win -t plot scatter;  //Create a new graph page
	layer -i %z ;  //add data to layer
	layer -a;  //rescale axes to show all data

	lr %z;
	FitResult_Slope[$(ii)]=lr.a;
	FitResult_Error[$(ii)]=lr.sd;
};

//Plot the result
win -t plot scatter;  //Create a new graph page
layer -i FitResult_Slope ;  //add data to layer
layer -a;  //rescale axes to show all data

win -t plot scatter;  //Create a new graph page
layer -i FitResult_Error ;  //add data to layer
layer -a;  //rescale axes to show all data