表达式求值（下）

//函数处理
bool CExpression::Level6(double *result)
{
int num; char funcname[8];
char op = 0;
int paranum=1;
double para[6];

if( IsFunc( m_strToken ) ) // 如果是函数名
//if(expGetFunIndex(m_strToken,&num) == true)
{
op = 1;
strcpy( funcname, m_strToken );
//取得下一单元
if(GetToken() != true)
{
m_iErrFlag = 2; //m_iErrFlag = 1;
return false;
}
}

if(op)
{
if((*m_strToken == '(') && (m_cTokenType == DELIMITER))
{
//取得括号内第一单元
if(GetToken() == true)
{
//递归调用,完成括号内的表达式运算
if(Level2(result) != true)
return false;
while(m_cTokenType == DELIMITER && *m_strToken == ',')
{
paranum++;
if(GetToken() != true)
{
m_iErrFlag = 2; //m_iErrFlag = 1;
return false;
}

//递归调用,完成括号内的表达式运算
if(Level2(¶[paranum-1]) != true)
return false;
}
para[0] = *result;

//当前符号应为')'
if(*m_strToken != ')')
{
//括号不匹配
m_iErrFlag = 3;
return false;
}

if(GetToken() != true)
{
m_iErrFlag = 2; //m_iErrFlag = 1;
return false;
}
}
else
{
m_iErrFlag = 2; //m_iErrFlag = 1;
return false;
}
}
else
{
//括号不匹配
m_iErrFlag = 3;
return false;
}

//单参数
if(paranum == 1)
{
*result = para[0];
//若函数为三角函数,进行角度到弧度的转换
if(stricmp(funcname,"sin") == 0 ||
stricmp(funcname,"cos") == 0 ||
stricmp(funcname,"tan") == 0 )
{
if( stricmp( funcname, "tan" ) == 0 )
{
if( fabs( *result - 90.0 ) < 0.0005 ||
fabs( *result - 270.0 ) < 0.0005 ||
fabs( *result + 90.0 ) < 0.0005 ||
fabs( *result + 270.0 ) < 0.0005 )
{
Message( "正切函数值溢出!" );//
return false;
}
}
if( m_bDegUnit == true )
*result = *result /180 * PI;
}
else if( stricmp(funcname,"asin") == 0 ||
stricmp(funcname,"acos") == 0 )
{
if( fabs( *result ) > 1.0 )
{
//
Message( "反正弦函数和反余弦函数的参数绝对值必须小于1!" );
return false;
}
}
else if( stricmp( funcname, "sqrt" ) == 0 )
{
if( *result < 0.0 )
{
Message( "不能对负数开平方!" );//
return false;
}
}
else if( stricmp( funcname, "log" ) == 0 ||
stricmp( funcname, "log10" ) == 0 )
{
if( *result <= 0.0 )
{
Message( "负数和零没有对数!" );//
return false;
}
}
if( GetFunIndex( funcname, &num ) )
*result = ( *funTable[num])(*result);
else
{
m_iErrFlag = 2;
return false;
}
}
else
return false;

if(paranum == 1)
{
//若为反三角函数,将弧度转化为度
if(stricmp(funcname,"asin") == 0 ||
stricmp(funcname,"acos") == 0 ||
stricmp(funcname,"atan") == 0 )
{
if( m_bDegUnit == true )
*result = *result *180 / PI;
}
return true;
}
}

if(Level7(result) != true)
return false;

return true;
}

