anchor.diff:  
   
   (defun calendarizacao (job-shop-problem procura-str) 
  -  (let ((internal-problema (converte-para-estado-interno job-shop-problem))
  +  (let ((internal-problema nil)
   		(result nil))
  -    (cond ((string-equal procura-str "ILDS") (setf result (ilds internal-problema 100)))
  -	  	  ((string-equal procura-str "Iterative-Sampling") (setf result (sondagem-iterativa internal-problema)))
  -	  	  ((string-equal procura-str "Local-Beam") (setf result (beam-search internal-problema 10 25)))
  +    (cond ((string-equal procura-str "ILDS") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +    										  (setf result (ilds internal-problema 100)))
  +	  	  ((string-equal procura-str "Iterative-Sampling") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +	  	  													(setf result (sondagem-iterativa internal-problema)))
  +	  	  ((string-equal procura-str "Local-Beam") (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +	  	  										    (setf result (beam-search internal-problema 10 25)))
   	  	  (t
  -	    	(setf result (procura internal-problema procura-str :espaco-em-arvore? T))))
  +	    	 (setf internal-problema (converte-para-estado-interno job-shop-problem #'heuristica-tempo-final-v2))
  +	    	 (setf result (procura internal-problema procura-str :espaco-em-arvore? T))))
       (if (not (null result))
       	(if (not (listp (car result)))
       		(converte-para-visualizacao (car result))
  
positive.code: 	(setf state-job (make-state-job-schedule :machine-times (make-array (list 2 (job-shop-problem-n.machines job-shop-prob)))
  											 :non-allocated-tasks tasks-to-assign
  											 :number-tasks n-total-tasks
  											 :jobs-tasks-space estado-inicial))
  
  	(cria-problema state-job operadores :objectivo? #'estado-objectivo :hash #'hash-generator :estado= #'estados-iguais :heuristica #'heuristica-tempo-final-v2)))
    
  
  (defun proxima-tarefa (estado job)
  
negative.code: 					;(setf max-time-machine (- tempo-actual last-task-duration)))))
  
  		;calcular valor da heuristica no estado
  		(setf heuristica-value (* (/ n-tarefas-nao-alocadas (* n-maquinas total-number-tasks)) (+ max-time-machine 
  																								  remaining-task-durations
  																								  (* 0.9 (- (maquina-gastou-mais-tempo estado) 1)))))
  		heuristica-value))
  
  
  