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}};​​fflat1[Sequence@@Flatten[{flag_,LRc_,cL_(*,cR_,alphaL_,alphaR_,LRC_,CL_,CR_,AlphaL_,AlphaR_*)}]]:=cL[[1]];​​fflat1[Sequence@@Flatten[{1,0.1,cout0L(*,cout0R,alphaL0,alphaR0,0.1,cout0L,cout0R,alphaL0,alphaR0*)}]]​​fflat1[1,0.1,cout0L(*,cout0R,alphaL0,alphaR0,0.1,cout0L,cout0R,alphaL0,alphaR0*)]​​fflat2[flag_,LRc_,cL1_,cL2_,cL3_,cL4_(*,cR_,alphaL_,alphaR_,LRC_,CL_,CR_,AlphaL_,AlphaR_*)]:=(cL={cL1,cL2,cL3,cL4};cL[[1]]);​​fflat2[Sequence@@Flatten[{1,0.1,cout0L(*,cout0R,alphaL0,alphaR0,0.1,cout0L,cout0R,alphaL0,alphaR0*)}]]​​
Out[]=
fflat1[1,0.1,4.,4.,4.,4.]
Out[]=
4.
Out[]=
4.