?? uniform-classes.gawk
字號:
#!/usr/local/bin/gawk -f## uniform-classes --# Assign uniform membership probabilities to word class expansions# that don't already have probabilities## usage: uniform-clases CLASSFILE > UNIFORM-CLASSFILE## $Header: /home/srilm/devel/utils/src/RCS/uniform-classes.gawk,v 1.2 2004/11/02 02:00:35 stolcke Exp $#BEGIN { num_class_defs = 0;}{ line = $0; n = split(line, a); if (n == 0) continue; class = a[1]; num_exp = ++ num_class_expansions[class]; if (a[2] ~ /^[-+]?[.]?[0-9][0-9.]*(e[+-]?[0-9]+)?$/) { prob = a[2]; i = 3; } else { prob = ""; i = 2; } expansion = a[i]; for (i++; i <= n; i++) { expansion = expansion " " a[i]; } class_expansions[class " " num_exp] = expansion; if (prob != "") { class_expansion_probs[class " " num_exp] = prob; } num_class_defs ++;}END { print "read " num_class_defs " class expansions" >> "/dev/stderr"; # assign default expansion probs for (class in num_class_expansions) { num_exp = num_class_expansions[class]; for (i = 1; i <= num_exp; i ++) { prob = class_expansion_probs[class " " i]; if (prob == "") { prob = 1/num_exp; } print class, prob, class_expansions[class " " i]; } }}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -