(** A CIA VT produz televisores em cores e preto e branco. Uma pesquisa indicou que mensalmente podem ser vendidos no máximo 4000 unidades de aparelhos a cores e 1000 preto-e-branco. O setor informou que o número de homens-hora disponíveis por mês é 50000, sabe-se que um aparelho colorido requer 20 homens-hora e um aparelho preto-e-branco 15. O departamento de vendas informou que para atender os pedidos efetuados este mês, deverão ser produzidos,  no mínimo, 800 aparelhos coloridos. Os aparelhos são embalados em caixas de papelão e o departamento de matéria-prima informou que, por uma falha de previsão, existem disponíveis 4200 caixas para a embalagem de aparelhos para e para este mês não está prevista nova compra de caixas. Os lucros unitários dos aparelhos são 5000 por colorido e 2800 por preto-e-branco. Deseja-se estabelecer o plano de produção que produzirá o lucro máximo para esta indústria. **)

a=RegionPlot[x≤4000&&y≤1000&&x+y≤4200&&x≥800&&20 x+15 y≤50000,{x,0,3000},{y,0,1500},PlotPoints->30];

b=ContourPlot[5000 x + 2800 y,{x,0,3000},{y,0,1500},ContourShading->False,ContourLabels->True,Contours->30];

Show[a,b]