method set_radius radius' = 
         radius <- radius' ;
         radius_policy <-None