Hi Gerald,

Here is one way

Last @@@ {Hi$8893 -> 8532.225243725225`, 
  Hiol$8893 -> 4936.849236413657`, Hiil$8893 -> 3595.3760073115686`, 
  Hc$8893 -> 7579.292471374861`, Hcol$8893 -> 3349.2234357010298`}
(* {8532.23, 4936.85, 3595.38, 7579.29, 3349.22} *)

Moving the ttab variable above the module command did the trick. Here is an image of the code, its part of a much larger file I'm working on and I did not want to provide the entire file. The //. can be replace by /. The output is shown below the code. Thanks,

G

Hi, unfortunately things are mixed up a little bit.

Your assignment of H=rts/10; which is not used in your code by the way, in deed requires to use Module to protect the other H from FindRoot at least for a clean solution.

I would suggest this code:

Manipulate[
 TableForm@
  Table[{{span, Rw}, 
    Module[{H}, 
     H /. Quiet@
       FindRoot[{(2 (H/Rw) Sinh[span Rw/(2 H)] - span - (span slacdataStrain[[i]]/100))/Ac},
{H,iTen/100 rts/2}]]}, {i, 32}],
{span, 500, 1500, 100},
{Rw, 0.5, 2.5, 0.1},
SaveDefinitions -> True]

Many Mathematica functions return list or replacement rules aka substitutions.

If you need the "naked" values you usually perform the substitution by means of the /. operator.

{x, y} /. {x -> 3, y -> 5}
x /. {x -> 3, y -> 5}
Sqrt[x^2 + y^2] /. {x -> 3, y -> 5}


Out[18]= {3, 5}

Out[19]= 3

Out[20]= Sqrt[34]

I personally would avoid Last@@@{x -> 3, y -> 5} at least in this case, Values[{x -> 3, y -> 5}] or Values@{x -> 3, y -> 5} would do the same job, again I would avoid it.

Robert

Thanks for the quick reply.