//括号及函数处理
bool CExpression::Level7(double *result)
{
//若取得的单元为括号
if((*m_strToken == '(') && (m_cTokenType == DELIMITER))
{
//跳过括号,取得括号内第一单元
if(GetToken() == true)
{
//递归调用,完成括号内的表达式运算
if(Level2(result) != true)
return false;

//当前符号应为')',否则出错
if(*m_strToken != ')')
{
m_iErrFlag = 3;
return false;
}

//跳过符号')'
if(GetToken() != true)
{
m_iErrFlag = 3;
return false;
}
}
else
{
m_iErrFlag = 2; //m_iErrFlag = 1;
return false;
}
}
//否则必为变量或常数
else
{
//取得变量数值或常数
if(Primitive(result) != true)
{
m_iErrFlag = 2;
return false;
}
else
return true;
}
return true;
}
bool CExpression::GetFunIndex(const char *name,int *index)
{
int i;
for(i=0 ;i< funTableLen ;i++)
{
if(strcmp(funNameTable[i],name) == 0)
{
*index = i;
return true;
}
}
return false;
}
//回读表达式一token,在level1中调用.
void CExpression::PutBack()
{
char *t;

//将token回送到表达式
t = m_strToken;
for( ; *t; t ++ )
m_strExp--;
}
//取反
void CExpression::Unary(char o,double *r)
{
if(o == '-')
*r = -(*r);
}

bool CExpression::Arith(char o, double *r, double *h)
{
int t;
double ex;

switch(o)
{
case '-':
*r=*r - *h;
break;
case '+':
*r=*r + *h;
break;
case '*':
*r=*r * *h;
break;
case '/':
if(fabs(*h)<0.00000001)
{
Message("除数为零!" ); //
return false;
}
*r=(*r) / (*h);
break;
case '%':
t=(int)( (*r) / (*h) );
*r=*r- t*(*h);
break;
case '^': // 原有处理如果指数为小数则结果误差很大
ex=*r;
if( fabs( *h ) < 1e-9 )
{
*r=1.0;
break;
}
if( fabs( *h - floor( *h ) ) < 0.01 || fabs( *h - ceil( *h ) ) < 0.01 )
{
for( t = (int)(*h) - 1; t > 0; t -- )
*r = (*r) * ex;
}
else
*r = pow( *r, *h );
break;
}
return true;
}


//取变量或常数值
bool CExpression::Primitive(double *result)
{
if(strcmp(m_strToken,"") == 0)
return true;

//常数
if(m_cTokenType == NUMBER)
{
//串转化为实数
*result = atof(m_strToken);

//取得下一单元
if(GetToken() != true)
return false;

return true;
}
//变量
else if(m_cTokenType == VARIABLE)
{
if(GetVarValue(m_strToken,result) != true)
return false;

//取得下一单元
if(GetToken() != true)
return false;
return true;
}
return false;
}

bool CExpression::GetVarValue( const char * n, double * result )
{
list<CVar*>::iterator iter;
for(iter=m_VarList.m_VarList.begin();iter!=m_VarList.m_VarList.end();iter++)
{
if((*iter)->m_strName==n)
{
*result=(*iter)->m_dValue;
return true;
}
}
return false;
}
//取得变量在变量表中的索引值
bool CExpression::GetVarIndex( const char * name, int * index )
{
int i=0;
list<CVar*>::iterator iter;
for(iter=m_VarList.m_VarList.begin();iter!=m_VarList.m_VarList.end();iter++)
{
if((*iter)->m_strName==name)
{
*index=i;
return true;
}
i++;
}
return false;
}
bool CExpression::UpdateSlaveVar()
{
bool bRet = true;
list<CVar*>::iterator iter;
for(iter=m_VarList.m_VarList.begin();iter!=m_VarList.m_VarList.end();iter++)
{
if((*iter)->m_strSlave!="")
{
double dResult=m_dResult;
char* strExp=m_strExp;
string str=(*iter)->m_strSlave;
m_strExp=(char*)str.c_str();
(*iter)->m_strSlave="";
bRet=CalExp();
if(bRet==false)
{
string prompt=(*iter)->m_strName;
prompt+="定义错误!";
Message(prompt.c_str());
return false;
}else
{
(*iter)->m_dValue=m_dResult;
}
m_dResult=dResult;
m_strExp=strExp;
}
}

return true;
}