@tomleslie 

I was able to fix it.  I deleted the maxsols and works perfectly. Another thing is the maple is displaying:

p[1] := 38.01625611/(Pi^2*(1-1.319446973/Pi^2))

instead of numbers only.

Thank you.

@tomleslie 

Hi,

I received this error message : Error, (in Student:-Calculus1:-Roots) unexpected option(s): maxsols = 200

When tried to run the other option.

@tomleslie 

Thank you so much.

@tomleslie 

Thank you so much for your assistance.

However, I couldn't run it because. I receive this error even after install DirectSearch

Error, `DirectSearch` does not evaluate to a module
Error, invalid input: entries received ans[() .. (), 3], which is not valid for its 1st argument, t

@acer

Hi thank you much for this. U really appreciate 

@tomleslie

Hi Tomleslie,

Thank you for the answer but how do you I reuse the f values in the code say:

for i from 1 to n do 
 p[i] := alpha*lambda/(1-(4*f[i])^2*(Hc/H)^2/Pi^2) 
 end do;

@tomleslie 

Thank you so much !!!