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*)}]]
Out[]=
1
In[]:=
Clear[fflat2]