Changeset fcb7cd1 in tol

Timestamp:

Apr 15, 2011, 10:45:46 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

64c5348

Parents:

e9e4854

Message:

Refs #1150

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3452 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/btol/real_type/datgrapr.cpp (modified) (1 diff)

tol/btol/real_type/datgrapr.cpp

@@ -268 +268 @@
 }
 
+
+//--------------------------------------------------------------------
+  DeclareContensClass(BDat, BDatTemporary, BDatNormalLogDens);
+  DefIntOpr(1, BDatNormalLogDens, "LogDensNormal", 1, 3,
+  "(Real x [, Real nu=0, Real sigma=1])",
+  I2("Logarithm of density of probability distribution Normal(nu,sigma)",
+     "Logaritmo de la densidad de probabilidad normal N(nu,sigma) donde "
+     "nu es la media de la distribución y sigma su desviación.\n"
+     "Los parámetros entre corchetes pueden omitirse, en cuyo caso se toman "
+     "los valores por defecto."),
+  BOperClassify::Probability_);
+  void BDatNormalLogDens::CalcContens()
+//--------------------------------------------------------------------
+{
+  BDat x     = Dat(Arg(1));
+  BDat nu    = 0; if(Arg(2)) { nu    = Dat(Arg(2)); }
+  BDat sigma = 1; if(Arg(3)) { sigma = Dat(Arg(3)); }
+  contens_ = -0.5*Log(2*BDat::Pi())-Log(sigma)-0.5*(((x-nu)/sigma)^2);
+}
 
 //--------------------------------------------------------------------