-rw-r--r-- | noncore/apps/opie-sheet/ChangeLog | 4 | ||||
-rw-r--r-- | noncore/apps/opie-sheet/sheet.cpp | 10 | ||||
-rw-r--r-- | noncore/apps/opie-sheet/sheet.h | 2 |
3 files changed, 11 insertions, 5 deletions
diff --git a/noncore/apps/opie-sheet/ChangeLog b/noncore/apps/opie-sheet/ChangeLog index 56887c5..e8a31ee 100644 --- a/noncore/apps/opie-sheet/ChangeLog +++ b/noncore/apps/opie-sheet/ChangeLog @@ -1,64 +1,68 @@ +January 8, 2004 + - fixed issue : "-if someone enters directly text as parameter to a string function the text renders as uppercase due to the calculation engine that uppercases all the parsing sentence." + now the text is handled correctly. + January 7, 2004 * Release by hayzel (koppermind@panafonet.gr) This version has many valuable changes, though It may have some annoying bugs. Please if you are interested in opie-sheet try it hard, so I can fix some of them. Also If you want some other functions that must be here and are missing feel free to ask them. (no financial functions please. :) I really hate them ) -Fixed a bug with non closed parenthesis editing&recalculation infinite loop. -Added support for functions that can parse parameters not ONLY as numbers but also as strings. -Added many functions that cover many computational topics rendering opie-sheet a computational tool-spreadsheet at last. (total 90 functions!) -Maintained compatibility with the opie-fileformat. -New icons. -Found that the DataParser was not a real RPN compiler of the expressions. In fact it was returning faulty results in calculations, in both binary or unary operations. A1-A2-A3 was parsed as A1-(A2-A3). -A1 was parsed as A1. -Added new class "Expression" a general Parser for spreadsheet-expression. Imported from an old C# project of mine. -Now can also parse <>=!%&^|"" in expressions. -Added experimental Excel File format import!. The opie-sheet can import any excel file in BIFF7/BIFF8 format. These formats are used in Excel XP,2000,95. The Excel Importer class is in a good coding level.. BUT it is not complete. Only strings,numbers,formulas are imported. Not formatting rules. Not all the functions are converted in the functions of opie-sheet. Infact FEW functions are converted. -Fixed a bug with Sheet Recalculation. Added ReCalc() function. Opie-sheet was calculating wrong the values of expression in opening/importing. if a value needed was not loaded yet in the time of calculation. Solved with ReCalc() each time the active sheet is changing. *known issues: -if someone enters directly text as parameter to a string function the text renders as uppercase due to the calculation engine that uppercases all the parsing sentence. -randbetween return only integer part random... if both limit numbers are integers. -skew and kurt function give different results compared to kspread-oofice equivalents. -unstable parser Excel Class -string vars and string functions are not correctly handled by excel importer. -unicode strings are converted FINE in QString unicode format, but cannot be rendered fine if a suitable unicode font is not setuped as the default string. So the string is junked in the opie-sheet and may crash the parser. *TODOs: -surelly a much full-stable excel importer. -Cell Manipulation of many Data is really slow.... must change the QList data type. To a structure more efficient. -maybe some more functions. -maybe some kind of charts drawing? -maybe kspread or ooffice files import/export. October 08, 2002 * Release 1.0.2 (by thufir) - Fixed bug #250 (exhibiting re-calculation error in multi-level calculation). (by thufir) October 06, 2002 - Fixed data edit box clear problem. (by thufir) October 05, 2002 - Fixed bug #252 (starting up in 'mouse button' mode). (by thufir) August 31, 2002 - Fixed and updated opie-sheet.pro file. (by cniehaus) August 01, 2002 - Fixed gcc3 compile problems. (by harlekin) July 06, 2002 - Fixed DocLnk management to save documents correctly. (by leseb) July 04, 2002 * Release 1.0.1 (by thufir) - Sheet/Qt is now a part of Opie, so its name is changed to Opie Sheet. (by thufir) - Fixed sorting bug. (by thufir) April 14, 2002 * Release 1.0.0 (by thufir) diff --git a/noncore/apps/opie-sheet/sheet.cpp b/noncore/apps/opie-sheet/sheet.cpp index 103b83b..e1e4744 100644 --- a/noncore/apps/opie-sheet/sheet.cpp +++ b/noncore/apps/opie-sheet/sheet.cpp @@ -400,1941 +400,1943 @@ double Sheet::BesselJ1(double x) double Sheet::BesselY1(double x) { double z; double xx,y,ans,ans1,ans2; if (x < 8.0) { y=x*x; ans1=x*(-0.4900604943e13+y*(0.1275274390e13 +y*(-0.5153438139e11+y*(0.7349264551e9 +y*(-0.4237922726e7+y*0.8511937935e4))))); ans2=0.2499580570e14+y*(0.4244419664e12 +y*(0.3733650367e10+y*(0.2245904002e8 +y*(0.1020426050e6+y*(0.3549632885e3+y))))); ans=(ans1/ans2)+0.636619772*(BesselJ1(x)*log(x)-1.0/x); } else { z=8.0/x; y=z*z; xx=x-2.356194491; ans1=1.0+y*(0.183105e-2+y*(-0.3516396496e-4 +y*(0.2457520174e-5+y*(-0.240337019e-6)))); ans2=0.04687499995+y*(-0.2002690873e-3 +y*(0.8449199096e-5+y*(-0.88228987e-6 +y*0.105787412e-6))); ans=sqrt(0.636619772/x)*(sin(xx)*ans1+z*cos(xx)*ans2); } return ans; }; double Sheet::BesselY(int n, double x) { int j; double by,bym,byp,tox; if (n < 2) return 0.0; tox=2.0/x; by=BesselY1(x); bym=BesselY0(x); for (j=1;j<n;j++) { byp=j*tox*by-bym; bym=by; by=byp; } return by; }; double Sheet::BesselJ(int n, double x) { double ACC=40.0; double BIGNO=1.0e10; double BIGNI=1.0e-10; int j,jsum,m; double ax,bj,bjm,bjp,sum,tox,ans; if (n < 2) return 0.0; ax=fabs(x); if (ax == 0.0) return 0.0; else if (ax > (double) n) { tox=2.0/ax; bjm=BesselJ0(ax); bj=BesselJ1(ax); for (j=1;j<n;j++) { bjp=j*tox*bj-bjm; bjm=bj; bj=bjp; } ans=bj; } else { tox=2.0/ax; m=2*((n+(int) sqrt(ACC*n))/2); jsum=0; bjp=ans=sum=0.0; bj=1.0; for (j=m;j>0;j--) { bjm=j*tox*bj-bjp; bjp=bj; bj=bjm; if (fabs(bj) > BIGNO) { bj *= BIGNI; bjp *= BIGNI; ans *= BIGNI; sum *= BIGNI; } if (jsum) sum += bj; jsum=!jsum; if (j == n) ans=bjp; } sum=2.0*sum-bj; ans /= sum; } return x < 0.0 && (n & 1) ? -ans : ans; }; double Sheet::GammaLn(double xx) { double x,y,tmp,ser; static double cof[6]={76.18009172947146,-86.50532032941677, 24.01409824083091,-1.231739572450155, 0.1208650973866179e-2,-0.5395239384953e-5}; int j; y=x=xx; tmp=x+5.5; tmp -= (x+0.5)*log(tmp); ser=1.000000000190015; for (j=0;j<=5;j++) ser += cof[j]/++y; return -tmp+log(2.5066282746310005*ser/x); }; double Sheet::Factorial(double n) { if (n < 0) return 0.0; if (n > 100) return 0.0; return exp(GammaLn(n+1.0)); }; double Sheet::GammaP(double a, double x) { // returns GammaP(a,x) //void gcf(float *gammcf, float a, float x, float *gln); //void gser(float *gamser, float a, float x, float *gln); double gamser,gammcf,gln; if (x < 0.0 || a <= 0.0) return 0.0;//error if (x < (a+1.0)) { GammaSeries(&gamser,a,x,&gln); return gamser; }else { GammaContinuedFraction(&gammcf,a,x,&gln); return 1.0-gammcf; } }; double Sheet::GammaQ(double a,double x) { //returns GammaQ(a,x)=1.0 - GammaP(a,x); return (1.0-GammaP(a,x)); }; void Sheet::GammaSeries(double *gamser, double a, double x, double *gln) { double EPS=3.0e-7; int ITMAX=100; int n; double sum,del,ap; *gln=GammaLn(a); if (x <= 0.0) { if (x < 0.0) return;//error *gamser=0.0; return; } else { ap=a; del=sum=1.0/a; for (n=1;n<=ITMAX;n++) { ++ap; del *= x/ap; sum += del; if (fabs(del) < fabs(sum)*EPS) { *gamser=sum*exp(-x+a*log(x)-(*gln)); return; } } return; return; } }; void Sheet::GammaContinuedFraction(double *gammcf, double a, double x, double *gln) { double EPS=3.0e-7; double FPMIN=1.0e-30; int ITMAX=100; int i; double an,b,c,d,del,h; *gln=GammaLn(a); b=x+1.0-a; c=1.0/FPMIN; d=1.0/b; h=d; for (i=1;i<=ITMAX;i++) { an = -i*(i-a); b += 2.0; d=an*d+b; if (fabs(d) < FPMIN) d=FPMIN; c=b+an/c; if (fabs(c) < FPMIN) c=FPMIN; d=1.0/d; del=d*c; h *= del; if (fabs(del-1.0) < EPS) break; } if (i > ITMAX) return; *gammcf=exp(-x+a*log(x)-(*gln))*h; }; double Sheet::ErrorFunction(double x) { return x < 0.0 ? -GammaP(0.5,x*x) : GammaP(0.5,x*x); }; double Sheet::ErrorFunctionComplementary(double x) { return x < 0.0 ? 1.0+GammaP(0.5,x*x) : GammaQ(0.5,x*x); }; double Sheet::Beta(double z, double w) { return exp(GammaLn(z)+GammaLn(w)-GammaLn(z+w)); }; double Sheet::BetaContinuedFraction(double a, double b, double x) { int MAXIT=100; double EPS=3.0e-7; double FPMIN=1.0e-30; int m,m2; double aa,c,d,del,h,qab,qam,qap; qab=a+b; qap=a+1.0; qam=a-1.0; c=1.0; d=1.0-qab*x/qap; if (fabs(d) < FPMIN) d=FPMIN; d=1.0/d; h=d; for (m=1;m<=MAXIT;m++) { m2=2*m; aa=m*(b-m)*x/((qam+m2)*(a+m2)); d=1.0+aa*d; if (fabs(d) < FPMIN) d=FPMIN; c=1.0+aa/c; if (fabs(c) < FPMIN) c=FPMIN; d=1.0/d; h *= d*c; aa = -(a+m)*(qab+m)*x/((a+m2)*(qap+m2)); d=1.0+aa*d; if (fabs(d) < FPMIN) d=FPMIN; c=1.0+aa/c; if (fabs(c) < FPMIN) c=FPMIN; d=1.0/d; del=d*c; h *= del; if (fabs(del-1.0) < EPS) break; } if (m > MAXIT) return 0.0; return h; }; double Sheet::BetaIncomplete(double a, double b, double x) { double bt; if (x < 0.0 || x > 1.0) return 0.0; if (x == 0.0 || x == 1.0) bt=0.0; else bt=exp(GammaLn(a+b)-GammaLn(a)-GammaLn(b)+a*log(x)+b*log(1.0-x)); if (x < (a+1.0)/(a+b+2.0)) return bt*BetaContinuedFraction(a,b,x)/a; else return 1.0-bt*BetaContinuedFraction(b,a,1.0-x)/b; }; double Sheet::functionSum(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; double result=0, tempResult; bool ok; if (findRange(param1, param2, &row1, &col1, &row2, &col2)) { for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempResult=text(row, col).toDouble(&ok); if (ok) result+=tempResult; } return result; }else { double d1=0,d2=0; d1=calculateVariable(param1).toDouble(&ok); d2=calculateVariable(param2).toDouble(&ok); return(d1+d2); }; return 0; } QString Sheet::functionIndex(const QString ¶m1, const QString ¶m2, int indx) { int row1, col1, row2, col2, row, col; if (!findRange(param1, param2, &row1, &col1, &row2, &col2)) return 0; int ii=1; for (col=col1; col<=col2; ++col) for (row=row1; row<=row2; ++row) { if(ii==indx) return text(row,col); ii++; } return QString(""); } double Sheet::functionVariancePopulation(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; if (!findRange(param1, param2, &row1, &col1, &row2, &col2)) return 0; double avg1=functionAvg(param1,param2); double result=0, tempResult; int count1=0; bool ok; for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempResult=text(row, col).toDouble(&ok); if (ok) { result=result + (tempResult - avg1)*(tempResult - avg1); count1++;}; } if(count1>0) result=result/double(count1); else result=0.0; return result; }; double Sheet::functionVariance(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; if (!findRange(param1, param2, &row1, &col1, &row2, &col2)) return 0; double avg1=functionAvg(param1,param2); double result=0, tempResult; int count1=0; bool ok; for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempResult=text(row, col).toDouble(&ok); if (ok) { result=result + (tempResult - avg1)*(tempResult - avg1); count1++;}; } if(count1>1) result=result/double(count1-1); else result=0.0; return result; }; double Sheet::functionSkew(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; if (!findRange(param1, param2, &row1, &col1, &row2, &col2)) return 0; double avg1=functionAvg(param1,param2); double var1=sqrt(functionVariancePopulation(param1,param2)); if(var1==0.0) return 0.0; double result=0, tempResult; int count1=0; bool ok; for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempResult=text(row, col).toDouble(&ok); if (ok) { result=result + (tempResult - avg1)*(tempResult - avg1)*(tempResult - avg1)/(var1*var1*var1); count1++; }; } if(count1>0) result=result/double(count1); else result=0.0; return result; }; double Sheet::functionKurt(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; if (!findRange(param1, param2, &row1, &col1, &row2, &col2)) return 0; double avg1=functionAvg(param1,param2); double var1=sqrt(functionVariancePopulation(param1,param2)); if(var1==0.0) return 0.0; double result=0, tempResult; int count1=0; bool ok; for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempResult=text(row, col).toDouble(&ok); if (ok) { result=result + (tempResult - avg1)*(tempResult - avg1)* (tempResult - avg1)*(tempResult - avg1)/(var1*var1*var1*var1); count1++; }; } if(count1>0) result=result/double(count1)-3.0; else result=0.0; return result; }; double Sheet::functionSumSQ(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; double result=0, tempResult; bool ok; if (findRange(param1, param2, &row1, &col1, &row2, &col2)) { for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempResult=text(row, col).toDouble(&ok); if (ok) result+=tempResult*tempResult; } return result; }else { double d1=0,d2=0; d1=calculateVariable(param1).toDouble(&ok); d2=calculateVariable(param2).toDouble(&ok); return(d1*d1+d2*d2); }; return 0; } double Sheet::functionMin(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; double min=0, tempMin; bool ok, init=FALSE; if (findRange(param1, param2, &row1, &col1, &row2, &col2)) { for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempMin=text(row, col).toDouble(&ok); if (ok && (!init || tempMin<min)) { min=tempMin; init=TRUE; } } return min; }else { double d1=0,d2=0; d1=calculateVariable(param1).toDouble(&ok); d2=calculateVariable(param2).toDouble(&ok); if(d1<d2) return(d1); else return(d2); }; return 0; } double Sheet::functionMax(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; double max=0, tempMax; bool ok, init=FALSE; if (findRange(param1, param2, &row1, &col1, &row2, &col2)) { for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { tempMax=text(row, col).toDouble(&ok); if (ok && (!init || tempMax>max)) { max=tempMax; init=TRUE; } }; return max; }else { double d1=0,d2=0; d1=calculateVariable(param1).toDouble(&ok); d2=calculateVariable(param2).toDouble(&ok); if(d1>d2) return(d1); else return(d2); }; return 0; } double Sheet::functionAvg(const QString ¶m1, const QString ¶m2) { double resultSum=functionSum(param1, param2), resultCount=functionCount(param1, param2); return (resultCount>0 ? resultSum/resultCount : 0); } double Sheet::functionCount(const QString ¶m1, const QString ¶m2) { int row1, col1, row2, col2, row, col; int divider=0; bool ok; if (findRange(param1, param2, &row1, &col1, &row2, &col2)) { for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { text(row, col).toDouble(&ok); if (ok) ++divider; }; return divider; }else { double d1=0,d2=0;int ii=0; d1=calculateVariable(param1).toDouble(&ok); if (ok) ii++; d2=calculateVariable(param2).toDouble(&ok); if (ok) ii++; return(ii); }; return 0; } double Sheet::functionCountIf(const QString ¶m1, const QString ¶m2, const QString ¶m3) { int row1, col1, row2, col2, row, col; if (!findRange(param1, param2, &row1, &col1, &row2, &col2)) return 0; //same as count except check if each field is equal to param3 int divider=0; QString s2; bool ok; s2=calculateVariable(param3); for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { text(row, col).toDouble(&ok); if (ok && (s2==text(row,col)) ) ++divider; } return divider; } -QString Sheet::calculateFunction(const QString &function, const QString ¶meters, int NumOfParams) +QString Sheet::calculateFunction(const QString &func, const QString ¶meters, int NumOfParams) { bool ok; double val1=0.0,val2=0.0,val3=0.0; long int vali=0; int w1,w2; int row,col; QString s1,s2; //basic functions + QString function; + function=func.upper(); if (function=="+") { s1=calculateVariable(getParameter(parameters, 0)); s2=calculateVariable(getParameter(parameters, 1)); val1=s1.toDouble(&ok)+s2.toDouble(&ok); return QString::number(val1); }; if (function=="-") { s1=calculateVariable(getParameter(parameters, 0)); s2=calculateVariable(getParameter(parameters, 1)); val1=s1.toDouble(&ok)-s2.toDouble(&ok); return QString::number(val1); }; if (function=="*") { val1=calculateVariable( getParameter(parameters, 0)).toDouble(&ok) *calculateVariable(getParameter(parameters, 1)).toDouble(&ok); return QString::number(val1); }; if (function=="/") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val2==0.0) return QString("Err101"); val1=val1/val2; return QString::number(val1); }; if (function==">") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val1>val2) return QString::number(1); else return QString::number(0); }; if (function=="<") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val1<val2) return QString::number(1); else return QString::number(0); }; if (function==">=") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val1>=val2) return QString::number(1); else return QString::number(0); }; if (function=="<=") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val1<=val2) return QString::number(1); else return QString::number(0); }; if (function=="!=") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val1!=val2) return QString::number(1); else return QString::number(0); }; if (function=="=="||function=="=") { val1=calculateVariable(getParameter(parameters, 0)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1)).toDouble(&ok); if(val1==val2) return QString::number(1); else return QString::number(0); }; //LOGICAL / INFO if (function=="ISBLANK") { if(findRowColumn(getParameter(parameters, 0), &row, &col, FALSE)) { if(text(row,col).length()==0) val1=1; else val1=0; }else { if(findRowColumn(calculateVariable(getParameter(parameters, 0)), &row,&col, FALSE)) { if(text(row,col).length()==0) val1=1; else val1=0; }else { val1=0; }; }; return QString::number(val1); }; if (function=="ISNUMBER") { if(findRowColumn(getParameter(parameters, 0, TRUE, function), &row, &col, FALSE)) { val1=text(row,col).toDouble(&ok); if(ok) val1=1; else val1=0; }else { if(findRowColumn(calculateVariable(getParameter(parameters, 0, TRUE, function)), &row,&col, FALSE)) { val1=text(row,col).toDouble(&ok); if(ok) val1=1; else val1=0; }else { val1=0; }; }; return QString::number(val1); }; if (function=="AND") { vali=calculateVariable(getParameter(parameters, 0, TRUE, function)).toInt(&ok) & calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); return QString::number(vali); }; if (function=="OR") { vali=calculateVariable(getParameter(parameters, 0, TRUE, function)).toInt(&ok) | calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); return QString::number(vali); }; if (function=="NOT") { vali=!calculateVariable(getParameter(parameters, 0, TRUE, function)).toInt(&ok); return QString::number(vali); }; // MATHEMATICAL FUNCTIONS if (function=="ABS") { val1=fabs(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="ACOS") { val1=acos(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="ACOSH") { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); if(val1<1.0) return QString::number(0); val1=acosh(val1); return QString::number(val1); }; if (function=="ASIN") { val1=asin(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="ASINH") { val1=asinh(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="ATAN") { val1=atan(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="ATAN2") { val1=atan2(calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok), calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="ATANH") { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); if(val1<=-1.0 || val1>=1.0) return QString("Err101"); val1=atanh(val1); return QString::number(val1); }; if (function=="CEILING") { // rounds up param1 to specified accuracy param2 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); if(val2==0.0) return QString::number(val1); val1=ceil(val1/val2)*val2; return QString::number(val1); }; if (function=="COS") { val1=cos(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="COSH") { val1=cosh(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="DEGREES") { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)*180.0/M_PI; return QString::number(val1); }; if (function=="EXP") { val1=exp(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="FACT") { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=Factorial(val1); return QString::number(val2); }; if (function=="FLOOR") { // rounds down param1 to specified accuracy param2 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); if(val2==0.0) return QString::number(val1); val1=floor(val1/val2)*val2; return QString::number(val1); }; if (function=="INT") { // rounds down param1 val1=int(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="EVEN") { //converts param1 to even vali=int(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); if(vali % 2 !=0) val1=vali+1; else val1=vali; return QString::number(val1); }; if (function=="ODD") { //converts param1 to odd vali=int(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); if(vali % 2 !=0) val1=vali; else val1=vali+1; return QString::number(val1); }; if (function=="ISEVEN") { //Is Even param1? vali=int(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); if(vali % 2 == 0) val1=1; else val1=0; return QString::number(val1); }; if (function=="ISODD") { //Is odd param1? vali=int(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); if(vali % 2 == 0) val1=0; else val1=1; return QString::number(val1); }; if (function=="LN") { // returns the natural logarithm of param1 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); if(val1<=0.0) return QString("Err101"); val1=log(val1); return QString::number(val1); }; if (function=="LOG10") { // returns the base-10 logarithm of param1 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); if(val1<=0.0) return QString("Err101"); val1=log10(val1); return QString::number(val1); }; if (function=="LOG") { // return the base-param2 logarithm of param1 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); if(val1<=0.0 || val2<=0.0 ) return QString("Err101"); val1=log(val1)/log(val2); return QString::number(val1); }; if (function=="MOD") { // return the modulus of param1/param2 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); if(val2==0.0) return QString("Err101"); val1=(int(val1) % int(val2)); return QString::number(val1); }; if (function=="POWER") { // return the param1^param2 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); if(val1<0.0 && (floor(val2)!=val2)) return QString("Err101"); val1=pow(val1,val2); return QString::number(val1); }; if (function=="PI") { return QString::number(M_PI); }; if (function=="RADIANS") { // param1 deg->rad val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)*M_PI/180.0; return QString::number(val1); }; if (function=="RAND") { // retuns random number 0>x>1 srand((unsigned int)time((time_t *)NULL)); val1=double(rand())/double(RAND_MAX); return QString::number(val1); }; if (function=="RANDBETWEEN") { // returns random number between param1>x>param2 //TOFIX: this is not ok because I think results is always int related. srand((unsigned int)time((time_t *)NULL)); val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val1=fmod(double(rand()),(val2-val1))+val1; return QString::number(val1); }; if (function=="ROUND") { // rounds down param1 to specified digits param2 (positive decimal digits) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val2=pow(10.0,-val2); val1=floor(val1/val2)*val2; return QString::number(val1); }; if (function=="SIGN") { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); if(val1>=0.0) return QString::number(1.0); else return QString::number(-1.0); }; if (function=="CHGSGN")//changes sign (for unary operator) { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); return QString::number((-1.0)*val1); }; if (function=="SIN") { val1=sin(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="SINH") { val1=sinh(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="TAN") { val1=tan(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="TANH") { val1=tanh(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; if (function=="SQRT") { val1=sqrt(calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok)); return QString::number(val1); }; // STRING FUNCTIONS if (function=="CONCATENATE") { // concatenates strings together w1=0; s1=""; while(getParameter(parameters, w1, FALSE, function)!="") //parse all params; { s1=s1+calculateVariable(getParameter(parameters, w1)); w1++; }; return QString(s1); }; if (function=="EXACT") { // compare two string if they are exactly the same s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); s2=calculateVariable(getParameter(parameters, 1, TRUE, function)); if(s1==s2) return QString::number(1); else return QString::number(0); }; if (function=="FIND") { // finds param1 in param2 from pos param3 and after // returns -1 if not found s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); s2=calculateVariable(getParameter(parameters, 1, TRUE, function)); vali=calculateVariable(getParameter(parameters, 2, TRUE, function)).toInt(&ok); val1=s2.find(s1,vali); return QString::number(val1); }; if (function=="LEFT") { // returns the param2 left chars from param1 string s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); s2=s1.left(vali); return QString(s2); }; if (function=="LEN") { // return the length of a string(param1) s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); return QString::number(s1.length()); }; if (function=="MID") { // returns the mid word of string param1 with start param2 and len param3 s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); w1=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); w2=calculateVariable(getParameter(parameters, 2, TRUE, function)).toInt(&ok); s2=s1.mid(w1,w2); return QString(s2); }; if (function=="REPLACE") { //replace in param1 text in pos param2 and length param3 to newtext param4 s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); w1=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); w2=calculateVariable(getParameter(parameters, 2, TRUE, function)).toInt(&ok); s2=calculateVariable(getParameter(parameters, 3, TRUE, function)); if(w1<0 || w2<0) return QString(s1); s1=s1.left(w2-1)+s2+s1.right(s1.length()-w1-w2); return QString(s1); }; if (function=="REPT") { //repeats param1 string param2 times s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); w1=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); for(w2=1;w2<=w1;w2++) { s2=s2.append(s1); }; return QString(s2); }; if (function=="RIGHT") { // returns the param2 right chars from param1 string s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); s2=s1.right(vali); return QString(s2); }; if (function=="UPPER") { // returns the upper param1 string s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); s1=s1.upper(); return QString(s1); }; if (function=="LOWER") { // returns the lower param1 string s1=calculateVariable(getParameter(parameters, 0, TRUE, function)); s1=s1.lower(); return QString(s1); }; if (function=="IF") { //usage: IF(param1,param2,param3) //returns param4 if true(param1)/ param5 if false(param1) val1=getParameter(parameters, 0, TRUE, function).toDouble(&ok); if(val1==1.0) { s1=calculateVariable(getParameter(parameters, 1, TRUE, function)); return QString(s1); }else { s1=calculateVariable(getParameter(parameters, 2, TRUE, function)); return QString(s1); }; }; if (function=="SUM") { //NumOfParams val2=0.0; for(w1=1;w1<=(NumOfParams/2);w1++) { val1=functionSum(getParameter(parameters, (w1-1)*2, FALSE, function), getParameter(parameters, (w1-1)*2+1, TRUE, function)); val2=val2+val1; }; if(NumOfParams%2==1) { val2=val2+calculateVariable(getParameter(parameters,NumOfParams-1,FALSE, function)).toDouble(&ok); }; return QString::number(val2); }; if (function=="INDEX") { s1=functionIndex(getParameter(parameters,0,TRUE,function), getParameter(parameters, 1, TRUE, function), getParameter(parameters,2,TRUE,function).toInt(&ok)); return QString(s1); }; if (function=="SUMSQ") { //NumOfParams val2=0.0; for(w1=1;w1<=(NumOfParams/2);w1++) { val1=functionSumSQ(getParameter(parameters, (w1-1)*2, FALSE, function), getParameter(parameters, (w1-1)*2+1, TRUE, function)); val2=val2+val1; }; if(NumOfParams%2==1) { val1=calculateVariable(getParameter(parameters,NumOfParams-1,FALSE, function)).toDouble(&ok); val2=val2+val1*val1; }; return QString::number(val2); }; if (function=="COUNT") { //NumOfParams val2=0.0; for(w1=1;w1<=(NumOfParams/2);w1++) { val1=functionCount(getParameter(parameters, (w1-1)*2, FALSE, function), getParameter(parameters, (w1-1)*2+1, TRUE, function)); val2=val2+val1; }; if(NumOfParams%2==1) { val1=calculateVariable(getParameter(parameters,NumOfParams-1,FALSE, function)).toDouble(&ok); if(ok) val2=val2+1; }; return QString::number(val2); }; if (function=="COUNTIF") { //NumOfParams val1=functionCountIf(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function), getParameter(parameters, 2, TRUE, function)); return QString::number(val1); }; if (function=="MIN") { //NumOfParams val2=0.0; for(w1=1;w1<=(NumOfParams/2);w1++) { val1=functionMin(getParameter(parameters, (w1-1)*2, FALSE, function), getParameter(parameters, (w1-1)*2+1, TRUE, function)); val2=val1; }; if(NumOfParams%2==1) { val1=calculateVariable(getParameter(parameters,NumOfParams-1,FALSE, function)).toDouble(&ok); if(val1<val2) val2=val1; }; return QString::number(val2); }; if (function=="MAX") { //NumOfParams val2=0.0; for(w1=1;w1<=(NumOfParams/2);w1++) { val1=functionMax(getParameter(parameters, (w1-1)*2, FALSE, function), getParameter(parameters, (w1-1)*2+1, TRUE, function)); val2=val1; }; if(NumOfParams%2==1) { val1=calculateVariable(getParameter(parameters,NumOfParams-1,FALSE, function)).toDouble(&ok); if(val1>val2) val2=val1; }; return QString::number(val2); }; if (function=="AVERAGE") { val1=functionAvg(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); return QString::number(val1); }; if(function=="BESSELI") { // BesselI (x,n) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); val2=BesselI(vali,val1); return QString::number(val2); }; if(function=="BESSELJ") { // BesselJ (x,n) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); val2=BesselJ(vali,val1); return QString::number(val2); }; if(function=="BESSELK") { // BesselK (x,n) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); val2=BesselK(vali,val1); return QString::number(val2); }; if(function=="BESSELY") { // BesselY (x,n) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); val2=BesselY(vali,val1); return QString::number(val2); }; if(function=="GAMMALN") { val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=GammaLn(val1); return QString::number(val2); }; if(function=="ERF") { // ERF (a,b) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); return QString::number(ErrorFunction(val2)-ErrorFunction(val1)); }; if(function=="ERFC") { // ERFC (a,b) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); return QString::number(ErrorFunctionComplementary(val2)-ErrorFunctionComplementary(val1)); }; if(function=="POISSON") { // POISSON DISTR(x,n,distr/desnt) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 2, TRUE, function)).toInt(&ok); if(vali==1) { return QString::number(GammaQ(floor(val1)+1, val2)); }else { return QString::number(exp(-val2)*pow(val2,val1)/exp(GammaLn(val1+1.0))); }; }; if(function=="CHIDIST") { // POISSON CHIDIST(x,n,distr/density) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 2, TRUE, function)).toInt(&ok); if(vali==1) { return QString::number(GammaP(val2/2.0,val1*val1/2.0)); } else { return QString::number( pow(val1,val2-1.0)*exp(-val1*val1/2)/ ( pow(2,val2/2.0-1.0)*exp(GammaLn(val2/2.0))) ); }; }; if(function=="CHI2DIST") { // POISSON CHISQUAREDIST(x,n,distr/density) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 2, TRUE, function)).toInt(&ok); if(vali==1) { return QString::number(GammaP(val2/2.0,val1/2.0)); } else { return QString::number( pow(val1,val2/2.0-1.0)/(exp(val1/2.0)*pow(sqrt(2.0),val2)*exp(GammaLn(val2/2.0))) ); }; }; if(function=="BETAI") { // BETA INCOMPLETE BETA(x,a,b) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val3=calculateVariable(getParameter(parameters, 2, TRUE, function)).toDouble(&ok); return QString::number(BetaIncomplete(val2,val3,val1)); }; if(function=="GAMMAP") { // GammaP (x,a) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); return QString::number(GammaP(val2,val1)); }; if(function=="GAMMAQ") { // GammaQ (x,a) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); return QString::number(GammaQ(val2,val1)); }; if (function=="VAR") { val1=functionVariance(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); return QString::number(val1); }; if (function=="VARP") { val1=functionVariancePopulation(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); return QString::number(val1); }; if (function=="STDEV") { val1=functionVariance(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); if(val1<=0.0) return QString::number(0.0); return QString::number(sqrt(val1)); }; if (function=="STDEVP") { val1=functionVariancePopulation(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); if(val1<=0.0) return QString::number(0.0); return QString::number(sqrt(val1)); }; if (function=="SKEW") { val1=functionSkew(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); return QString::number(val1); }; if (function=="KURT") { val1=functionKurt(getParameter(parameters, 0, TRUE, function), getParameter(parameters, 1, TRUE, function)); return QString::number(val1); }; if(function=="GAMMADIST") { // GAMMADIST (x,alpha,beta,distribution?density1:0) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val3=calculateVariable(getParameter(parameters, 2, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 3, TRUE, function)).toInt(&ok); if(vali==1)//distribution { if(val3==0.0) return QString::number(0.0); else return QString::number(GammaP(val2,val1/val3)); }else //density { return QString::number( pow(val1,val2-1.0)*exp(-val1/val3) / (pow(val3,val2)*exp(GammaLn(val2))) ); }; }; if(function=="BETADIST") { // BETADIST (z,alpha,beta,distribution?density1:0) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val3=calculateVariable(getParameter(parameters, 2, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 3, TRUE, function)).toInt(&ok); if(vali==1)//distribution { return QString::number(BetaIncomplete(val2,val3,val1)); }else //density { return QString::number( pow(val1,val2-1.0)*pow(1.0-val1,val3-1.0) / Beta(val2,val3) ); }; }; if(function=="FDIST") { // FDIST (z,d1,d2,distribution?density1:0) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val3=calculateVariable(getParameter(parameters, 2, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 3, TRUE, function)).toInt(&ok); if(vali==1)//distribution { return QString::number( -BetaIncomplete(val3/2,val2/2,val3/(val3+val2*val1)) +BetaIncomplete(val3/2,val2/2,1) ); }else //density { return QString::number( pow(val2,val2/2)*pow(val3,val3/2)*pow(val1,val2/2-1)/ (pow(val3+val2*val1,(val2+val3)/2)*Beta(val2/2,val3/2)) ); }; }; if(function=="NORMALDIST") { // NORMALDIST (x,m,s,distribution?density1:0) val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); val2=calculateVariable(getParameter(parameters, 1, TRUE, function)).toDouble(&ok); val3=calculateVariable(getParameter(parameters, 2, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 3, TRUE, function)).toInt(&ok); if(vali==1)//distribution { return QString::number( (ErrorFunction((val1-val2)/(sqrt(2)*val3))+1)/2.0 ); }else //density { return QString::number( exp(-pow(((val1-val2)/val3),2)/2)/(val3*sqrt(2*M_PI)) ); }; }; if(function=="PHI") { // NORMALDIST (x,distribution?density1:0) with mean=0 s=1.0 val1=calculateVariable(getParameter(parameters, 0, TRUE, function)).toDouble(&ok); vali=calculateVariable(getParameter(parameters, 1, TRUE, function)).toInt(&ok); if(vali==1)//distribution { return QString::number( (ErrorFunction(val1/(sqrt(2)))+1)/2.0 ); }else //density { return QString::number( exp(-pow(val1,2)/2)/(sqrt(2*M_PI)) ); }; }; /* StudentTDistribution/: PDF[StudentTDistribution[n_], x_] := 1/(Sqrt[n] Beta[n/2, 1/2]) Sqrt[n/(n+x^2)]^(n+1) /; ParameterQ[StudentTDistribution[n]] StudentTDistribution/: CDF[StudentTDistribution[n_], x_] := (1 + Sign[x] BetaRegularized[n/(n+x^2), 1, n/2, 1/2])/2 /; ParameterQ[StudentTDistribution[n]] */ return 0; }; QString Sheet::dataParserHelper(const QString &data) { if(data.left(1)=="""" && data.right(1)=="""") return QString(data); Expression exp1(data); exp1.Parse(); QStack<QString> stack1; stack1.setAutoDelete(TRUE); int i=0; QString* s1; QString* s2=NULL; int* i1; int args,tokentype; QString tempval; s1=exp1.CompiledBody.first();i1=exp1.CompiledBodyType.first(); while(i<=(int)exp1.CompiledBody.count()-1) { args= ((*i1) & 0xFF00)>>8; tokentype=(*i1) & 0x00FF; if(tokentype==NUMBER_TOKEN) { stack1.push(new QString(*s1)); //printf("Parse:Number=%s\r\n",s1->latin1()); } else if(tokentype==VARIABLE_TOKEN) { - stack1.push(new QString(*s1)); + stack1.push(new QString(QString(*s1).upper())); //printf("Parse:Var=%s\r\n",s1->latin1()); //here to put implementation of other types of variables except cell. //for example names } else if(tokentype==STRING_TOKEN) { stack1.push(new QString(*s1)); //printf("Parse:String=%s\r\n",s1->ascii()); } else if(tokentype==FUNCTION_TOKEN) { QString params=""; for(int w1=1;w1<=args;w1++) { if((int)stack1.count()!=0) s2=stack1.pop(); params=*s2+params;//args in reverse order params=","+params; }; params=params.mid(1); if(params==NULL) params="0"; //printf("Parse:Func=%s, params=%s, stackcount=%d,args=%d\r\n" // ,s1->latin1(),params.latin1(),stack1.count(),args); tempval=calculateFunction(*s1,params,args); - tempval=tempval.upper(); + tempval=tempval; stack1.push(new QString(tempval)); }; //loops to next token if(exp1.CompiledBody.next()!=NULL) s1=exp1.CompiledBody.current(); else break; if(exp1.CompiledBodyType.next()!=NULL) i1=exp1.CompiledBodyType.current(); else break; i++; }; if((int)stack1.count()!=0)s2=stack1.pop(); else s2=new QString("!ERROR"); tempval=*s2; return(tempval); }; QString Sheet::dataParser(const QString &cell, const QString &data) { QString strippedData(data); strippedData.replace(QRegExp("\\s"), ""); if (strippedData.isEmpty() || strippedData[0]!='=') return data; if (listDataParser.find(cell)!=listDataParser.end()) return "0"; listDataParser.append(cell); // printf("DATAPARSER: data=%s, cell=%s\r\n",data.ascii(),cell.ascii()); - strippedData=dataParserHelper(strippedData.remove(0, 1).upper().replace(QRegExp(":"), ",")); + strippedData=dataParserHelper(strippedData.remove(0, 1).replace(QRegExp(":"), ",")); int i=0; QString tempParameter(getParameter(strippedData, i)), result=""; do { result+=","+calculateVariable(tempParameter); tempParameter=getParameter(strippedData, ++i); } while (!tempParameter.isNull()); listDataParser.remove(cell); return result.mid(1); } void Sheet::setData(const QString &data) { setText(currentRow(), currentColumn(), data); slotCellChanged(currentRow(), currentColumn()); activateNextCell(); } QString Sheet::getData() { typeCellData *cellData=findCellData(currentRow(), currentColumn()); if (cellData) return cellData->data; return ""; } void Sheet::lockClicks(bool lock) { clicksLocked=lock; } void Sheet::paintCell(QPainter *p, int row, int col, const QRect & cr, bool selected) { if (selected && row==currentRow() && col==currentColumn()) selected=FALSE; int sheetDataCurrent=sheetData.at(); typeCellData *cellData=findCellData(row, col); if (sheetDataCurrent>=0) sheetData.at(sheetDataCurrent); if (!cellData) cellData=&defaultCellData; if (selected) p->fillRect(0, 0, cr.width(), cr.height(), colorGroup().highlight()); else { p->fillRect(0, 0, cr.width(), cr.height(), colorGroup().base()); p->fillRect(0, 0, cr.width(), cr.height(), cellData->background); } QTableItem *cellItem=item(row, col); if (cellItem) { p->setPen(selected ? colorGroup().highlightedText() : cellData->fontColor); p->setFont(cellData->font); QString str=cellItem->text(); p->drawText(2, 2, cr.width()-4, cr.height()-4, cellData->alignment, cellItem->text()); } int rx=cr.width()-1, ry=cr.height()-1; QPen pen(p->pen()); p->setPen(cellData->borders.right); p->drawLine(rx, 0, rx, ry); p->setPen(cellData->borders.bottom); p->drawLine(0, ry, rx, ry); p->setPen(pen); } void Sheet::viewportMousePressEvent(QMouseEvent *e) { QMouseEvent ce(e->type(), viewportToContents(e->pos()), e->globalPos(), e->button(), e->state()); if (clicksLocked) { if (selectionNo<0) { clearSelection(); QTableSelection newSelection; newSelection.init(rowAt(ce.pos().y()), columnAt(ce.pos().x())); newSelection.expandTo(newSelection.anchorRow(), newSelection.anchorCol()); selectionNo=addSelection(newSelection); } } else QTable::contentsMousePressEvent(&ce); } void Sheet::viewportMouseMoveEvent(QMouseEvent *e) { QMouseEvent ce(e->type(), viewportToContents(e->pos()), e->globalPos(), e->button(), e->state()); if (clicksLocked) { if (selectionNo>=0) { QTableSelection oldSelection(selection(selectionNo)); oldSelection.expandTo(rowAt(ce.pos().y()), columnAt(ce.pos().x())); if (!(oldSelection==selection(selectionNo))) { removeSelection(selectionNo); selectionNo=addSelection(oldSelection); } } } else QTable::contentsMouseMoveEvent(&ce); } void Sheet::viewportMouseReleaseEvent(QMouseEvent *e) { QMouseEvent ce(e->type(), viewportToContents(e->pos()), e->globalPos(), e->button(), e->state()); if (clicksLocked && selectionNo>=0) { QTableSelection oldSelection(selection(selectionNo)); oldSelection.expandTo(rowAt(ce.pos().y()), columnAt(ce.pos().x())); removeSelection(selectionNo); selectionNo=-1; if (oldSelection.topRow()==oldSelection.bottomRow() && oldSelection.leftCol()==oldSelection.rightCol()) emit cellClicked(findCellName(oldSelection.topRow(), oldSelection.leftCol())); else emit cellClicked(findCellName(oldSelection.topRow(), oldSelection.leftCol())+','+findCellName(oldSelection.bottomRow(), oldSelection.rightCol())); } else QTable::contentsMouseReleaseEvent(&ce); } QString Sheet::findCellName(int row, int col) { return (getHeaderString(col+1)+QString::number(row+1)); } void Sheet::copySheetData(QList<typeCellData> *destSheetData) { typeCellData *tempCellData, *newCellData; destSheetData->clear(); for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) { newCellData=new typeCellData; *newCellData=*tempCellData; destSheetData->append(newCellData); } } void Sheet::setSheetData(QList<typeCellData> *srcSheetData) { typeCellData *tempCellData, *newCellData; for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) { clearCell(tempCellData->row, tempCellData->col); updateCell(tempCellData->row, tempCellData->col); } sheetData.clear(); for (tempCellData=srcSheetData->first(); tempCellData; tempCellData=srcSheetData->next()) { newCellData=new typeCellData; *newCellData=*tempCellData; sheetData.append(newCellData); setText(newCellData->row, newCellData->col, dataParser(findCellName(newCellData->row, newCellData->col), newCellData->data)); } emit sheetModified(); } void Sheet::setName(const QString &name) { sheetName=name; emit sheetModified(); } QString Sheet::getName() { return sheetName; } void Sheet::setBrush(int row, int col, const QBrush &brush) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=createCellData(row, col); if (cellData) { cellData->background=brush; emit sheetModified(); } } QBrush Sheet::getBrush(int row, int col) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=&defaultCellData; return cellData->background; } void Sheet::setTextAlign(int row, int col, Qt::AlignmentFlags flags) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=createCellData(row, col); if (cellData) { cellData->alignment=flags; emit sheetModified(); } } Qt::AlignmentFlags Sheet::getAlignment(int row, int col) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=&defaultCellData; return cellData->alignment; } void Sheet::setTextFont(int row, int col, const QFont &font, const QColor &color) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=createCellData(row, col); if (cellData) { cellData->font=font; cellData->fontColor=color; emit sheetModified(); } } QFont Sheet::getFont(int row, int col) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=&defaultCellData; return cellData->font; } QColor Sheet::getFontColor(int row, int col) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=&defaultCellData; return cellData->fontColor; } void Sheet::setPen(int row, int col, int vertical, const QPen &pen) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=createCellData(row, col); if (cellData) { if (vertical) cellData->borders.right=pen; else cellData->borders.bottom=pen; emit sheetModified(); } } QPen Sheet::getPen(int row, int col, int vertical) { typeCellData *cellData=findCellData(row, col); if (!cellData) cellData=&defaultCellData; return (vertical ? cellData->borders.right : cellData->borders.bottom); } void Sheet::getSelection(int *row1, int *col1, int *row2, int *col2) { int selectionNo=currentSelection(); if (selectionNo>=0) { QTableSelection selection(selection(selectionNo)); *row1=selection.topRow(); *row2=selection.bottomRow(); *col1=selection.leftCol(); *col2=selection.rightCol(); } else { *row1=*row2=currentRow(); *col1=*col2=currentColumn(); } } void Sheet::editClear() { int row1, row2, col1, col2; getSelection(&row1, &col1, &row2, &col2); int row, col; for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { setText(row, col, ""); slotCellChanged(row, col); } } void Sheet::editCopy() { clipboardData.clear(); int row1, row2, col1, col2; getSelection(&row1, &col1, &row2, &col2); typeCellData *cellData, *newCellData; int row, col; for (row=row1; row<=row2; ++row) for (col=col1; col<=col2; ++col) { cellData=findCellData(row, col); if (cellData) { newCellData=new typeCellData; *newCellData=*cellData; newCellData->row-=row1; newCellData->col-=col1; clipboardData.append(newCellData); } } } void Sheet::editCut() { editCopy(); editClear(); } void Sheet::editPaste(bool onlyContents) { int row1=currentRow(), col1=currentColumn(); typeCellData *cellData, *tempCellData; for (tempCellData=clipboardData.first(); tempCellData; tempCellData=clipboardData.next()) { cellData=findCellData(tempCellData->row+row1, tempCellData->col+col1); if (!cellData) cellData=createCellData(tempCellData->row+row1, tempCellData->col+col1); if (cellData) { if (onlyContents) cellData->data=tempCellData->data; else { *cellData=*tempCellData; cellData->row+=row1; cellData->col+=col1; } setText(cellData->row, cellData->col, dataParser(findCellName(cellData->row, cellData->col), cellData->data)); emit sheetModified(); } } } void Sheet::insertRows(int no, bool allColumns) { setNumRows(numRows()+no); typeCellData *tempCellData; int row=currentRow(), col=currentColumn(); for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) if (tempCellData->row>=row && (allColumns || tempCellData->col==col)) { clearCell(tempCellData->row, tempCellData->col); tempCellData->row+=no; } for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) if (tempCellData->row>=row && (allColumns || tempCellData->col==col)) { updateCell(tempCellData->row-no, tempCellData->col); setText(tempCellData->row, tempCellData->col, dataParser(findCellName(tempCellData->row, tempCellData->col), tempCellData->data)); } emit sheetModified(); } void Sheet::insertColumns(int no, bool allRows) { int noCols=numCols(); int newCols=noCols+no; setNumCols(newCols); for (int i=noCols; i<newCols; ++i) horizontalHeader()->setLabel(i, getHeaderString(i+1), DEFAULT_COL_WIDTH); typeCellData *tempCellData; int col=currentColumn(), row=currentRow(); for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) if (tempCellData->col>=col && (allRows || tempCellData->row==row)) { clearCell(tempCellData->row, tempCellData->col); tempCellData->col+=no; } for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) if (tempCellData->col>=col && (allRows || tempCellData->row==row)) { updateCell(tempCellData->row, tempCellData->col-no); setText(tempCellData->row, tempCellData->col, dataParser(findCellName(tempCellData->row, tempCellData->col), tempCellData->data)); } emit sheetModified(); } void Sheet::dataFindReplace(const QString &findStr, const QString &replaceStr, bool matchCase, bool allCells, bool entireCell, bool replace, bool replaceAll) { typeCellData *tempCellData; int row1, col1, row2, col2; getSelection(&row1, &col1, &row2, &col2); bool found=FALSE; for (tempCellData=sheetData.first(); tempCellData; tempCellData=sheetData.next()) if (allCells || (tempCellData->row>=row1 && tempCellData->row<=row2 && tempCellData->col>=col1 && tempCellData->col<=col2)) { QTableItem *cellItem=item(tempCellData->row, tempCellData->col); if (cellItem && (entireCell ? (matchCase ? cellItem->text()==findStr : cellItem->text().upper()==findStr.upper()) : cellItem->text().find(findStr, 0, matchCase)>=0)) { if (!found) { found=TRUE; clearSelection(); } setCurrentCell(tempCellData->row, tempCellData->col); if (replace) { tempCellData->data=cellItem->text().replace(QRegExp(findStr, matchCase), replaceStr); setText(tempCellData->row, tempCellData->col, dataParser(findCellName(tempCellData->row, tempCellData->col), tempCellData->data)); } if (!replace || !replaceAll) break; } } if (found) { if (replace) slotCellChanged(currentRow(), currentColumn()); } else QMessageBox::warning(this, tr("Error"), tr("Search key not found!")); } // // Static functions // QString Sheet::getHeaderString(int section) { if (section<1) return ""; return getHeaderString((section-1)/26)+QChar('A'+(section-1)%26); } int Sheet::getHeaderColumn(const QString §ion) { if (section.isEmpty()) return 0; return (section[section.length()-1]-'A'+1)+getHeaderColumn(section.left(section.length()-1))*26; } //Expression Parser Class Definition QChar Expression::chunk0(void) { if(chunk.length()>0) return(chunk[0]); else return('\0'); }; Expression::Expression(QString expr1)// constructor { Body=expr1; SYMBOL="+-*/%^=()<>&|!,"; MATHSYMBOL="+-*/%^=<>&|!,"; // lnlim=1.0e-36; // Smallest number allowed // loglim=1.0e-10 ; // Smallest number allowed in call to log10() * ErrorFound=TRUE; n=0;chunk="";SymbGroup=NONE_TOKEN;InExpr=Body; ArgsOfFunc=0; CompiledBody.setAutoDelete(TRUE); CompiledBodyType.setAutoDelete(TRUE); //CompiledBody=QStringList(0); }; bool Expression::isSymbol(QChar ch) { int j = 0; while (j<=((int)SYMBOL.length()-1) && ch!=SYMBOL[j]) j++; if(j<((int)SYMBOL.length())) return true; else return false; }; bool Expression::isMathSymbol(QChar ch) { int j = 0; while (j<=((int)MATHSYMBOL.length()-1) && ch!=MATHSYMBOL[j]) j++; if(j<((int)MATHSYMBOL.length())) return true; else return false; }; void Expression::GetNext() { chunk=""; if(n>=(int)InExpr.length()) return; while (InExpr[n]==' ') n++; if(InExpr[n]=='\"') { while ( (n<(int)InExpr.length()) && (InExpr[n+1]!='\"') ) { printf("chunk=%s\r\n",chunk.latin1()); chunk+=InExpr[n]; n++; }; chunk+=InExpr[n]; printf("2\r\n"); SymbGroup=STRING_TOKEN; } else if (isSymbol(InExpr[n])) { SymbGroup=SYMBOL_TOKEN; chunk+=InExpr[n]; n++; if( (n<(int)InExpr.length()) && isMathSymbol(InExpr[n-1]) && isMathSymbol(InExpr[n]) ) { SymbGroup=SYMBOL_TOKEN; chunk+=InExpr[n]; n++; diff --git a/noncore/apps/opie-sheet/sheet.h b/noncore/apps/opie-sheet/sheet.h index 41f1b86..f705cd0 100644 --- a/noncore/apps/opie-sheet/sheet.h +++ b/noncore/apps/opie-sheet/sheet.h @@ -1,211 +1,211 @@ /*************************************************************************** * * * This program is free software; you can redistribute it and/or modify * * it under the terms of the GNU General Public License as published by * * the Free Software Foundation; either version 2 of the License, or * * (at your option) any later version. * * * ***************************************************************************/ /* * Opie Sheet (formerly Sheet/Qt) * by Serdar Ozler <sozler@sitebest.com> */ #ifndef SHEET_H #define SHEET_H #include <qtable.h> #include <qstack.h> typedef struct typeCellBorders { QPen right, bottom; }; typedef struct typeCellData { int col, row; typeCellBorders borders; QBrush background; Qt::AlignmentFlags alignment; QColor fontColor; QFont font; QString data; }; #define NONE_TOKEN 0 #define NUMBER_TOKEN 1 #define VARIABLE_TOKEN 2 #define FUNCTION_TOKEN 3 #define SYMBOL_TOKEN 4 #define STRING_TOKEN 5 class Expression { public: QString Body; QList<QString> CompiledBody; QList<int> CompiledBodyType; QString SYMBOL; QString MATHSYMBOL; QArray<int> ArgsOfFunc; int FuncDepth; bool ErrorFound; int n; // holds the current parser position QString chunk; // the piece in the parser we are on int SymbGroup; // the current type QString InExpr; QChar chunk0(void); // retunrs the first char of expression; Expression(QString expr1);// constructor bool isSymbol(QChar ch); bool isMathSymbol(QChar ch); void GetNext(); void First(); void Third(); void Fourth(); void Fifth(); void Sixth(); void Seventh(); void Eighth(); void Ninth(); bool Expression::Parse(); //parses the expression in RPN format; }; class Sheet: public QTable { Q_OBJECT // Variables bool clicksLocked; int selectionNo; typeCellBorders defaultBorders; typeCellData defaultCellData; // QT objects QList<typeCellData> sheetData, clipboardData; QString pressedCell, releasedCell, sheetName; QStringList listDataParser; // Private functions bool findRowColumn(const QString &variable, int *row, int *col, bool giveError=FALSE); QString findCellName(int row, int col); bool findRange(const QString &variable1, const QString &variable2, int *row1, int *col1, int *row2, int *col2); QString calculateVariable(const QString &variable); - QString calculateFunction(const QString &function, const QString ¶meters, int NumOfParams); + QString calculateFunction(const QString &func, const QString ¶meters, int NumOfParams); QString getParameter(const QString ¶meters, int paramNo, bool giveError=FALSE, const QString funcName=""); QString dataParser(const QString &cell, const QString &data); QString dataParserHelper(const QString &data); typeCellData *createCellData(int row, int col); typeCellData *findCellData(int row, int col); //LOGICAL / INFO double functionCountIf(const QString ¶m1, const QString ¶m2, const QString ¶m3); double functionSumSQ(const QString ¶m1, const QString ¶m2); //sum of squares QString functionIndex(const QString ¶m1, const QString ¶m2, int indx); //math functions computations double BesselI0(double x); double BesselI(int n, double x); double BesselK0(double x); double BesselI1(double x); double BesselK1(double x); double BesselK(int n, double x); double BesselJ0(double x); double BesselY0(double x); double BesselJ1(double x); double BesselY1(double x); double BesselY(int n, double x); double BesselJ(int n, double x); double GammaLn(double xx); double Factorial(double n); double GammaP(double a, double x); double GammaQ(double a,double x); void GammaSeries(double *gamser, double a, double x, double *gln); void GammaContinuedFraction(double *gammcf, double a, double x, double *gln); double ErrorFunction(double x); double ErrorFunctionComplementary(double x); double Beta(double z, double w); double BetaContinuedFraction(double a, double b, double x); double BetaIncomplete(double a, double b, double x); double functionVariance(const QString ¶m1, const QString ¶m2); double functionVariancePopulation(const QString ¶m1, const QString ¶m2); double functionSkew(const QString ¶m1, const QString ¶m2); double functionKurt(const QString ¶m1, const QString ¶m2); // Sheet/Qt parser functions double functionSum(const QString ¶m1, const QString ¶m2); double functionAvg(const QString ¶m1, const QString ¶m2); double functionMax(const QString ¶m1, const QString ¶m2); double functionMin(const QString ¶m1, const QString ¶m2); double functionCount(const QString ¶m1, const QString ¶m2); // Reimplemented QTable functions void paintCell(QPainter *p, int row, int col, const QRect & cr, bool selected); void viewportMousePressEvent(QMouseEvent *e); void viewportMouseMoveEvent(QMouseEvent *e); void viewportMouseReleaseEvent(QMouseEvent *e); public slots: void slotCellSelected(int row, int col); void slotCellChanged(int row, int col); public: Sheet(int numRows, int numCols, QWidget *parent); ~Sheet(); void ReCalc(void); void setData(const QString &data); QString getData(); void setName(const QString &data); QString getName(); void setPen(int row, int col, int vertical, const QPen &pen); QPen getPen(int row, int col, int vertical); void setBrush(int row, int col, const QBrush &brush); QBrush getBrush(int row, int col); void setTextAlign(int row, int col, Qt::AlignmentFlags flags); Qt::AlignmentFlags getAlignment(int row, int col); void setTextFont(int row, int col, const QFont &font, const QColor &color); QFont getFont(int row, int col); QColor getFontColor(int row, int col); void lockClicks(bool lock=TRUE); void copySheetData(QList<typeCellData> *destSheetData); void setSheetData(QList<typeCellData> *srcSheetData); void getSelection(int *row1, int *col1, int *row2, int *col2); void insertRows(int no=1, bool allColumns=TRUE); void insertColumns(int no=1, bool allRows=TRUE); void dataFindReplace(const QString &find, const QString &replace, bool matchCase=TRUE, bool allCells=TRUE, bool entireCell=FALSE, bool replace=FALSE, bool replaceAll=FALSE); // Static functions static int getHeaderColumn(const QString §ion); static QString getHeaderString(int section); public slots: void editCut(); void editCopy(); void editPaste(bool onlyContents=FALSE); void editClear(); void swapCells(int row1, int col1, int row2, int col2); signals: void currentDataChanged(const QString &data); void cellClicked(const QString &cell); void sheetModified(); }; #endif |