function [RespRate]=RespRate(x)
RespRate=((1-gaussmf(x,[15 18])).*(x>18)+(1-gaussmf(x,[8 18])).*(x<18));