diff options
| -rw-r--r-- | sc/source/core/opencl/formulagroupcl.cxx | 4 | ||||
| -rw-r--r-- | sc/source/core/opencl/op_financial.cxx | 112 | ||||
| -rw-r--r-- | sc/source/core/opencl/op_financial.hxx | 9 |
3 files changed, 124 insertions, 1 deletions
diff --git a/sc/source/core/opencl/formulagroupcl.cxx b/sc/source/core/opencl/formulagroupcl.cxx index 55d2f250a96b..069321fafafa 100644 --- a/sc/source/core/opencl/formulagroupcl.cxx +++ b/sc/source/core/opencl/formulagroupcl.cxx @@ -1056,6 +1056,10 @@ DynamicKernelSoPArguments::DynamicKernelSoPArguments( mvSubArguments.push_back(SoPHelper(ts, ft->Children[i],new OpMedian)); break; + case ocGDA: + mvSubArguments.push_back(SoPHelper(ts, + ft->Children[i],new OpDDB)); + break; case ocExternal: if ( !(pChild->GetExternal().compareTo(OUString( "com.sun.star.sheet.addin.Analysis.getEffect")))) diff --git a/sc/source/core/opencl/op_financial.cxx b/sc/source/core/opencl/op_financial.cxx index 92a7f14c3bf7..b449a9df8e36 100644 --- a/sc/source/core/opencl/op_financial.cxx +++ b/sc/source/core/opencl/op_financial.cxx @@ -3770,7 +3770,117 @@ void OpTbillyield::GenSlidingWindowFunction( ss <<"return tmp;\n"; ss << "}\n"; } - +void OpDDB::GenSlidingWindowFunction(std::stringstream& ss, + const std::string sSymName, SubArguments& vSubArguments) +{ + ss << "\ndouble " << sSymName; + ss << "_"<< BinFuncName() <<"("; + for (unsigned i = 0; i < vSubArguments.size(); i++) + { + if (i) + ss << ","; + vSubArguments[i]->GenSlidingWindowDecl(ss); + } + ss << ") {\n"; + ss << " int gid0 = get_global_id(0);\n"; + ss << " double tmp = 0;\n"; + ss << " double fWert,fRest,fDauer,fPeriode,fFaktor;\n"; + ss << " double fGda, fZins, fAlterWert, fNeuerWert;\n"; +#ifdef ISNAN + FormulaToken* tmpCur0 = vSubArguments[0]->GetFormulaToken(); + const formula::SingleVectorRefToken*tmpCurDVR0= dynamic_cast<const + formula::SingleVectorRefToken *>(tmpCur0); + FormulaToken* tmpCur1 = vSubArguments[1]->GetFormulaToken(); + const formula::SingleVectorRefToken*tmpCurDVR1= dynamic_cast<const + formula::SingleVectorRefToken *>(tmpCur1); + FormulaToken* tmpCur2 = vSubArguments[2]->GetFormulaToken(); + const formula::SingleVectorRefToken*tmpCurDVR2= dynamic_cast<const + formula::SingleVectorRefToken *>(tmpCur2); + FormulaToken* tmpCur3 = vSubArguments[3]->GetFormulaToken(); + const formula::SingleVectorRefToken*tmpCurDVR3= dynamic_cast<const + formula::SingleVectorRefToken *>(tmpCur3); + FormulaToken* tmpCur4 = vSubArguments[4]->GetFormulaToken(); + const formula::SingleVectorRefToken*tmpCurDVR4= dynamic_cast<const + formula::SingleVectorRefToken *>(tmpCur4); + ss<< " int buffer_wert_len = "; + ss<< tmpCurDVR0->GetArrayLength(); + ss << ";\n"; + ss<< " int buffer_rest_len = "; + ss<< tmpCurDVR1->GetArrayLength(); + ss << ";\n"; + ss<< " int buffer_dauer_len = "; + ss<< tmpCurDVR2->GetArrayLength(); + ss << ";\n"; + ss<< " int buffer_periode_len = "; + ss<< tmpCurDVR3->GetArrayLength(); + ss << ";\n"; + ss<< " int buffer_factor_len = "; + ss<< tmpCurDVR4->GetArrayLength(); + ss << ";\n"; +#endif +#ifdef ISNAN + ss <<" if(gid0 >= buffer_wert_len || isNan("; + ss <<vSubArguments[0]->GenSlidingWindowDeclRef(); + ss <<"))\n"; + ss <<" fWert = 0;\n else\n"; +#endif + ss <<" fWert = "<<vSubArguments[0]->GenSlidingWindowDeclRef(); + ss <<";\n"; +#ifdef ISNAN + ss <<" if(gid0 >= buffer_rest_len || isNan("; + ss <<vSubArguments[1]->GenSlidingWindowDeclRef(); + ss <<"))\n"; + ss <<" fRest = 0;\n else\n"; +#endif + ss <<" fRest = "; + ss <<vSubArguments[1]->GenSlidingWindowDeclRef(); + ss <<";\n"; +#ifdef ISNAN + ss <<" if(gid0 >= buffer_dauer_len || isNan("; + ss <<vSubArguments[2]->GenSlidingWindowDeclRef(); + ss <<"))\n"; + ss <<" fDauer = 0;\n else\n"; +#endif + ss <<" fDauer = "<<vSubArguments[2]->GenSlidingWindowDeclRef(); + ss <<";\n"; +#ifdef ISNAN + ss <<" if(gid0 >= buffer_periode_len || isNan("; + ss <<vSubArguments[3]->GenSlidingWindowDeclRef(); + ss <<"))\n"; + ss <<" fPeriode = 0;\n else\n"; +#endif + ss <<" fPeriode = "<<vSubArguments[3]->GenSlidingWindowDeclRef(); + ss <<";\n"; +#ifdef ISNAN + ss <<" if(gid0 >= buffer_factor_len || isNan("; + ss <<vSubArguments[4]->GenSlidingWindowDeclRef(); + ss <<"))\n"; + ss <<" fFaktor = 0;\n else\n"; +#endif + ss <<" fFaktor = "<<vSubArguments[4]->GenSlidingWindowDeclRef(); + ss <<";\n"; + ss <<" fZins = fFaktor / fDauer;\n"; + ss <<" if (fZins >= 1.0)\n"; + ss <<" {\n"; + ss <<" fZins = 1.0;\n"; + ss <<" if (fPeriode == 1.0)\n"; + ss <<" fAlterWert = fWert;\n"; + ss <<" else\n"; + ss <<" fAlterWert = 0.0;\n"; + ss <<" }\n"; + ss <<" else\n"; + ss <<" fAlterWert = fWert * pow(1.0 - fZins, fPeriode - 1.0);\n"; + ss <<" fNeuerWert = fWert * pow(1.0 - fZins, fPeriode);\n"; + ss <<" if (fNeuerWert < fRest)\n"; + ss <<" fGda = fAlterWert - fRest;\n"; + ss <<" else\n"; + ss <<" fGda = fAlterWert - fNeuerWert;\n"; + ss <<" if (fGda < 0.0)\n"; + ss <<" fGda = 0.0;\n"; + ss <<" tmp = fGda;\n"; + ss <<" return tmp;\n"; + ss <<"}"; +} void OpPV::GenSlidingWindowFunction( std::stringstream &ss, const std::string sSymName, SubArguments & vSubArguments) diff --git a/sc/source/core/opencl/op_financial.hxx b/sc/source/core/opencl/op_financial.hxx index fbf5bee6d250..de1ffc72dd5a 100644 --- a/sc/source/core/opencl/op_financial.hxx +++ b/sc/source/core/opencl/op_financial.hxx @@ -339,6 +339,15 @@ public: virtual std::string BinFuncName(void) const { return "Coupnum"; } }; +class OpDDB:public Normal +{ +public: + virtual void GenSlidingWindowFunction(std::stringstream &ss, + const std::string sSymName, SubArguments &vSubArguments); + + virtual std::string BinFuncName(void) const { return "DDB"; } +}; + class OpAmordegrc:public Normal { public: |