00001 /* 00002 // 00003 // Copyright 1997-2009 Torsten Rohlfing 00004 // 00005 // Copyright 2004-2010 SRI International 00006 // 00007 // This file is part of the Computational Morphometry Toolkit. 00008 // 00009 // http://www.nitrc.org/projects/cmtk/ 00010 // 00011 // The Computational Morphometry Toolkit is free software: you can 00012 // redistribute it and/or modify it under the terms of the GNU General Public 00013 // License as published by the Free Software Foundation, either version 3 of 00014 // the License, or (at your option) any later version. 00015 // 00016 // The Computational Morphometry Toolkit is distributed in the hope that it 00017 // will be useful, but WITHOUT ANY WARRANTY; without even the implied 00018 // warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00019 // GNU General Public License for more details. 00020 // 00021 // You should have received a copy of the GNU General Public License along 00022 // with the Computational Morphometry Toolkit. If not, see 00023 // <http://www.gnu.org/licenses/>. 00024 // 00025 // $Revision: 2425 $ 00026 // 00027 // $LastChangedDate: 2010-10-07 16:14:23 -0700 (Thu, 07 Oct 2010) $ 00028 // 00029 // $LastChangedBy: torstenrohlfing $ 00030 // 00031 */ 00032 00033 #include "cmtkMathUtil.h" 00034 00035 #include <Base/cmtkTypes.h> 00036 #include <System/cmtkConsole.h> 00037 #include "Numerics/ibetaf.h" 00038 00039 namespace 00040 cmtk 00041 { 00042 00045 00046 double 00047 MathUtil::TStatFromCorrelation 00048 ( const double r, const size_t df ) 00049 { 00050 return r * sqrt( df / (1-r*r) ); 00051 } 00052 00053 double 00054 MathUtil::ProbabilityFromTStat 00055 ( const double t, const size_t df ) 00056 { 00057 double stat; 00058 if ( df == 0.0 ) 00059 stat = 0.0; 00060 else if ( t == 0.0 ) 00061 stat = 1.0; 00062 else 00063 stat = df/(df+t*t); 00064 00065 return alglib::incompletebeta( 0.5*df, 0.5, stat ); 00066 } 00067 00068 } // namespace cmtk