4.Reprezentarea inf referitoare la rata somajului pe judete. Fiecare judet colorat cu nuante diferite in fct de valori
 (minim 3 culori). Nr de culori si persoane se preiau dintr-o foaie de calcul  Excel.

Fiserul excel contine:

pe prima line nr de culori( intervale). In functie de nr culori de introduc nr. culori - 1 intervale. 
Aceste valori se introduc intr-un vector de nr. culori elemente. In functie de valoarea ratei se va folosi o culoare 
calculata pe baza indicelui capatului de interval. 
Pe liniile urmatoare prima coloana reprezinta ID-ul poligonului( care reprezinta judetul), iar urmatoarele somerii, 
judetul, nr total pop, rata somaj.

Ex. fis. Det_Jud.xls:
8	1	3	5	7	8	9	10
3	33000	Constanta	300000	11			
4	4683	Brasov	200000	2.3415			
7	6298	Sibiu	100000	6.298			

Pe pagina:
to handle mouseEnter
if object of target = "IrregularPolygon"
		local int rez, nr_culori		
        local string temp,judet
        local real intervale[]
        local real nr_som,nr_pop,val_rata
        
        getRemote "R1C1" application "excel" topic "Det_Jud.xls"
        put it into temp
        nr_culori = word 1 of temp  
        
     --aflu intervalele si numarul de culori
     step j from 2 to nr_culori
         getRemote "R1C"&j application "excel" topic "Det_Jud.xls"
         put it into temp
         intervale[j - 1]  = word 1 of temp  
     end step 

     --citesc excelul si coloraz in funtie de val rata som poligonul
     step j from 2 to 4
      getRemote "R"&j&"C1" application "excel" topic "Det_Jud.xls"
      put it into temp
      rez = word 1 of temp  
		if (idNumber of target = rez)
-- 		  step i from 2 to 4
		    --getremote "r"&j&"c"&i application "excel" topic "Det_Jud.xls"
		    getremote "r"&j&"c2" application "excel" topic "Det_Jud.xls"
		        put it into temp
                nr_som = word 1 of temp  
                
           getremote "r"&j&"c3" application "excel" topic "Det_Jud.xls"
		        put it into judet
           
            getremote "r"&j&"c4" application "excel" topic "Det_Jud.xls"
		    put it into temp
            nr_pop = word 1 of temp       
            
            val_rata = (nr_som/nr_pop)*100
-- 		  end step  
  		  
  		  step i from 1 to (nr_culori - 1)
  		       if i < (nr_culori - 1) then
  		           if val_rata < intervale[i]
  		              rgbfill of target = 0 + 200/(i+1),0 + 200/(i+1),0 + 200/(i+1)
              		  i = nr_culori    		              
  		           end if
  		       else 
  		           if val_rata < intervale[i]
  		              rgbfill of target = 0 + 200/(i+1),0 + 200/(i+1),0 + 200/(i+1)
  		              else
  		              rgbfill of target = 255,0,0
  		           end if
  		       end if   
  		  end step
                                       
         		   --golesc lista
  		   text of field "lista" = ""

                                      --adaug date in lista  		   
  		   word 1 of textline 1 of text of field "lista" = "Judetul "&judet
  		   word 1 of textline 2 of text of field "lista" = CRLF
  		   word 1 of textline 3 of text of field "lista" = "Populatie "&nr_pop
  		   word 1 of textline 4 of text of field "lista" = CRLF
  		   word 1 of textline 5 of text of field "lista" = "Someri "&nr_som
  		   word 1 of textline 6 of text of field "lista" = CRLF
  		   word 1 of textline 7 of text of field "lista" = "Rata Somaj "&val_rata
  		  
  		  j = 4
		end if	
	 end step
	end if	  
	
	forward
end

to handle mouseLeave
	if object of target = "IrregularPolygon"
		if (idNumber of target>0) and (idNumber of target<11)
			rgbfill of target =255,255,255
		end if
	end if
	forward
end