Entropy: Difference between revisions
Content deleted Content added
MaiconSoft (talk | contribs) Added Delphi example |
|||
Line 379:
#include <string.h>
#include <math.h>
#define MAXLEN 100 //maximum string length
int makehist(unsigned char *S,int *hist,int len){
int wherechar[256];
int i,histlen;
Line 396:
return histlen;
}
double entropy(int *hist,int histlen,int len){
int i;
Line 406:
return H;
}
int main(void){
unsigned char S[MAXLEN];
int len,*hist,histlen;
double H;
| |||