0
$\begingroup$

I want to know is it possible to plot symbolically ? for example I need to plot this function symbolically(where a>0 and c>b and and b>0)

FourierTransform[((a Cos[2 c π x] Sin[b π x])/(π x))^5, x, f,FourierParameters -> {1, -1}]

output

(1/(24576 π^4))a^5 (5 (f - 3 b π - 10 c π)^4 Sign[
     f - 3 b π - 10 c π] + 
   10 (f + b π - 10 c π)^4 Sign[f + b π - 10 c π] - 
   5 (f + 3 b π - 10 c π)^4 Sign[
     f + 3 b π - 10 c π] + (f - 5 b π + 
      10 c π)^4 Sign[-f + 5 b π - 10 c π] + (f + 
      5 b π - 10 c π)^4 Sign[f + 5 b π - 10 c π] + 
   25 (f - 3 b π - 6 c π)^4 Sign[f - 3 b π - 6 c π] + 
   50 (f + b π - 6 c π)^4 Sign[f + b π - 6 c π] - 
   25 (f + 3 b π - 6 c π)^4 Sign[f + 3 b π - 6 c π] + 
   5 (f + 5 b π - 6 c π)^4 Sign[f + 5 b π - 6 c π] + 
   50 (f - 3 b π - 2 c π)^4 Sign[f - 3 b π - 2 c π] + 
   100 (f + b π - 2 c π)^4 Sign[f + b π - 2 c π] - 
   50 (f + 3 b π - 2 c π)^4 Sign[f + 3 b π - 2 c π] + 
   10 (f + 5 b π - 2 c π)^4 Sign[f + 5 b π - 2 c π] - 
   10 (f - 5 b π + 2 c π)^4 Sign[f - 5 b π + 2 c π] + 
   50 (f - 3 b π + 2 c π)^4 Sign[f - 3 b π + 2 c π] - 
   100 (f - b π + 2 c π)^4 Sign[f - b π + 2 c π] + 
   100 (f - b π - 2 c π)^4 Sign[-f + b π + 2 c π] + 
   100 (f + b π + 2 c π)^4 Sign[f + b π + 2 c π] - 
   50 (f + 3 b π + 2 c π)^4 Sign[f + 3 b π + 2 c π] + 
   10 (f - 5 b π - 2 c π)^4 Sign[-f + 5 b π + 
      2 c π] + 
   10 (f + 5 b π + 2 c π)^4 Sign[f + 5 b π + 2 c π] - 
   5 (f - 5 b π + 6 c π)^4 Sign[f - 5 b π + 6 c π] + 
   25 (f - 3 b π + 6 c π)^4 Sign[f - 3 b π + 6 c π] - 
   50 (f - b π + 6 c π)^4 Sign[f - b π + 6 c π] + 
   50 (f - b π - 6 c π)^4 Sign[-f + b π + 6 c π] + 
   50 (f + b π + 6 c π)^4 Sign[f + b π + 6 c π] - 
   25 (f + 3 b π + 6 c π)^4 Sign[f + 3 b π + 6 c π] + 
   5 (f - 5 b π - 6 c π)^4 Sign[-f + 5 b π + 6 c π] + 
   5 (f + 5 b π + 6 c π)^4 Sign[f + 5 b π + 6 c π] + 
   5 (f - 3 b π + 10 c π)^4 Sign[
     f - 3 b π + 10 c π] - 
   10 (f - b π + 10 c π)^4 Sign[f - b π + 10 c π] + 
   10 (f - b π - 10 c π)^4 Sign[-f + b π + 10 c π] + 
   10 (f + b π + 10 c π)^4 Sign[f + b π + 10 c π] - 
   5 (f + 3 b π + 10 c π)^4 Sign[
     f + 3 b π + 10 c π] + (f - 5 b π - 
      10 c π)^4 Sign[-f + 5 b π + 10 c π] + (f + 
      5 b π + 10 c π)^4 Sign[f + 5 b π + 10 c π])

if not , how can plot this function from -100 < f < 100 with definite a,b,c value.

$\endgroup$
8
  • 2
    $\begingroup$ What do you mean by "plot symbolically"? Can you give a simple example of plotting something symbolically? $\endgroup$ – Alexei Boulbitch Oct 14 '16 at 8:13
  • $\begingroup$ it means constant variable are indefinite and we plot the diagram without any numbers or values . For example here all constant are are indefinite obrazki.elektroda.pl/2659218100_1476433284.png but we can plot it $\endgroup$ – Ehsan Zakeri Oct 14 '16 at 8:23
  • 4
    $\begingroup$ I would say that it is not a plot, but a schematic view, right. Or a sketch? I know nothing about the existence of a function for that in Mma. On the other hand you might fix numerical values for parameters, plot the function, and then remove the ticks and place there notations you want. $\endgroup$ – Alexei Boulbitch Oct 14 '16 at 8:29
  • $\begingroup$ Thanks for your explanation . would it possible tell me how can plot FourierTransform[((a Cos[2 c π x] Sin[b π x])/(π x))^5, x,f,FourierParameters -> {1, -1}] for -100 < f < 100 with definite a,b,c value.I did something with plot function but I was unsuccessful . $\endgroup$ – Ehsan Zakeri Oct 14 '16 at 8:56
  • 2
    $\begingroup$ Have a look at Menu/WolframDocumentation/Plot $\endgroup$ – Alexei Boulbitch Oct 14 '16 at 11:15

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.