Resultaat zo dicht mogelijk bij nul (positief of negatief)

[cdw]

Beste leden,

Ik heb een moeilijke vraag waarvoor ik maar geen oplossing vind:shocked:
Het probleem:
Twee vaste waarden bv. 300 en 350 moeten in combinatie met elkaar een aantal keren voorkomen in een waarde (in te geven variabele) zodat het optel resultaat zo dicht mogelijk bij 0 licht (+ of -).
Voorbeeld 10000-(300*X+350*Y)=? (10000 = variabele en ? = zo klein mogelijk).
Kan dit door een formule op te stellen waarbij de X en Y waarden wisseld veranderen tot het gewenste resultaat bekomen wordt,
10000-(300*X+350*Y)=0
10000-(300*17+350*14)=0 (X=17 en Y=14 - OK)
Ander voorbeeld:
9550-(300*12+350*17)=0 (X=12 en Y=17 - OK)

Wie kent de oplossing?
Bedankt en groeten
Chris

 

[WHER]

Dit kan je met Solver aanpakken, zie bijlage.

 

[danny147]

Beste Wher,

Mooie aanpak, enkel heb ik het eens uitgetest met andere waarden, nl: waarde 40 en 7 en 2

Als resultaat geeft hij mij x=6 en Y=-1 ???
7x6= 42 - 2x-1= -2 --> totaal 42-40= 0

Waarom niet x=4 en Y=6
7x4= 28 - 2x6= 12 --> totaal 28 + 12= 40

Ligt het aan de opties ?

Groetjes Danny. :thumb:

 

[cdw]

Waarschijnlijk heb ik de vraag onduidelijk gesteld

Alvast bedankt voor jullie antwoord.
Waarschijnlijk heb ik de vraag niet goed geformuleerd.
De waarde die ik wil kennen is de X en de Y.
Met hoeveel maal moet ik 300 vermenigvuldigen (X-waarde) en met hoeveel maal 350 (Y-waarde) opdat de som van de beiden gelijk zou zijn (of zo dicht mogelijk benaderen) aan het basis getal. X en Y dienen gehele getallen te zijn.
9550-(300*12+350*17)=Z waarbij Z zo dicht mogelijk bij de Nul waarde komt => hoe kunnen de X en Y waarden bepaald worden?

Bedankt
Chris

 

[danny147]

Beste cdw

Je hebt het antwoord gekregen van Wher !

Alleen moet je het juist gebruiken.

Zorg ervoor dat de cellen B5 en B6 op nul staan.
In cel D4 geef je het bedrag in.
Ga dan op cel D8 staan --> ga dan naar menu GEGEVENS en klik op OPLOSSER.
Klik dan op OPLOSSEN en op OK

Kijk dan naar de X en de Y-waarden.
X staat in B5 en Y staat in B6

Groetjes Danny. :thumb:

 

[cdw]

Beste Wher en Danny147,

Bedankt voor de oplossing maar bij mij werkt dat niet.
Ik vermoed dat ik iets fout doe of dat er iets fout afloopt.
Daarom heb ik drie afbeeldingen gemaakt van wat ik op mijn scherm zie.
In iedergeval krijg ik geen X en Y waarden.

Kan je mij zeggen hoe dat komt?
Bedankt.
Chris
Bekijk bijlage 1.bmp
Gezien de bestands grootte overschreden wordt volgen nog twee reacties met de andere bestanden

 

[cdw]

Afbeelding 3 kan ik onvoldoende verkleinen maar de opmerking in Oplosser is:
Er is een fout opgetreden in het model. Controleer of alle cellen en randvoorwaarden geldig zijn.
Mogelijk zijn bepaalde cellen die geen variabele cellen zijn, gemarkeerd als Geheelgetallig, Bineair of AllDifferent.

 

[WHER]

Beste cdw,
In bijlage 2 printscreens van hoe ik dit proces op mijn scherm zie. Waar het probleem bij jou precies zit, daar kan ik niet zo direct de vinger op leggen.

 

