Marsyas
0.6.0-alpha
|
00001 /* 00002 ** Copyright (C) 1998-2006 George Tzanetakis <gtzan@cs.uvic.ca> 00003 ** 00004 ** This program is free software; you can redistribute it and/or modify 00005 ** it under the terms of the GNU General Public License as published by 00006 ** the Free Software Foundation; either version 2 of the License, or 00007 ** (at your option) any later version. 00008 ** 00009 ** This program is distributed in the hope that it will be useful, 00010 ** but WITHOUT ANY WARRANTY; without even the implied warranty of 00011 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00012 ** GNU General Public License for more details. 00013 ** 00014 ** You should have received a copy of the GNU General Public License 00015 ** along with this program; if not, write to the Free Software 00016 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 00017 */ 00018 00019 #include "Rms.h" 00020 00021 using namespace std; 00022 using namespace Marsyas; 00023 00024 Rms::Rms(mrs_string name):MarSystem("Rms",name) 00025 { 00026 //type_ = "Rms"; 00027 //name_ = name; 00028 } 00029 00030 Rms::~Rms() 00031 { 00032 } 00033 00034 MarSystem* 00035 Rms::clone() const 00036 { 00037 return new Rms(*this); 00038 } 00039 00040 void 00041 Rms::myUpdate(MarControlPtr sender) 00042 { 00043 (void) sender; //suppress warning of unused parameter(s) 00044 setctrl("mrs_natural/onSamples", (mrs_natural)1); 00045 ctrl_onObservations_->setValue(ctrl_inObservations_, NOUPDATE); 00046 setctrl("mrs_real/osrate", getctrl("mrs_real/israte")->to<mrs_real>() / getctrl("mrs_natural/inSamples")->to<mrs_natural>()); 00047 // Add prefix to the observation names. 00048 mrs_string inObsNames = ctrl_inObsNames_->to<mrs_string>(); 00049 ctrl_onObsNames_->setValue(obsNamesAddPrefix(inObsNames, "Rms_"), NOUPDATE); 00050 } 00051 00052 void 00053 Rms::myProcess(realvec& in, realvec& out) 00054 { 00055 mrs_natural t; 00056 mrs_natural o; 00057 mrs_real val; 00058 mrs_real rmsEnergy; 00059 00060 for (o = 0; o < inObservations_; o++) { 00061 rmsEnergy = 0.0; 00062 for (t = 0; t < inSamples_; t++) { 00063 val = in(o, t); 00064 rmsEnergy += (val * val); 00065 } 00066 if (rmsEnergy != 0.0) 00067 { 00068 rmsEnergy /= inSamples_; 00069 rmsEnergy = sqrt(rmsEnergy); 00070 } 00071 out(o, 0) = (mrs_real) rmsEnergy; 00072 } 00073 }