minus X 0 X minus s X s Y p minus X Y p s X X div 0 s Y 0 div s X s Y s div minus X Y s Y minus 2 0 0 s 1 p 1 div 2 FULL ./TRS/Rubio/gm.trs