1
1
__precompile__ ()
2
2
module ReduceLinAlg
3
- importall Reduce
4
- using Compat
5
- import Compat. String
3
+ using Reduce, LinearAlgebra
6
4
7
5
# This file is part of ReduceLinAlg.jl. It is licensed under the MIT license
8
6
# Copyright (C) 2018 Michael Reed
9
7
10
- const VectorAny = Union{Vector,RowVector }
8
+ const VectorAny = Union{Vector,Adjoint }
11
9
12
10
const lin = [
13
11
:hessian ,
@@ -40,8 +38,8 @@ for fun in lin
40
38
@eval begin
41
39
$ (Reduce. parsegen (fun,:args ))
42
40
$ (Reduce. unfoldgen (fun,:args ))
43
- function $fun (expr:: Compat. String ,s... ;be= 0 )
44
- convert (Compat . String, $ fun (RExpr (expr),s... ;be= be))
41
+ function $fun (expr:: String ,s... ;be= 0 )
42
+ convert (String, $ fun (RExpr (expr),s... ;be= be))
45
43
end
46
44
end
47
45
end
@@ -50,15 +48,15 @@ for fun in unr
50
48
@eval begin
51
49
$ (Reduce. parsegen (fun,:unary ))
52
50
$ (Reduce. unfoldgen (fun,:unary ))
53
- function $fun (expr:: Compat. String ;be= 0 )
54
- convert (Compat . String, $ fun (RExpr (expr);be= be))
51
+ function $fun (expr:: String ;be= 0 )
52
+ convert (String, $ fun (RExpr (expr);be= be))
55
53
end
56
54
end
57
55
end
58
56
59
57
const MatExpr = Union{Array{Any,2 },Array{Expr,2 },Array{Symbol,2 },Expr,Symbol}
60
58
61
- band_matrix (r:: Union{Vector,RowVector ,Expr,Symbol} ,v:: Integer ) = band_matrix (list (r),v) |> parse
59
+ band_matrix (r:: Union{Vector,Adjoint ,Expr,Symbol} ,v:: Integer ) = band_matrix (list (r),v) |> parse
62
60
band_matrix (r:: T ,v:: Integer ) where T <: Tuple = band_matrix (RExpr (r),v) |> parse
63
61
block_matrix (r:: Integer ,c:: Integer ,s:: VectorAny ) = block_matrix (RExpr (r),RExpr (c),list (s)) |> parse
64
62
block_matrix (r:: Integer ,c:: Integer ,s:: T ) where T <: Tuple = block_matrix (RExpr (r),RExpr (c),RExpr (s)) |> parse
0 commit comments