Application of the identity matrix II. v05
Submitted By:
xhunga
Rating:
(
Rate It)
/* xdet2.h freeware [[Email Removed]] */
/* --------------------------------- FUNCTION ------------------------------ */
/* Do : */
/* */
/* Call : */
/* Debug : */
/* -------------------------------------------------------------------------- */
fraction detF(
pmatrix mA)
{
fraction deter;
fraction deterT;
deter = detFbasic (mA);
deterT = detFbasicT(mA);
if(fabs(deter.numer) > fabs(deterT.numer)){deter.numer = deterT.numer;
deter.denom = deterT.denom;}
deterT = detFnumerMini(mA);
if(fabs(deter.numer) > fabs(deterT.numer)){deter.numer = deterT.numer;
deter.denom = deterT.denom;}
deterT = detFnumerMiniT(mA);
if(fabs(deter.numer) > fabs(deterT.numer)){deter.numer = deterT.numer;
deter.denom = deterT.denom;}
deterT = detFdenomMini(mA);
if(fabs(deter.numer) > fabs(deterT.numer)){deter.numer = deterT.numer;
deter.denom = deterT.denom;}
deterT = detFdenomMiniT(mA);
if(fabs(deter.numer) > fabs(deterT.numer)){deter.numer = deterT.numer;
deter.denom = deterT.denom;}
return(deter);
}
