typicality

goTypical.m

+path(path,'..\Gap')
+% goTypical
+global QueryCache
+if isempty(QueryCache)
+    QueryCache.Queries={};
+    QueryCache.Count=[];
+end
+global nQueryCount nCacheCount
+
+nQueryCount=0;
+nCacheCount=0;
+
+% words1={'red','orange','yellow','green','blue','vermilion','chartreuse'}
+% words1={'red','orange','yellow','green','blue','indigo','violet'}
+words1={'red','orange','yellow','green','blue'}
+% words1={'red','orange','yellow','green','blue','indigo','texas'}
+dx=NWD(words1)
+
+d=[];
+for i=1:length(words1)
+    wordsX=words1;
+    wordsX(i)=[];
+    d(i)=NWD(wordsX);
+end
+warning off all
+d=dx-d';
+[K Gap S idx] = GapKM(d,length(words1)-1);
+