?? svm2weight.pl.txt.htm
字號:
<html>#!perl
# Compute the weight vector of linear SVM based on the model file
# Author: Thorsten Joachims (thorsten@joachims.org)
# Call: perl svm2weight.pl model
open(M,$ARGV[0]) || die();
$l=<M>;
if(($l=<M>) != 0) { die("Not linear Kernel!\n"); }
$l=<M>;
$l=<M>;
$l=<M>;
$l=<M>;
$l=<M>;
$l=<M>;
$l=<M>;
$l=<M>;
$l=<M>;
if($l !~ /threshold b/) { die("Parsing error!\n"); }
while($l=<M>) {
($features,$comments)=split(/#/,$l);
($alpha,@f)=split(/ /,$features);
for $p (@f) {
($a,$v)=split(/:/,$p);
$w[$a]+=$alpha*$v;
}
}
for($i=1;$i<=$#w;$i++) {
print "$i:$w[$i]\n";
}
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -