#include "DataHelper.h"
#include <QWidget>
#include "cdialog.h"
#include "GeometryUtils.h"
// #include "DataImport.h"
// #include "ObjProject.h"
#include "BaseFun.h"

//DEFAULTTABLE DefauleTable[DefTabNum];
DEFAULTTABLE *DefauleTable=NULL;
int DefTabNum=0;
bool DataHelper::m_IsGc=true;//false;

DataHelper::DataHelper()
{
}


DataHelper::~DataHelper()
{
}
//whp change 2020.3.9 for 统一离散数据入口
//QStringList DataHelper::GetVlidTable(QStringList listFiles)
QStringList DataHelper::GetVlidTable(int curitemType,QStringList listFiles,QStringList &BadlistFiles)
{
	int BadFileNum=0;
	QStringList myListFile,BadListFile;
	QString mes="";
	char *pLine=new char[50000];
	foreach(QString strFileName, listFiles)
	{
		QFile file(strFileName);
		if (!file.open(QIODevice::ReadOnly )){mes+=QString::fromLocal8Bit("无法打开文件");mes+=strFileName;mes+="\r\n";continue;}
		file.readLine(pLine,50000);
		QByteArray line=pLine;
		line=line.simplified();
		while(IsNullLine(line)){
			file.readLine(pLine,50000);
			line=pLine;
		}
		QStringList StrList,StrListZD=GetStringList(line);//line.split(",");
		int NumLine=0;
		int ColNum=StrListZD.size();//列数
		int InvalidLineNum=0;//无效行，即数据列数和首行不一致
		//	QString mes1="\r\n"+strFileName+QString::fromLocal8Bit("数据表中各行字段数不一致\r\n首行字段数=")+QString::number(ColNum);

		QString mes1="\r\n"+QString::number(BadFileNum+1)+"、"+strFileName+"\r\n"+QString::fromLocal8Bit("数据行字段数大于字段名个数\r\n首行字段数=")+QString::number(ColNum);
		//if(BadFileNum==10)mes1="............";
		if(ColNum<=1)mes1="\r\n"+QString::number(BadFileNum+1)+"、"+strFileName+"\r\n"+QString::fromLocal8Bit("首行字段数=")+QString::number(ColNum);
		if(BadFileNum>5)mes1="";
		//whp add 3.13 for 多井时检测井名有效性
		bool IsDwell=0;
		if(StrListZD.at(0).toUpper().indexOf("WELLNAME")>=0)IsDwell=1;
		if(curitemType&&IsDwell)//whp 2020.3.23 for 选择单井导入时不导入多井数据
		{
			BadFileNum++;
			BadListFile.append(strFileName);
			file.close();
			continue;
		}
		while(!file.atEnd())
		{
			file.readLine(pLine,50000);
			QByteArray line=pLine;
			line=line.simplified();
			if(line=="")continue;
			if(IsNullLine(line))continue;
			StrList=GetStringList(line);
			if(InvalidLineNum<10)
			{
				if(StrList.size()>ColNum)//if(StrList.size()!=ColNum)允许缺失后面数据，不允许数据个数大于字段名个数
				{
					InvalidLineNum++;
					if(BadFileNum<=5)mes1=mes1+QString::fromLocal8Bit("\r\n第")+QString::number(NumLine+1)+QString::fromLocal8Bit("行字段数=")+QString::number(StrList.size());
				}
			}
			//whp add 3.13 for 多井时检测井名有效性
			if(!InvalidLineNum)
			{
				if(IsDwell)
				{
					if(IsValidWellName(StrList.at(0))==0)
					{
						QString ss=StrList.at(0);
						InvalidLineNum++;
					}
				}
			}
			NumLine++;
			if(InvalidLineNum)break;
		}
		if(InvalidLineNum>0||ColNum<=1)
		{
			mes+=mes1;//无效的表数据，不再显示
			BadFileNum++;
			BadListFile.append(strFileName);
		}
		else myListFile.append(strFileName);
		file.close();
	}
	delete pLine;
	BadlistFiles=BadListFile;//whp add 2020.3.9 for 统一离散数据入口
	return myListFile;
}

