R/get.brachiopod.R

In geophys: Geophysics, Continuum Mechanics, Gravity Modeling

get.brachiopod<-function()
  {

    bx =  c(-.5,  -0.4648232373807,   -0.3765825678890,-0.2144105266610,   -0.0593931343107,
      0.0593931343107,0.2144105266610,0.3765825678890,0.4648232373807, 0.5)
    by =    c(0.0 , 0.139203811333, 0.248963900427, 0.372735915788,0.419442336678,
          0.419442336678,0.372735915788,0.248963900427,0.139203811333,  0.0)
    BK = cbind(bx, by)
    return(BK)
  }