Out[]=
2000
In[]:=
​​Manipulate[​​tempif=tlinelist;​​TableForm[​​linelist=Table[Flatten[{{ttab},{​​Module[{hl,hlol,hlil},​​{hl,hlol,hlil,sag[hl,wl[cdia,ridia,iceden,wb,airden,wspd],span]}//.​​N[​​Quiet[​​FindRoot[​​{​​(outlayerF[percentslack[hl,wl[cdia,ridia,iceden,wb,airden,wspd],span]-(HloadAdjust[[4]]+thermaldriver[thermal,ttab,tref])]+inlayerF[percentslack[hl,wl[cdia,ridia,iceden,wb,airden,wspd],span]-(HloadAdjust[[5]]+thermaldriver[thermalst,ttab,tref])])ac-hl0,outlayerF[percentslack[hl,wl[cdia,ridia,iceden,wb,airden,wspd],span]-(HloadAdjust[[4]]+thermaldriver[thermal,ttab,tref])]ac-hlol0,inlayerF[percentslack[hl,wl[cdia,ridia,iceden,wb,airden,wspd],span]-(HloadAdjust[[5]]+thermaldriver[thermalst,ttab,tref])]ac-hlil==0},​​{{hl,initialfit[[1]]sagtableadj},{hlol,initialfit[[1]]sagtableadj},{hlil,initialfit[[1]]sagtableadj}}]​​]]]}}],{ttab,lt,ut,incr}],TableAlignmentsCenter,TableHeadings{None,{"1","2","3","4","5"}},TableSpacing{1,2}],Panel[Row[{Control[{{incr,10,"Temp. Increment",ImageSizeTiny},10,240.0,20.0,ImageSizeTiny,Appearance"Labeled"}],Control[{{lt,-20,"Start",ImageSizeTiny},-40.0,240.0,10.0,ImageSizeTiny,Appearance"Labeled"}],Control[{{ut,120,"End",ImageSizeTiny},-40.0,240.0,10.0,ImageSizeTiny,Appearance"Labeled"}]},BackgroundLightBlue],​​" TABLE VARIABLE Select Operating Range With Sliders"],Control[{{sagtableadj,1.0,"startpt",ImageSizeTiny},0,5,0.1,ImageSizeTiny,Appearance"Labeled"}]​​,Initialization{ttab=10,hi=initialfit[[1]]/2,Wspd1=0,incr=20,lt=0,ut=240},TrackedSymbols:>{ttab}ContinuousActionFalse,ControlPlacementTop,SaveDefinitionsTrue,ContentSize{400,300}]
Out[]=
​
TABLE VARIABLE Select Operating Range With Sliders
Temp. Increment
20
Start
0
End
240
startpt
1
1
2
3
4
5
0
7186.54
2668.43
4518.11
21.4421
20
6775.66
2160.89
4614.77
22.7441
40
6415.89
1682.07
4733.82
24.0213
60
6099.17
1227.45
4871.72
25.2708
80
5818.74
793.225
5025.52
26.4909
100
5569.
376.244
5192.75
27.6813
120
5345.31
-26.0913
5371.41
28.8422
140
5143.88
-415.922
5559.8
29.9743
160
4961.54
-795.017
5756.56
31.0786
180
4795.7
-1164.85
5960.55
32.1563
200
4644.17
-1526.63
6170.8
33.2085
220
4505.14
-1881.38
6386.53
34.2364
240
4377.08
-2229.98
6607.06
35.2414
In[]:=
​​MatrixForm[linelist]
Out[]//MatrixForm=
0
7186.54
2668.43
4518.11
21.4421
20
6775.66
2160.89
4614.77
22.7441
40
6415.89
1682.07
4733.82
24.0213
60
6099.17
1227.45
4871.72
25.2708
80
5818.74
793.225
5025.52
26.4909
100
5569.
376.244
5192.75
27.6813
120
5345.31
-26.0913
5371.41
28.8422
140
5143.88
-415.922
5559.8
29.9743
160
4961.54
-795.017
5756.56
31.0786
180
4795.7
-1164.85
5960.55
32.1563
200
4644.17
-1526.63
6170.8
33.2085
220
4505.14
-1881.38
6386.53
34.2364
240
4377.08
-2229.98
6607.06
35.2414
In[]:=
​
In[]:=
MatrixForm[Map[If[#<0,Position[linelist,#],#]&,linelist,{2}]]
Out[]//MatrixForm=
0
7186.54
2668.43
4518.11
21.4421
20
6775.66
2160.89
4614.77
22.7441
40
6415.89
1682.07
4733.82
24.0213
60
6099.17
1227.45
4871.72
25.2708
80
5818.74
793.225
5025.52
26.4909
100
5569.
376.244
5192.75
27.6813
120
5345.31
{{7,3}}
5371.41
28.8422
140
5143.88
{{8,3}}
5559.8
29.9743
160
4961.54
{{9,3}}
5756.56
31.0786
180
4795.7
{{10,3}}
5960.55
32.1563
200
4644.17
{{11,3}}
6170.8
33.2085
220
4505.14
{{12,3}}
6386.53
34.2364
240
4377.08
{{13,3}}
6607.06
35.2414