src/HOL/Matrix/FloatSparseMatrixBuilder.ML
changeset 46532 89970ca96284
parent 46531 eff798e48efc
equal deleted inserted replaced
46531:eff798e48efc 46532:89970ca96284
     1 (*  Title:      HOL/Matrix/FloatSparseMatrixBuilder.ML
     1 (*  Title:      HOL/Matrix/FloatSparseMatrixBuilder.ML
     2     Author:     Steven Obua
     2     Author:     Steven Obua
     3 *)
     3 *)
     4 
     4 
     5 signature FLOAT_SPARSE_MATIRX_BUILDER =
     5 signature FLOAT_SPARSE_MATRIX_BUILDER =
     6 sig
     6 sig
     7   include MATRIX_BUILDER
     7   include MATRIX_BUILDER
     8 
     8 
     9   structure cplex : CPLEX
     9   structure cplex : CPLEX
    10 
    10 
    42   val cplexProg : vector -> matrix -> vector -> cplex.cplexProg * (string -> int)
    42   val cplexProg : vector -> matrix -> vector -> cplex.cplexProg * (string -> int)
    43   (* dual_cplexProg c A b *)
    43   (* dual_cplexProg c A b *)
    44   val dual_cplexProg : vector -> matrix -> vector -> cplex.cplexProg * (string -> int)
    44   val dual_cplexProg : vector -> matrix -> vector -> cplex.cplexProg * (string -> int)
    45 end;
    45 end;
    46 
    46 
    47 structure FloatSparseMatrixBuilder : FLOAT_SPARSE_MATIRX_BUILDER =
    47 structure FloatSparseMatrixBuilder : FLOAT_SPARSE_MATRIX_BUILDER =
    48 struct
    48 struct
    49 
    49 
    50 type float = Float.float
    50 type float = Float.float
    51 structure Inttab = Table(type key = int val ord = rev_order o int_ord);
    51 structure Inttab = Table(type key = int val ord = rev_order o int_ord);
    52 
    52