pwd=NotebookDirectory[];If[Length[Position[$Path,pwd]]==0,$Path=Append[$Path,pwd];];Clear["Global`*"]<<MathematicaTensor.txt