mathematica消除賦值?