Collect Fourier series terms












2












$begingroup$


Is there a way to make mathematica automatically collect terms like $mathrm{Cos}[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







share|improve this question









$endgroup$












  • $begingroup$
    can you show your initial code, so we try to help!
    $endgroup$
    – Alrubaie
    7 hours ago
















2












$begingroup$


Is there a way to make mathematica automatically collect terms like $mathrm{Cos}[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







share|improve this question









$endgroup$












  • $begingroup$
    can you show your initial code, so we try to help!
    $endgroup$
    – Alrubaie
    7 hours ago














2












2








2





$begingroup$


Is there a way to make mathematica automatically collect terms like $mathrm{Cos}[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







share|improve this question









$endgroup$




Is there a way to make mathematica automatically collect terms like $mathrm{Cos}[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






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 8 hours ago









RiccardoRiccardo

455




455












  • $begingroup$
    can you show your initial code, so we try to help!
    $endgroup$
    – Alrubaie
    7 hours ago


















  • $begingroup$
    can you show your initial code, so we try to help!
    $endgroup$
    – Alrubaie
    7 hours ago
















$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
7 hours ago




$begingroup$
can you show your initial code, so we try to help!
$endgroup$
– Alrubaie
7 hours ago










1 Answer
1






active

oldest

votes


















3












$begingroup$

is this what you are asking? 



exp=3Cos[x]+5Cos[2x]+12Cos[3x];



Coefficient[exp,Cos[x #]]&/@Range@3



{3, 5, 12}







share|improve this answer











$endgroup$













  • $begingroup$
    Yes, thanks this is it!
    $endgroup$
    – Riccardo
    7 hours ago










  • $begingroup$
    you are welcome!
    $endgroup$
    – J42161217
    7 hours ago












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
});


}
});














draft saved

draft discarded


















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









3












$begingroup$

is this what you are asking? 



exp=3Cos[x]+5Cos[2x]+12Cos[3x];



Coefficient[exp,Cos[x #]]&/@Range@3



{3, 5, 12}







share|improve this answer











$endgroup$













  • $begingroup$
    Yes, thanks this is it!
    $endgroup$
    – Riccardo
    7 hours ago










  • $begingroup$
    you are welcome!
    $endgroup$
    – J42161217
    7 hours ago
















3












$begingroup$

is this what you are asking? 



exp=3Cos[x]+5Cos[2x]+12Cos[3x];



Coefficient[exp,Cos[x #]]&/@Range@3



{3, 5, 12}







share|improve this answer











$endgroup$













  • $begingroup$
    Yes, thanks this is it!
    $endgroup$
    – Riccardo
    7 hours ago










  • $begingroup$
    you are welcome!
    $endgroup$
    – J42161217
    7 hours ago














3












3








3





$begingroup$

is this what you are asking? 



exp=3Cos[x]+5Cos[2x]+12Cos[3x];



Coefficient[exp,Cos[x #]]&/@Range@3



{3, 5, 12}







share|improve this answer











$endgroup$



is this what you are asking? 



exp=3Cos[x]+5Cos[2x]+12Cos[3x];



Coefficient[exp,Cos[x #]]&/@Range@3



{3, 5, 12}








share|improve this answer














share|improve this answer



share|improve this answer








edited 7 hours ago

























answered 7 hours ago









J42161217J42161217

4,248324




4,248324












  • $begingroup$
    Yes, thanks this is it!
    $endgroup$
    – Riccardo
    7 hours ago










  • $begingroup$
    you are welcome!
    $endgroup$
    – J42161217
    7 hours ago


















  • $begingroup$
    Yes, thanks this is it!
    $endgroup$
    – Riccardo
    7 hours ago










  • $begingroup$
    you are welcome!
    $endgroup$
    – J42161217
    7 hours ago
















$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
7 hours ago




$begingroup$
Yes, thanks this is it!
$endgroup$
– Riccardo
7 hours ago












$begingroup$
you are welcome!
$endgroup$
– J42161217
7 hours ago




$begingroup$
you are welcome!
$endgroup$
– J42161217
7 hours ago


















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%2f194735%2fcollect-fourier-series-terms%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

Aikido

Image
Ĉi tiu artikolo citas neniun fonton . Vi povas plibonigi ĝin, aldonante fidindajn fontojn. Senfontaj asertoj povas esti forigitaj.  (Novembro 2012) Aikido Japana Nomo: Kanji 合気道 Hiragana あいきどう Spiradaj ekzercoj Aikido , aŭ Ajkido , estas moderna japana luktarto (Shin Budo) kompilita de Ueshiba Morihei dum la periodo inter la 1930-aj jaroj ĝis 1960-aj jaroj. Ĝi estas senperforta kaj multaj el ĝiaj teĥnikoj evoluis el Daito-Rjuo (speco de ĵuĵicuo) kaj el glava batalado. La filozofio de aikido devenis ĉefe de la religio Oomoto pro la kontaktoj inter O´Sensei ("granda majstro", esprimo uzata de la aikidistoj por nomi Ueshiba Morihei) kaj Deguchi Onisaburo Sensei el Oomoto. Oni konsideras, ke aikidisto havu iom da spiriteco, interalie pri la uzo de la Ĉi, KI, ĝi postulas nenuran teknikan trejnon. La nepo de la kreinto, Ueshiba Moriteru, nun estas "Doshu", tiu kiu montras la vojon. Enhavo 1 Aikido - Oomoto - Esperanto...
Read more

Tivadar Csontváry Kosztka

Image
Ponto de Mostar Tivadar Csontváry Kosztka [tivadar ĉontvAri kostka], hungare Csontváry Kosztka Tivadar estis indivudueca hungara pentristo kaj apotekisto. En la hungara medio sufiĉas Csontváry. Memportreto de Csontváry Ruinoj de greka teatro en Taormina Pilgrimado al cedroj Soleca cedro Skulptaĵo pri Csontváry Enhavo 1 Vivo 2 Verkaro 3 Postvivo 4 Figuro de Csontváry en artoj 4.1 Filmoj 4.2 Romano 4.3 Dramo 4.4 Esperanto Vivo | Csontváry naskiĝis en Kisszeben en la 5-an de julio 1853 (kiel Kosztka Mihály Tivadar ), li mortis en Budapeŝto, en la 20-a de junio 1919. Lia patro Kosztka László estis apotekisto, tiun profesion praktikadis ankaŭ Tivadar. En 1880 antaŭ la apoteko li desegnis sur apoteka papereto ĉaron kun bovoj. Tiun ekvidis la ĉefapotekisto kaj ekkriis: „Ja vi naskiĝis pentristo!”. Tiam Csontváry aŭdis ankaŭ dian voĉon: „Vi estos la plej granda sunovoja pentristo de la mondo, pli granda, ol Raf...
Read more

Metroo de Marsejlo

Image
Metroo de Marsejlo Logoo Ĝeneralaj informoj Loko Marsejlo  Francio Transportsistema speco Metroo Komenco de trafiko 26-a de novembro 1977 Teknikaj informoj Longeco de sistemo 21,6 km Nombro de linioj 2 Nombro de veturiloj 36 Nombro de stacioj 28 (+ 2 interkonektoj) Aliaj informoj Traklarĝo 1 435 mm Transportisto RTM v   •   d   •   r La Metroo de Marsejlo (Francio) (france  Métro de Marseille ) estas metrosistemo funkcianta per pneŭoj derivita de la teknologio disvolvigita de la RATP por la metroo de Parizo. Ĝi malfermiĝis unuafoje al la publiko en la jaro 1977. Ĝi konsistas el du linioj, parte subteraj, kun longeco de entute 21,6 km , situantaj nur en la municipo Marsejlo. Nuntempe konstruiĝas du plilongigaĵoj. Enhavo 1 Mapo 2 Metrolinioj 2.1 Linio 1 2.2 Linio 2 3 Vidu ankaŭ 4 Eksteraj ligiloj Mapo | Mapo de la metroo de Marsejlo Metrolinioj | ...
Read more