0.3},

Production

{}, Resources

{15, 75}}

eq22 = Equilibrium[pars22]

AllocationTable[Allocation[pars22]

shares22 = (FactorPrices /. eq22) * (Resources /. pars22) / (YEq /. eq22)

cpc22 = CPCDiagram[pars22, AxesLabel