| /dports/math/scilab/scilab-6.1.1/scilab/modules/special_functions/sci_gateway/c/ |
| H A D | sci_beta.c | 46 double* pdblX = NULL; in sci_beta() local
73 sciErr = getMatrixOfDouble(pvApiCtx, piAddr1, &mx, &nx, &pdblX); in sci_beta()
110 if ( (pdblX[i] <= 0.0) || (pdblY[i] <= 0.0) ) in sci_beta()
121 xpy = pdblX[i] + pdblY[i]; in sci_beta()
125 … pdblZ[i] = C2F(dgammacody)(&pdblX[i]) * C2F(dgammacody)(&pdblY[i]) / C2F(dgammacody)(&xpy); in sci_beta()
129 pdblZ[i] = exp(C2F(betaln)(&pdblX[i], &pdblY[i])); in sci_beta()
|
| H A D | sci_legendre.c | 69 double* pdblX = NULL; in sci_legendre() local
188 sciErr = getMatrixOfDouble(pvApiCtx, piAddr3, &mx, &nx, &pdblX); in sci_legendre()
199 if ((fabs(pdblX[i]) <= 1.0) == 0) in sci_legendre()
259 xx = fabs(pdblX[i]); in sci_legendre()
327 if ( pdblX[i] < 0.0 ) in sci_legendre()
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/umfpack/sci_gateway/c/ |
| H A D | sci_taucs_chsolve.c | 77 double* pdblX = NULL; in sci_taucs_chsolve() local
181 sciErr = allocMatrixOfDouble(pvApiCtx, nbInputArgument(pvApiCtx) + 1, mb, nb, &pdblX); in sci_taucs_chsolve()
210 taucs_vec_permute(n, &pdblB[j * mb], &pdblX[j * mb], pC->p); in sci_taucs_chsolve()
211 taucs_supernodal_solve_llt(pC->C, pdblV, &pdblX[j * mb]); /* FIXME : add a test here */ in sci_taucs_chsolve()
212 taucs_vec_ipermute(n, pdblV, &pdblX[j * mb], pC->p); in sci_taucs_chsolve()
216 …residu_with_prec_for_chol(&A, &pdblX[j * mb], &pdblV[j * mb], pdblRes, &norm_res, A_is_upper_trian… in sci_taucs_chsolve()
225 pdblV[i] = pdblX[j * mb + i] - pdblV[i]; /* v is the refined solution */ in sci_taucs_chsolve()
234 pdblX[j * mb + i] = pdblV[i]; in sci_taucs_chsolve()
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/statistics/sci_gateway/cpp/ |
| H A D | sci_percent_cov.cpp | 83 double* pdblX[3] = { pDblX->get(), pDblX->getImg(), NULL }; in sci_percent_cov() local
119 for (int i = 0; pdblX[i] != NULL; i++) in sci_percent_cov()
122 …C2F(dgemv)((char*)"T", &iNrow, &iNcolX, &dblOne, pdblX[i], &iNrow, pDblU->get(), &iOne, &dblZero, … in sci_percent_cov()
127 pdblX[i], &iNrow, pdblY[j], &iNrow, &dblOne, pdblOut[i^j], &iNcolX); in sci_percent_cov()
151 for (int i = 0; pdblX[i] != NULL; i++) in sci_percent_cov()
155 …C2F(dgemv)((char*)"T", &iNrow, &iNcolX, &dblOne, pdblX[i], &iNrow, pDblU->get(), &iOne, &dblZero, … in sci_percent_cov()
157 …C2F(dsyrk)((char*)"U", (char*)"T", &iNcolX, &iNrow, &dblr1, pdblX[i], &iNrow, &dblOne, pdblOut[0],… in sci_percent_cov()
165 …dgemm)((char*)"T", (char*)"N", &iNcolX, &iNcolX, &iNrow, &dblr1, pdblX[0], &iNrow, pdblX[1], &iNro… in sci_percent_cov()
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/sci_gateway/cpp/ |
| H A D | sci_ereduc.cpp | 32 double* pdblX = NULL; in sci_ereduc() local
58 pdblX = pDblX->get(); in sci_ereduc()
88 C2F(ereduc)(pdblX, &iRowsX, &iColsX, pdblQ, pdblZ, piStair, &iRk, &dTol); in sci_ereduc()
|
| /dports/math/scilab/scilab-6.1.1/scilab/modules/graphics/sci_gateway/c/ |
| H A D | sci_drawaxis.c | 41 double* pdblX, int ypos, int yRow, int yCol, double* pdblY, int *ntics);
345 int xm, int xn, double* pdblX, in check_xy() argument
407 *ntics = (int)pdblX[2] + 1; in check_xy()
410 *ntics = (int)pdblX[3] + 1; in check_xy()
|