#Code starts here
void split_wks()
{
	Worksheet wks = Project.ActiveLayer();
	matrix mm,mx;
	mm.CopyFromWks(wks); // easier to manipulate as matrix
	vector vv,vd;
	mm.GetColumn(vv,0); // get time column as vector
	vv.Difference(vd); // create difference (between adjacent elements) vector
	vd.Add(1.0); // add nonzero element at the end
	int i,i1,i2;
	for(i=0; i<mm.GetNumRows(); i++)
	{
		if( vd[i]!=0 )
		{
			i1 = i2;
			i2 = i+1;
			mm.GetSubMatrix(mx,0,-1,i1,i2-1);
			new_wks(mx);
		}
	}
}
void new_wks(matrix mx)
{
	Worksheet wks;
	wks.Create();
	Dataset dd;
	for(int i=0; i<mx.GetNumCols(); i++)
	{
		if( i>1 )
			wks.AddCol();
		dd.Attach(wks,i);
		mx.GetColumn(dd,i);
	}
}

void integrate_txy()
{
	// Declare worksheet object using active layer
	Worksheet wksData = Project.ActiveLayer();
	if( !wksData )
	{
		out_str("Active layer is not a worksheet!");
		return;
	}
	
	// Create a new worksheet to hold results	
	Worksheet wksResult();
	wksResult.Create();
	// Delete all existing columns and add two new cols
	while(wksResult.DeleteCol(0));
	wksResult.AddCol("Time");
	wksResult.Columns(0).SetType(OKDATAOBJ_DESIGNATION_X);
	wksResult.AddCol("IntegValue");
	// Set label and turn on label display
	WorksheetPage wpg = wksResult.GetPage();
	wpg.Label = "Integration results from " + wksData.GetPage().GetName();
	wpg.TitleShow = WIN_TITLE_SHOW_BOTH;
	
	// Get the raw TXYXYXY... data from the worksheet into a matrix object
	matrix matTemp;
	matTemp.CopyFrom(wksData);
	// Get number of rows and cols in matrix
	int nRows = matTemp.GetNumRows();
	int nCols = matTemp.GetNumCols();
	// Number of XY pairs will be (numcols-1)/2
	int nNumXY = (nCols - 1) / 2;

	// Create vectors to receive X and Y data
	vector vecX(nNumXY);
	vector vecY(nNumXY);
	
	// Loop over all rows (Time entries)...
	for( int iRow = 0; iRow < nRows; iRow++ )
	{
		// Get time info and place in result worksheet
		wksResult.SetCell(iRow, 0, matTemp[iRow][0]);
		// Loop over all XY pairs and get XY data into vectors
		for( int iXY = 0; iXY < nNumXY; iXY++)
		{
			vecX[iXY] = matTemp[iRow][iXY * 2 + 1];
			vecY[iXY] = matTemp[iRow][iXY * 2 + 2];
		}		
		// Generate a curve from the XY data
		Curve crvXY(vecX, vecY);
		// Perform integration and store integration area to result wks
		IntegrationResult irResult;
		BOOL bRet = Curve_integrate(&crvXY, &irResult);
		wksResult.SetCell(iRow, 1, irResult.Area);
	}

}