X-Git-Url: http://dolda2000.com/gitweb/?p=kokare.git;a=blobdiff_plain;f=octave%2Ftd2m;fp=octave%2Ftd2m;h=f7b949cc02dc06f10ea38d4f3003bf51237fad4f;hp=0000000000000000000000000000000000000000;hb=b7b0844ddefface71822d7be966b8328f810c4b4;hpb=174dfeb50a8d3408adf44ecb882d88ab9884dbe0

diff --git a/octave/td2m b/octave/td2m
new file mode 100755
index 0000000..f7b949c
--- /dev/null
+++ b/octave/td2m
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+
+while(<>) {
+    if(/^(\d+)\s+([\d.]+)(-([\d.]+))?$/) {
+	if(defined($4)) {
+	    $temp{$1} = ($2 + $4) / 2;
+	} else {
+	    $temp{$1} = $2;
+	}
+    }
+}
+
+print "#name: ct\n";
+print "#type: matrix\n";
+print "#rows: 1\n";
+print ("#columns: " . scalar(keys %temp) . "\n");
+for $k (sort keys %temp) {
+    print " $k";
+}
+print "\n";
+
+print "#name: cd\n";
+print "#type: matrix\n";
+print "#rows: 1\n";
+print ("#columns: " . scalar(keys %temp) . "\n");
+for $k (sort keys %temp) {
+    print " $temp{$k}";
+}
+print "\n";