//Общая функция для вызова функций по пару и воде, funName - имя функции WSP
private void WspFun(Moment[] par, Moment res, string funName, Func <string, Moment[], double> deleg)
{
string f = "wsp" + funName;
try
{
string s = par[0].String.ToLower();
if (WpsParamsNum(s) != par.Length - 1)
{
PutErr("Недопустимое количество параметров функции " + f, res);
}
else
{
double d = deleg(s, par);
if (double.IsNaN(d))
{
PutErr(_wsperr + f, res);
}
else
{
res.Real = d;
}
}
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + f, res);
}
}
catch { PutErr(_wsperr + f, res); }
}
public void wspgcvtrsr(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgCVGST(GazSpecification(par, 1), par[0].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgCVT", res);
}
}
catch { PutErr(_wsperr + "wspgCVT", res); }
}
public void wspgcvtrs(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgCVGST(par[1].String, par[0].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgCVT", res);
}
}
catch { PutErr(_wsperr + "wspgCVT", res); }
}
// ВодаПар
//
public void wspsurftenr(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspSURFTENT(par[0].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspSurftent", res);
}
}
catch { PutErr(_wsperr + "wspSurftent", res); }
}
public void wspphasestaterr(Moment[] par, Moment res)
{
try
{
res.Integer = Oka.wspPHASESTATEPT(par[0].Real, par[1].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspPhaseState", res);
}
}
catch { PutErr(_wsperr + "wspPhaseState", res); }
}
public void wspgvptrri(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgVIDPT(par[2].Integer, par[0].Real, par[1].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgVPT", res);
}
}
catch { PutErr(_wsperr + "wspgVPT", res); }
}
public void wspgvptrrsr(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgVGSPT(GazSpecification(par, 2), par[0].Real, par[1].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgVPT", res);
}
}
catch { PutErr(_wsperr + "wspgVPT", res); }
}
public void wspgtpsrrs(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgTGSPS(par[2].String, par[0].Real, par[1].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgTPS", res);
}
}
catch { PutErr(_wsperr + "wspgTPS", res); }
}
public void wspgvfss(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgVFGSGS(par[0].String, par[1].String);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgVF", res);
}
}
catch { PutErr(_wsperr + "wspgVF", res); }
}
public void wspgvfii(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgVFIDID(par[0].Integer, par[1].Integer);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgVF", res);
}
}
catch { PutErr(_wsperr + "wspgVF", res); }
}
public void wspgmmsr(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgMMGS(GazSpecification(par, 0));
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgMM", res);
}
}
catch { PutErr(_wsperr + "wspgMM", res); }
}
public void wspgthri(Moment[] par, Moment res)
{
try
{
res.Real = Oka.wspgTIDH(par[1].Integer, par[0].Real);
if (Oka.wspGETLASTERROR() != 0)
{
PutErr(_wsperr + "wspgTH", res);
}
}
catch { PutErr(_wsperr + "wspgTH", res); }
}