anchor.diff:      let matriculas = List.map fst data
       let personalInfo =
           matriculas |> List.map (fun matricula ->
  -            query {for A in Sql.GetDataContext().Intranet.Alumnos do
  +            query {for A in ctx.Intranet.Alumnos do
                      where (A.Matricula = matricula)
                      select A})
                      |> Seq.concat
  
positive.code:        | _ -> None
  
  let obtener_prediccion_profesor periodo parcial nombre apellidos =
      Sql.GetDataContext().Procedures.GruposProfesor.Invoke(periodo, parcial, nombre, apellidos).ResultSet
          |> Seq.toList
          |> List.map (fun r -> (*r.ColumnValues |> Seq.map fst
                                               |> Seq.iter (printfn "%A")*)
  
negative.code: 
  
  let rec actualiza_modelo_nominal materia periodoInicial periodoFinal parcial aid clase continuo rutaMaterias atributos matrizConfusion precision numeroInstancias correctas modelo instancias =
      let guarda () = 
          printfn "Guardando modelo construido por: %s" clase
          let registro = ctx.Intranet.ModelosNominales.Create()
  