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 "Energy.h" 00020 #include "../common_source.h" 00021 00022 using std::ostringstream; 00023 using namespace Marsyas; 00024 00025 Energy::Energy(mrs_string name):MarSystem("Energy",name) 00026 { 00027 addControls(); 00028 } 00029 00030 Energy::Energy(const Energy& a) : MarSystem(a) 00031 { 00032 } 00033 00034 Energy::~Energy() 00035 { 00036 } 00037 00038 00039 MarSystem* 00040 Energy::clone() const 00041 { 00042 return new Energy(*this); 00043 } 00044 00045 void 00046 Energy::addControls() 00047 { 00048 00049 } 00050 00051 void 00052 Energy::myUpdate(MarControlPtr sender) 00053 { 00054 (void) sender; //suppress warning of unused parameter(s) 00055 MRSDIAG("Energy.cpp - Energy:myUpdate"); 00056 00057 setctrl("mrs_natural/onSamples", 1); 00058 setctrl("mrs_natural/onObservations", 00059 getctrl("mrs_natural/inObservations")); 00060 setctrl("mrs_real/osrate", 00061 getctrl("mrs_real/israte")); 00062 // Add prefix to the observation names. 00063 mrs_string inObsNames = ctrl_inObsNames_->to<mrs_string>(); 00064 ctrl_onObsNames_->setValue(obsNamesAddPrefix(inObsNames, "Power_"), NOUPDATE); 00065 } 00066 00067 00068 void 00069 Energy::myProcess(realvec& in, realvec& out) 00070 { 00071 mrs_natural t,o; 00072 //checkFlow(in,out); 00073 00074 out.setval(0.0); 00075 for (o=0; o < inObservations_; o++) 00076 { 00077 mrs_real tmp=0; 00078 for (t = 0; t < inSamples_; t++) 00079 { 00080 tmp+= in(o,t)*in(o,t); 00081 } 00082 out(o,0) = tmp; 00083 } 00084 } 00085 00086 00087 00088 00089 00090 00091 00092 00093