int DataHelper::StrType(QString str)
{
	QByteArray ba = str.toLatin1();//QString 转换为 char*
	const char *buf = ba.data();
	int len=strlen(str.toStdString().c_str());//str.length();//whp change 2020.3.16
	int dig[30];
	int DotNum=0;//小数点个数
	BOOL IsDigital=1;
	for(int i=0;i<len;i++)
	{
		if(i==0&&buf[i]=='-')continue;//可能是负数
		if(buf[i]=='.')DotNum++;
		else if(!isdigit(buf[i])){IsDigital=0;break;}
		if(DotNum>1){IsDigital=0;break;}
	}
	if(!IsDigital)return 6;//字符串
	else if(DotNum)return 4;//浮点数
	else return 1;//整形数
}
DEFAULTTABLE DataHelper::SetTableInf(QString TableName,QString TableHzName,int num,QStringList ZdName,QStringList HzName,QStringList ZdUnit,QStringList ZdType,QStringList ZdLen,QStringList ZdRes)
{
	DEFAULTTABLE DefTable;
	DefTable.TableName=TableName;
	DefTable.TableAliasName=TableHzName;
	DefTable.ZdNum=num;
	DefTable.tinfo=new Slf_OBJECT_FIELD[num];
	for(int i=0;i<num;i++)
	{
		strcpy(DefTable.tinfo[i].Name,ZdName[i].toStdString().c_str());
		strcpy(DefTable.tinfo[i].HZName,HzName[i].toStdString().c_str());
		strcpy(DefTable.tinfo[i].Unit,ZdUnit[i].toStdString().c_str());
		strcpy(DefTable.tinfo[i].HZUnit,"");
		DefTable.tinfo[i].RepCode=ZdType[i].toInt();
		DefTable.tinfo[i].CodeLength=ZdLen[i].toInt();

		DefTable.tinfo[i].Sequence=0;//2是否连续控制
		DefTable.tinfo[i].Start=1;//4字段起始值
		DefTable.tinfo[i].End=99999;//4字段起始值
		DefTable.tinfo[i].Rlev=1;//4字段采样间隔
		DefTable.tinfo[i].SamplePoint=1;//4一个阵列的横向采样样本点数
		DefTable.tinfo[i].ArrayNum=1;//4阵列数
		DefTable.tinfo[i].Vmin=-99999;//4字段最大值
		DefTable.tinfo[i].Vmax=99999;//4字段最小值
		DefTable.tinfo[i].DefVal=9999;//4缺省值
		//*(DWORD *)&DefTable.tinfo[i].Reserved=ZdRes[i].toInt();
		//20201126 GZL change
		strcpy(DefTable.tinfo[i].Reserved, ZdRes[i].toStdString().c_str());
	}
	return DefTable;
}
void DataHelper::InitDefauleTable()
{
	if(!m_IsGc)return;
	m_IsGc=false;
	QString ConfigName = ::GetConfPath()+"DefauleTable.ini";
	QFile InFile(ConfigName);
	if( !InFile.open(QIODevice::ReadOnly ) )
	{
		QMessageBox::warning(NULL,"提示","打开缺省表配置文件"+ConfigName+"错误");
		return ;
	}
	QTextStream textstream(&InFile);
	DefTabNum=0;
	QString line;
	while(!textstream.atEnd())
	{
		line=textstream.readLine(5000);
		if(line.indexOf("//")>=0)continue;
		if(line.indexOf("#")>=0)
		{
			DefTabNum++;
		}
	}
	if(!DefTabNum)
	{
		QMessageBox::warning(NULL,"提示","缺省表配置文件"+ConfigName+"中定义表数为0");
		return ;
	}
	DefauleTable=new DEFAULTTABLE[DefTabNum+1];
	InFile.seek(0);
	QString TableName,TableAliasName;
	//int ZdNum;
	QStringList ZdName,HzName,ZdUnit,ZdLen,ZdType,ZdRes,DataList;
	DefTabNum=0;

	line=textstream.readLine(5000);
//	line = line.toUpper();
	while(!textstream.atEnd())
	{
		line=textstream.readLine(5000);
		while(line.indexOf("#")>=0)
		{
			line=line.replace("#","");
			DataList=GetStringList(line,1,1,1,1,1);
			if(DataList.count()<2)continue;
			TableName=DataList.at(0);
			TableAliasName=DataList.at(1);
			while(!textstream.atEnd())
			{
				line=textstream.readLine(5000);
				if(line.indexOf(",")>=0)
				{
					continue;//枚举行
				}
//				line=line.toUpper();
				if(line.indexOf("#")>=0)
				{
					break;
				}
				DataList=GetStringList(line,1,1,1,1,1);
				if(DataList.count()<5)continue;

				ZdName.append(DataList.at(0).toUpper());
				HzName.append(DataList.at(1).toUpper());
				ZdUnit.append(DataList.at(2));

				bool IsZdType=0;
				for(int j=0;j<11;j++)
				{
					if(DataList.at(3).toUpper()==QString(Rep_STR[j]))
					{
						ZdType.append(QString::number(j+1));
						IsZdType=1;
						break;
					}
				}
				if(!IsZdType)QMessageBox::warning(NULL,"提示","defauletable.ini文件中表"+TableName+"的字段名"+DataList.at(0)+"类型不正确");
				ZdLen.append(DataList.at(4));

				if(DataList.count()>5){
					ZdRes.append(DataList.at(5).toUpper());
				}
				else
					ZdRes.append(DataList.at(3).toUpper());
			}
			DefauleTable[DefTabNum++]=SetTableInf(TableName,TableAliasName,ZdName.count(),ZdName,HzName,ZdUnit,ZdType,ZdLen,ZdRes);
			ZdName.clear();
			ZdLen.clear();
			ZdType.clear();
			HzName.clear();
			HzName.clear();
			ZdUnit.clear();
			ZdRes.clear();
			break;
		}
	}
	InFile.close();
}

