// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// ! This script is provided "as is" by Applied Maths.              !
// ! You are free to use and modify this script for your own needs. !
// ! Redistribution or reproduction of the script is prohibited.    !
// ! DISCLAIMER:                                                    !
// ! Improper use of scripts may corrupt your database.             !
// ! Running this script is entirely at your own responsibility.    !
// ! Applied Maths accepts no lialibility for any consequences      !
// ! resulting from its use.                                        !
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

//$MENU window=comparison;popup=groups;insertafter=create groups from database field;name=Shannon-Weiner index of diversity

integer i,groupnr,maxgroupnr,groupcount[],totcount;
float div,fr;
string st;

if not(CmpIsPresent) then CmpAttach;
if not(CmpIsPresent) then {
   message("There is no comparison present");
   stop;
}

maxgroupnr=0;
for i=1 to CmpGetEntryCount do {
   groupnr=CmpGetGroup(i);
   if groupnr>maxgroupnr then maxgroupnr=groupnr;
   if groupnr>0 then {
      totcount=totcount+1;
      groupcount[groupnr]=groupcount[groupnr]+1;
   }
}

if (totcount<=0) or (maxgroupnr<=0) then {
   message("There were no groups found");
   stop;
}
if totcount=1 then {
   message("At least two entries should be in a group");
   stop;
}

st="Group sizes: ";
for i=1 to maxgroupnr do if groupcount[i]>0 then {
   if length(st)>50 then st=st+"~n";
   st=st+str(groupcount[i],0,0)+" ";
}
st=st+"~nTotal: "+str(totcount,0,0);

div=0;
for i=1 to maxgroupnr do if groupcount[i]>0 then {
   fr=groupcount[i]/totcount;
   div=div+fr*log(fr);
}
div=0-div;

st=st+"~n~nShannon-Weiner index of diversity: "+str(div,0,4)+"~n(natural logarithms)";

message(st);
#_#_#_#_#_#_# ATTACHMENTS #_#_#_#_#_#_#_
>>ATTACHMENT V_1.0 button 105
EJEJCKAAHCAHAAAAAIAAAIAAAIAAAANFEACLAAKA
IGABAANFEACLAAKAIGABAAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMALMLMMAIAIANEEKEKOGDLDLOLDNDNOKEI
EIOHGBGBNOIKIKNBLILIMCLPLPMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMALHLHMCDF
DFONAAAAPOAAAAPPAAAAPPAAAAPPAAAAPPAAAAPP
AAAAPPAJAJPLDHDHOMJNJNMLMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMALPLPMAFCFCODAAAAPPACACPO
DNDNOKFJFJOBFHFHOBEMEMOFCNCNOPAGAGPMAAAA
PPAAAAPPBFBFPHLNLNMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMALBLBMEAHAHPMAAAAPPGLGLNLLPLPMAMAMA
MAMAMAMAMAMAMALPLPMALBLBMEIEIENDDBDBOOFC
FCODLPLPMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAIGIG
NCAAAAPPAKAKPKLILIMBMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAGLGLNLAAAAPPCH
CHPBMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAGFGFNNAAAAPPCPCPOOMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAHHHHNHAAAAPPADADPNEFEFOHGNGNNKIEIE
NDJFJFMNKNKNMGLOLOMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMALELE
MDCMCMPAAAAAPPAAAAPPAAAAPPAAAAPPAAAAPPAC
ACPOBDBDPIDJDJOLHJHJNGLJLJMBMAMAMAMAMAMA
MAMAMAJMJMMLCGCGPCHJHJNGMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMALLLLMBHJ
HJNHECECOJCECEPCBBBBPJAFAFPNAAAAPOAAAAPP
AAAAPPAAAAPOBLBLPFJMJMMLMAMAMAMAMAMAHDHD
NIAAAAPPEDEDOIMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
LPLPMALOLOMALILIMCJOJOMKHMHMNFEGEGOHAHAH
PMAAAAPPBIBIPGLGLGMCMAMAMALMLMMBIGIGNCLB
LBMEMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAJPJPMKAIAIPLAA
AAPPHLHLNFMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMADNDNOKAAAAPPEOEOOE
LPLPMAGPGPNJGPGPNJLPLPMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAFMFMOAAAAAPPDIDIOLKOKOMFABAB
PNABABPNKOKOMFMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAFHFHOBAAAAPPDKDKOLJKJKMLAAAAPPACACPNLD
LDMDMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMALMLMMACBCBPDAA
AAPPFLFLOAGIGINMAAAAPPBLBLPFLOLOMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMALNLNMAFEFEOCAAAAPOADADPNJPJPMJ
DBDBONAAAAPPFFFFOCMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAJIJIMMFAFAOEHKHKNGLC
LCMELPLPMAMAMAMAMAMAMAMAMAMALNLNMAJHJHMM
DADAOOAAAAPOAAAAPOFMFMOALGLGMCAJAJPLAAAA
PPIGIGNCMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAECECOIAAAAPPAAAAPPAHAHPMDDDDON
ECECOIDLDLOLCOCOOPBDBDPIAAAAPOAAAAPPACAC
POFLFLOALNLNMAIBIBNEAAAAPPADADPNKKKKMGMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
JNJNMKECECOIANANPKAAAAPPAAAAPPAAAAPPAAAA
PPAAAAPPAAAAPPABABPOCKCKPAJBJBMOLPLPMAMA
MAMAHGHGNHAAAAPPAAAAPPEKEKOGMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MALILIMCIFIFNCFKFKOAFCFCODFIFIOBGFGFNNHM
HMNFKFKFMILPLPMAMAMAMAMAMAMAMAMAMAIOIOMP
ABABPOAAAAPPGBGBNOMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMALPLPMAJAJAMPHBHB
NJLILIMCMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMAMA
MAMAMAMAMAMAAPAAPOAAAEAAABAAAAAAAAAAAAAA
AAABAEAAABAAAAAABJAAAAAAABABAEAAABAAAAAA
BJAAAAAAACABADAAADAAAAAAAIAAAAAAADABADAA
ABAAAAAAABAAAAAAAGABADAAABAAAAAAACAAAAAA
AOABACAAABAAAAAAAOAAAAAABBABAEAAABAAAAAA
BPAAAAAABCABADAAABAAAAAAABAAAAAABFABADAA
ABAAAAAAADAAAAAABGABAEAAABAAAAAABJAAAAAA
BHABAEAAABAAAAAAFDAHAAAABKABAFAAABAAAAAA
APAAAAAABLABAFAAABAAAAAABHAAAAAACIABADAA
ABAAAAAAADAAAAAAAAAAAAAA