i=ImageResize
,500;
logogramDirectory=FileNameJoin[{NotebookDirectory[],"ScriptLogoJpegs"}];
i2=(ImageResize[#,500]&)/@Import/@(FileNameJoin[{logogramDirectory,#}]&)/@Select[StringMatchQ[#,___~~".jpg"]&]@Import@logogramDirectory;
i2[[1;;2]]
,
i2[[7;;8]]
,
ColorNegate@ImageDifference
,
ColorNegate@ImageDifference
,
ColorNegate@ImageDifference
,
fef=FeatureExtraction[i2,"ImageFeatures"]
fef=FeatureExtraction[i2]
FeatureExtractorFunction
fef
{0.0777689,0.680716,-2.09869,0.78388,5.92825,6.17203,-1.14096,5.16148,-2.31,4.29076,-2.2228,3.65909,-2.85907,6.80296,-5.79111,-4.06718,2.34577,2.96437,2.99737,-1.93189,0.252624,4.03886,2.8112,-2.12023,6.38333,-3.48772,3.96112,-2.47747,0.970497,-4.32015,0.798684,3.52928,-0.517095,-1.5944,-3.05156,7.34973,3.94024}
featureVectors=fef[i2];
ListPlot[List/@DimensionReduce[featureVectors,2,Method"LatentSemanticAnalysis"],PlotMarkers(Show[SetAlphaChannel[#,ColorNegate@#],ImageSize50]&/@i2),PlotRangeAll]
Will take about 2 hours (on Chris’s computer)
FeatureNearest is only available in 11.1