#!/usr/bin/python

from transp import transp

from left_prm import left_prm

def l2r(N, degN, D, degD):

    # given Num and Den polynomial matrices in left form,

    # not necessarily coprime, finds right coprime factorisation.

    N, degN = transp(N, degN)

    D, degD = transp(D, degD)

    Rnum, Rnumdeg, Rden, Rdendeg = left_prm(N, degN, D, degD)

    Rnum, Rnumdeg = transp(Rnum, Rnumdeg)

    Rden, Rdendeg = transp(Rden, Rdendeg)

    Rnum = Rnum.squeeze()

    Rden = Rden.squeeze()

    return Rnum, Rnumdeg, Rden, Rdendeg