anchor.diff:  					;(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)))
  +		(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))
   
   
  
positive.code: 						;(setf job-task-w-const-copia (make-job-task-w-constr :job-task job-task-actual :virtual-time (+ virt-time task-duration)))
  						(setf job-task-w-const-copia (make-job-task-w-constr :job-task job-task-actual :virtual-time (max virt-time virtual-time-inc)))
  			      		(setf (aref estado job-nr task) job-task-w-const-copia)))))	
  
  (defun propaga-restr-tempo-maquina (estado maquina job-nr last-start-time task-duration)
    (let* ((virtual-time-inc (+ last-start-time task-duration))
  
negative.code: 	    	 (copia-task nil)
  	    	 (tempo-maquina-actual nil)
  	    	 (tempos-maquinas-actual nil)
  	    	 (tasks-to-assign-actual nil)
  	    	 (min-state-value most-positive-fixnum)
  	    	 (sucessor-list nil))
  
  	    (if (not (null prox-task))
  			(progn
  