perlã§ã‚³ã‚µã‚¤ãƒ³é¡žä¼¼åº¦ã‚’算出 - end0tknr's kipple - web写経開発ã¾ãšã€2個ã®ãƒ™ã‚¯ãƒˆãƒ«:a,b ã®é–¢ä¿‚:θã¯ã€æ¬¡ã®ã‚ˆã†ã«è¡¨ã›ã¾ã™ã€‚ ã“ã“ã§ã€ ã¯aã¨bã®å†…ç©ãªã®ã§ã€2次元ã®ãƒ™ã‚¯ãƒˆãƒ«ã§ã‚ã‚Œã°ã€ ã§è¡¨ã›ã€ã¾ãŸã€ ã¯ãƒ™ã‚¯ãƒˆãƒ«ã®å¤§ãã•ãªã®ã§ã€ ã¨ãªã‚Šã¾ã™ã€‚ ※ベクトルã®å†…ç©ã‚„大ãã•ã¯ã€æ›´ã«å¤šæ¬¡å…ƒ(n次元)ã«ãªã‚‹ã¨ã€ ã‚„ ã“れをperlã§å®Ÿè£…ã™ã‚‹ã¨ã€æ¬¡ã®ã‚ˆã†ã«é€šã‚Šã€‚ #!/usr/local/bin/perl use strict; use Data::Dumper; my @VEC_KEYS = qw/hoge fuga foo/; #ベクトルãŒæŒã¤key main(); sub main { my $vec_1 = {hoge => 1, fuga => 2, foo => 3}; my $vec_2 = {hoge => 3, fuga => 1}; my $cos_similar = cosine_similarity($vec_1,$vec_2); pr
集åˆã¨ã‹ãƒ™ã‚¯ãƒˆãƒ«ã®é¡žä¼¼åº¦ã®è¨ˆç®—ã®ãƒ¡ãƒ¢ - 唯物是真 @Scaled_Wurm
集åˆçŸ¥ãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚° 2ç« - 類似度計算ã®æ¯”較 - ãŸãã£ã¦ã¤ã¥ã‚‹
コサイン類似度を求ã‚ã‚‹
「似ã¦ã„ã‚‹ã€ã‚’探ãã†
{{#tags}}- {{label}}
{{/tags}}