00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
#include "DotProductVariable.h"
00044
#include "TimesScalarVariable.h"
00045
#include "Var_operators.h"
00046
00047
00048
namespace PLearn {
00049
using namespace std;
00050
00053
PLEARN_IMPLEMENT_OBJECT(TimesScalarVariable,
00054
"Multiplies a matrix var by a scalar var",
00055
"NO HELP");
00056
00057 TimesScalarVariable::TimesScalarVariable(
Variable* input1,
Variable* input2)
00058 :
inherited(input1, input2, input1->length(), input1->width())
00059 {
00060
build_();
00061 }
00062
00063
void
00064 TimesScalarVariable::build()
00065 {
00066 inherited::build();
00067
build_();
00068 }
00069
00070
void
00071 TimesScalarVariable::build_()
00072 {
00073
if (input2 && !input2->isScalar())
00074
PLERROR(
"IN TimesScalarVariable: input2 is not a scalar");
00075 }
00076
00077 void TimesScalarVariable::recomputeSize(
int& l,
int& w)
const
00078
{
00079
if (input1) {
00080 l = input1->
length();
00081 w = input1->
width();
00082 }
else
00083 l = w = 0;
00084 }
00085
00086 void TimesScalarVariable::fprop()
00087 {
00088
real scal = input2->valuedata[0];
00089
for(
int k=0;
k<
nelems();
k++)
00090 valuedata[
k] = input1->valuedata[
k] * scal;
00091 }
00092
00093
00094 void TimesScalarVariable::bprop()
00095 {
00096
for(
int k=0;
k<
nelems();
k++)
00097 {
00098 input1->gradientdata[
k] += input2->valuedata[0]*gradientdata[
k];
00099 input2->gradientdata[0] += input1->valuedata[
k]*gradientdata[
k];
00100 }
00101 }
00102
00103
00104 void TimesScalarVariable::symbolicBprop()
00105 {
00106 input1->accg(g*input2);
00107 input2->accg(
dot(g,input1));
00108 }
00109
00110
00111
00112 void TimesScalarVariable::rfprop()
00113 {
00114
if (rValue.
length()==0)
resizeRValue();
00115
real scal = input2->valuedata[0];
00116
real rscal = input2->rvaluedata[0];
00117
for(
int k=0;
k<
nelems();
k++)
00118 rvaluedata[
k] = input1->rvaluedata[
k] * scal + input1->valuedata[
k] * rscal;
00119 }
00120
00121
00122
00123 }
00124
00125