2
$\begingroup$

I want to plot

F[x_] := 
  Integrate[
    (1/
      (1 + 
        (64*x^2*Sin[y]^2*Sin[(1/2)*Sqrt[(-8 + x)^2 - x^2*Sin[y]^2]]^2)/
          (((-8 + x)^2 - x^2*Sin[y]^2)*(x^2 - x^2*Sin[y]^2))))*Cos[y], 
    {y, -(Pi/2), Pi/2}]

over the interval {x, 0, 30}.

I am trying:

Plot[F[x], {x, 0, 30}]

but without success. How can I do it?

| improve this question | | | | |
$\endgroup$
  • 5
    $\begingroup$ Wouldn't a numerical approach make more sense for plotting?: Clear[F]; F[x_?NumericQ]:= NIntegrate[...] $\endgroup$ – Michael E2 May 9 '17 at 0:37
  • $\begingroup$ I am very sorry, Thank you very much for your appreciable help $\endgroup$ – Kimou May 9 '17 at 9:37
3
$\begingroup$

As Michael E2 advises in his comment, defining F as a numeric function works well when you want to see a plot.

F[x_?NumericQ] := 
  NIntegrate[
    (1/
      (1 + 
        (64*x^2*Sin[y]^2*Sin[(1/2)*Sqrt[(-8 + x)^2 - x^2*Sin[y]^2]]^2)/
          (((-8 + x)^2 - x^2*Sin[y]^2)*(x^2 - x^2*Sin[y]^2))))*Cos[y], 
    {y, -(Pi/2), Pi/2}]

Plot[F[x], {x, 0, 30}, AxesOrigin -> {0, 0}]

plot

$\endgroup$
  • $\begingroup$ That's what i want. Thank you $\endgroup$ – Kimou May 9 '17 at 9:40

Your Answer

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

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