//minamoto

 #include<iostream>

 #include<cstdio>

 #include<algorithm>

 #include<cstring>

 #include<cmath>

 #define ll long long

 using namespace std;

 #define getc() (p1==p2&&(p2=(p1=buf)+fread(buf,1,1<<21,stdin),p1==p2)?EOF:*p1++)

 char buf[<<],*p1=buf,*p2=buf;

 inline int read(){

     #define num ch-'0'

     char ch;bool flag=;int res;

     while(!isdigit(ch=getc()))

     (ch=='-')&&(flag=true);

     for(res=num;isdigit(ch=getc());res=res*+num);

     (flag)&&(res=-res);

     #undef num

     return res;

 }

 char sr[<<],z[];int C=-,Z;

 inline void Ot(){fwrite(sr,,C+,stdout),C=-;}

 inline void print(ll x){

     if(C><<)Ot();if(x<)sr[++C]=,x=-x;

     while(z[++Z]=x%+,x/=);

     while(sr[++C]=z[Z],--Z);sr[++C]='\n';

 }

 const int N=;

 struct query{

     int x,y,l,r,id,t;

 }q[N];int q1;

 struct change{int x,c;}t[N];int q2;

 int n,m,L,R,T,s,Q;ll now,ans[N];

 int ver[N<<],edge[N<<],head[N],Next[N<<],top[N],dfn[N],dep[N],sz[N],son[N],lis[N<<],fa[N],tot,num;

 int vis[N],col[N],wor[N],cnt[N],val[N];

 inline bool cmp(const query a,const query b){

     if(a.l^b.l) return a.l<b.l;

     if(a.r^b.r) return a.l&?a.r<b.r:a.r>b.r;

     return (a.l^a.r)&?a.t<b.t:a.t>b.t;

 }

 inline void add(int u,int v){

     ver[++tot]=v,Next[tot]=head[u],head[u]=tot;

     ver[++tot]=u,Next[tot]=head[v],head[v]=tot;

 }

 void dfs(int u){

     dep[u]=dep[fa[u]]+,sz[u]=;

     for(int i=head[u];i;i=Next[i]){

         int v=ver[i];

         if(v!=fa[u]){

             fa[v]=u,dfs(v),sz[u]+=sz[v];

             if(sz[v]>sz[son[u]]) son[u]=v;

         }

     }

 }

 void dfs(int u,int t){

     top[u]=t,lis[dfn[u]=++num]=u;

     if(son[u]) dfs(son[u],t);

     for(int i=head[u];i;i=Next[i]){

         if(ver[i]!=fa[u]&&ver[i]!=son[u]) dfs(ver[i],ver[i]);

     }

     lis[++num]=u;

 }

 inline int LCA(int u,int v){

     while(top[u]!=top[v]){

         if(dep[top[u]]<dep[top[v]]) swap(u,v);

         u=fa[top[u]];

     }

     return dep[u]<dep[v]?u:v;

 }

 inline void sol(int x){

     int c=col[x];

     (vis[x]^=)?now+=(ll)wor[++cnt[c]]*val[c]:now-=(ll)wor[cnt[c]--]*val[c];

 }

 inline void mdy(int i){

     int u=t[i].x,x=t[i].c,y=col[u];

     if(vis[u]) now+=(ll)wor[++cnt[x]]*val[x]-(ll)wor[cnt[y]--]*val[y];

     t[i].c=y,col[u]=x;

 }

 int main(){

     n=read(),m=read(),Q=read();

     for(int i=;i<=m;++i) val[i]=read();

     for(int i=;i<=n;++i) wor[i]=read();

     for(int i=;i<n;++i){

         int u=read(),v=read();add(u,v);

     }

     for(int i=;i<=n;++i) col[i]=read();

     dfs(),dfs(,);

     while(Q--){

         int opt=read(),x=read(),y=read();

         if(opt){if(dfn[x]>dfn[y]) swap(x,y);

             q[++q1]=(query){x,y,dfn[x],dfn[y],q1,q2};

         }

         else t[++q2]=(change){x,y};

     }

     s=pow(n,q2?2.0/:1.0/);

     for(int i=;i<=n;++i) q[i].l/=s,q[i].r/=s;

     sort(q+,q++q1,cmp),L=dfn[q[].l],R=L-,T=;

     for(int i=;i<=q1;++i){

         int u=q[i].x,v=q[i].y;

         int l=dfn[u],r=dfn[v],g=q[i].t;

         while(L>l) sol(lis[--L]);

         while(R<r) sol(lis[++R]);

         while(L<l) sol(lis[L++]);

         while(R>r) sol(lis[R--]);

         while(T<g) mdy(++T);

         while(T>g) mdy(T--);

         //LCA不是路径端点的话是不会计算的

         //出发点u如果不是LCA也是不会计算的

         //这两个都要特判

         int p=LCA(u,v);

         if(u!=p){sol(u);if(v!=p) sol(p);}

         ans[q[i].id]=now;

         if(u!=p){sol(u);if(v!=p) sol(p);}

     }

     for(int i=;i<=q1;++i) print(ans[i]);

     Ot();

     return ;

 }