x:=[((Subscript[x, source])(Subscript[x, destination]))]   z=(Subscript[(OverTilde[x]), source]^new)   H=[(I0]   R=(Subscript[(OverTilde[P]), source]^new))