[mcs51mc]

Beste Wher,
...ik het eens uitgetest met andere waarden, nl: waarde 40 en 7 en 2

Als resultaat geeft hij mij
x=6 en Y=-1 ??? 7x6= 42 - 2x-1= -2 --> totaal 42+(-2)= 0
Waarom niet
x=4 en Y=6 7x4= 28 - 2x6= 12 --> totaal 28 + 12= 40

Cel D4=40
Cel A5=2 en cel A6=7 dan krijg ik wel als oplossing Cel B5=6 en cel B6=4

Ik heb ook al volgende oplossing gekregen
0 voor 7 en 20 voor 2 : is ook 0 + 40 = 40
2 voor 7 en 13 voor 2 : is ook 14 + 26 = 40
Wanneer je naar een specifieke oplossing zoekt zal je bijkomende voorwaarden moeten zetten in de solver.

Voor de fun probeer eens D4= 123456; A5= 300 en A6= 350
Ga gerust een koffie pakken... ... ...

Bottom line bij mij werkt het ook!
Welke versie van Excel heb je cdw???

 

[WHER]

Zoals Danny in post #3 opmerkt, mag er nog een extra voorwaarde bij: B5:B6>=0, cdw wil waarschijnlijk geen negatieve waarden als oplossing voor X en Y.

 

[sylvester-ponte]

hallo allemaal
ik probeer een macro op te nemen met de solver om de te helpen , en er wordt iets opgenomen met "Solverok"
als ik hem uitvoer krijg ik een foutmelding dat de sub of function niet gedefinieerd is ???
wat is er aan de hand?
ik zal wel weer iets fout doen denk ik

groet sylvester

 

[mcs51mc]

hallo allemaal
ik probeer een macro op te nemen met de solver om de te helpen , en er wordt iets opgenomen met "Solverok"

Een macro :shocked:
Je hebt geen macro nodig om het probleem op te lossen met de Solver aka Oplosser in NL versie
Solver/Oplosser is een "Add-In", een "Invoegtoepassing", heb je die wel ingeschakeld/geïnstalleerd?

Voor alle duidelijkheid de Solver/Oplosser vind je in het lint via Data\Analyse\Oplosser.

 

[Thoralf]

@ mcs51mc,
Je moet er dan ook nog eve bij vermelden dat je SOLVER ook nog als invoegtoepassing onder VBA moet isnstalleren. Daar komt namelijk de foutboodschap vandaan als je SOLVER in een macro wilt toepassen.

 

[sylvester-ponte]

Thoralf, mcs51mc
lukt het jullie wel om de solver met een macro te gebruiken?
stuur hem eens op aub

groet sylvester

 

[mcs51mc]

Aha, je wil de solver starten vanuit een macro ?!?
Had ik dat nog niet begrepen man, shame on me
Enfin, met deze code werkt het perfect bij mij

    SolverReset
    SolverOk SetCell:="$D$8", _
             MaxMinVal:=2, _
             ValueOf:=0, _
             ByChange:="$B$5:$B$6", _
             Engine:=1, _
             EngineDesc:="GRG Nonlinear"
    SolverSolve userFinish:=True

Maar......... je moet eerst een referentie leggen naar de Solver in VBA, zoals Thoralf reeds vermeldde !
Dat doe je via Tools\References en dan in de lange lijst zoeken naar "Solver" en die aanvinken.

Komt die niet voor in de lijst, dan moet je de VBA help eens lezen
Before you can use the Solver VBA functions in the Visual Basic Editor, you must establish a reference to the Solver add-in. In the Visual Basic Editor, with a module active, click References on the Tools menu, and then select Solver under Available References. If Solver does not appear under Available References, click Browse, and then open Solver.xlam in the \Program Files\Microsoft Office\Office14\Library\SOLVER subfolder.



Hopelijk lukt het dan ook bij jouw... ...