((x^T)Hx=(x^T)(diag(p)-(pp^T))x=(x^T)(diag(p)x-(pp^T)x)=((x^T)diag(p)x)-((x^T)p)((p^T)x)=((∑_(i=1)^n) (Subscript[p, i])(Subscript[x, i]^2))-((((∑_(i=1)^n) (Subscript[p, i])(Subscript[x, i])))^2)=Var(X))==\[Placeholder]