<<VilGebra`

EcuacRectaPuntos[{2,1,-1},{-1,3,2}]
EcuacVecToSime[%]