/*
 * $Id: vtdev.cpp 1112 2013-07-12 21:41:41Z johnoel $
 *
 * Author: David Fournier
 * Copyright (c) 2008-2012 Regents of the University of California
 */
/**
 * \file
 * Description not yet available.
 */
#include <fvar.hpp>

/**
 * Description not yet available.
 * \param
 */
dvariable t_deviate(const prevariable& _x,const prevariable& _a)
{
  prevariable& x= (prevariable&)(_x);
  prevariable& a= (prevariable&)(_a);

  dvariable y=cumd_norm(x);

  y=.9999*y+.00005;

  dvariable z=inv_cumd_t(a,y);

  return z;
}
