This comment is reply for 1763 sumim: Squeak Smalltalk で。0...(モノクロ画像の類似検索). Go to thread root.
sumim #1765(2007/08/03 04:28 GMT) [ Smalltalk ] Rating2/2=1.00
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| indexOfRef refImage numOfImgs images | indexOfRef := 1. numOfImgs := 100. images := (1 to: numOfImgs) collect: [:idx | | name file | name := (idx printPaddedWith: $0 to: 3), '.png'. file := FileStream fileNamed: name. file binary. (PNGReadWriter createAFormFrom: file contentsOfEntireFile) first]. refImage := images at: indexOfRef. ((1 to: numOfImgs) copyWithout: indexOfRef) detectMin: [:idx | (refImage deltaFrom: (images at: idx)) primCountBits]
Rating2/2=1.00-0+
1 reply [ reply ]
sumim #1768(2007/08/03 05:04 GMT) Rating2/2=1.00
[ reply ]
sumim
#1765()
[
Smalltalk
]
Rating2/2=1.00
| indexOfRef refImage numOfImgs images | indexOfRef := 1. numOfImgs := 100. images := (1 to: numOfImgs) collect: [:idx | | name file | name := (idx printPaddedWith: $0 to: 3), '.png'. file := FileStream fileNamed: name. file binary. (PNGReadWriter createAFormFrom: file contentsOfEntireFile) first]. refImage := images at: indexOfRef. ((1 to: numOfImgs) copyWithout: indexOfRef) detectMin: [:idx | (refImage deltaFrom: (images at: idx)) primCountBits]Rating2/2=1.00-0+