/* GRAZE

Formula for biomass exchange due to grazing

Alan Bundy, 8.9.83 */


isform(graze, situation(Grazer, Grazed, Time), Food=A*BioMass)
	:- ncc grazes(Grazer,Grazed),
	   cc biomass(Grazed, Time, BioMass),
	   cc rate_of_grazing(Grazer, A),
	   cc grazing(Grazer, Grazed, Time, Food).

prepare(graze, F, biomass, grazing(Gr,Gd,T,F), situation(Gr,Gd,T)).
		% form situation in most direct way

relates(graze, [biomass,dimensionless]). % graze relates biomass and dimensionless

preference(graze,1).	% graze is a first preference formula


