restart:The following is the name of the repository where we will save the package. The repository file will be saved in a default location that Maple can find in the future.toolbox_name := "Math412";Now define all the symbols we are going to save.Math412:=module()
option package;
# List symbols you want to export from the package here.
export UnitTangent;
# Define the symbols we want to export (and perhaps some symbols
# we want to keep private to the package.
UnitTangent:=proc(alpha,t)
local T, nT;
T:=simplify(map(diff,alpha,t)) assuming real;
nT:=simplify(sqrt(LinearAlgebra:-DotProduct(T,T))) assuming real;
T:=simplify(T/nT) assuming real;
return T;
end;
end;Build the name of the directory where we will save the package.slash:=kernelopts(dirsep):
filename:=cat(kernelopts(homedir),slash,"maple",slash,"toolbox",slash,toolbox_name,slash,"lib");FileTools:-MakeDirectory(dirname,recurse=true):In the save command that follows, list all the symbols you want to save. In this case, we just save themodule Math412LibraryTools:-Save(Math412,filename);