function d = tnp_dtw(word1, word2)
[v len1] = size(word1);
[v len2 ] = size(word2);

len1 = len1 + 1;
len2 = len2 + 1;

g = zeros(len1, len2);
g(1, :) = inf;
g(:, 1) = inf;
g(1, 1) = 0;

for i= 2  : len1
    for j = 2 : len2
        g(i, j) = min( [g(i - 1, j), g(i, j - 1), g(i - 1, j - 1)]) + tnp_dist(word1, word2, i - 1, j - 1);
    end
end

d = g(len1, len2);