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

Author:
aram148 <a.rampadarath@auckland.ac.nz>
Date:
2021-11-04 16:02:42+13:00
Desc:
Updated USMC-Bursztyn model
Permanent Source URI:
http://models.cellml.org/workspace/6b0/rawfile/4c1ab73f48d7150c2094cf8017425482a1594ccf/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;