Algoritmo+de+força+bruta+em+VBA

=O algoritmo só ira escrever o valor máximo da função lucro no x e y correspondente= F(x, y) = 15x + 25y

tem as seguintes restriçoes: f(x) = x + 2y ; g(x) = 3x + 3y

/*---*/ Sub algoritmo_forca_bruta Dim maximo As Integer Dim valorx As Integer Dim valory As Integer Dim total As Integer maximo = 0 valorx = 0 valory = 0 For x = 0 To 70 For y = 0 To 40 If ((x + 2 * y <= 70) And (3 * x + 3 * y <= 120)) Then total = 15 * x + 25 * y If (total > maximo) Then maximo = total valorx = x valory = y

End If End If Next y Next x Range("A1").Cells = "Programação Linear" Range("A2").Cells = "Lucro Máximo" Range("A3").Cells = maximo Range("B2").Cells = "Valor de x" Range("B3").Cells = valorx Range("C2").Cells = "Valor de y" Range("C3").Cells = valory End Sub

O código ira mostrar o seguinte:

Tutorial antes de executar o ficheiro __excel 2007__.
1- Abra o excel. 2- Carregue no __**botão office**__.

3- Carregue nas **__opçoes do excell__**.

4 No **__popular__** permita **__Mostrar Separador Programador__** no Friso.

5- No friso carregue em **programador**.

6- No Separador Programador Carregue em **Segurança de macros**.

7- Nas **definiçoes de macro** escolha **activar todas as macros (Não recumen...).**

8- __**Faça o dowload do ficheiro Livro1.xlsm e abra-o no excel 2007.**__

Dowload do Ficheiro
==

9- De seguida no fixeiro Livro1.xlsm carregue em __**programador.**__

10- Carregue em __**Vsual basic**__. Ira abrir uma nova janela.

11- Depois na nova janela que apareceu **__precione F5__,** para correr o algoritmo. 12- Se for a janela do excell vera o resultado.