anchor.diff:      obj
   
   let algoritmos_clasificadores () =
  -    query {for A in Sql.GetDataContext().Intranet.AlgoritmosClasificadores do
  +    query {for A in ctx.Intranet.AlgoritmosClasificadores do
              select A}
              |> Seq.toList
              |> List.map (fun A -> A.MapTo<AlgoritmoClasificador>())
   
   let obtenerModeloNominal periodoInicial periodoFinal parcial clave =
  -    query {for A in Sql.GetDataContext().Intranet.ModelosNominales do
  +    query {for A in ctx.Intranet.ModelosNominales do
              where (A.Materia = clave && A.PeriodoInicial = periodoInicial &&
                     A.PeriodoFinal = periodoFinal && A.Parcial = parcial)
              select (A)}
  
positive.code: 
  
  let rec actualiza_modelo_nominal materia periodoInicial periodoFinal parcial aid clase continuo rutaMaterias atributos matrizConfusion precision numeroInstancias correctas modelo instancias =
      let ctx = Sql.GetDataContext()
      let guarda () = 
          printfn "Guardando modelo construido por: %s" clase
          let registro = ctx.Intranet.ModelosNominales.Create()
  
negative.code:        | _ -> guarda ()
  
  let rec actualiza_prediccion_kardex mId matricula periodo estatus =
      let guarda () =
          //printfn "Guardando prediccion construido por: %s" clase
          let registro = ctx.Intranet.PrediccionKardex.Create()
  