2001-12-05 08:04:20 +00:00
|
|
|
#include <config.h>
|
|
|
|
|
2001-11-07 13:15:59 +00:00
|
|
|
#include "math_exfuncinset.h"
|
2001-11-08 12:15:12 +00:00
|
|
|
#include "math_support.h"
|
2001-11-08 12:06:56 +00:00
|
|
|
#include "math_mathmlstream.h"
|
2001-12-05 08:04:20 +00:00
|
|
|
#include "math_streamstr.h"
|
2001-11-07 13:15:59 +00:00
|
|
|
|
|
|
|
|
2001-11-13 18:33:48 +00:00
|
|
|
MathExFuncInset::MathExFuncInset(string const & name)
|
2001-11-07 13:15:59 +00:00
|
|
|
: MathNestInset(1), name_(name)
|
2001-11-13 18:33:48 +00:00
|
|
|
{}
|
2001-11-07 13:15:59 +00:00
|
|
|
|
|
|
|
|
2002-06-25 13:19:50 +00:00
|
|
|
MathExFuncInset::MathExFuncInset(string const & name, MathArray const & ar)
|
|
|
|
: MathNestInset(1), name_(name)
|
|
|
|
{
|
|
|
|
cell(0) = ar;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-11-07 13:15:59 +00:00
|
|
|
MathInset * MathExFuncInset::clone() const
|
|
|
|
{
|
|
|
|
return new MathExFuncInset(*this);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2002-05-30 07:09:54 +00:00
|
|
|
void MathExFuncInset::metrics(MathMetricsInfo & mi) const
|
2001-11-07 13:15:59 +00:00
|
|
|
{
|
2002-05-30 07:09:54 +00:00
|
|
|
mathed_string_dim(mi.base.font, name_, ascent_, descent_, width_);
|
2001-11-09 12:01:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2002-05-30 07:09:54 +00:00
|
|
|
void MathExFuncInset::draw(MathPainterInfo & pi, int x, int y) const
|
2002-03-21 17:42:56 +00:00
|
|
|
{
|
2002-05-30 07:09:54 +00:00
|
|
|
drawStrBlack(pi, x, y, name_);
|
2001-11-07 13:15:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-11-09 08:35:57 +00:00
|
|
|
void MathExFuncInset::normalize(NormalStream & os) const
|
2001-11-07 13:15:59 +00:00
|
|
|
{
|
2001-12-05 08:04:20 +00:00
|
|
|
os << '[' << name_ << ' ' << cell(0) << ']';
|
2001-11-07 13:15:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-11-09 12:01:10 +00:00
|
|
|
void MathExFuncInset::maplize(MapleStream & os) const
|
2001-11-07 13:15:59 +00:00
|
|
|
{
|
2002-06-25 13:49:29 +00:00
|
|
|
if (name_ == "det")
|
|
|
|
os << "linalg[det](" << cell(0) << ')';
|
|
|
|
else
|
|
|
|
os << name_ << '(' << cell(0) << ')';
|
2001-11-07 13:15:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2002-07-01 11:17:14 +00:00
|
|
|
string asMathematicaName(string const & name)
|
|
|
|
{
|
|
|
|
if (name == "sin") return "Sin";
|
|
|
|
if (name == "sinh") return "Sinh";
|
|
|
|
if (name == "arcsin") return "ArcSin";
|
|
|
|
if (name == "cos") return "Cos";
|
|
|
|
if (name == "cosh") return "Cosh";
|
|
|
|
if (name == "arcos") return "ArcCos";
|
|
|
|
if (name == "tan") return "Tan";
|
|
|
|
if (name == "tanh") return "Tanh";
|
|
|
|
if (name == "arctan") return "ArcTan";
|
|
|
|
if (name == "cot") return "Cot";
|
|
|
|
if (name == "coth") return "Coth";
|
|
|
|
if (name == "csc") return "Csc";
|
|
|
|
if (name == "sec") return "Sec";
|
|
|
|
if (name == "exp") return "Exp";
|
|
|
|
if (name == "log") return "Log";
|
|
|
|
if (name == "ln" ) return "Log";
|
|
|
|
return name;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void MathExFuncInset::mathematicize(MathematicaStream & os) const
|
|
|
|
{
|
|
|
|
os << asMathematicaName(name_) << '[' << cell(0) << ']';
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-11-09 12:01:10 +00:00
|
|
|
void MathExFuncInset::mathmlize(MathMLStream & os) const
|
|
|
|
{
|
|
|
|
os << MTag(name_.c_str()) << cell(0) << ETag(name_.c_str());
|
2001-11-07 13:15:59 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-11-07 17:30:26 +00:00
|
|
|
void MathExFuncInset::octavize(OctaveStream & os) const
|
2001-11-07 13:15:59 +00:00
|
|
|
{
|
2001-12-05 08:04:20 +00:00
|
|
|
os << name_ << '(' << cell(0) << ')';
|
2001-11-07 13:15:59 +00:00
|
|
|
}
|
2001-11-09 12:01:10 +00:00
|
|
|
|
|
|
|
|
|
|
|
void MathExFuncInset::write(WriteStream & os) const
|
|
|
|
{
|
2001-12-05 08:04:20 +00:00
|
|
|
os << '\\' << name_ << '{' << cell(0) << '}';
|
2001-11-09 12:01:10 +00:00
|
|
|
}
|