void DataHelper::DelDefauleTable()
{
	if(!m_IsGc)
	{
		for(int i=0;i<DefTabNum;i++)
		{
			delete []DefauleTable[i].tinfo;
		}
		delete []DefauleTable;
		DefTabNum=0;
	}
	m_IsGc=true;

}

int DataHelper::GetSimilarTable(int ZdNum,int *FieldType)
{
	int DefaultNo=-1;
	//先找字段类型全部一致的进行匹配
	for(int i=0;i<DefTabNum;i++)
	{
		if(ZdNum!=DefauleTable[i].ZdNum)continue;//字段数不同的不匹配
		int SameTypeNum=0;
		for(int j=0;j<ZdNum;j++)
		{
			if(DefauleTable[i].tinfo[j].RepCode==FieldType[j])SameTypeNum++;
			else break;
		}
		if(SameTypeNum==ZdNum)return i;
	}
	//whp del 2020.5.25 会把其他四字段的数据匹配成RESULT，不合适
	/*	//如果字段类型不一致，只要可以转换成缺省表的字段类型也可以，比如int、float都可转换成string，int可以转换成float
	for(int i=0;i<DefTabNum;i++)
	{
	if(ZdNum!=DefauleTable[i].ZdNum)continue;//字段数不同的不匹配
	int SameTypeNum=0;
	for(int j=0;j<ZdNum;j++)
	{
	if(DefauleTable[i].tinfo[j].RepCode>=FieldType[j])SameTypeNum++;
	}
	if(SameTypeNum==ZdNum)return i;//先找字段类型全部一致，匹配
	}*/
	return DefaultNo;
}
//剔除空行
bool DataHelper::IsNullLine(QByteArray line)
{
	if(line=="")return 1;
	QStringList List=GetStringList(line);
	QString sss;
	bool IsNullLine=1;
	for(int kk=0;kk<List.size();kk++)
	{
		sss=List.at(kk);
		if(sss!="")
		{
			IsNullLine=0;break;
		}
	}
	return IsNullLine;
}
QStringList DataHelper::GetAllWellName()
{
	QStringList WellNameList;
    // WellNameList.clear();
    // PaiObject *pPrj=GetProject();
    // if(!pPrj) return WellNameList;
    // PaiObject *pObj=pPrj->GetObjectByType(GetClassID_WellsFolder());
    // QList<PaiObject *> childs;
    // pObj->GetChildren(childs);
    // int wellnum=childs.count();
    // foreach(PaiObject *pChild,childs)
    // {
    // 	CObjWell *pWell=dynamic_cast<CObjWell*>(pChild);
    // 	if(pWell) WellNameList.append(pWell->GetName());
    // }
	return WellNameList;
}
QStringList DataHelper::GetAllWellRoundName(QString WellName,QStringList& WellRoundFileNameList)
{
	QStringList WellRoundNameList;
	WellRoundNameList.clear();
	WellRoundFileNameList.clear();
    // CObjWell * pWell = CDataImport::GetWellByName(WellName);
    // QList<PaiObject*>  wellroundchildren;
    // int count=pWell->GetAllWellRound(wellroundchildren);
    // for(int i=0;i<count;i++) {
    // 	CObjWelllogRound *pWR=dynamic_cast<CObjWelllogRound *>(wellroundchildren[i]);
    // 	QString strfileWellName=pWR->GetSlfFileName();
    // 	WellRoundFileNameList.append(pWR->GetSlfFileName());
    // 	QFileInfo fileInfo(pWR->GetSlfFileName());
    // 	QString strWellName = fileInfo.completeBaseName();
    // 	WellRoundNameList.append(strWellName);
    // }
	return WellRoundNameList;
}
int Function::get_exp(float *result)
{
	*result=0.0;
	get_token();
	if (!*token)
	{
		//serror(2);
		return 2+1;
	}
	int re=level1(result);
	if(re>0)return re;
	else return 0;
}
int Function::level1(float *result)
{
	int slot,ttok_type;
	char temp_token[80];
	int re;
	if (tok_type==VARIABLE)     /* save old token */
	{
		strcpy(temp_token,token);
		ttok_type=tok_type;

		slot=toupper(*token)-'A';
		get_token();
		if (*token !='=')
		{
			putback();      /* return current token */
			/* restore old token */
			strcpy(token,temp_token);
			tok_type=ttok_type;
		}
		else
		{
			get_token();	/* get next part of exp */
			re=level2(result);
			if(re>0)return re;
			vars[slot]=*result;
			return 0;
		}
	}
	re=level2(result);
	if(re>0)return re;
	else return 0;
}
/* add or subtract two terms */
int Function::level2(float *result)
{
	register char op;
	float hold;
	int re=level3(result);
	if(re>0)return re;
	while ((op=*token)=='+' || op=='-')
	{
		get_token();
		re=level3(&hold);
		if(re>0)return re;
		arith(op,result,&hold);
	}
	return 0;
}

