Collect Fourier series termsCoefficientList for exponentials termsAssign Coefficients of Exponential SeriesConstruct Matrices from Coefficient of f[x] in Finite Fields?collect a multivariate polynomial, and simplify all coefficientsCollect terms with same-kind coefficients and factor exponential based on thatCollect terms in Fourier TransformExtracting coefficients from sumExtract terms containing a specific symbol from an expressionPlotting double seriesRearranging similar terms in an equation
What do you call something that goes against the spirit of the law, but is legal when interpreting the law to the letter?
declaring a variable twice in IIFE
DOS, create pipe for stdin/stdout of command.com(or 4dos.com) in C or Batch?
Banach space and Hilbert space topology
How is it possible for user's password to be changed after storage was encrypted? (on OS X, Android)
Example of a relative pronoun
How do I create uniquely male characters?
Non-Jewish family in an Orthodox Jewish Wedding
Is there a minimum number of transactions in a block?
What Brexit solution does the DUP want?
Are white and non-white police officers equally likely to kill black suspects?
How to report a triplet of septets in NMR tabulation?
How do you conduct xenoanthropology after first contact?
Copenhagen passport control - US citizen
What makes Graph invariants so useful/important?
Schwarzchild Radius of the Universe
I’m planning on buying a laser printer but concerned about the life cycle of toner in the machine
Why is this code 6.5x slower with optimizations enabled?
A newer friend of my brother's gave him a load of baseball cards that are supposedly extremely valuable. Is this a scam?
Accidentally leaked the solution to an assignment, what to do now? (I'm the prof)
How did the USSR manage to innovate in an environment characterized by government censorship and high bureaucracy?
When blogging recipes, how can I support both readers who want the narrative/journey and ones who want the printer-friendly recipe?
My colleague's body is amazing
Can you lasso down a wizard who is using the Levitate spell?
Collect Fourier series terms
CoefficientList for exponentials termsAssign Coefficients of Exponential SeriesConstruct Matrices from Coefficient of f[x] in Finite Fields?collect a multivariate polynomial, and simplify all coefficientsCollect terms with same-kind coefficients and factor exponential based on thatCollect terms in Fourier TransformExtracting coefficients from sumExtract terms containing a specific symbol from an expressionPlotting double seriesRearranging similar terms in an equation
$begingroup$
Is there a way to make mathematica automatically collect terms like $mathrmCos[n x]$ with $n=1,2,3...$?
I have a long expression coming out of a Fourier series where I see a lot of $Cos[x],Cos[2 x],Cos[3 x]$ and so on, but Simplify is very inefficient. I would like mathematica to automatically collect all coefficients of the various Cos[n x] without having to do it manually for each one of them.
coefficients
asked yesterday
RiccardoRiccardo
505
$endgroup$
add a comment |
$begingroup$
Is there a way to make mathematica automatically collect terms like $mathrmCos[n x]$ with $n=1,2,3...$?
I have a long expression coming out of a Fourier series where I see a lot of $Cos[x],Cos[2 x],Cos[3 x]$ and so on, but Simplify is very inefficient. I would like mathematica to automatically collect all coefficients of the various Cos[n x] without having to do it manually for each one of them.
coefficients
asked yesterday
RiccardoRiccardo
505
$endgroup$
$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
yesterday
$begingroup$
TryCollect[exp /. Cos[x n_.] -> x^n, x]/. x^n_. -> Cos[n x].
$endgroup$
– Somos
yesterday
add a comment |
$begingroup$
Is there a way to make mathematica automatically collect terms like $mathrmCos[n x]$ with $n=1,2,3...$?
I have a long expression coming out of a Fourier series where I see a lot of $Cos[x],Cos[2 x],Cos[3 x]$ and so on, but Simplify is very inefficient. I would like mathematica to automatically collect all coefficients of the various Cos[n x] without having to do it manually for each one of them.
coefficients
asked yesterday
RiccardoRiccardo
505
$endgroup$
Is there a way to make mathematica automatically collect terms like $mathrmCos[n x]$ with $n=1,2,3...$?
I have a long expression coming out of a Fourier series where I see a lot of $Cos[x],Cos[2 x],Cos[3 x]$ and so on, but Simplify is very inefficient. I would like mathematica to automatically collect all coefficients of the various Cos[n x] without having to do it manually for each one of them.
coefficients
coefficients
asked yesterday
RiccardoRiccardo
505
asked yesterday
RiccardoRiccardo
505
asked yesterday
RiccardoRiccardo
505
asked yesterday
RiccardoRiccardo
505
asked yesterday
RiccardoRiccardo
505
505
$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
yesterday
$begingroup$
TryCollect[exp /. Cos[x n_.] -> x^n, x]/. x^n_. -> Cos[n x].
$endgroup$
– Somos
yesterday
add a comment |
$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
yesterday
$begingroup$
TryCollect[exp /. Cos[x n_.] -> x^n, x]/. x^n_. -> Cos[n x].
$endgroup$
– Somos
yesterday
$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
yesterday
$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
yesterday
$begingroup$
Try
Collect[exp /. Cos[x n_.] -> x^n, x]/. x^n_. -> Cos[n x].$endgroup$
– Somos
yesterday
$begingroup$
Try
Collect[exp /. Cos[x n_.] -> x^n, x]/. x^n_. -> Cos[n x].$endgroup$
– Somos
yesterday
add a comment |
1 Answer
1
active
oldest
votes
$begingroup$
is this what you are asking?
exp=3Cos[x]+5Cos[2x]+12Cos[3x];
Coefficient[exp,Cos[x #]]&/@Range@3
3, 5, 12
answered yesterday
J42161217J42161217
4,268324
$endgroup$
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
add a comment |
Your Answer
StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");
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
);
);
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194735%2fcollect-fourier-series-terms%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
$begingroup$
is this what you are asking?
exp=3Cos[x]+5Cos[2x]+12Cos[3x];
Coefficient[exp,Cos[x #]]&/@Range@3
3, 5, 12
answered yesterday
J42161217J42161217
4,268324
$endgroup$
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
add a comment |
$begingroup$
is this what you are asking?
exp=3Cos[x]+5Cos[2x]+12Cos[3x];
Coefficient[exp,Cos[x #]]&/@Range@3
3, 5, 12
answered yesterday
J42161217J42161217
4,268324
$endgroup$
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
add a comment |
$begingroup$
is this what you are asking?
exp=3Cos[x]+5Cos[2x]+12Cos[3x];
Coefficient[exp,Cos[x #]]&/@Range@3
3, 5, 12
answered yesterday
J42161217J42161217
4,268324
$endgroup$
is this what you are asking?
exp=3Cos[x]+5Cos[2x]+12Cos[3x];
Coefficient[exp,Cos[x #]]&/@Range@3
3, 5, 12
answered yesterday
J42161217J42161217
4,268324
edited yesterday
answered yesterday
J42161217J42161217
4,268324
answered yesterday
J42161217J42161217
4,268324
answered yesterday
J42161217J42161217
4,268324
4,268324
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
add a comment |
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
$begingroup$
you are welcome!
$endgroup$
– J42161217
yesterday
add a comment |
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.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194735%2fcollect-fourier-series-terms%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
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
$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
yesterday
$begingroup$
Try
Collect[exp /. Cos[x n_.] -> x^n, x]/. x^n_. -> Cos[n x].$endgroup$
– Somos
yesterday