<div>  c=(-23.96201) #ponto inicial</div><div>  q=(-25.25727) #ponto final</div><div>  w=(-46.33095) #ponto inicial </div><div>  e=(-44.76760) #ponto final</div><div>  razao=(c-q)/(e-w)*0.00001<span class="Apple-tab-span" style="white-space:pre">  </span># calcular razão</div>

<div>  # definir limites de latitude</div><div>  lat_lim_centro<-seq(q,c,razao)<span class="Apple-tab-span" style="white-space:pre">     </span># limite sul longitude</div><div>  lon_lim_centro<-seq(w,e,0.00001)<span class="Apple-tab-span" style="white-space:pre">  </span># limite sul latitude</div>

<div>  centro<-list(lat_lim_centro,lon_lim_centro) # lista de coordenadas sul</div><div><br></div><div>quero saber quais as particulas que estaõ acima ou abaixo do transecto centro</div>