/* multiply or divide two factors */
int Function::level3(float *result)
{
	register char op;
	float hold;
	int re=level4(result);
	if(re>0)return re;
	while ((op=*token)=='*' || op=='/' || op=='%')
	{
		get_token();
		re=level4(&hold);
		if(re>0)return re;
		arith(op,result,&hold);
	}
	return 0;
}

/* process integer exponet */
int Function::level4(float *result)
{
	register char op;
	float hold;
	int re=level5(result);
	if(re>0)return re;
	while ((op=*token)=='!' || op=='^')
	{
		get_token();
		re=level4(&hold);
		if(re>0)return re;
		arith(op,result,&hold);
	}
	return 0;
}
/* unary + or - */
int Function::level5(float *result)
{
	register char op;
	op=0;
	if ((tok_type==DELIMITER) && *token=='+' || *token=='-')
	{
		op=*token;
		get_token();
	}
	int re=level6(result);
	if(re>0)return re;
	if (op)
		unary(op,result);
	return 0;
}

/* process parenthesized expression */
int Function::level6(float *result)
{int re;
if ((*token=='(') && (tok_type==DELIMITER))
{
	get_token();
	re=level1(result);
	if(re>0)return re;
	if (*token !=')')
	{
		return 1+1;
		//serror(1);
	}
	get_token();
}
else
	re=primitive(result);
return re;
}

/* find value of number or variable */
int Function::primitive(float *result)
{
	int re;
	switch (tok_type)
	{
	case VARIABLE:
		*result=find_var(token,&re);
		if(re>0)return re;
		get_token();
		return 0;
	case MNUMBER:
		*result=atof(token);
		get_token();
		return 0;
	default:
		//serror(0);
		return 1;
	}
}
/* perform the specified arithmetic */
void Function::arith(char o,float *r,float *h)
{
	register int t,ex;

	switch (o)
	{
	case '-':
		*r=*r-*h;
		break;
	case '+':
		*r=*r+*h;
		break;
	case '*':
		*r=(*r) * (*h);
		break;
	case '/':
		if(*h==0) *r=0;
		else *r=(*r)/(*h);
		break;
	case '%':
		if(*h==0) *r=0;
		else {
			t=(*r)/(*h);
			*r=*r-t*(*h);
		}
		break;
	case '^':
		ex=*r;
		if (*h==0)
		{
			*r=1;
			break;
		}
		//for (t=*h-1;t>0;--t) *r=(*r) *ex;
		*r=pow((*r),(*h));
		break;
	case '!':
		if (*r==10.)
			*r=log10(*h);
		else
			*r=log(*h);
		/*
		if (*h==10.)
		*r=log10(*r);
		else
		*r=log(*r);
		*/
		break;
	}
}

void Function::unary(char o,float *r)
{
	if (o=='-') *r=-(*r);
}
/* return a token to its resting place */
void Function::putback()
{
	char *t;

	t=token;
	for (;*t;t++) prog--;
}

/* find the value of a variable */
float Function::find_var(char *s,int *ret)
{
	*ret=0;
	if (!isalpha(*s))
	{
		//serror(1);
		*ret=2;
		return 0.;
	}

	float a;
	//  return d_pDoc->INP[0].yy[toupper(*token)-'A'];
	return val[toupper(*token)-'A'];
}

