ITE / code / H_I_D / utilities / Hoeffding_term1.cpp

#include "mex.h"
#include "math.h"

/* .cpp version of 'Hoeffding_term1.m' */

/* Copyright (C) 2012 Zoltan Szabo ("", "szzoli (at) cs (dot) elte (dot) hu")
%This file is part of the ITE (Information Theoretical Estimators) Matlab/Octave toolbox.
%ITE is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by
%the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
%This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
%MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
%You should have received a copy of the GNU General Public License along with ITE. If not, see <>. */

/* The computational routine(s) */
double max(double a,double b)
return (a>b)?a:b;

long factorial(int n)
  int c;
  long result = 1;
  for (c = 1; c <= n; c++)
    result = result * c;
  return result;

/* The gateway function */
void mexFunction(
    int nlhs, mxArray *plhs[],
    int nrhs, const mxArray *prhs[])

    double *U;    /* pointer to the input matrix */    
    mwSize d,T;    
    U = mxGetPr(prhs[0]); /* create a pointer to the input matrix */
    d = mxGetM(prhs[0]);  /* number of rows */
    T = mxGetN(prhs[0]);  /* number of columns */

    double *I;    
    /* Allocating array for I */
    plhs[0] = mxCreateDoubleMatrix(1,1,mxREAL);
    I = mxGetPr(plhs[0]);    
    mwSize j,k,i;
    double temp,term1;
    term1 = 0;
    for (j=1; j<T+1; j++) {   /* j: in Matlab sense*/
    for (k=1; k<T+1; k++) {   /* k: in Matlab sense*/
      temp = 1 - max(U[(j-1)*d],U[(k-1)*d]);  /*temp = 1-max(U(i,j),U(i,k)) */
      for (i=2; i<d+1; i++) {      /* i: in Matlab sense*/
          temp = temp * ( 1 - max(U[(i-1)+(j-1)*d],U[(i-1)+(k-1)*d]) );
      term1 = term1 + temp;
    term1 = term1 / (T*T);

    *I = term1;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.