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 double sqrt_m5(double x) {return .5/sqrt(x);} 00018 00023 double sqrt_m32(double x) {return -.25/(sqrt(x)*x);} 00024 00029 double sqrt_m52(double x) {return 3.0/(8.0*sqrt(x)*x*x);} 00030 00031 df1b2function1 ADf1b2_sqrt(::sqrt,::sqrt_m5,::sqrt_m32,::sqrt_m52,"sqrt"); 00032 00037 df1b2variable sqrt(const df1b2variable& x) 00038 { 00039 return ADf1b2_sqrt(x); 00040 }
Generated on Tue Mar 8 2016 19:51:31 for ADMB Documentation by 1.8.0 |