Chaste Release::3.1
|
00001 /* 00002 00003 Copyright (c) 2005-2012, University of Oxford. 00004 All rights reserved. 00005 00006 University of Oxford means the Chancellor, Masters and Scholars of the 00007 University of Oxford, having an administrative office at Wellington 00008 Square, Oxford OX1 2JD, UK. 00009 00010 This file is part of Chaste. 00011 00012 Redistribution and use in source and binary forms, with or without 00013 modification, are permitted provided that the following conditions are met: 00014 * Redistributions of source code must retain the above copyright notice, 00015 this list of conditions and the following disclaimer. 00016 * Redistributions in binary form must reproduce the above copyright notice, 00017 this list of conditions and the following disclaimer in the documentation 00018 and/or other materials provided with the distribution. 00019 * Neither the name of the University of Oxford nor the names of its 00020 contributors may be used to endorse or promote products derived from this 00021 software without specific prior written permission. 00022 00023 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 00024 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 00025 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 00026 ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE 00027 LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 00028 CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE 00029 GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 00030 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 00031 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 00032 OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00033 00034 */ 00035 00036 00037 #include "RegularStimulus.hpp" 00038 #include <cmath> 00039 #include <cassert> 00040 00041 #include <iostream> 00042 00043 RegularStimulus::RegularStimulus(double magnitudeOfStimulus, double duration, double period, double startTime, double stopTime) 00044 { 00045 assert(period > 0); 00046 assert(period >= duration); 00047 00048 mMagnitudeOfStimulus = magnitudeOfStimulus; 00049 mDuration = duration; 00050 mPeriod = period; 00051 mStartTime = startTime; 00052 mStopTime = stopTime; 00053 00054 //Swell duration to avoid rounding issues 00055 mDuration += period*DBL_EPSILON; 00056 } 00057 00058 double RegularStimulus::GetStimulus(double time) 00059 { 00060 /* 00061 * This covers a borderline case where start time is larger than period 00062 * and period divides start time, e.g. start_time=2 period=1. 00063 * 00064 * fmod() will return -0 in this case and will therefore switch the stimulus on. 00065 */ 00066 if (time < mStartTime) 00067 { 00068 return 0.0; 00069 } 00070 00071 double beatTime = fmod(time-mStartTime,mPeriod); 00072 00073 if (beatTime >=0 && beatTime <= mDuration && time <= mStopTime) 00074 { 00075 return mMagnitudeOfStimulus; 00076 } 00077 else 00078 { 00079 return 0.0; 00080 } 00081 } 00082 00083 double RegularStimulus::GetPeriod() 00084 { 00085 return mPeriod; 00086 } 00087 00088 double RegularStimulus::GetMagnitude() 00089 { 00090 return mMagnitudeOfStimulus; 00091 } 00092 00093 double RegularStimulus::GetDuration() 00094 { 00095 return mDuration; 00096 } 00097 00098 double RegularStimulus::GetStartTime() 00099 { 00100 return mStartTime; 00101 } 00102 00103 void RegularStimulus::SetPeriod(double period) 00104 { 00105 mPeriod = period; 00106 } 00107 00108 void RegularStimulus::SetDuration(double duration) 00109 { 00110 mDuration = duration; 00111 } 00112 00113 void RegularStimulus::SetStartTime(double startTime) 00114 { 00115 mStartTime = startTime; 00116 } 00117 00118 void RegularStimulus::SetStopTime(double stopTime) 00119 { 00120 mStopTime = stopTime; 00121 } 00122 00123 // Serialization for Boost >= 1.36 00124 #include "SerializationExportWrapperForCpp.hpp" 00125 CHASTE_CLASS_EXPORT(RegularStimulus)