-- Constraints.. 
--
-- on meeting the load at any instant the combination of all
-- services should satisfy load demand.

capacityConstraints loadPattern = [ (linCombination (
                                            [ (1.0, "onDemand_" ++ period) ]
                                          ++[(1.0, "reserved_" ++ k ++ "_" ++ period) | k <- reservationTypes]
                                          ),
                                          load)
                                            | (period,load) <- (Map.assocs loadPattern)]
capacityConstraints loadPattern = [ (linCombination (
                                            [ (1.0, "onDemand_" ++ period) ]
                                          ++[(1.0, "reserved_" ++ k ++ "_" ++ period) | k <- reservationTypes]
                                          ),
                                          load)
                                            | (period,load) <- (Map.assocs loadPattern)]
capacityConstraints loadPattern = [ (linCombination (
                                            [ (1.0, "onDemand_" ++ period) ]
                                          ++[(1.0, "reserved_" ++ k ++ "_" ++ period) | k <- reservationTypes]
                                          ),
                                          load)
                                            | (period,load) <- (Map.assocs loadPattern)]