Replacement using pattern matching?Highlighting text with StringReplacePart but also using Style, Subscriptreplacement rules from a pattern and a matching expressionString pattern matching & replacementHow to Make a change of variablesPattern matching & simple replacementTransformation rules to distinguish common variable with Subscript and OverBar $x,x^2,barx,barx^2, x_p,x_p^2, barx_p, barx^2_p $Pattern matching an expression involving TimesReplace custom functions, leave built in functions untouched?Symbol Level pattern matching and rule replacementHaving problems with using TableForm to format a table

Why do the i8080 I/O instructions take a byte-sized operand to determine the port?

Time complexity of an algorithm: Is it important to state the base of the logarithm?

Possibility of faking someone's public key

Storing voxels for a voxel Engine in C++

How to write numbers and percentage?

Who wrote “A writer only begins a book. A reader finishes it.”?

Why does FOO=bar; export the variable into my environment

Complications of displaced core material?

Are cells guaranteed to get at least one mitochondrion when they divide?

Did Game of Thrones end the way that George RR Martin intended?

Why this character is punished instead of being honoured?

Count all vowels in string

How do you earn the reader's trust?

Is this homebrew "Cactus Grenade" cantrip balanced?

Is a world with one country feeding everyone possible?

Why did it take so long for Germany to allow electric scooters / e-rollers on the roads?

If I arrive in the UK, and then head to mainland Europe, does my Schengen visa 90 day limit start when I arrived in the UK, or mainland Europe?

Why was this character made Grand Maester?

How does the Earth's center produce heat?

How would a developer who mostly fixed bugs for years at a company call out their contributions in their CV?

Local variables in DynamicModule affected by outside evaluation

Why does Bran want to find Drogon?

Question about Shemot, locusts

How to remove new line added by readarray when using a delimiter?



Replacement using pattern matching?


Highlighting text with StringReplacePart but also using Style, Subscriptreplacement rules from a pattern and a matching expressionString pattern matching & replacementHow to Make a change of variablesPattern matching & simple replacementTransformation rules to distinguish common variable with Subscript and OverBar $x,x^2,barx,barx^2, x_p,x_p^2, barx_p, barx^2_p $Pattern matching an expression involving TimesReplace custom functions, leave built in functions untouched?Symbol Level pattern matching and rule replacementHaving problems with using TableForm to format a table













1












$begingroup$


Starting with the expression



eq1 = 5 Exp[1 + 2 x + 3 x^2 + 4 x^3];


I want to implement the following transformation:



eq1 /. Exp[a_ x^2 + b_ x^3] -> f[a/b]


However, I am not getting the desired output
$5 f[3/4]exp(1+2 x)$.



Further, I also need to perform the following transformation.



eq2 = c Exp[a SuperStar[[Alpha]] + b [Alpha]];
eq2 /. d1_ Exp[d2 SuperStar[[Alpha]_]] -> f[d2]


I am providing the above expressions again in latex font for clarification.
$$
texteq2=c exp left(a alpha ^*+alpha bright);
$$



$$
texteq2text/., textd1$_$ exp left(alpha _^* textd2right)to f(textd2)
$$



Any help will be appreciated.










share|improve this question









