void SmoothMultiCurve()
{
	Layer lyAct=Project.ActiveLayer();
	GraphPage gpAct=lyAct.GetPage();
	if (!gpAct) return;
	
	foreach(GraphLayer gl in gpAct.Layers )
	{
			int iIndex=0;
			DataPlot dp;
			
			do
			{
				dp = gl.DataPlots(++iIndex);

				if (dp)
				{
					Curve cc(dp);
				 	smooth(cc);
				}
				
			} while(dp);
			
	}
}

quote:

---

How to smooth all curves simultaneous using adjacent averaging.??

---

// Make graph with raw data curves active and 
// then run this script
// 
%a=%h;					// save graph name
create.wksName$="Smooth";		// create result wks
create.wksLabel$=Smooth Results for %a;
create.template$="Origin";
create.wks(junk);
%b=create.wksname$;
win -o %b				// delete cols in result wks
{
   del col(1);
   page.title=3;
};


layer -c;				// count number of data plots in layer
for(i=1; i<=count; i++)			// loop over plots
{
   %a=%(i,@d);				// get name of dataset of plot
   ix = i * 2 - 1;			// ix is index for x result column
   iy = ix + 1;				// iy is index for y result column
   win -o %b				// run script on result worskhet...
   {
      wks.addcol(X); 			// add x, y columns
      wks.addcol(Y); 
      wks.col$(ix).type=4;		// set y column label using dataplot name
      wks.col$(iy).label$ = Smoothed
      %a;
   };
   %(%b,ix)=xof(%a);			// Set result x same as raw data x
   curve.data$=%a;			// Use curve object to smooth
   curve.SmoothPts=10;			// Change number of points for averaging here...
   curve.result$=%(%b,iy);
   curve.adjave();			// Use adacent averaging
   layer.include(%(%b,iy),200);		// Plot smoothed result 
   set %(%b,iy) -c 2;			// Set smoothed result curve color to red
   win -o %b {wks.labels();};		// Show labels on columns in result wks
};

quote:

---

Thanks, Easwar. It works. But I really do not like programming in Origin C as a lot of commands have to be memorized and actually most users are just users, not interested in or familiar with embedded programing, never mentioning having time to learn programming.

I appreciate your help.

---