In[]:=
Rw=0.9;span=1000;iTen=21;rts=25000;Ac=.8;H=rts/10;slacdataStrain=,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,;
1
1000
1
500
1
250
7
1000
11
1000
2
125
11
500
29
1000
37
1000
23
500
7
125
67
1000
79
1000
23
250
53
500
121
1000
137
1000
77
500
43
250
191
1000
211
1000
29
125
127
500
277
1000
301
1000
163
500
44
125
379
1000
407
1000
109
250
233
500
497
1000
In[]:=
Manipulate[Module[{H},{H}/.N[Table[Quiet[{{span,Rw},FindRoot[{(2(H/Rw)Sinh[spanRw/(2H)]-span-(spanslacdataStrain[[i]]/100))/Ac},{H,iTen/100rts/2}]}],{i,32}]]],{span,500,1500,100},{Rw,0.5,2.5,0.1},SaveDefinitionsTrue]