00001 /* 00002 * $Id$ 00003 * 00004 * Author: David Fournier 00005 * Copyright (c) 2008-2012 Regents of the University of California 00006 */ 00011 #include <fvar.hpp> 00012 00017 dvariable robust_normal_logistic_mixture_deviate(const prevariable& x, 00018 double spread) 00019 { 00020 dvariable y=cumd_norm(x); 00021 y = 0.99999999*y + 0.000000005; // To gain numerical stability 00022 dvariable z = inv_cumd_normal_logistic_mixture(y,spread); 00023 return z; 00024 } 00025 00030 dvariable robust_normal_mixture_deviate(const prevariable& x, 00031 double spread) 00032 { 00033 dvariable y=cumd_norm(x); 00034 y = 0.99999999*y + 0.000000005; // To gain numerical stability 00035 dvariable z = inv_cumd_normal_mixture(y,spread); 00036 return z; 00037 }
Generated on Tue Mar 8 2016 19:51:35 for ADMB Documentation by 1.8.0 |