|
SHOGUN v0.9.3
|
00001 /* 00002 * This program is free software; you can redistribute it and/or modify 00003 * it under the terms of the GNU General Public License as published by 00004 * the Free Software Foundation; either version 3 of the License, or 00005 * (at your option) any later version. 00006 * 00007 * Written (W) 1999-2009 Soeren Sonnenburg 00008 * Copyright (C) 1999-2009 Fraunhofer Institute FIRST and Max-Planck-Society 00009 */ 00010 00011 #include "lib/common.h" 00012 #include "lib/io.h" 00013 #include "kernel/PolyMatchStringKernel.h" 00014 #include "kernel/SqrtDiagKernelNormalizer.h" 00015 #include "features/Features.h" 00016 #include "features/StringFeatures.h" 00017 00018 using namespace shogun; 00019 00020 CPolyMatchStringKernel::CPolyMatchStringKernel(int32_t size, int32_t d, bool i) 00021 : CStringKernel<char>(size), degree(d), inhomogene(i), rescaling(false) 00022 { 00023 set_normalizer(new CSqrtDiagKernelNormalizer()); 00024 } 00025 00026 CPolyMatchStringKernel::CPolyMatchStringKernel( 00027 CStringFeatures<char>* l, CStringFeatures<char>* r, int32_t d, bool i) 00028 : CStringKernel<char>(10), degree(d), inhomogene(i), rescaling(false) 00029 { 00030 set_normalizer(new CSqrtDiagKernelNormalizer()); 00031 init(l, r); 00032 } 00033 00034 CPolyMatchStringKernel::~CPolyMatchStringKernel() 00035 { 00036 cleanup(); 00037 } 00038 00039 bool CPolyMatchStringKernel::init(CFeatures* l, CFeatures* r) 00040 { 00041 CStringKernel<char>::init(l, r); 00042 return init_normalizer(); 00043 } 00044 00045 void CPolyMatchStringKernel::cleanup() 00046 { 00047 CKernel::cleanup(); 00048 } 00049 00050 float64_t CPolyMatchStringKernel::compute(int32_t idx_a, int32_t idx_b) 00051 { 00052 int32_t i, alen, blen, sum; 00053 bool free_avec, free_bvec; 00054 00055 char* avec = ((CStringFeatures<char>*) lhs)->get_feature_vector(idx_a, alen, free_avec); 00056 char* bvec = ((CStringFeatures<char>*) rhs)->get_feature_vector(idx_b, blen, free_bvec); 00057 00058 ASSERT(alen==blen); 00059 for (i = 0, sum = inhomogene; i<alen; i++) 00060 { 00061 if (avec[i]==bvec[i]) 00062 sum++; 00063 } 00064 float64_t result = ((float64_t) sum); 00065 00066 if (rescaling) 00067 result/=alen; 00068 00069 ((CStringFeatures<char>*) lhs)->free_feature_vector(avec, idx_a, free_avec); 00070 ((CStringFeatures<char>*) rhs)->free_feature_vector(bvec, idx_b, free_bvec); 00071 return CMath::pow(result , degree); 00072 }