<<VilGebra`

DistanciaP1Recta[{1,-2,3},{3,1,-1},{2,-1,1}]

DistanciaP2Recta[{1,-2,3},{3,1,-1},{3,1,-1}+{2,-1,1}]