/* PHOTO

Formula for biomass gain due to photosynthesis

Alan Bundy, 8.9.83 */


isform(photo, situation(Vegetable, Time), Photo=PhSyn*BioMass)
	:- ncc vegetable(Vegetable),
	   cc biomass(Vegetable, Time, BioMass),
	   cc rate_of_photosynthesis(Vegetable, PhSyn),
	   cc photosynthesis(Vegetable, Time, Photo).

prepare(photo, P, biomass, photosynthesis(V,T,P), situation(V,T)).
		% form situation in most direct way

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

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