/* display an error message */
void Function::serror(int error)
{
    const static char *e[]={
		"syntax error.",
		"unbalanced parentheses",
		"no expression present"
	};
	AfxMessageBox(e[error]);
}

/* get a token */
void Function::get_token()
{
	register char *temp;

	tok_type=0;
	temp=token;

	while (iswhite(*prog)) ++prog;    /* skip over white space */

    char strTmp[11] = "+-*/%!^=()";
    if (is_in(*prog,strTmp))
	{
		tok_type=DELIMITER;
		*temp++=*prog++;
		/* advance to next position */
	}
	else
		if (isalpha(*prog))
		{
			while (!isdelim(*prog)) 
			{
				*temp++=*prog++;
			}
			tok_type=VARIABLE;
		}
		else
			if (isdigit(*prog))
			{
				while (!isdelim(*prog))
				{
					*temp++=*prog++;
				}
				tok_type=MNUMBER;
			}
			*temp='\0';
}

int Function::iswhite(char c)
{
	/* look for space and tabs */
	if (c==' ' || c==9) return 1;
	return 0;
}

int Function::isdelim(char c)
{
    char strTmp[11] = "+-*/%!^=()";
    if (is_in(c,strTmp) || c==9 || c=='\r' || c==0)
		return 1;
	return 0;
}

