Location: 12 L Platform 1 model codes @ f517ddde5404 / USMC / Maggio2012 / DM_pres.m

Author:
aram148 <a.rampadarath@auckland.ac.nz>
Date:
2021-06-29 14:36:26+12:00
Desc:
updated working agonist driven FTU
Permanent Source URI:
http://models.cellml.org/workspace/6b0/rawfile/f517ddde5404c765afb80b982714243bc9eddcf6/USMC/Maggio2012/DM_pres.m
Compare... Download Source 

function P0=DM_pres(P01,f,t,t1,t2,Pmin,a,b)

P0=P01*sin(2*pi*f*t).*(t<a)+((7*P01))*sin(2*pi*f*t).*(t>=a).* (t<=b)+P01*sin(2*pi*f*t).*(t>b).*(t<t1)+((7*P01))*sin(2*pi*f*t).*(t>=t1).*(t<=t2)+(P01)*sin(2*pi*f*t).*(t>t2)+Pmin;

% P0=((7*P01))*sin(2*pi*f*t).*(t>=a).* (t<=b)+P01*sin(2*pi*f*t).*(t>b).*(t<t1)+((7*P01))*sin(2*pi*f*t).*(t>=t1).*(t<=t2)+(P01)*sin(2*pi*f*t).*(t>t2)+Pmin;

% P0=((7*P01))*sin(2*pi*f*t).*(t>=a).* (t<=b)+0.*(t>b).*(t<t1)+((7*P01))*sin(2*pi*f*t).*(t>=t1).*(t<=t2)+0.*(t>t2)+Pmin;

% P0=0.*(t<a)+((7*P01))*sin(2*pi*f*t).*(t>=a).* (t<=b)+0.*(t>b).*(t<t1)+((7*P01))*sin(2*pi*f*t).*(t>=t1).*(t<=t2)+0.*(t>t2)+Pmin;