diffsol 0.17.0

A library for solving ordinary differential equations (ODEs) in Rust.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

use crate::{ConstantOp, ConstantOpSensAdjoint, Matrix, Op, Vector};

use super::{BuilderOp, ParameterisedOp};

pub struct ConstantClosureWithAdjoint<M, I, J>
where
    M: Matrix,
    I: Fn(&[M::T], M::T, &mut [M::T]),
    J: Fn(&[M::T], M::T, &[M::T], &mut [M::T]),
{
    func: I,
    func_sens_adjoint: J,
    nout: usize,
    nparams: usize,
    ctx: M::C,
}

impl<M, I, J> ConstantClosureWithAdjoint<M, I, J>
where
    M: Matrix,
    I: Fn(&[M::T], M::T, &mut [M::T]),
    J: Fn(&[M::T], M::T, &[M::T], &mut [M::T]),
{
    pub fn new(func: I, func_sens_adjoint: J, nout: usize, nparams: usize, ctx: M::C) -> Self {
        Self {
            func,
            func_sens_adjoint,
            nout,
            nparams,
            ctx,
        }
    }
}

impl<M, I, J> BuilderOp for ConstantClosureWithAdjoint<M, I, J>
where
    M: Matrix,
    I: Fn(&[M::T], M::T, &mut [M::T]),
    J: Fn(&[M::T], M::T, &[M::T], &mut [M::T]),
{
    fn calculate_sparsity(&mut self, _y0: &Self::V, _t0: Self::T, _p: &Self::V) {
        // Do nothing
    }
    fn set_nstates(&mut self, _nstates: usize) {
        // Do nothing
    }
    fn set_nout(&mut self, nout: usize) {
        self.nout = nout;
    }
    fn set_nparams(&mut self, nparams: usize) {
        self.nparams = nparams;
    }
}

impl<M, I, J> Op for ConstantClosureWithAdjoint<M, I, J>
where
    M: Matrix,
    I: Fn(&[M::T], M::T, &mut [M::T]),
    J: Fn(&[M::T], M::T, &[M::T], &mut [M::T]),
{
    type V = M::V;
    type T = M::T;
    type M = M;
    type C = M::C;
    fn nstates(&self) -> usize {
        0
    }
    fn nout(&self) -> usize {
        self.nout
    }
    fn nparams(&self) -> usize {
        self.nparams
    }
    fn context(&self) -> &Self::C {
        &self.ctx
    }
}

impl<M, I, J> ConstantOp for ParameterisedOp<'_, ConstantClosureWithAdjoint<M, I, J>>
where
    M: Matrix,
    I: Fn(&[M::T], M::T, &mut [M::T]),
    J: Fn(&[M::T], M::T, &[M::T], &mut [M::T]),
{
    fn call_inplace(&self, t: Self::T, y: &mut Self::V) {
        y.for_each_batch_host([self.p], |y, [p], _| (self.op.func)(p, t, y));
    }
}

impl<M, I, J> ConstantOpSensAdjoint for ParameterisedOp<'_, ConstantClosureWithAdjoint<M, I, J>>
where
    M: Matrix,
    I: Fn(&[M::T], M::T, &mut [M::T]),
    J: Fn(&[M::T], M::T, &[M::T], &mut [M::T]),
{
    fn sens_transpose_mul_inplace(&self, t: Self::T, v: &Self::V, y: &mut Self::V) {
        y.for_each_batch_host([self.p, v], |y, [p, v], _| {
            (self.op.func_sens_adjoint)(p, t, v, y)
        });
    }
}