diff evaluationtools/stripinversion.m @ 1:8973548174c1 tip

adding tools to repo
author christopherh
date Mon, 06 May 2013 14:43:47 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/evaluationtools/stripinversion.m	Mon May 06 14:43:47 2013 +0100
@@ -0,0 +1,17 @@
+
+function chord = stripinversion(chordinput)
+
+chord = '';
+
+ilength = length(chordinput);
+
+for i = 1:ilength
+    
+    if chordinput(i)~='/'
+        chord = [chord chordinput(i)];
+    else
+        break;
+    end
+end
+
+     
\ No newline at end of file