summaryrefslogtreecommitdiff
path: root/word-aligner/support
diff options
context:
space:
mode:
authorredpony <redpony@ec762483-ff6d-05da-a07a-a48fb63a330f>2010-12-01 02:32:20 +0000
committerredpony <redpony@ec762483-ff6d-05da-a07a-a48fb63a330f>2010-12-01 02:32:20 +0000
commit2c98bf381117a61e923ab5fca81c9d17620c6fc7 (patch)
tree40eb99e891847ae34f2bc3c2e59a8fe4162b2ffd /word-aligner/support
parent74615686493ad495c8e7802c96e5257da7e7f934 (diff)
new feats
git-svn-id: https://ws10smt.googlecode.com/svn/trunk@735 ec762483-ff6d-05da-a07a-a48fb63a330f
Diffstat (limited to 'word-aligner/support')
-rwxr-xr-xword-aligner/support/make_lex_grammar.pl21
1 files changed, 18 insertions, 3 deletions
diff --git a/word-aligner/support/make_lex_grammar.pl b/word-aligner/support/make_lex_grammar.pl
index 0d034abc..c96071bf 100755
--- a/word-aligner/support/make_lex_grammar.pl
+++ b/word-aligner/support/make_lex_grammar.pl
@@ -47,7 +47,7 @@ my %esizes=();
while(<IM1>) {
chomp;
my ($e, $f, $lp) = split /\s+/;
- $invm1{$e}->{$f} = 1;
+ $invm1{$e}->{$f} = sprintf("%.5g", 1e-12 + exp($lp));
$esizes{$e}++;
if (($sizes{$f} or 0) < $LIMIT_SIZE && !(defined $model1{$f}->{$e})) {
$model1{$f}->{$e} = 1e-12;
@@ -196,10 +196,16 @@ for my $f (sort keys %fdict) {
next unless $is_good_pair;
if (defined $m1 && $ADD_MODEL1) {
push @feats, "Model1=$m1";
- my $m1d = sprintf("%.5g", $m1 * $dice);
- push @feats, "M1Dice=$m1d";
+ my $m1d = sprintf("%.5g", sqrt($m1 * $dice));
+ push @feats, "Model1Dice=$m1d";
}
if ($ADD_MODEL1 && !defined $m1) { push @feats, "NoModel1=1"; }
+ if (defined $im1 && $ADD_MODEL1) {
+ push @feats, "InvModel1=$im1";
+ }
+ if (!defined $im1 && $ADD_MODEL1) {
+ push @feats, "NoInvModel1=1";
+ }
if ($ADD_FIDENT && $efcount > $MIN_FEATURE_COUNT) {
$fc++;
push @feats, "F$fc=1";
@@ -235,6 +241,15 @@ for my $f (sort keys %fdict) {
my $f_num = ($of =~ /^-?\d[0-9\.\,]+%?$/ && (length($of) > 3));
my $e_num = ($oe =~ /^-?\d[0-9\.\,]+%?$/ && (length($oe) > 3));
my $both_non_numeric = (!$e_num && !$f_num);
+ unless ($total_eandf > 20) {
+ if ($f_num && $e_num) {
+ my $xf = $of;
+ $xf =~ s/[.,]//g;
+ my $xe = $oe;
+ $xe =~ s/[.,]//g;
+ if (($of ne $oe) && ($xe eq $xf)) { push @feats, "NumNearIdent=1"; }
+ }
+ }
if ($ADD_STEM_ID) {
my $el = 4;
my $fl = 4;