#include<bits/stdc++.h>
#define N 400005
#define fi first
#define se second
#define mp make_pair
using namespace std;
int n,m;
unsigned long long a[N],val[N];
struct tree{
	int h[N],to[N],nxt[N],cnt;
	void jb(int u,int v){
		to[++cnt]=v;
		nxt[cnt]=h[u];
		h[u]=cnt;
	}
	int id[N],pl[N],pr[N],tot;
	int up[N][19],dep[N];
	void dfs(int u,int fa){
		val[u]=a[u]+val[fa];
		id[tot]=u;
		pl[u]=tot;
		++tot;
		dep[u]=dep[fa]+1;
		up[u][0]=fa;
		for(int i=1;i<=17;i++)
			up[u][i]=up[up[u][i-1]][i-1];
		for(int i=h[u];i!=0;i=nxt[i])
			if(to[i]!=fa) dfs(to[i],u);
		id[tot]=u;
		pr[u]=tot;
		tot++;
	}
	int lca(int x,int y){
		if(dep[x]>dep[y]) swap(x,y);
		for(int i=17;i>=0;i--)
			if(dep[up[y][i]]>=dep[x]) y=up[y][i];
		if(x==y) return x;
		for(int i=17;i>=0;i--)
			if(up[x][i]!=up[y][i])
				x=up[x][i],y=up[y][i];
		return up[x][0];
	}
	void work(){
		for(int i=1;i<n;i++){
			int x,y;
			scanf("%d%d",&x,&y);
			jb(x,y);
			jb(y,x);
		}
		dfs(1,0);
	}
}T1,T2;
const int t=1;
unsigned long long k[N],ans[N];
pair<int ,int > qt1[N][2],qt2[N][2];
int pre[N];
void init(int l,int r){
	for(int i=0;i<=2*n;i++) pre[i]=0;
	for(int i=l;i<=r;i++){
		int u=T2.id[i],f=(T2.pl[u]==i?1:-1);
		pre[T1.pl[u]+1]+=f;
		pre[T1.pr[u]+1]-=f;
	}
	for(int i=1;i<=2*n;i++) pre[i]+=pre[i-1];
}
unsigned long long s0[N],s1[N];
void add(pair<int ,int > p,unsigned long long ad){
	int idl=(p.fi-1)/t+1,idr=(p.se+1)/t-1;
	if(idl>idr){
		for(int i=p.fi;i<=p.se;i++) s0[i]+=ad;
	}
	else{
		for(int i=p.fi;i<idl*t;i++) s0[i]+=ad;
		for(int i=idr*t+t;i<=p.se;i++) s0[i]+=ad;
		for(int i=idl;i<=idr;i++) s1[i]+=ad;
	}
}
unsigned long long qry(pair<int ,int > p){
	int idl=(p.fi-1)/t+1,idr=(p.se+1)/t-1;
	if(p.se==2*n) idr=2*n/t-1;
	unsigned long long res=0;
	if(idl>idr){
		for(int i=p.fi;i<=p.se;i++){
			int u=T2.id[i];
			unsigned long long w=s0[T1.pl[u]]+s1[T1.pl[u]/t]-s0[T1.pr[u]]-s1[T1.pr[u]/t];
			if(T2.pl[u]==i) res+=w;
			else res-=w;
		}
	}
	else{
		for(int i=p.fi;i<idl*t;i++){
			int u=T2.id[i];
			unsigned long long w=s0[T1.pl[u]]+s1[T1.pl[u]/t]-s0[T1.pr[u]]-s1[T1.pr[u]/t];
			if(T2.pl[u]==i) res+=w;
			else res-=w;
		}
		for(int i=idr*t+t;i<=p.se;i++){
			int u=T2.id[i];
			unsigned long long w=s0[T1.pl[u]]+s1[T1.pl[u]/t]-s0[T1.pr[u]]-s1[T1.pr[u]/t];
			if(T2.pl[u]==i) res+=w;
			else res-=w;
		}
	}
	return res;
}
int main(){
	scanf("%d%d",&n,&m);
	for(int i=1;i<=n;i++) scanf("%llu",&a[i]);
	T1.work();
	T2.work();
	for(int i=1;i<=m;i++){
		int x,y;
		scanf("%d%d%llu",&x,&y,&k[i]);
		int lc1=T1.lca(x,y);
		int lc2=T2.lca(x,y);
		qt1[i][0]=mp(T1.pl[lc1]+1,T1.pl[x]);
		qt1[i][1]=mp(T1.pl[lc1],T1.pl[y]);
		qt2[i][0]=mp(T2.pl[lc2]+1,T2.pl[x]);
		qt2[i][1]=mp(T2.pl[lc2],T2.pl[y]);
		add(qt1[i][0],k[i]);
		add(qt1[i][1],k[i]);
		ans[i]=val[x]+val[y]-val[lc2]*2+a[lc2]+qry(qt2[i][0])+qry(qt2[i][1]);
	}
	for(int i=0;i*t<n*2;i++){
		int l=i*t,r=min(n*2-1,i*t+t-1);
		init(l,r);
		unsigned long long sum=0;
		for(int j=1;j<=m;j++){
			sum+=k[j]*(pre[qt1[j][0].se+1]-pre[qt1[j][0].fi]+pre[qt1[j][1].se+1]-pre[qt1[j][1].fi]);
			if(qt2[j][0].fi<=l&&r<=qt2[j][0].se) ans[j]+=sum;
			if(qt2[j][1].fi<=l&&r<=qt2[j][1].se) ans[j]+=sum;
		}
	}
	for(int i=1;i<=m;i++) printf("%llu\n",ans[i]);
}