bieding(Bod, Afzender, Aantal, Bestemming, [], Prijsaanp, Pos) :-
	Maxbod is abs((Bestemming-Afzender)*Aantal),
	Bod is random(Maxbod)+ 0.5.

bieding(Bod, Afzender, Aantal, Bestemming, [opdracht(_, Af, Aa, Be, Wi)|_], Prijsaanp, Pos) :-
    Oud is abs(Be-Af)*Aa,
    Nieuw is abs(Bestemming-Afzender)*Aantal,
    Ratio is Nieuw/Oud,
    0.75<Ratio,
	Ratio<1.25,
	Bod is Wi+3.

bieding(Bod, Afzender, Aantal, Bestemming, [opdracht(_, Af, Aa, Be, Wi)|T], Prijsaanp, Pos) :-
	Oud is abs(Be-Af)*Aa,
    Nieuw is abs(Bestemming-Afzender)*Aantal,
   	Ratio is Nieuw/Oud,
    (0.75>Ratio; Ratio>1.25),
	bieding(Bod, Afzender, Aantal, Bestemming, [T], Prijsaanp, Pos).