00001 /* 00002 * $Id$ 00003 * 00004 * Author: David Fournier 00005 * Copyright (c) 2008-2012 Regents of the University of California 00006 */ 00011 #include "df1b2fun.h" 00012 00017 df1b2variable beta_deviate(const df1b2variable& _a,const df1b2variable& _b, 00018 const df1b2variable& _x,double eps) 00019 { 00020 df1b2variable& x= (df1b2variable&)(_x); 00021 df1b2variable& a= (df1b2variable&)(_a); 00022 df1b2variable& b= (df1b2variable&)(_b); 00023 00024 df1b2variable y=cumd_norm(x); 00025 y=.9999999*y+.00000005; 00026 00027 df1b2variable z=inv_cumd_beta_stable(a,b,y,eps); 00028 00029 return z; 00030 }
Generated on Tue Mar 8 2016 19:51:31 for ADMB Documentation by 1.8.0 |