use crate::{ConstantOp, ConstantOpSens, Matrix, Op};
use super::{BuilderOp, ParameterisedOp};
pub struct ConstantClosureWithSens<M, I, J>
where
M: Matrix,
I: Fn(&M::V, M::T, &mut M::V),
J: Fn(&M::V, M::T, &M::V, &mut M::V),
{
func: I,
func_sens: J,
nout: usize,
nparams: usize,
ctx: M::C,
}
impl<M, I, J> ConstantClosureWithSens<M, I, J>
where
M: Matrix,
I: Fn(&M::V, M::T, &mut M::V),
J: Fn(&M::V, M::T, &M::V, &mut M::V),
{
pub fn new(func: I, func_sens: J, nout: usize, nparams: usize, ctx: M::C) -> Self {
Self {
func,
func_sens,
nout,
nparams,
ctx,
}
}
}
impl<M, I, J> Op for ConstantClosureWithSens<M, I, J>
where
M: Matrix,
I: Fn(&M::V, M::T, &mut M::V),
J: Fn(&M::V, M::T, &M::V, &mut M::V),
{
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> BuilderOp for ConstantClosureWithSens<M, I, J>
where
M: Matrix,
I: Fn(&M::V, M::T, &mut M::V),
J: Fn(&M::V, M::T, &M::V, &mut M::V),
{
fn calculate_sparsity(&mut self, _y0: &Self::V, _t0: Self::T, _p: &Self::V) {
}
fn set_nstates(&mut self, _nstates: usize) {
}
fn set_nout(&mut self, nout: usize) {
self.nout = nout;
}
fn set_nparams(&mut self, nparams: usize) {
self.nparams = nparams;
}
}
impl<M, I, J> ConstantOp for ParameterisedOp<'_, ConstantClosureWithSens<M, I, J>>
where
M: Matrix,
I: Fn(&M::V, M::T, &mut M::V),
J: Fn(&M::V, M::T, &M::V, &mut M::V),
{
fn call_inplace(&self, t: Self::T, y: &mut Self::V) {
(self.op.func)(self.p, t, y)
}
}
impl<M, I, J> ConstantOpSens for ParameterisedOp<'_, ConstantClosureWithSens<M, I, J>>
where
M: Matrix,
I: Fn(&M::V, M::T, &mut M::V),
J: Fn(&M::V, M::T, &M::V, &mut M::V),
{
fn sens_mul_inplace(&self, t: Self::T, v: &Self::V, y: &mut Self::V) {
(self.op.func_sens)(self.p, t, v, y);
}
}