Mercurial > repos > public > sbplib_julia
annotate DiffOps/src/laplace.jl @ 282:ce6a2f3f732a boundary_conditions
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
author | Vidar Stiernström <vidar.stiernstrom@it.uu.se> |
---|---|
date | Thu, 09 Jan 2020 10:54:24 +0100 |
parents | 1eefaefdd0c7 |
children | 12a12a5cd973 |
rev | line source |
---|---|
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
1 struct Laplace{Dim,T<:Real,N,M,K} <: TensorOperator{T,Dim} |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
2 grid::EquidistantGrid{Dim,T} |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
3 a::T # TODO: Better name? |
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
4 op::D2{T,N,M,K} |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
5 end |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
6 export Laplace |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
7 |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
8 LazyTensors.domain_size(H::Laplace{Dim}, range_size::NTuple{Dim,Integer}) where Dim = size(L.grid) |
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
9 |
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
10 function LazyTensors.apply(L::Laplace{Dim,T}, v::AbstractArray{T,Dim}, I::NTuple{Dim,Index}) where {T,Dim} |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
11 error("not implemented") |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
12 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
13 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
14 # u = L*v |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
15 function LazyTensors.apply(L::Laplace{1,T}, v::AbstractVector{T}, I::NTuple{1,Index}) where T |
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
16 uᵢ = L.a*apply_2nd_derivative(L.op, inverse_spacing(L.grid)[1], v, I[1]) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
17 return uᵢ |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
18 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
19 |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
20 |
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
21 @inline function LazyTensors.apply(L::Laplace{2,T}, v::AbstractArray{T,2}, I::NTuple{2,Index}) where T |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
22 # 2nd x-derivative |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
23 @inbounds vx = view(v, :, Int(I[2])) |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
24 @inbounds uᵢ = L.a*apply_2nd_derivative(L.op, inverse_spacing(L.grid)[1], vx , I[1]) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
25 # 2nd y-derivative |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
26 @inbounds vy = view(v, Int(I[1]), :) |
282
ce6a2f3f732a
Make Laplace a TensorOperator and add tests. NOTE: Two of the tests for Laplace2D are currently failing.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
281
diff
changeset
|
27 @inbounds uᵢ += L.a*apply_2nd_derivative(L.op, inverse_spacing(L.grid)[2], vy, I[2]) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
28 return uᵢ |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
29 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
30 |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
31 quadrature(L::Laplace) = Quadrature(L.op, L.grid) |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
32 inverse_quadrature(L::Laplace) = InverseQuadrature(L.op, L.grid) |
252
9405c19b76bc
Move boundary_value and similar methods of laplce
Jonatan Werpers <jonatan@werpers.com>
parents:
251
diff
changeset
|
33 boundary_value(L::Laplace, bId::CartesianBoundary) = BoundaryValue(L.op, L.grid, bId) |
9405c19b76bc
Move boundary_value and similar methods of laplce
Jonatan Werpers <jonatan@werpers.com>
parents:
251
diff
changeset
|
34 normal_derivative(L::Laplace, bId::CartesianBoundary) = NormalDerivative(L.op, L.grid, bId) |
259
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
35 boundary_quadrature(L::Laplace, bId::CartesianBoundary) = BoundaryQuadrature(L.op, L.grid, bId) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
36 |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
37 """ |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
38 Quadrature{Dim,T<:Real,N,M,K} <: TensorMapping{T,Dim,Dim} |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
39 |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
40 Implements the quadrature operator `H` of Dim dimension as a TensorMapping |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
41 """ |
280
fe9e8737ddfa
Change to using region indices in apply of BoundaryValue, NormalDerivative and BoundaryQuadrature
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
273
diff
changeset
|
42 struct Quadrature{Dim,T<:Real,N,M,K} <: TensorOperator{T,Dim} |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
43 op::D2{T,N,M,K} |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
44 grid::EquidistantGrid{Dim,T} |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
45 end |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
46 export Quadrature |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
47 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
48 LazyTensors.domain_size(H::Quadrature{Dim}, range_size::NTuple{Dim,Integer}) where Dim = size(H.grid) |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
49 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
50 @inline function LazyTensors.apply(H::Quadrature{2,T}, v::AbstractArray{T,2}, I::NTuple{2,Index}) where T |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
51 N = size(H.grid) |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
52 # Quadrature in x direction |
268
f67ce2eb6019
Remove property spacing in EquidistantGrid, due to redundancy.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
266
diff
changeset
|
53 @inbounds q = apply_quadrature(H.op, spacing(H.grid)[1], v[I] , I[1], N[1]) |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
54 # Quadrature in y-direction |
268
f67ce2eb6019
Remove property spacing in EquidistantGrid, due to redundancy.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
266
diff
changeset
|
55 @inbounds q = apply_quadrature(H.op, spacing(H.grid)[2], q, I[2], N[2]) |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
56 return q |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
57 end |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
58 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
59 LazyTensors.apply_transpose(H::Quadrature{2,T}, v::AbstractArray{T,2}, I::NTuple{2,Index}) where T = LazyTensors.apply(H,v,I) |
273
babc4288e6a6
Dispatch apply(Quadrature) etc on region indices and create utility wrapper function dispatching on standard ints
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
269
diff
changeset
|
60 |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
61 |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
62 """ |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
63 InverseQuadrature{Dim,T<:Real,N,M,K} <: TensorMapping{T,Dim,Dim} |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
64 |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
65 Implements the inverse quadrature operator `inv(H)` of Dim dimension as a TensorMapping |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
66 """ |
280
fe9e8737ddfa
Change to using region indices in apply of BoundaryValue, NormalDerivative and BoundaryQuadrature
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
273
diff
changeset
|
67 struct InverseQuadrature{Dim,T<:Real,N,M,K} <: TensorOperator{T,Dim} |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
68 op::D2{T,N,M,K} |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
69 grid::EquidistantGrid{Dim,T} |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
70 end |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
71 export InverseQuadrature |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
72 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
73 LazyTensors.domain_size(H_inv::InverseQuadrature{Dim}, range_size::NTuple{Dim,Integer}) where Dim = size(H_inv.grid) |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
74 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
75 @inline function LazyTensors.apply(H_inv::InverseQuadrature{2,T}, v::AbstractArray{T,2}, I::NTuple{2,Index}) where T |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
76 N = size(H_inv.grid) |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
77 # Inverse quadrature in x direction |
268
f67ce2eb6019
Remove property spacing in EquidistantGrid, due to redundancy.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
266
diff
changeset
|
78 @inbounds q_inv = apply_inverse_quadrature(H_inv.op, inverse_spacing(H_inv.grid)[1], v[I] , I[1], N[1]) |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
79 # Inverse quadrature in y-direction |
268
f67ce2eb6019
Remove property spacing in EquidistantGrid, due to redundancy.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
266
diff
changeset
|
80 @inbounds q_inv = apply_inverse_quadrature(H_inv.op, inverse_spacing(H_inv.grid)[2], q_inv, I[2], N[2]) |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
81 return q_inv |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
82 end |
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
83 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
84 LazyTensors.apply_transpose(H_inv::InverseQuadrature{2,T}, v::AbstractArray{T,2}, I::NTuple{2,Index}) where T = LazyTensors.apply(H_inv,v,I) |
235
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
85 |
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
86 """ |
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
87 BoundaryValue{T,N,M,K} <: TensorMapping{T,2,1} |
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
88 |
258
3ea8c60ccef3
Fix a few typos in documentation and add a few TODOs
Jonatan Werpers <jonatan@werpers.com>
parents:
255
diff
changeset
|
89 Implements the boundary operator `e` as a TensorMapping |
235
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
90 """ |
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
91 struct BoundaryValue{T,N,M,K} <: TensorMapping{T,2,1} |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
92 op::D2{T,N,M,K} |
255
e960b877e07e
Be more precise about grid dimension in BoundaryValue and NormalDerivative
Jonatan Werpers <jonatan@werpers.com>
parents:
252
diff
changeset
|
93 grid::EquidistantGrid{2} |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
94 bId::CartesianBoundary |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
95 end |
235
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
96 export BoundaryValue |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
97 |
235
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
98 # TODO: This is obviouly strange. Is domain_size just discarded? Is there a way to avoid storing grid in BoundaryValue? |
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
99 # Can we give special treatment to TensorMappings that go to a higher dim? |
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
100 LazyTensors.range_size(e::BoundaryValue{T}, domain_size::NTuple{1,Integer}) where T = size(e.grid) |
244
a827568fc251
Fix NormalDerivative and add tests
Jonatan Werpers <jonatan@werpers.com>
parents:
242
diff
changeset
|
101 LazyTensors.domain_size(e::BoundaryValue{T}, range_size::NTuple{2,Integer}) where T = (range_size[3-dim(e.bId)],) |
235
a5fdc00d5070
Fix a bunch of compilation errors
Jonatan Werpers <jonatan@werpers.com>
parents:
228
diff
changeset
|
102 |
258
3ea8c60ccef3
Fix a few typos in documentation and add a few TODOs
Jonatan Werpers <jonatan@werpers.com>
parents:
255
diff
changeset
|
103 # TODO: Make this independent of dimension |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
104 function LazyTensors.apply(e::BoundaryValue{T}, v::AbstractArray{T}, I::NTuple{2,Index}) where T |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
105 i = I[dim(e.bId)] |
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
106 j = I[3-dim(e.bId)] |
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
107 N_i = size(e.grid)[dim(e.bId)] |
280
fe9e8737ddfa
Change to using region indices in apply of BoundaryValue, NormalDerivative and BoundaryQuadrature
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
273
diff
changeset
|
108 return apply_boundary_value(e.op, v[j], i, N_i, region(e.bId)) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
109 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
110 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
111 function LazyTensors.apply_transpose(e::BoundaryValue{T}, v::AbstractArray{T}, I::NTuple{1,Index}) where T |
280
fe9e8737ddfa
Change to using region indices in apply of BoundaryValue, NormalDerivative and BoundaryQuadrature
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
273
diff
changeset
|
112 u = selectdim(v,3-dim(e.bId),Int(I[1])) |
269
ccef055233a2
Move general methods for D2 to ConstantStencilOperator and increase verbosity of method names for clarity
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
268
diff
changeset
|
113 return apply_boundary_value_transpose(e.op, u, region(e.bId)) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
114 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
115 |
247
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
116 """ |
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
117 NormalDerivative{T,N,M,K} <: TensorMapping{T,2,1} |
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
118 |
258
3ea8c60ccef3
Fix a few typos in documentation and add a few TODOs
Jonatan Werpers <jonatan@werpers.com>
parents:
255
diff
changeset
|
119 Implements the boundary operator `d` as a TensorMapping |
247
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
120 """ |
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
121 struct NormalDerivative{T,N,M,K} <: TensorMapping{T,2,1} |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
122 op::D2{T,N,M,K} |
255
e960b877e07e
Be more precise about grid dimension in BoundaryValue and NormalDerivative
Jonatan Werpers <jonatan@werpers.com>
parents:
252
diff
changeset
|
123 grid::EquidistantGrid{2} |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
124 bId::CartesianBoundary |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
125 end |
247
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
126 export NormalDerivative |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
127 |
247
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
128 # TODO: This is obviouly strange. Is domain_size just discarded? Is there a way to avoid storing grid in BoundaryValue? |
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
129 # Can we give special treatment to TensorMappings that go to a higher dim? |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
130 LazyTensors.range_size(e::NormalDerivative, domain_size::NTuple{1,Integer}) = size(e.grid) |
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
131 LazyTensors.domain_size(e::NormalDerivative, range_size::NTuple{2,Integer}) = (range_size[3-dim(e.bId)],) |
247
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
132 |
ed29ee13e92e
Restructure laplace.jl
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
244
diff
changeset
|
133 # TODO: Not type stable D:< |
258
3ea8c60ccef3
Fix a few typos in documentation and add a few TODOs
Jonatan Werpers <jonatan@werpers.com>
parents:
255
diff
changeset
|
134 # TODO: Make this independent of dimension |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
135 function LazyTensors.apply(d::NormalDerivative{T}, v::AbstractArray{T}, I::NTuple{2,Index}) where T |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
136 i = I[dim(d.bId)] |
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
137 j = I[3-dim(d.bId)] |
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
138 N_i = size(d.grid)[dim(d.bId)] |
268
f67ce2eb6019
Remove property spacing in EquidistantGrid, due to redundancy.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
266
diff
changeset
|
139 h_inv = inverse_spacing(d.grid)[dim(d.bId)] |
280
fe9e8737ddfa
Change to using region indices in apply of BoundaryValue, NormalDerivative and BoundaryQuadrature
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
273
diff
changeset
|
140 return apply_normal_derivative(d.op, h_inv, v[j], i, N_i, region(d.bId)) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
141 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
142 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
143 function LazyTensors.apply_transpose(d::NormalDerivative{T}, v::AbstractArray{T}, I::NTuple{1,Index}) where T |
280
fe9e8737ddfa
Change to using region indices in apply of BoundaryValue, NormalDerivative and BoundaryQuadrature
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
273
diff
changeset
|
144 u = selectdim(v,3-dim(d.bId),Int(I[1])) |
269
ccef055233a2
Move general methods for D2 to ConstantStencilOperator and increase verbosity of method names for clarity
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
268
diff
changeset
|
145 return apply_normal_derivative_transpose(d.op, inverse_spacing(d.grid)[dim(d.bId)], u, region(d.bId)) |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
146 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
147 |
259
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
148 """ |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
149 BoundaryQuadrature{T,N,M,K} <: TensorOperator{T,1} |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
150 |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
151 Implements the boundary operator `q` as a TensorOperator |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
152 """ |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
153 struct BoundaryQuadrature{T,N,M,K} <: TensorOperator{T,1} |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
154 op::D2{T,N,M,K} |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
155 grid::EquidistantGrid{2} |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
156 bId::CartesianBoundary |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
157 end |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
158 export BoundaryQuadrature |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
159 |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
160 # TODO: Make this independent of dimension |
262
f1e90a92ad74
Add Quadrature and InverseQuadrature for Laplace as TensorMappings. Implement and test the 2D case. Fix implementation of apply_transpose for BoundaryQuadrature and add tests.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
259
diff
changeset
|
161 # TODO: Dispatch directly on Index{R}? |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
162 function LazyTensors.apply(q::BoundaryQuadrature{T}, v::AbstractArray{T,1}, I::NTuple{1,Index}) where T |
268
f67ce2eb6019
Remove property spacing in EquidistantGrid, due to redundancy.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
266
diff
changeset
|
163 h = spacing(q.grid)[3-dim(q.bId)] |
259
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
164 N = size(v) |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
165 return apply_quadrature(q.op, h, v[I[1]], I[1], N[1]) |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
166 end |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
167 |
281
1eefaefdd0c7
Add missing type parametrization
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
280
diff
changeset
|
168 LazyTensors.apply_transpose(q::BoundaryQuadrature{T}, v::AbstractArray{T,1}, I::NTuple{1,Index}) where T = LazyTensors.apply(q,v,I) |
259
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
169 |
5571d2c5bf0f
Implement BaoundaryQuadrature for Laplace
Jonatan Werpers <jonatan@werpers.com>
parents:
258
diff
changeset
|
170 |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
171 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
172 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
173 struct Neumann{Bid<:BoundaryIdentifier} <: BoundaryCondition end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
174 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
175 function sat(L::Laplace{2,T}, bc::Neumann{Bid}, v::AbstractArray{T,2}, g::AbstractVector{T}, I::CartesianIndex{2}) where {T,Bid} |
266
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
176 e = boundary_value(L, Bid()) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
177 d = normal_derivative(L, Bid()) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
178 Hᵧ = boundary_quadrature(L, Bid()) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
179 H⁻¹ = inverse_quadrature(L) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
180 return (-H⁻¹*e*Hᵧ*(d'*v - g))[I] |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
181 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
182 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
183 struct Dirichlet{Bid<:BoundaryIdentifier} <: BoundaryCondition |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
184 tau::Float64 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
185 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
186 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
187 function sat(L::Laplace{2,T}, bc::Dirichlet{Bid}, v::AbstractArray{T,2}, g::AbstractVector{T}, i::CartesianIndex{2}) where {T,Bid} |
266
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
188 e = boundary_value(L, Bid()) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
189 d = normal_derivative(L, Bid()) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
190 Hᵧ = boundary_quadrature(L, Bid()) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
191 H⁻¹ = inverse_quadrature(L) |
9ad447176ba1
Minor work on implementation of SATs for laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
262
diff
changeset
|
192 return (-H⁻¹*(tau/h*e + d)*Hᵧ*(e'*v - g))[I] |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
193 # Need to handle scalar multiplication and addition of TensorMapping |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
194 end |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
195 |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
196 # function apply(s::MyWaveEq{D}, v::AbstractArray{T,D}, i::CartesianIndex{D}) where D |
248
05e7bbe0af97
Merge refactoring of laplace
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
diff
changeset
|
197 # return apply(s.L, v, i) + |
228
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
198 # sat(s.L, Dirichlet{CartesianBoundary{1,Lower}}(s.tau), v, s.g_w, i) + |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
199 # sat(s.L, Dirichlet{CartesianBoundary{1,Upper}}(s.tau), v, s.g_e, i) + |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
200 # sat(s.L, Dirichlet{CartesianBoundary{2,Lower}}(s.tau), v, s.g_s, i) + |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
201 # sat(s.L, Dirichlet{CartesianBoundary{2,Upper}}(s.tau), v, s.g_n, i) |
5acef2d5db2e
Move Laplace operator and related structs/functions to separate file.
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff
changeset
|
202 # end |