/dports/math/R/R-4.1.2/src/library/stats/src/ |
H A D | burg.c | 26 double d, phii, *u, *v, *u0, sum; in burg() local 46 phii = 2*sum/d; in burg() 47 coefs[pmax*(p-1) + (p-1)] = phii; in burg() 51 coefs[p-2 + pmax*(j-1)] - phii* coefs[p-2 + pmax*(p-j-1)]; in burg() 56 u[t] = u0[t-1] - phii * v[t]; in burg() 57 v[t] = v[t] - phii * u0[t-1]; in burg() 59 var1[p] = var1[p-1] * (1 - phii * phii); in burg()
|
H A D | starma.c | 79 double phii, phij, ynext, vj, bi; in starma() local 150 phii = phi[i]; in starma() 152 xnext[indj] = -phii; in starma() 158 xnext[npr] = -phii * phij; in starma() 317 double phii, phij, sigma2, a1, aa, dt, phijdt, ams, tmp; in forkal() local 490 phii = phi[i]; in forkal() 491 P[ind2] = V[ind++] + phii * phijdt; in forkal() 492 if (j < r - 1) P[ind2] += store[j + 1] * phii; in forkal()
|
/dports/math/libRmath/R-4.1.1/src/library/stats/src/ |
H A D | burg.c | 26 double d, phii, *u, *v, *u0, sum; in burg() local 46 phii = 2*sum/d; in burg() 47 coefs[pmax*(p-1) + (p-1)] = phii; in burg() 51 coefs[p-2 + pmax*(j-1)] - phii* coefs[p-2 + pmax*(p-j-1)]; in burg() 56 u[t] = u0[t-1] - phii * v[t]; in burg() 57 v[t] = v[t] - phii * u0[t-1]; in burg() 59 var1[p] = var1[p-1] * (1 - phii * phii); in burg()
|
H A D | starma.c | 79 double phii, phij, ynext, vj, bi; in starma() local 150 phii = phi[i]; in starma() 152 xnext[indj] = -phii; in starma() 158 xnext[npr] = -phii * phij; in starma() 317 double phii, phij, sigma2, a1, aa, dt, phijdt, ams, tmp; in forkal() local 490 phii = phi[i]; in forkal() 491 P[ind2] = V[ind++] + phii * phijdt; in forkal() 492 if (j < r - 1) P[ind2] += store[j + 1] * phii; in forkal()
|
/dports/audio/mda-lv2/mda-lv2-1.2.6/src/ |
H A D | mdaSubSynth.cpp | 194 float we, dr, fi, fo, f1, f2, f3, f4, sub, rl, th, dv, ph, phii, dph, os, en; in process() local 198 phii = phi; in process() 262 sub = (float)(en * sin(phii)); in process() 263 phii = (float)fmod( phii + dph, 6.283185f ); in process() 282 phi = phii; in process() 293 float we, dr, fi, fo, f1, f2, f3, f4, sub, rl, th, dv, ph, phii, dph, os, en; in processReplacing() local 297 phii = phi; in processReplacing() 359 sub = (float)(en * sin(phii)); in processReplacing() 360 phii = (float)fmod( phii + dph, 6.283185f ); in processReplacing() 379 phi = phii; in processReplacing()
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_preq_hydrostatic/src/ |
H A D | prim_si_mod.F90 | 75 REAL(KIND=real_kind), dimension(np,np,nlev) :: phii ! Geopotential at interfaces local 81 phii(i,j,nlev) = rgas*t_v(i,j,nlev)*hkl 89 phii(i,j,k) = phii(i,j,k+1) + rgas*t_v(i,j,k)*hkl 90 phi(i,j,k) = phis(i,j) + phii(i,j,k+1) + rgas*t_v(i,j,k)*hkk 96 phi(i,j,1) = phis(i,j) + phii(i,j,2) + rgas*t_v(i,j,1)*hkk
|
/dports/science/octopus/octopus-10.5/share/quadrature/ |
H A D | README | 15 xi = cos ( thetai ) * sin ( phii ) 16 yi = sin ( thetai ) * sin ( phii ) 17 zi = cos ( phii ) 23 thetai phii wi 29 0 <= phii <= + 180
|
/dports/audio/vst3sdk/vst3sdk-3.7.1_build_50-1-g8199057/public.sdk/samples/vst/mda-vst3/source/ |
H A D | mdaSubSynthProcessor.cpp | 93 float we, dr, fi, fo, f1, f2, f3, f4, sub, rl, th, dv, ph, phii, dph, os, en; in doProcessing() local 97 phii = phi; in doProcessing() 159 sub = (float)(en * sin(phii)); in doProcessing() 160 phii = (float)fmod( phii + dph, 6.283185f ); in doProcessing() 179 phi = phii; in doProcessing()
|
/dports/audio/surge-synthesizer-lv2/surge-release_1.9.0/vst3sdk/public.sdk/samples/vst/mda-vst3/source/ |
H A D | mdaSubSynthProcessor.cpp | 88 float we, dr, fi, fo, f1, f2, f3, f4, sub, rl, th, dv, ph, phii, dph, os, en; in doProcessing() local 92 phii = phi; in doProcessing() 154 sub = (float)(en * sin(phii)); in doProcessing() 155 phii = (float)fmod( phii + dph, 6.283185f ); in doProcessing() 174 phi = phii; in doProcessing()
|
/dports/math/dune-fem/dune-fem-d1c625e6d51167d0cce57de6adcef21f548a8f82/dune/fem/space/test/ |
H A D | checklocalinterpolation.hh | 122 std::vector< typename Space::RangeFieldType > phii( bSet.size(), 0 ); in checkLocalInterpolation() local 123 interpolation( local, phii ); in checkLocalInterpolation() 125 for( std::size_t j = 0; j < phii.size(); ++j ) in checkLocalInterpolation() 126 if( std::abs( phii[ j ] -( i == j )) > 1e-8 ) in checkLocalInterpolation() 128 …< "Local interpolation error for basis function: "<<j <<" with diff: " << phii[ j ] << std::endl; in checkLocalInterpolation()
|
H A D | test-raviartthomasinterpolation.cc | 159 std::vector< typename DiscreteFunctionSpace::RangeFieldType > phii( bSet.size(), 0 ); in checkLocalInterpolation() local 160 interpolation_( [&] ( const auto& x ) { return local.evaluate( x ); }, phii ); in checkLocalInterpolation() 162 for( std::size_t j = 0; j < phii.size(); ++j ) in checkLocalInterpolation() 163 if( std::abs( phii[ j ] -( i == j )) > 1e-8 ) in checkLocalInterpolation() 165 … "Local interpolation error for basis function: "<< j <<" with diff: " << phii[ j ] << std::endl; in checkLocalInterpolation()
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/ |
H A D | zuoik.lisp | 31 (gnu 0.0) (phii 0.0) (phir 0.0) (rcz 0.0) (str 0.0) (sti 0.0) 65 (zunik zrr zri gnu ikflg 1 tol init phir phii zeta1r zeta1i zeta2r 70 (setf phii var-8) 89 (zunhj znr zni gnu 1 tol phir phii argr argi zeta1r zeta1i zeta2r 93 (setf phii var-6) 116 (setf aphi (coerce (realpart (zabs phir phii)) 'double-float)) 142 (zlog phir phii str sti idum) 183 (setf phii var-8) 201 (setf phii var-6) 220 (setf aphi (coerce (realpart (zabs phir phii)) 'double-float)) [all …]
|
H A D | zuni1.lisp | 35 (c2r 0.0) (fn 0.0) (phii 0.0) (phir 0.0) (rast 0.0) (rs1 0.0) 44 phii fn c2r c2m c2i c1r cscl crsc ascle 65 (zunik zr zi fn 1 1 tol init phir phii zeta1r zeta1i zeta2r zeta2i 70 (setf phii var-8) 102 (zunik zr zi fn 1 0 tol init phir phii zeta1r zeta1i zeta2r 108 (setf phii var-8) 132 (setf aphi (coerce (realpart (zabs phir phii)) 'double-float)) 139 (setf s2r (- (* phir sumr) (* phii sumi))) 140 (setf s2i (+ (* phir sumi) (* phii sumr)))
|
H A D | zunik.lisp | 111 (zrr zri fnu ikflg ipmtr tol init phir phii zeta1r zeta1i zeta2r 115 (type (double-float) sumi sumr zeta2i zeta2r zeta1i zeta1r phii 134 (setf phii 0.0) 179 (setf phii 240 (setf phii 260 (setf phii 274 phii
|
H A D | zuni2.lisp | 49 (phii 0.0) (phir 0.0) (rast 0.0) (raz 0.0) (rs1 0.0) (rzi 0.0) 57 rzi rs1 raz rast phir phii fn dair daii c2r 106 (zunhj znr zni fn 1 tol phir phii argr argi zeta1r zeta1i zeta2r 110 (setf phii var-6) 145 (zunhj znr zni fn 0 tol phir phii argr argi zeta1r zeta1i zeta2r 149 (setf phii var-6) 177 (setf aphi (coerce (realpart (zabs phir phii)) 'double-float)) 208 (setf s2r (- (* phir str) (* phii sti))) 209 (setf s2i (+ (* phir sti) (* phii str)))
|
/dports/science/dynare/dynare-4.6.4/tests/deterministic_simulations/ |
H A D | lola_solve_one_boundary.mod | 330 )/(phii*gdp); 333 gdp= TFP*H^(1-alpha)*(K)^alpha-aa*V/phii-fc/phii; 334 pi = phii*gdp - wshare*phii*gdp - (rr+delta)*K(-1)/(1+gh); 393 phii=mc/theta; 399 bsY=bs/(phii*gdp); 401 phii*gdp=ct + K-(1-delta)*K(-1)/(1+gh) + g*gdp*phii+nx; 510 NBRY=NBR/(phii*gdp); 609 phii = phii_iss ; 700 NBRY=NBR/(phii*gdp); 797 phii = phii_fss ; [all …]
|
/dports/science/madness/madness-ebb3fd7/src/apps/hf/ |
H A D | eigsolver.cc | 144 T EigSolver<T,NDIM>::matrix_element(const funcT& phii, const funcT& phij) 151 funcT dpsi_i = diff(phii, axis); 159 if (op->is_rd()) value += op->coeff() * phii.inner(op->op_r(_rho, phij)); 161 if (op->is_od()) value += op->coeff() * phii.inner(op->op_o(_phis, phij)); 243 void EigSolver<T,NDIM>::print_matrix_elements(const funcT& phii, const funcT& phij) in print_matrix_elements() argument 251 funcT dpsi_i = diff(phii, axis); in print_matrix_elements() 266 if (op->is_rd()) value += op->coeff() * phii.inner(op->op_r(_rho, phij)); in print_matrix_elements() 268 if (op->is_od()) value += op->coeff() * phii.inner(op->op_o(_phis, phij)); in print_matrix_elements()
|
H A D | dft.h | 310 T matrix_element(const funcT& phii, const funcT& phij) in matrix_element() argument 312 return _solver->matrix_element(phii, phij); in matrix_element() 317 void print_matrix_elements(const funcT& phii, const funcT& phij) in print_matrix_elements() argument 319 _solver->print_matrix_elements(phii, phij); in print_matrix_elements()
|
H A D | hartreefock.h | 183 T matrix_element(const funcT& phii, const funcT& phij) in matrix_element() argument 185 return _solver->matrix_element(phii, phij); in matrix_element()
|
/dports/lang/mmix/mmix-20160804_1/ |
H A D | fib.mms | 5 phii GREG #9e3779b97f4a7c16 18 MULU lo,old,phii
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | io_dyn_mat_old.f90 | 109 REAL(DP) :: phir(3),phii(3) local 272 IF (ionode) READ (1,*) (phir(j),phii(j),j=1,3) 274 CALL mp_bcast(phii, ionode_id, intra_image_comm) 276 phiq (i,j,na,nb,nqs) = CMPLX(phir(j),phii(j),kind=DP)
|
/dports/math/freefem++/FreeFem-sources-4.6/idp/ |
H A D | DDM-Schwarz-macro.idp | 212 Vhii phii=0; 221 AddLayers(Thii,suppii[],sizeoverlaps,phii[]); 223 { phii[]=phii[] ? 1. : 0.; 224 if(dplot1) plot(phii,wait=1,cmm=" RAS ij"); 227 assert(phii[].min >= -1e-10); 228 real interij = int#mesh(Thi)( phii); 231 pij[njpart]=abs(phii); 232 …** " << int#mesh(Thi)(real(pij[njpart])<0) << " " <<pij[njpart][].min << " " << phii[].min << endl;
|
/dports/finance/py-quantecon/quantecon-0.5.2/quantecon/tests/ |
H A D | test_dle.py | 26 phii = np.array([[0], [-phi1]]) 40 technology = (phic, phig, phii, gamma, deltak, thetak)
|
/dports/math/gretl/gretl-2021d/plugin/ |
H A D | as154.c | 15 double vj, phii, phij; in starma() local 73 phii = phi[i]; in starma() 75 xnext[indj] = -phii; in starma() 81 xnext[npr] = -phii * phij; in starma()
|
/dports/finance/py-quantecon/quantecon-0.5.2/quantecon/ |
H A D | dle.py | 65 self.phic, self.phig, self.phii, self.gamma, self.deltak, self.thetak = technology 80 b11 = - self.thetah.dot(phiinc).dot(self.phii) 104 uc).dot(phiin).dot(self.ud) - self.ub, -self.pih.dot(uc).dot(phiin).dot(self.phii))) 106 np.hstack((np.zeros((self.nd, self.nh)), self.gamma, self.ud, -self.phii))) 134 self.Sc = uc.dot(phiin).dot(-self.phii.dot(self.Si) + 136 self.Sg = ug.dot(phiin).dot(-self.phii.dot(self.Si) +
|