anchor.diff:              let rec loop nbOfMoves currentQuality improvement :(int*ArrayAdjacencyGraph<int,int*int,float>*float)=
   
                   let qualityNew = modularityQuality currentResolution
  -                printfn "Number of communities = %A" ((graph.GetLabels()|> Array.map(snd)|> Array.distinct |> Array.length)-1)
   
                   let build (shouldIBuild:bool) :int*ArrayAdjacencyGraph<int,(int*int),float>*float=
   
  
positive.code:                 | None      -> 0.
      
      //Contains the code for the Louvain method for community detection.
      //Blondel, Vincent D; Guillaume, Jean-Loup; Lambiotte, Renaud; Lefebvre, Etienne (9 October 2008). "Fast unfolding of communities in large networks". Journal of Statistical Mechanics: Theory and Experiment. 2008
      let private louvainMethod (g1:ArrayAdjacencyGraph<'Vertex,'Label,float>) (randomized:bool) (modularityIncreaseThreshold: float) (resolution: float) : (ArrayAdjacencyGraph<'Vertex,'Label*int,float>) = 
          
          //Create the vertices for the output graph and a new one for further computation
  
negative.code:                         let calculation = resolution*((sumIntern/2.)/(totalWeight/2.))-((totalSumC/totalWeight)**2.)
  
                          q <- (q+(calculation))
                  q
  
              let newModQ resolution :float =
                  let f = resolution
                  let mutable q = 0. 
                  for i in communitySumtotalSumintern do
                      let (totalSumC,sumIntern) = i.Value
                      if totalSumC > 0. then 
                          let calculation = ((sumIntern)-(totalSumC*totalSumC) / totalWeight)
                  
                          q <- (q+(calculation))
  
                  (q/totalWeight)
                         
              //Minimal increase in modularity Quality that has to be achieved. If the increase in modularity is lower, then the first phase of the louvain Algorithm ends and a new iteration can begin.
              let increaseMin = modularityIncreaseThreshold //0.000001
  
  