quote:

---

Sounds like you want to combine three worksheets (Data1, Data2 and Data3 below) with overlapping X ranges into a single worksheet (Data4) in which missing values are set to zero. If that's correct then copy the following script to your script window and execute by selecting all lines and pressing Enter. (You may need to change the names of the starting worksheets in the first 3 lines before you execute.) If you'll need to use the script more than once you can run it from the Custom Routine button as described here...
http://www.originlab.com/www/support/resultstech.aspx?ID=655&language=English

# Script start here
%R=Data1; // name of 1st wks
%S=Data2; // name of 2nd wks
%T=Data3; // name of 3rd wks
xinc=%(%R,1,2)-%(%R,1,1); // common X increment
tmp=%(%R,1);
copy -a %(%S,1) tmp;
copy -a %(%T,1) tmp;
sum(tmp);
del tmp;
win -t D;
col(1)=data(sum.min,sum.max,xinc);
wks.addCol();
wks.addCol();
set %H -er wks.maxrows;
ii=list(%(%R,1,1),col(1));
copy -b 1 %(%R,2) col(2) -b ii -t %R!wks.maxrows;
ii=list(%(%S,1,1),col(1));
copy -b 1 %(%S,2) col(3) -b ii -t %S!wks.maxrows;
ii=list(%(%T,1,1),col(1));
copy -b 1 %(%T,2) col(4) -b ii -t %T!wks.maxrows;
loop (ii,2,4) {
wcol(ii) = wcol(ii)==0/0 ? 0 : wcol(ii);
};





Mike Buess
Origin WebRing Member

---

Thank you very much Mike Buess, that's exact you have understood what I want but your script doesn't work. It gives me this result:



thank you again

// Origin C functions start here
void wks_combine(string sList)
{
	StringArray sa;
	sList.GetTokens(sa,',');
	if( sa.GetSize()<2 )
		return;
	Dataset dx,tmp;
	Worksheet wks;
	double dInc;
	for(int i=0; i<sa.GetSize(); i++)
	{
		wks.Attach(sa[i]);
		if( !wks ) return;
		dx.Attach(wks,0);
		if( i )
			tmp.Append(dx);
		else
		{
			dInc = dx[1] - dx[0];
			tmp.Create(dx.GetSize());
			tmp = dx;
		}
	}
	Worksheet wksNew;
	wksNew.Create("Origin");
	dx.Attach(wksNew,0);
	dx.Data(min(tmp), max(tmp), dInc);
	wksNew.SetSize(dx.GetSize(), sa.GetSize() + 1);
	for(i=1; i<=sa.GetSize(); i++)
	{
		if( wks_copy(wksNew,i,sa[i-1]) )
			break;
	}
}

int wks_copy(Worksheet wDest, int iCol, string sSrc)
{
	Dataset dxSrc(sSrc,0);
	Dataset dySrc(sSrc,1);
	if( !dxSrc || !dySrc )
		return 1;
	Dataset dxDest(wDest,0);
	Dataset dyDest(wDest,iCol);
	dyDest.SetSize(dxDest.GetSize());
	dyDest = 0;
	Data_copy(&dyDest,&dySrc,0,dySrc.GetSize() - 1,Data_list(dxSrc[0],&dxDest));
	return 0;
}

quote:

---

Hi,

I suspect that you need to apply the SR5 patch to get rid of the compiler error...
http://www.originlab.com/index.aspx?s=9&lm=76

This will rename the active window to newName...
win -r %H newName;

Either of the following commands will rename column i to newName...
wo -n i newName;
wks.col$(i).name$=newName;

Mike Buess
Origin WebRing Member

---

quote:

---

how do you reduce all worksheets in Origin Project with a script window ?

---