int Function::is_in(char ch,char *s)
{
	while (*s) if (*s++==ch) return 1;
	return 0;
}
int Function::GetExpress(QString csExpress)
{
	int len,dPos[MaxArg],dCurvePos[MaxArg],dCurveNum,dOutPos;
	int i,j,flag,num,noi;
	int x1,y1,y2;
	QString csMessage,cs;
	char name[curve_name_len+1];
	int iProgramOutCurvePos;
	Slf_OBJECT_ENTRY entryy;
	Slf_CHANNEL channel;
	// notice :
	// 进行曲线计算时，作为变量的曲线采样间距应一致
	//A-Z 26 user's variable 
	for (i=0; i<MaxArg; i++) 
	{	
		vars[i] = 0;
		csName[i]="";
	}
	csExpress.replace("	","");//清除tab键
	csExpress.replace(" ","");//清除空格
	csExpress.toUpper();
	len = csExpress.length();
	num = csExpress.indexOf("=");
	if ( num <= 0)//检查“=”
	{
		QMessageBox::warning(NULL,"提示","对不起，您输入的表达式\n"+csExpress+"不正确\n请重新输入");
		return -1;
	}
	QString Model=csExpress;
	csOutName = csExpress.left(num);
	csExpress = csExpress.right(len-num-1);
	int Lkh=0,Rkh=0;//左右括号个数
	char cExpress[200];
	strcpy(cExpress,csExpress.toStdString().c_str());
	for(int i=0;i<csExpress.length();i++)//检查不识别的字符
	{

		if(cExpress[i]<0)//检查汉字
		{
			QString ss="对不起，该系统不支持汉字表达式计算\r\n所以无法处理您所输入的公式："+Model+"\r\n请重新输入";
			QMessageBox::warning(NULL,"提示",ss);
			return -1;
		}
        char strTmp[11] = "+-*/%!^=()";
        if ( !(isupper(cExpress[i]) || isdigit(cExpress[i]) || cExpress[i]=='.'|| cExpress[i]=='_' ||is_in(cExpress[i],strTmp)))
		{
			QString ss="对不起，您所输入的表达式\r\n"+Model+"\r\n中含有该系统无法识别的字符";//+QString(QLatin1String(cExpress[i]))+"\r\n请重新输入";
			QMessageBox::warning(NULL,"提示",ss);
			return -1;
		}
		if(cExpress[i]=='(')Lkh++;
		else if(cExpress[i]==')')Rkh++;
	}
	if(Lkh!=Rkh)
	{
		QMessageBox::warning(NULL,"提示","计算公式："+Model+" 中含有不对称的括号\r\n无法进行计算，请重新输入");
		return -1;
	}
	len = csExpress.length();
	if(csOutName.length()<0||len<=0)
	{
		QMessageBox::warning(NULL,"提示","对不起，您输入的表达式\n"+csExpress+"不正确\n请重新输入,如：AC1=AC+20\r\n");
		return -1;
	}
	strcpy(name,csOutName.toStdString().c_str());
	x1 = 0; y1 = 0;
	len = csExpress.length();
	while ( x1 < len )
	{
		flag = 0;
		for (i=x1; i<len; i++)
		{

			if ( isupper(cExpress[i])) //csExpress[i]<0汉字
			{
				dPos[y1] = i; 
				flag=1; 
				break; 
			}
		}
		x1=i;
		if ( flag )
		{
			y2 = 0;
			for (i=dPos[y1]; i<len; i++)
			{
				if ( isupper(cExpress[i]) || isdigit(cExpress[i]) 
					|| cExpress[i]=='.'|| cExpress[i]=='_' )
				{
					csName[y1]+=cExpress[i];
				}
				else 
					break;
			}
			x1 = i;
			y1 ++;
		}
	}
	noi=y1;
	for (i=0; i<noi; i++)
	{
		cExpress[dPos[i]]='A'+ i;
		len = csName[i].length();
		for (j=1; j<len; j++)cExpress[dPos[i]+j]=' ';
		/*csExpress.setAt(dPos[i],'A'+ i);
		len = csName[i].GetLength();
		for (j=1; j<len; j++)
		csExpress.SetAt(dPos[i]+j,(TCHAR)' ');*/
	}
	strcpy(TempProg,cExpress);//csExpress);
	return noi;
}
//Resample
float Resample::GetXstep(float x2,float x1)
{
	float xstep;
	double eps=1.0e-5;
	xstep=x2-x1;
	if(fabs(xstep)<eps)
	{
		if(xstep>=0.0) xstep=eps; else xstep=-eps;
	}
	return(xstep);
}
//---------------------------------------------------------------------
// Input: (x1,y1),(x2,y2),...,(xk,yk),(xk+1,yk+1),...,(xn,yn),
// Region: {x[k],x[k+1]}
// Function: Sk(x)=a[k]+b[k]*(x-x[k])
// Output: a[k],b[k]
//---------------------------------------------------------------------
void Resample::Linear(float *x,float *y,int n,float *a,float *b)
{
	for(int i=0;i<n-1;i++)
	{ 
		b[i]=(y[i+1]-y[i])/GetXstep(x[i+1],x[i]);
		a[i]=y[i];
	}
	a[n-1]=a[n-2]; b[n-1]=0.0;
}
//---------------------------------------------------------------------
// Input: (x1,y1),(x2,y2),...,(xk,yk),(xk+1,yk+1),...,(xn,yn),
// Region: {x[k],x[k+1]}
// Function: Sk(x)=a[k]+b[k]*(x-x[k])+c[k]*(x-x[k])^2
// Output: a[k],b[k],c[k]
//---------------------------------------------------------------------
void Resample::Parabola(float *x,float *y,int n,float *a,float *b,float *c)
{
	float *dx1,*dx2;
	dx1=new float [n]; dx2=new float [n];
	if(dx1==NULL||dx2==NULL) return;

	for(int i=0;i<n-1;i++) dx1[i]=GetXstep(x[i+1],x[i]);
	for(int i=0;i<n-2;i++) dx2[i]=GetXstep(x[i+2],x[i]);
	dx2[n-2]=GetXstep(x[n-1],x[n-3]);
	for(int i=0;i<n-2;i++)
	{ 
		a[i]=y[i];
		b[i]=-y[i]*(dx1[i]+dx2[i])/dx1[i]/dx2[i]+y[i+1]*dx2[i]/dx1[i]/dx1[i+1]
		-y[i+2]*dx1[i]/dx1[i+1]/dx2[i];
		c[i]=y[i]/dx1[i]/dx2[i]-y[i+1]/dx1[i]/dx1[i+1]+y[i+2]/dx1[i+1]/dx2[i];
	}
	a[n-2]=y[n-2];
	b[n-2]=-y[n-3]*dx1[n-2]/dx1[n-3]/dx2[n-2]+y[n-2]*(dx1[n-2]-dx1[n-3])/dx1[n-3]/dx1[n-2]
	+y[n-1]*dx1[n-3]/dx1[n-2]/dx2[n-2];
	c[n-2]=y[n-3]/dx1[n-3]/dx2[n-2]-y[n-2]/dx1[n-3]/dx1[n-2]+y[n-1]/dx1[n-2]/dx2[n-2];
	a[n-1]=y[n-1]; b[n-1]=0.0; c[n-1]=0.0;
	delete [] dx1;
	delete [] dx2;
}
//---------------------------------------------------------------------
// Input: (x1,y1),(x2,y2),...,(xk,yk),(xk+1,yk+1),...,(xn,yn),
// Region: {x[k],x[k+1]}
// Function: Sk(x)=a[k]+b[k]*(x-x[k])+c[k]*(x-x[k])^2+d[k]*(x-x[k])^3
// Output: a[k],b[k],c[k],d[k]
//---------------------------------------------------------------------
void Resample::Akima(float *x,float *y,int n,float *a,float *b,float *c,float *d)
{
	float *u,*v;
	double eps=1.0e-6;
	int dtemp=2;
	u=new float [n+dtemp+1]; v=new float [n+dtemp+1];
	if(u==NULL||v==NULL) return;

	n=n-1;
	for(int i=0;i<n;i++) u[i+dtemp]=(y[i+1]-y[i])/GetXstep(x[i+1],x[i]);
	u[-1+dtemp]=2*u[0+dtemp]-u[1+dtemp];
	u[-2+dtemp]=2*u[-1+dtemp]-u[0+dtemp];
	u[n+dtemp]=2*u[n-1+dtemp]-u[n-2+dtemp];
	u[n+1+dtemp]=2*u[n+dtemp]-u[n-1+dtemp];
	for(int i=0;i<n+1;i++)
	{ if(fabs(u[i+1+dtemp]-u[i+dtemp])+fabs(u[i-1+dtemp]-u[i-2+dtemp])<eps)
	v[i]=(u[i-1+dtemp]+u[i+dtemp])/2.0;
	else
		v[i]=(u[i-1+dtemp]*fabs(u[i+1+dtemp]-u[i+dtemp])
		+u[i+dtemp]*fabs(u[i-1+dtemp]-u[i-2+dtemp]))
		/(fabs(u[i+1+dtemp]-u[i+dtemp])+fabs(u[i-1+dtemp]-u[i-2+dtemp])+1.0e-5);
	}
	float xstep;
	for(int i=0;i<n;i++)
	{ a[i]=y[i];
	b[i]=v[i];
	xstep=GetXstep(x[i+1],x[i]);
	c[i]=(3*u[i+dtemp]-2*v[i]-v[i+1])/xstep;
	d[i]=(v[i+1]+v[i]-2*u[i+dtemp])/xstep/xstep;
	}
	a[n]=y[n]; b[n]=0.0; c[n]=0.0; d[n]=0.0;
	delete [] u;
	delete [] v;
}
//--------------------------------------------------------------------
//
bool Resample::LReSampling(float *aDep,float *aVal,int anp,float *tDep,float *curve,int tnp,int method)
{
	int id;
	float av;
	float xk,x,*a,*b,*c,*d;
	a=new float [anp+1]; if(a==NULL) return(false);
	b=new float [anp+1]; if(b==NULL) { delete [] a; return(false); }
	c=new float [anp+1]; if(c==NULL) { delete [] a; delete [] b; return(false); }
	d=new float [anp+1]; if(d==NULL) { delete [] a; delete [] b; delete [] c; return(false); }
	av=0.0; for(int k=0; k<anp; k++) av+=(aVal[k]/anp);
	//  Calculate coefficents
	switch(method)
	{
	case 0:
		Linear(aDep,aVal,anp,a,b);
		break;
	case 1:
		Parabola(aDep,aVal,anp,a,b,c);
		break;
	case 2:
		Akima(aDep,aVal,anp,a,b,c,d);
		break;
	}  
	// Resampling
	for(int kk=0; kk<tnp; kk++)
	{
		x=tDep[kk];
		if(x<aDep[0]) {  id=0; }
		else if(x>aDep[anp-1]){ id=anp-1; }
		else
		{
			id=0; for(int i=0;i<anp-1;i++) if((aDep[i]<=x)&&(x<aDep[i+1])){ id=i; break; }
		}
		xk=aDep[id];
		switch(method)
		{
		case 0:
			curve[kk]=a[id]+b[id]*(x-xk);
			break;
		case 1:
			curve[kk]=a[id]+b[id]*(x-xk)+c[id]*(x-xk)*(x-xk);
			break;
		case 2:
			curve[kk]=a[id]+b[id]*(x-xk)+c[id]*(x-xk)*(x-xk)+d[id]*(x-xk)*(x-xk)*(x-xk);
			break;
		}
		if(curve[kk]<0.0) curve[kk]=av;
	}
	curve[tnp-1]=curve[tnp-2];
	delete [] a; 
	delete [] b; 
	delete [] c; 
	delete [] d; 
	return(true);
}
void Resample::qs(float*datx,float*mr,int left,int right,int Col)
{
	int i,j;
	float x,y,va[1024];
	i=left;j=right;
	x=datx[(left+right)/2];
	do {
		while(datx[i]<x&&i<right) i++;
		while(datx[j]>x&&j>left ) j--;
		if(i<=j) {
			y=datx[i];
			datx[i]=datx[j];
			datx[j]=y;
			memmove(va,&mr[i*Col],Col*sizeof(float));
			memmove(&mr[i*Col],&mr[j*Col],Col*sizeof(float));
			memmove(&mr[j*Col],va,Col*sizeof(float));
			i++;j--;
		}
	} while(i<=j);
	if(left<j)  qs(datx,mr,left,j,Col);
	if(i<right) qs(datx,mr,i,right,Col);
}
// ww chanage
void Resample::qs(float*datx,short*mr,int left,int right,int Col)
{
	int i,j;
	float x,y,va[1024];
	i=left;j=right;
	x=datx[(left+right)/2];
	do {
		while(datx[i]<x&&i<right) i++;
		while(datx[j]>x&&j>left ) j--;
		if(i<=j) {
			y=datx[i];
			datx[i]=datx[j];
			datx[j]=y;
			memmove(va,&mr[i*Col],Col*sizeof(short));
			memmove(&mr[i*Col],&mr[j*Col],Col*sizeof(short));
			memmove(&mr[j*Col],va,Col*sizeof(short));
			i++;j--;
		}
	} while(i<=j);
	if(left<j)  qs(datx,mr,left,j,Col);
	if(i<right) qs(datx,mr,i,right,Col);
}

