{}, Resources

{15, 75, 10}}

eq = Equilibrium[ownpars]

AllocationTable[Allocation[ownpars]

shares = (FactorPrices /. eq) * (Resources /. ownpars) / (YEq /. eq)

cpc23 = CPCDiagram[ownpars, AxesLabel

{“Sheltered”, “Exposed”},