IRtot = 40;

    xBalance = {x1 -> 
            IRtot - x2 - x3 - x4 - 
              x5};


    Param = {
k12 -> 
            4*10^(-4), 
k21 -> 
            10^(-3), 
k32 -> 
            1.2975/60, 
k43 -> 
            0.021675/60, 
k54 -> 
            0.08045/60, 
k15 -> 
            1.533*10^(-3), 
k51 -> 
            2*10^(-4)};


    Hori5Pool = {k12*x2 + k15*x5 - (k21*u + k51)*x1 == 
                0, 
k21*u*x1 - (k12 + k32)*x2 == 
                0, 
k32*x2 - k43*x3 == 
                0, 
k43*x3 - k54*x4 == 
                0
  } /. xBalance /. 
          Param;



    HoriStat = 
        Solve[Hori5Pool, {x2, x3, x4, 
            x5}];

  



    IRphosLog = (x3 + x4)/IRtot /. HoriStat /. 
          u -> 10^ex;

    IRInsLog = (0.01/u)*(x2 + x3) /. HoriStat /. 
          u -> (0.01 + 10^ex);

\(\(\(
\)\(
\)\(<< 
      Graphics`MultipleListPlot`


    \(Klein2002ins = {{\(-2\), 101.04761904761904`}, {\(-1.5`\), 
            102.47619047619047`}, {\(-1\), 100.57142857142857`}, {\(-0.5`\), 
            79.6190476190476`}, {0, 47.23809523809524`}, {0.5`, 
            28.666666666666664`}, {1, 14.857142857142856`}, {1.5`, 
            5.333333333333334`}, {2, 0.9523809523809532`}, {4, 
            0.`}};\)

    \(Klein2002insEB = {{{\(-2\), 101.04761904761904`}, 
            ErrorBar[{\(-3.8095238095238098`\), 
                3.8095238095238098`}]}, {{\(-1.5`\), 102.47619047619047`}, 
            ErrorBar[{\(-3.8095238095238098`\), 
                3.8095238095238098`}]}, {{\(-1\), 100.57142857142857`}, 
            ErrorBar[{\(-3.8095238095238098`\), 
                3.8095238095238098`}]}, {{\(-0.5`\), 79.6190476190476`}, 
            ErrorBar[{\(-2.857142857142857`\), 2.857142857142857`}]}, {{0, 
              47.23809523809524`}, 
            ErrorBar[{\(-2.857142857142857`\), 2.857142857142857`}]}, {{0.5`, 
              28.666666666666664`}, 
            ErrorBar[{\(-1.9047619047619049`\), 1.9047619047619049`}]}, {{1, 
              14.857142857142856`}, 
            ErrorBar[{\(-2.857142857142857`\), 2.857142857142857`}]}, {{1.5`, 
              5.333333333333334`}, 
            ErrorBar[{\(-1.9047619047619049`\), 1.9047619047619049`}]}, {{2, 
              0.9523809523809532`}, 
            ErrorBar[{\(-1.9047619047619049`\), 1.9047619047619049`}]}, {{4, 
              0.`}, ErrorBar[{\(-0.9523809523809524`\), 
                0.9523809523809524`}]}};\)


\  (*\ 
      Projection\ of\ model\ output\ on\ experimental\ data\ *) 


    \(IRInsLogFit\  = \ 
        Fit[Klein2002ins, IRInsLog, 
          ex];\)


    FigIRIns = 
      Plot[IRInsLogFit, {ex, \(-3\), 4}, 
        PlotStyle -> {RGBColor[0, 0, 0]}, 
        FrameLabel -> \ {"log Insulin [nM]", "Cell associated labeled insulin"}, \ Frame -> \ True, 
        DisplayFunction -> \ Identity, 
        PlotRange -> \ {All, All}]


    \)\)\)

\(\(\(
\)\(
\)\(
\)\(\(FigInsData = 
        MultipleListPlot[Klein2002insEB, 
          SymbolStyle -> {RGBColor[1, 0, 0]}, 
          SymbolShape -> {PlotSymbol[Box]}, AxesOrigin -> {0, 0}, 
          FrameLabel -> \ {"", "", "", "Cell-associated labeled insulin"}, Frame -> True, 
          DisplayFunction -> \ 
            Identity];\)\(
\)\(
\)
    \)\)\)

InsData = 
        Show[FigIRIns, FigInsData, 
          FrameLabel -> {"log insulin [nM]", "Associated labeled \
insulin [cpm/µg DNA]"}, DisplayFunction -> $DisplayFunction, 
          ImageSize ->  400];

\(\(\(
\)\(
\)\(
\)\(\(Klein2002phos = {{\(-2\), 0.035398230088495575`}, {\(-1\), 
            0.08495575221238938`}, {0, 0.39292035398230085`}, {1, 
            0.6300884955752213`}, {2, 
            0.6725663716814159`}};\)


    \(Klein2002phosEB = {{\(-2\), 0.035398230088495575`*facphos}, {\(-1\), 
            0.08495575221238938`*facphos}, {{0, 
              0.39292035398230085`*facphos}, 
            ErrorBar[{\(-0.035398230088495575`\)*facphos, 
                0.035398230088495575`*facphos}]}, {{1, 
              0.6300884955752213`*facphos}, 
            ErrorBar[{\(-0.07079646017699115`\)*facphos, 
                0.07079646017699115`*facphos}]}, {{2, 
              0.6725663716814159`*facphos}, 
            ErrorBar[{\(-0.08495575221238938`\)*facphos, 
                0.08495575221238938`*facphos}]}};\)

 (*\ 
      Projection\ of\ experimental\ data\ on\ model\ output\ *) 


    \(IRphosFit = Fit[Klein2002phos, IRphosLog, ex];\)\)\)\)

\(\(\(
\)\(
\)\(\(FigIRphos = 
        Plot[IRphosLog, {ex, \(-2\), 2}, 
          PlotStyle -> {RGBColor[0, 0, 0]}, 
          FrameLabel -> \ {"log Insulin [nM]", "Fraction"}, \ 
          Frame -> \ True, DisplayFunction -> \ Identity, 
          PlotRange -> \ {All, {0, 
                0.8}}];\)


    \(ScalingPhos = 
        IRphosLog/
          IRphosFit;\)



    FigAktData = 
      MultipleListPlot[
        Evaluate[Klein2002phosEB /. facphos -> ScalingPhos[\([1]\)]], 
        SymbolStyle -> {RGBColor[1, 0, 0]}, 
        DisplayFunction -> \ Identity, 
        SymbolShape -> {PlotSymbol[
              Box]}, 
AxesOrigin -> {0, 0}, 
        FrameLabel -> \ {"", "", "", "fmol/(fmol*min)"}, 
        Frame -> True]


    PhosData = 
      Show[FigIRphos, FigAktData, 
        FrameLabel -> {"log insulin [nM]", "Fraction of phosphorylated receptors"}, PlotRange -> \ {All, All}, 
        DisplayFunction -> $DisplayFunction, 
        ImageSize -> \ 400]\)\)\)