Home
last modified time | relevance | path

Searched refs:phii (Results 1 – 25 of 69) sorted by relevance

123

/dports/math/R/R-4.1.2/src/library/stats/src/
H A Dburg.c26 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 Dstarma.c79 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 Dburg.c26 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 Dstarma.c79 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 DmdaSubSynth.cpp194 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 Dprim_si_mod.F9075 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 DREADME15 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 DmdaSubSynthProcessor.cpp93 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 DmdaSubSynthProcessor.cpp88 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 Dchecklocalinterpolation.hh122 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 Dtest-raviartthomasinterpolation.cc159 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 Dzuoik.lisp31 (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 Dzuni1.lisp35 (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 Dzunik.lisp111 (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 Dzuni2.lisp49 (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 Dlola_solve_one_boundary.mod330 )/(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 Deigsolver.cc144 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 Ddft.h310 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 Dhartreefock.h183 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 Dfib.mms5 phii GREG #9e3779b97f4a7c16
18 MULU lo,old,phii
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/
H A Dio_dyn_mat_old.f90109 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 DDDM-Schwarz-macro.idp212 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 Dtest_dle.py26 phii = np.array([[0], [-phi1]])
40 technology = (phic, phig, phii, gamma, deltak, thetak)
/dports/math/gretl/gretl-2021d/plugin/
H A Das154.c15 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 Ddle.py65 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) +

123