void Resample::ReOrder(float *mr,int Row,int Col,float *tDep)
{
	// ww change
	qs(tDep,mr,0,Row-1,Col);

	/*	
	float vd;
	float va[1024];
	for(int i=0; i<Row-1; i++)
	{
	for(int k=i+1; k<Row; k++)
	{
	if(tDep[k]<tDep[i])
	{
	for(int j=0; j<Col; j++) va[j]=mr[i*Col+j];
	for(int j=0; j<Col; j++) mr[i*Col+j]=mr[k*Col+j];
	for(int j=0; j<Col; j++) mr[k*Col+j]=va[j];
	vd=tDep[i]; tDep[i]=tDep[k]; tDep[k]=vd;
	}
	}
	}
	*/
}
void Resample::ReOrder(short *mr,int Row,int Col,float *tDep)
{
	// ww chanage
	qs(tDep,mr,0,Row-1,Col);
	/*
	float vd;
	short va[1024];
	for(int i=0; i<Row-1; i++)
	{
	for(int k=i+1; k<Row; k++)
	{
	if(tDep[k]<tDep[i])
	{
	for(int j=0; j<Col; j++) va[j]=mr[i*Col+j];
	for(int j=0; j<Col; j++) mr[i*Col+j]=mr[k*Col+j];
	for(int j=0; j<Col; j++) mr[k*Col+j]=va[j];
	vd=tDep[i];
	tDep[i]=tDep[k];
	tDep[k]=vd;
	}
	}
	}
	*/
}
void Resample::ReSampling(float *mr,int Row,int Col,float *aDep,float *tDep,int tnp)
{
	int nnn;
	float *lbuf,*aVal;
	nnn=tnp; if(nnn<Row) nnn=Row;
	lbuf=new float [nnn+10]; if(lbuf<0) return;
	aVal=new float [nnn+10]; if(aVal<0){ delete [] lbuf; return; }
	for(int k=0; k<Row; k++) aVal[k]=tDep[k];
	ReOrder(mr,Row,Col,aDep);
	//ww change

	for(int j=0; j<Col; j++)
	{

		for(int k=0; k<Row; k++) lbuf[k]=mr[k*Col+j];
		LReSampling(aDep,lbuf,Row,tDep,aVal,tnp,0);
		for(int k=0; k<tnp; k++) mr[k*Col+j]=aVal[k];
	}
	delete [] lbuf; delete [] aVal;
}
void Resample::ReSampling(short *mr,int Row,int Col,float *aDep,float *tDep,int tnp)
{
	int nnn;
	float *lbuf,*aVal;
	nnn=tnp; if(nnn<Row) nnn=Row;
	lbuf=new float [nnn+10]; if(lbuf<0) return;
	aVal=new float [nnn+10]; if(aVal<0){ delete [] lbuf; return; }
	ReOrder(mr,Row,Col,tDep);
	//ww chanage

	for(int j=0; j<Col; j++)
	{

		for(int k=0; k<Row; k++) lbuf[k]=mr[k*Col+j];
		LReSampling(aDep,lbuf,Row,tDep,aVal,tnp,0);
		for(int k=0; k<tnp; k++) mr[k*Col+j]=aVal[k];
	}
	delete [] lbuf; delete [] aVal;
}