0
$\begingroup$

This question already has an answer here:

I would like to eliminate all terms that contain the product of dxy, dwz, and dxz, i.e. the final result should read as dxy +b dwz+ c dxz. Thanks in advance for any hint.

a dxy +b dwz+ c dxz+e dxy dwz +f dxy dxz +g dwz dxz + h dxy dxz dwz
$\endgroup$

marked as duplicate by Carl Woll, MarcoB, m_goldberg, Community Jun 14 '18 at 5:43

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • $\begingroup$ Welcome! To make the most of Mma.SE start by taking the tour now. It will help us to help you if you write an excellent question. Edit if improvable, show due diligence, give brief context, include minimal working example of code and data in formatted form. As you receive give back, vote and answer questions, keep the site useful, be kind, correct mistakes and share what you have learned. Why not choosing a meaningful name? $\endgroup$ – rhermans Jun 13 '18 at 11:04
  • $\begingroup$ @user58765 Can you check the post that Carl cited and say if it helps to solve your problem? $\endgroup$ – halirutan Jun 13 '18 at 22:00
0
$\begingroup$

From the linked question:

expr = a dxy +b dwz+ c dxz+e dxy dwz +f dxy dxz +g dwz dxz + h dxy dxz dwz;

Normal @ Series[
    expr /. v:(dxy|dwz|dxz) -> v t,
    {t, 0, 1}
] /. t->1

b dwz + a dxy + c dxz

$\endgroup$
0
$\begingroup$

Or this way

expr = a dxy + b dwz + c dxz + e dxy dwz + f dxy dxz + g dwz dxz + 
       h dxy dxz dwz // Expand;

prodterms = Apply[Times, Subsets[{dxy, dwz, dxz}, {2, 3}], 2]

(*   {dwz dxy, dxy dxz, dwz dxz, dwz dxy dxz}   *)

expr /. Thread[prodterms -> 0]

(*   b dwz + a dxy + c dxz   *)
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.