plaxes <- function(a,b) {

       segments(  min(a),0,  max(a),0  )
       segments(  0,min(b),  0,max(b)  )

}