TITLE
    WyndorGlassDual;

INDEX
    product :=  (Door, Window);
    plant   :=  1..3;

DATA
    TimeAvail[plant]             := (4, 12, 18); 

    ProdTime[plant, product]     := (1, 0,
                                     0, 2,
                                     3, 2);

    Profit[product]               := (3.00, 5.00);
 
VARIABLES
    TimeCapShadow[plant];                            

MODEL

    MIN  TotalProfit = SUM(plant: TimeAvail * TimeCapShadow);

SUBJECT TO

    ProduceDual[product]:

        SUM(plant: ProdTime * TimeCapShadow)  >= Profit;

END