B = [1 1;1 480;640 97;640 384];
A=[0 0;0 1;1 0;1 1];
TForm = cp2tform(B,A,'projective'); % B To A
tformfwd(TForm,[400 240])
ans =
1.4990 1.4986