(Subscript[K, e])={((B^T)(Subscript[D, l])Bif   ψ(e)≤0(B^T)(Subscript[D, v])Bif   (Subscript[ψ, i])(e)>0)