Shell Programming and Scripting

$ cat newmatrx.awk
BEGIN{FS=","}
FNR == NR {
	if ( $2 !~ /\// ) {
		P[$3]=$2
		Q[$2]=$3
	}
	else {
		C[$3]=$2
	}
	next
}
{
	if ( P[$1] ) {
		V[P[$1]$1$2]=$3
	}
	else {
		split(C[$1],A,"/")
		if ( V[P[Q[A[1]]]Q[A[1]]$2] && V[P[Q[A[2]]]Q[A[2]]$2] && V[P[Q[A[1]]]Q[A[1]]$2] != V[P[Q[A[2]]]Q[A[2]]$2] ) {
			W[C[$1]]++
			V[P[Q[A[1]]]Q[A[1]]$2] == $3 ? X="a" : V[P[Q[A[2]]]Q[A[2]]$2] == $3 ? X="b" : X="m"
			E[W[C[$1]]C[$1]]=$2":"$1":"X
		}
	}
}
END{
	for (i in W){
		print i":"
		J=1
		while (J <= W[i]){
			split(E[J""i],li,":")
			L[li[1]li[2]]=li[3]
			if(V1[li[1]]!=1){
				V1[li[1]]=1
				V2[G++]=li[1]
			}
			if(M[li[2]]!=1){
				M[li[2]]=1
				B[D++]=li[2]
			}
			J++
		}
		for(Y=0;Y<D;Y++){
			K=K"\t"B[Y]
		}
		print K
		for(Z=0;Z<G;Z++){
			K=V2[Z]
			for(Y=0;Y<D;Y++){
				if(L[V2[Z]B[Y]]) {
					K=K"\t"L[V2[Z]B[Y]]
				}
				else{
					K=K"\t-"
				}
			}
			print K
		}
		K=""
		split("",L)
		split("",B)
		split("",V2)
		split("",V1)
		split("",M)
		G=D=0
	}
}

awk -F,  'FNR == NR && !/\// {T[$3]=1;next};T[$1] {print}' file1 file2 | awk -f newmatrx.awk file1 - file2