(adsbygoogle = window.adsbygoogle || []).push({}); 1. The problem statement, all variables and given/known data

Do[

If[..,

Print[Plot[N[Cos[t]] == 0, {t, 0, 10}], ","

"Time to reach 1=", t /. Last[FindMaximum[N[Cos[t]], {t, 5}]], ","

Cos[t]

]

]

,{c,0,10},{b,0,100}]

I need Cos[t] to output a numerical value as obtained from FindMaximum, how do I do this?

2. Relevant equations

3. The attempt at a solution

Evaluate won't work.

**Physics Forums | Science Articles, Homework Help, Discussion**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# FindMaximum Mathematica

**Physics Forums | Science Articles, Homework Help, Discussion**