* Modele no. 1 du manuel sur 
* ADOPTION ET L"IMPACT DES NOUVELLES TECHNOLOGIES
* William Masters et Jeffrey Vitale (Purdue Univ.), nov. 1998
* 1145 Krannert Bldg., West Lafayette IN 47907
* ph. 1 765 494 4235, fax 1 765 494 9176
* masters@agecon.purdue.edu; vitale@agecon.purdue.edu
*
* Rappelez-vous que les lignes etoilles sont des commentaires,
* qui ne seront pas lu par GAMS.  Les mots en lettres majuscules
* sont des mot-clefs qui signalent le type d'element qui sera defini.
* La fin de la definition est signalee par un point-virgule.
* Tout element du modele doit etre declare avant d'etre utilise.
* Pour ecrire chaque equation, on doit donc declarer les ensembles 
* avant tout, suivi de tous les elements qui vont  entrer dans l'equation. 
*  
* Notre premier equation est l'objectif du modele:

SET i /sorgho,  mil, niebe/ ; 
EQUATION objectif;
POSITIVE VARIABLE X(i);
VARIABLES profit;
PARAMETER P(i), Y(i), c(i) ;
objectif ..  profit =E= SUM(i, P(i)*Y(i)*X(i) - c(i)*X(i));

* La deuxieme equation est la contrainte des terres disponibles:

EQUATION terres;
PARAMETER S;
terres .. SUM( i, X(i)) =L= S;

* La structure mathematique du modele etant complete, il
* vous reste a entrer les donnes.  Notez bien les unites, car
* il est facile de se tromper.  On commence avec
* la superficie totale disponible (hectares)

S = 16;

* le rendement de chaque speculation (kg/ha)
Y('sorgho') = 570;  
Y('mil') = 570;  
Y('niebe') = 1300;  

* les couts de production pour chaque speculation (FCFA/ha)
c('sorgho') = 1500;  
c('mil') = 1500;  
c('niebe') = 1500;  

* les prix recus ou payes (FCFA/kg)
P('sorgho') = 99;
P('mil') = 97;
P('niebe') = 175;

* Nous pouvons maintenant preciser le nom du modele et
* les equations qui en font partie.  Notez que l'on peut faire
* plusieurs modeles dans un seul fichier.

MODEL modele1 /objectif, terres/ ;

* Et finalement on peut demander au logiciel de trouver 
* la solution de ce modele, en precisant dans quel direction 
* il faut optimiser (max ou min) et avec quel methode.  Ici c'est
* la programmation lineaire (LP).

SOLVE modele1 maximizing profit using LP;