<<VilGebra`

P={2,-1,3};
A={1,2,-1};
B={2,-3,0};
EcuacCartPuntoGene[P,A,B]