Add files via upload

Author: PeterOvermann

Mathematica/dyadicmemoryC.m

@@ -53,6 +53,8 @@ and associated documentation files (the “Software”), to deal in the Software
 		f[x_SparseArray]  := Module[ {a},
 			WriteLine[ process, tostr[x] ]; 
 			a = ToExpression /@ StringSplit[ReadLine[process]]; SparseArray[ a -> Table[1, Length[a]], {n}]];
+			
+		f["Quit"] := KillProcess[process]	
 
  		];
 
@@ -82,7 +84,9 @@ and associated documentation files (the “Software”), to deal in the Software
 		f[x_SparseArray]  := Module[ {a},
 			WriteLine[ process, tostr[x] ]; 
 			a = ToExpression /@ StringSplit[ReadLine[process]]; SparseArray[ a -> Table[1, Length[a]], {n2}]];
-		
+			
+			
+		f["Quit"] := KillProcess[process]	
  		];
 
 

Mathematica/triadicmemoryC.m

@@ -44,7 +44,11 @@ and associated documentation files (the “Software”), to deal in the Software
 		tostr[_] = "_";
 
 		(* zero vector *)
-		f[0] = SparseArray[_ -> 0, {n}];
+		f[0] = SparseArray[{0}, {n}];
+		
+		(* binarize x *)
+  	  	f[x_] := Module[ {t = Max[1, RankedMax[x, p]]}, SparseArray[Boole[# >= t] & /@ x]]; 
+		
 
 		(* store {x,y,z} *)
 		f[x_SparseArray, y_SparseArray, z_SparseArray] := 
@@ -54,6 +58,8 @@ and associated documentation files (the “Software”), to deal in the Software
 		f[x_, y_, z_]  := Module[ {a},
 			WriteLine[ process, "{" <> tostr[x] <> "," <> tostr[y] <> "," <> tostr[z] <> "}" ]; 
 			a = ToExpression /@ StringSplit[ReadLine[process]]; SparseArray[ a -> Table[1, Length[a]], {n}]];
+			
+		f["Quit"] := KillProcess[process]	
 
  		];