$endgroup$
















    1












    $begingroup$


    Starting with the expression



    eq1 = 5 Exp[1 + 2 x + 3 x^2 + 4 x^3];


    I want to implement the following transformation:



    eq1 /. Exp[a_ x^2 + b_ x^3] -> f[a/b]


    However, I am not getting the desired output
    $5 f[3/4]exp(1+2 x)$.



    Further, I also need to perform the following transformation.



    eq2 = c Exp[a SuperStar[[Alpha]] + b [Alpha]];
    eq2 /. d1_ Exp[d2 SuperStar[[Alpha]_]] -> f[d2]


    I am providing the above expressions again in latex font for clarification.
    $$
    texteq2=c exp left(a alpha ^*+alpha bright);
    $$



    $$
    texteq2text/., textd1$_$ exp left(alpha _^* textd2right)to f(textd2)
    $$



    Any help will be appreciated.










    share|improve this question









    $endgroup$














      1












      1








      1





      $begingroup$


      Starting with the expression



      eq1 = 5 Exp[1 + 2 x + 3 x^2 + 4 x^3];


      I want to implement the following transformation:



      eq1 /. Exp[a_ x^2 + b_ x^3] -> f[a/b]


      However, I am not getting the desired output
      $5 f[3/4]exp(1+2 x)$.



      Further, I also need to perform the following transformation.



      eq2 = c Exp[a SuperStar[[Alpha]] + b [Alpha]];
      eq2 /. d1_ Exp[d2 SuperStar[[Alpha]_]] -> f[d2]


      I am providing the above expressions again in latex font for clarification.
      $$
      texteq2=c exp left(a alpha ^*+alpha bright);
      $$



      $$
      texteq2text/., textd1$_$ exp left(alpha _^* textd2right)to f(textd2)
      $$



      Any help will be appreciated.










      share|improve this question









      $endgroup$




      Starting with the expression



      eq1 = 5 Exp[1 + 2 x + 3 x^2 + 4 x^3];


      I want to implement the following transformation:



      eq1 /. Exp[a_ x^2 + b_ x^3] -> f[a/b]


      However, I am not getting the desired output
      $5 f[3/4]exp(1+2 x)$.



      Further, I also need to perform the following transformation.



      eq2 = c Exp[a SuperStar[[Alpha]] + b [Alpha]];
      eq2 /. d1_ Exp[d2 SuperStar[[Alpha]_]] -> f[d2]


      I am providing the above expressions again in latex font for clarification.
      $$
      texteq2=c exp left(a alpha ^*+alpha bright);
      $$



      $$
      texteq2text/., textd1$_$ exp left(alpha _^* textd2right)to f(textd2)
      $$



      Any help will be appreciated.







      pattern-matching replacement






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked May 9 at 9:43









      Mark RobinsonMark Robinson

      1847




      1847




















          1 Answer
          1






          active

          oldest

          votes


















          5












          $begingroup$

          eq1 /. Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]



          5 E^(1 + 2 x) f[3/4]




          eq2 /. d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2]



          E^(b α) f[a]







          share|improve this answer











          $endgroup$








          • 2




            $begingroup$
            If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
            $endgroup$
            – Roman
            May 9 at 12:29











          • $begingroup$
            @Roman, great point. Updated with default patterns.
            $endgroup$
            – kglr
            May 9 at 12:49










          • $begingroup$
            @Shadowray, thank you; I added the needed _.s.
            $endgroup$
            – kglr
            May 9 at 13:52











          Your Answer








          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "387"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );













          draft saved

          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197999%2freplacement-using-pattern-matching%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          5












          $begingroup$

          eq1 /. Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]



          5 E^(1 + 2 x) f[3/4]




          eq2 /. d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2]



          E^(b α) f[a]







          share|improve this answer











          $endgroup$








          • 2




            $begingroup$
            If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
            $endgroup$
            – Roman
            May 9 at 12:29











          • $begingroup$
            @Roman, great point. Updated with default patterns.
            $endgroup$
            – kglr
            May 9 at 12:49










          • $begingroup$
            @Shadowray, thank you; I added the needed _.s.
            $endgroup$
            – kglr
            May 9 at 13:52















          5












          $begingroup$

          eq1 /. Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]



          5 E^(1 + 2 x) f[3/4]




          eq2 /. d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2]



          E^(b α) f[a]







          share|improve this answer











          $endgroup$








          • 2




            $begingroup$
            If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
            $endgroup$
            – Roman
            May 9 at 12:29











          • $begingroup$
            @Roman, great point. Updated with default patterns.
            $endgroup$
            – kglr
            May 9 at 12:49










          • $begingroup$
            @Shadowray, thank you; I added the needed _.s.
            $endgroup$
            – kglr
            May 9 at 13:52













          5












          5








          5





          $begingroup$

          eq1 /. Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]



          5 E^(1 + 2 x) f[3/4]




          eq2 /. d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2]



          E^(b α) f[a]







          share|improve this answer











          $endgroup$



          eq1 /. Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]



          5 E^(1 + 2 x) f[3/4]




          eq2 /. d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2]



          E^(b α) f[a]








          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited May 9 at 13:51

























          answered May 9 at 9:56









          kglrkglr

          193k10214435




          193k10214435







          • 2




            $begingroup$
            If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
            $endgroup$
            – Roman
            May 9 at 12:29











          • $begingroup$
            @Roman, great point. Updated with default patterns.
            $endgroup$
            – kglr
            May 9 at 12:49










          • $begingroup$
            @Shadowray, thank you; I added the needed _.s.
            $endgroup$
            – kglr
            May 9 at 13:52












          • 2




            $begingroup$
            If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
            $endgroup$
            – Roman
            May 9 at 12:29











          • $begingroup$
            @Roman, great point. Updated with default patterns.
            $endgroup$
            – kglr
            May 9 at 12:49










          • $begingroup$
            @Shadowray, thank you; I added the needed _.s.
            $endgroup$
            – kglr
            May 9 at 13:52







          2




          2




          $begingroup$
          If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
          $endgroup$
          – Roman
          May 9 at 12:29





          $begingroup$
          If you use defaults in the replacement pattern (dots after the patterns), they become more versatile: Exp[a_. x^2 + b_. x^3 + c_.] -> Exp[c] f[a/b]. This will also work with eq1a = 5 Exp[x^2 + 4 x^3], for example. Also, d1_. Exp[d2_. SuperStar[α_] + d3_.] -> Exp[d3] f[d2] for the second one.
          $endgroup$
          – Roman
          May 9 at 12:29













          $begingroup$
          @Roman, great point. Updated with default patterns.
          $endgroup$
          – kglr
          May 9 at 12:49




          $begingroup$
          @Roman, great point. Updated with default patterns.
          $endgroup$
          – kglr
          May 9 at 12:49












          $begingroup$
          @Shadowray, thank you; I added the needed _.s.
          $endgroup$
          – kglr
          May 9 at 13:52




          $begingroup$
          @Shadowray, thank you; I added the needed _.s.
          $endgroup$
          – kglr
          May 9 at 13:52

















          draft saved

          draft discarded
















































          Thanks for contributing an answer to Mathematica Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          Use MathJax to format equations. MathJax reference.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197999%2freplacement-using-pattern-matching%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Wikipedia:Vital articles Мазмуну Biography - Өмүр баян Philosophy and psychology - Философия жана психология Religion - Дин Social sciences - Коомдук илимдер Language and literature - Тил жана адабият Science - Илим Technology - Технология Arts and recreation - Искусство жана эс алуу History and geography - Тарых жана география Навигация менюсу

          Bruxelas-Capital Índice Historia | Composición | Situación lingüística | Clima | Cidades irmandadas | Notas | Véxase tamén | Menú de navegacióneO uso das linguas en Bruxelas e a situación do neerlandés"Rexión de Bruxelas Capital"o orixinalSitio da rexiónPáxina de Bruselas no sitio da Oficina de Promoción Turística de Valonia e BruxelasMapa Interactivo da Rexión de Bruxelas-CapitaleeWorldCat332144929079854441105155190212ID28008674080552-90000 0001 0666 3698n94104302ID540940339365017018237

          What should I write in an apology letter, since I have decided not to join a company after accepting an offer letterShould I keep looking after accepting a job offer?What should I do when I've been verbally told I would get an offer letter, but still haven't gotten one after 4 weeks?Do I accept an offer from a company that I am not likely to join?New job hasn't confirmed starting date and I want to give current employer as much notice as possibleHow should I address my manager in my resignation letter?HR delayed background verification, now jobless as resignedNo email communication after accepting a formal written offer. How should I phrase the call?What should I do if after receiving a verbal offer letter I am informed that my written job offer is put on hold due to some internal issues?Should I inform the current employer that I am about to resign within 1-2 weeks since I have signed the offer letter and waiting for visa?What company will do, if I send their offer letter to another company