' - - File: III_Zero2 .txt
' Given the plot of a function, find the zeros of the function.

to = 0.0001                              ' Tolerance to try.
Fc{t} = (8 * t^3 /3 + 20 * t^2 / Sqrt[3] - 100 * t /Sqrt[3] - 1000)/ 200

H<t> = <t, Fc, 0>     
Plot[H, {t,0,8,200}]                 ' Range guess to see what is plotted.

Zero[Fc, {3,8, z1}to]                ' Note syntax. z1 (left undefined) will store the results.
'@Zero at @z1!

a1 = Fc{z1}
'@Fc(zero) = @a1.value.!
<t = 1>                                     ' IMPORTANT: any value required to display the zeros
                                                 ' on the list output below.



