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

Author:
aram148 <a.rampadarath@auckland.ac.nz>
Date:
2021-09-01 13:35:00+12:00
Desc:
Added coupled USMC model maggio + Bursztyn model
Permanent Source URI:
https://models.physiomeproject.org/workspace/6b0/rawfile/7863a08ae43627665fd6f9513f1e4e67dc175b34/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;