Erzeugung eines privaten Packages mit Routinen der linearen Algebra, die später immer wieder gebraucht werden können

Erzeuge zuerst ein leeres File im Default-Verzeichnis mit dem Namen "progr.m"
(Windows: Default ist normalerweise C:\Programme\Wolfram Research\Mathematica\4.0):
P.S.:   (*     *)  ist Kommentar-Code. Für einen Run müssen Klammern und Sterne eliminiert werden.

Kopiere dieses Package von Hand dort hinein (Copy-Paste).
Anschliessend kannst Du es mit dem weiter unten gegebenen Befehl laden ("Needs").

\( (*\(\(:\)\(Keywords : vecLen\)\), vecLeng, numVecLen, mF, 
      vF*) 
 (*\(:\)\(Requirements : \(\(none\)\(.\)\)\)*)  (*\(:\)\(Warnings : 
          Not\ working\ for ... \)*)  (*\(:\)\(\(Summary\)\(:\)\)
*) 

\(BeginPackage["pLinAlg`"];\)\)
vecLen::usage = "vecLen[v] gives the length of a vector.";
vecLeng::usage = "vecLeng computes the length of the \
vector.";
\(\(numVecLeng::usage = 
\ \ \ \ \ "numVecLeng computes numeric value of the length of a vector.";\)\)
mF::usage = "mF[M] gives the MatrixForm of a matrix.";
vF::usage = "vF[v] gives the MatrixForm of a vector.";
Begin["`Private`"];
vecLen[v_] := Sqrt[v . v];
vecLeng[v_] := Sqrt[Plus @@ (v^2)];
numVecLeng[v_] := 
        N[Sqrt[Plus @@ (v^2)]];
mF[m_] := MatrixForm[m];
vF[v_] := MatrixForm[Transpose[{v}]];
End[];
Protect[vecLen, vecLeng, numVecLeng, mF, vF]
EndPackage[];

Package laden, falls sich das Package noch nicht in $Packages befindet (beim ersten Mal laden in der Session):

Package laden, falls sich das Package schon in $Packages befindet:

Nach einer normalen Speicherung oder einer Speicherung mit Save As Special im Package-Format kann ein File wohl wieder eingelesen werden (nachfolgende Befehle), doch nicht als Package genutzt werden, weil sie nicht in der Liste $Packages verzeichnet sind.

\( (*\ << "C:\Eigene Dateien\Mathematica\MathemDFKorr\pLinAlg.m"\ *) \)

\( (*\ << "C:\Eigene Dateien\Mathematica\MathemDFKorr\pLinAlg.nb"\ *) \)