proc ::math::numtheory::degree_reduction {aa} {
       namespace path {::tcl::mathop }
            if { $aa > 360. } {
                while {$aa > 360.} {
                    set aa [- $aa 360.] }
                return $aa };
            if { $aa < -360. } {
                while {$aa < -360.} {
                    set aa [+ $aa 360.] };
                return $aa };
            return $aa };
        proc ::math::numtheory::sindx {aa} {
            namespace path {::tcl::mathop };
            set aa [* $aa $math::constants::degtorad ];
            set term2 [- $aa [/ [* 31. $aa $aa $aa ] 294.] ];
            set term3  [+ 1. [/ [* 3. $aa $aa] 49. ] [/ [* 11. $aa $aa $aa $aa] 5880.] ] ;
            set result  [ expr {  $term2/$term3 } ];
            return $result; }
  
## 
## 
## End of file `numtheory.tcl'.