In[]:=
cout0L={4.0,4.0,4.0,4.0};cout0R={4.0,4.0,4.0,4.0};​​alphaR0={{0.2,0.8,0,0},{0.9,0.1,0,0},{0,0,0.3,0.7},{0,0,0.9,0.1}};alphaL0={{0.08,0.9,0.01,0.01},{0.9,0.08,0.01,0.01},{0.01,0.01,0.08,0.9},{0.01,0.01,0.9,0.08}};​​​​fflat2[args__]:=(cL=args[[3;;6]];cL[[1]]^2);(*howdoIsaycL=Table[thirdthroughsixthargumentoffflat2?*)​​fflat2[Sequence@@Flatten[{1,0.1,cout0L(*,cout0R,alphaL0,alphaR0,0.1,cout0L,cout0R,alphaL0,alphaR0*)}]]​​
Part
:The expression 0.1 cannot be used as a part specification.
Out[]=
1
In[]:=
Clear[fflat2]