#!/usr/bin/perl

use warnings;
use DBI;
use Math::Trig qw(tan sec csc cot asin acos atan asec acsc acot sinh cosh tanh sech csch coth asinh acosh atanh asech acsch acoth);
use Math::MatrixReal;

package FRAG_LIB;

sub RadToDegree()
    {
    return (($_[0] * 180)/ Math::Trig->pi());    
    }