2
$\begingroup$

The following quits with message $Failed and no other information on Mathematica 13.2 (also on cloud), are there any debugging tricks to find the source of the error?

d = 10;
R2toSpectrum[R_, d_] := Module[{h, dd, decay},
   decay = 
    If[R < 1.001, 100., 
     dd /. FindRoot[
       HarmonicNumber[d, dd]^2/HarmonicNumber[d, 2 dd] == R, {dd, 2, 
        0, 100}]];
   h = Table[i^-decay, {i, 1, d}];
   h/Total[h]
   ];
rrPlot2[R_] := Plot[Max[R2toSpectrum[R, d]], {R, 1, d}]
rrPlot2[5]
Improve this question
$\endgroup$
2
  • 1
    $\begingroup$ rrPlot2[5] returns $Failed, so looking at the definition for rrPlot2[R_], we replace the instances of R with 5, and see what happens. Plot[Max[R2toSpectrum[5, d]], {5, 1, d}] returns $Failed. But that variable specification is weird. Did you mean to use rrPlot2[d_] := when defining the function? $\endgroup$ Commented Feb 9, 2023 at 20:01
  • $\begingroup$ Ah yes that was the problem. Wish that error message was more informative though, like " incorrect specification for plot" $\endgroup$ Commented Feb 9, 2023 at 23:01

1 Answer 1

Reset to default
1
$\begingroup$

To follow from Brett's suggestion:

rrPlot[d_] := ListLinePlot[Table[{i, Max[R2toSpectrum[i, d]]}, {i, 1, d}]]

rrPlot[10]

enter image description here

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.