#include<bits/stdc++.h> using namespace std; #define int long long #define pii pair<int,int> #define fr first #define sc second #define mk make_pair #define pb push_back #define inx(u) int I=h[(u)],v=edge[I].v,w=edge[I].w;I;I=edge[I].nx,v=edge[I].v,w=edge[I].w int read(){int x=0,f=1;char c=getchar();while(c>'9'||c<'0'){if(c=='-')f=-1;c=getchar();}while(c>='0'&&c<='9')x=x*10+c-'0',c=getchar();return x*f;} const int MAXN=5010,N=20,inf=2000000000; int n,s,m,ans,a[MAXN],p[MAXN]; // struct Edge{int v,nx,w;}edge[MAXN<<1];int h[MAXN],CNT;void add_side(int u,int v,int w){ // // cout<<u<<" "<<v<<" "<<w<<endl; // edge[++CNT]={v,h[u],w};h[u]=CNT;} // int e[MAXN],cnt,hs[MAXN]; // bool dfs_chk(int u){ // for(inx(u)){ // if(v==s){ // e[++cnt]=u; // hs[u]=1; // return 1; // } // bool tmp=dfs_chk(v); // if(tmp){ // e[++cnt]=u; // hs[u]=1; // return 1; // } // } // return 0; // } // int f[MAXN][MAXN],g[MAXN][MAXN][3]; // void dfs(int u){ // for(int k=0;k<=n;k++)f[u][k]=(k&1)*a[u]-p[u]*k; // for(inx(u))if(!hs[v]){ // dfs(v); // int tmp=f[v][0]; // for(int k=0;k<=n;k++){ // tmp=max(tmp,f[v][k]); // f[u][k]+=tmp; // } // } // } void slv(){ // for(int i=1;i<=n;i++)h[i]=a[i]=p[i]=e[i]=hs[i]=0;CNT=1,cnt=0; n=read(),s=read(); for(int i=1;i<=n;i++)a[i]=read(); for(int i=1;i<=n;i++)p[i]=read(); for(int i=1;i<=n;i++){ int x=read(); // add_side(x,i,p[i]); } return; // bool ty=dfs_chk(s); // if(!ty){ // dfs(s); // printf("%lld\n",max(f[s][1],f[s][2])+p[s]); // } // else{ // for(int i=1;i<=cnt;i++)dfs(e[i]); // if(cnt==2){ // // cout<<e[1]<<" "<<f[e[1]][0]<<" "<<f[e[1]][1]<<" "<<f[e[1]][2]<<endl; // // cout<<e[2]<<" "<<f[e[2]][0]<<" "<<f[e[2]][1]<<" "<<f[e[2]][2]<<endl; // printf("%lld\n",p[s]+max(f[e[1]][0]+f[e[2]][2],max(f[e[1]][1]+f[e[2]][1],f[e[1]][0]+f[e[2]][1]))); // } // else{ // for(int i=1;i<=cnt;i++){ // for(int j=0;j<=n;j++){ // int tmp=g[i-1][j][0]; // for(int k=0;k<=2&&j+k<=n;k++){ // tmp=max(tmp,g[i-1][j][k]); // g[i][j][k]=f[e[i]][j+k]+tmp; // // cout<<i<<","<<j+k<<":"<<g[i][j][k]<<endl; // } // } // // cout<<endl; // } // ans=-inf; // for(int i=0;i<=n;i++)for(int k=0;k<3;k++)if(i+k>0&&i+k<=n)ans=max(ans,g[cnt][i][k]); // printf("%lld\n",ans+p[s]); // } // } } signed main(){ int _=read();while(_--) slv(); return 0; }