# LogLogPlot giving many error messages [closed]

I'm trying to do a LogLogPlot of the following function:

fun[t_, n_, ρ_, λ_, μ_] := (
1 - NIntegrate[(E^(s*(-λ - μ))*BesselI[1, 2*s*Sqrt[λ*μ]])/(s*Sqrt[ρ]),
{s, 0, t}]^(n))


Which works only when I use Plot. For example,

Manipulate[Plot[fun[t, j, 1/2, 0.5, 1], {t, 0, 50}, PlotRange -> {0, 1}],
{{j, 0.5, "n"}, 1.0, 1000, Appearance -> "Labeled"}]


But when I try to do a LogLogPlot, which is done with this code,

Manipulate[LogLogPlot[fun[t, j, 1/2, 0.5, 1], {t, 0.0001, 50}, PlotRange -> {0, 1}],
{{j, 0.5, "n"}, 1.0, 1000, Appearance -> "Labeled"}]


then things get crazy and Mathematica outputs a bunch of errors.

I'm not sure what I am doing wrong and any help with this matter would be much appreciated.

-

## closed as off-topic by m_goldberg, bobthechemist, Michael E2, Artes, Oleksandr R.Mar 3 '14 at 7:41

This question appears to be off-topic. The users who voted to close gave this specific reason:

• "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – m_goldberg, bobthechemist, Michael E2, Artes, Oleksandr R.
If this question can be reworded to fit the rules in the help center, please edit the question.

Clear[fun];fun[t_?NumericQ, n_, \[Rho]_, \[Lambda]_, \[Mu]_] := .. –  george2079 Feb 27 '14 at 19:01
I think you will get a better plot with LogPlot. –  m_goldberg Feb 27 '14 at 21:00
Well then genius. What's the "error"??? LOL! You simply don't know the answer so you close it as "off-topic". LOL! –  Pierre M Fiorini Mar 16 '14 at 17:07

llp[j_] := Table[{t, fun[t, j, 1/2, 0.5, 1]}, {t, 0.0001, 50, 0.1}];