#pragma GCC optimize ("Ofast")
#include<bits/stdc++.h>
using namespace std;
inline void rd(int &x){
  int k, m=0;
  x=0;
  for(;;){
    k = getchar_unlocked();
    if(k=='-'){
      m=1;
      break;
    }
    if('0'<=k&&k<='9'){
      x=k-'0';
      break;
    }
  }
  for(;;){
    k = getchar_unlocked();
    if(k<'0'||k>'9'){
      break;
    }
    x=x*10+k-'0';
  }
  if(m){
    x=-x;
  }
}
inline void rd(long long &x){
  int k, m=0;
  x=0;
  for(;;){
    k = getchar_unlocked();
    if(k=='-'){
      m=1;
      break;
    }
    if('0'<=k&&k<='9'){
      x=k-'0';
      break;
    }
  }
  for(;;){
    k = getchar_unlocked();
    if(k<'0'||k>'9'){
      break;
    }
    x=x*10+k-'0';
  }
  if(m){
    x=-x;
  }
}
inline void wt_L(char a){
  putchar_unlocked(a);
}
inline void wt_L(int x){
  char f[10];
  int m=0, s=0;
  if(x<0){
    m=1;
    x=-x;
  }
  while(x){
    f[s++]=x%10;
    x/=10;
  }
  if(!s){
    f[s++]=0;
  }
  if(m){
    putchar_unlocked('-');
  }
  while(s--){
    putchar_unlocked(f[s]+'0');
  }
}
template<class S, class T> inline S chmin(S &a, T b){
  if(a>b){
    a=b;
  }
  return a;
}
template<class S, class T> inline S chmax(S &a, T b){
  if(a<b){
    a=b;
  }
  return a;
}
int N;
int K;
long long X[100000];
long long A[100000];
int main(){
  int a, b;
  long long mn, mx;
  rd(N);
  rd(K);K += (-1);
  {
    int Lj4PdHRW;
    for(Lj4PdHRW=0;Lj4PdHRW<(N);Lj4PdHRW++){
      rd(X[Lj4PdHRW]);
    }
  }
  {
    int KL2GvlyY;
    for(KL2GvlyY=0;KL2GvlyY<(N);KL2GvlyY++){
      rd(A[KL2GvlyY]);
    }
  }
  a = b = K;
  mn = X[K] - A[K];
  mx = X[K] + A[K];
  for(;;){
    int fg=0;
    if(a-1 >= 0 && mn <= X[a-1]){
      a--;
      chmin(mn, X[a] - A[a]);
      chmax(mx, X[a] + A[a]);
      fg = 1;
    }
    if(b+1 < N && mx >= X[b+1]){
      b++;
      chmin(mn, X[b] - A[b]);
      chmax(mx, X[b] + A[b]);
      fg = 1;
    }
    if(!fg){
      break;
    }
  }
  wt_L(b-a+1);
  wt_L('\n');
  return 0;
}
// cLay varsion 20190830-1

// --- original code ---
// int N, K;
// ll X[1d5], A[1d5];
// {
//   int a, b;
//   ll mn, mx;
//   rd(N,K--,X(N),A(N));
//   a = b = K;
//   mn = X[K] - A[K];
//   mx = X[K] + A[K];
//   for(;;){
//     int fg = 0;
//     if(a-1 >= 0 && mn <= X[a-1]){
//       a--;
//       mn <?= X[a] - A[a];
//       mx >?= X[a] + A[a];
//       fg = 1;
//     }
//     if(b+1 < N && mx >= X[b+1]){
//       b++;
//       mn <?= X[b] - A[b];
//       mx >?= X[b] + A[b];
//       fg = 1;
//     }
//     if(!fg) break;
//   }
//   wt(b-a+1);
// }