Home
last modified time | relevance | path

Searched +refs:alph +refs:s (Results 1 – 25 of 379) sorted by relevance

12345678910>>...16

/dports/science/dynare/dynare-4.6.4/tests/identification/kim/
H A Dkim2.mod25 alph
29 s
36 alph=0.6;
41 s=betae*delta*alph/(1-betae+delta*betae);
50 (a*k(-1)^alph);
57 s=betae*delta*alph/(1-betae+delta*betae);
58 a=as; %as^((1-alph)/(1+theta))*(delta^((phi+theta+1)/(theta+1))/s)^alph;
59 k=(delta/s/a)^(1/(alph-1));
61 c=(((a*k^alph)^(1+theta)-s*(i/s)^(1+theta))/(1-s))^(1/(1+theta))*(1-s);
62 lam = (1-s)^theta/c^(1+theta)/(1+theta);
[all …]
/dports/math/R/R-4.1.2/src/nmath/
H A Dpgamma.c270 LDOUBLE s = (LDOUBLE) 0.; in logspace_sum() local
271 for(i = 0; i < n; i++) s += EXP(logx[i] - Mx); in logspace_sum()
272 return Mx + (double) LOG(s); in logspace_sum()
336 if (alph > 1) { in pgamma_smallx()
340 f2 = alph * log (x) - lgamma1p (alph); in pgamma_smallx()
342 f2 = pow (x, alph) / exp (lgamma1p (alph)); in pgamma_smallx()
348 double lf2 = alph * log (x) - lgamma1p (alph); in pgamma_smallx()
656 } else if (x <= alph - 1 && x < 0.8 * (alph + 50)) { in pgamma_raw()
670 } else if (alph - 1 < x && alph < 0.8 * (x + 50)) { in pgamma_raw()
677 if (alph < 1) { in pgamma_raw()
[all …]
/dports/math/libRmath/R-4.1.1/src/nmath/
H A Dpgamma.c270 LDOUBLE s = (LDOUBLE) 0.; in logspace_sum() local
271 for(i = 0; i < n; i++) s += EXP(logx[i] - Mx); in logspace_sum()
272 return Mx + (double) LOG(s); in logspace_sum()
336 if (alph > 1) { in pgamma_smallx()
340 f2 = alph * log (x) - lgamma1p (alph); in pgamma_smallx()
342 f2 = pow (x, alph) / exp (lgamma1p (alph)); in pgamma_smallx()
348 double lf2 = alph * log (x) - lgamma1p (alph); in pgamma_smallx()
656 } else if (x <= alph - 1 && x < 0.8 * (alph + 50)) { in pgamma_raw()
670 } else if (alph - 1 < x && alph < 0.8 * (x + 50)) { in pgamma_raw()
677 if (alph < 1) { in pgamma_raw()
[all …]
/dports/math/py-rvlib/rvlib-0.0.6/src/
H A Dpgamma.c272 LDOUBLE s = (LDOUBLE) 0.; in logspace_sum() local
273 for(i = 0; i < n; i++) s += EXP(logx[i] - Mx); in logspace_sum()
274 return Mx + (double) LOG(s); in logspace_sum()
338 if (alph > 1) { in pgamma_smallx()
342 f2 = alph * log (x) - lgamma1p (alph); in pgamma_smallx()
344 f2 = pow (x, alph) / exp (lgamma1p (alph)); in pgamma_smallx()
350 double lf2 = alph * log (x) - lgamma1p (alph); in pgamma_smallx()
658 } else if (x <= alph - 1 && x < 0.8 * (alph + 50)) { in pgamma_raw()
672 } else if (alph - 1 < x && alph < 0.8 * (x + 50)) { in pgamma_raw()
679 if (alph < 1) { in pgamma_raw()
[all …]
/dports/math/gap/gap-4.11.0/pkg/SgpViz-0.999.4/src/
H A Dxautomaton.tcl201 if {$alph == ""} {
213 set nalph $alph
216 set len [string length $alph]
218 if {!([string index $alph 0] == {"}) || !([string index $alph $len] == {"})} {
446 foreach s $ares {
447 if {![string is integer $s]} {
450 if {$s < 0 || $s > $states} {
635 set alph 0
656 set alph [lindex $argv 3]
674 set nalph $alph
[all …]
H A Dxsemigroup.tcl560 set alph [.xa.up.alph.down.entry get]
568 if {$alph == ""} {
579 if {[string is integer $alph]} {
580 set nalph $alph
583 set len [string length $alph]
585 if {!([string index $alph 0] == {"}) || !([string index $alph $len] == {"})} {
722 proc view {var states alph nalph flag_alph} {
825 foreach s $ares {
826 if {![string is integer $s]} {
829 if {$s < 0 || $s > $states} {
[all …]
/dports/textproc/heirloom-doctools/heirloom-doctools-160308/refer/
H A Dmkey2.c32 static int alph, used, prevc; variable
40 char line[MAXLINE], *s; in dofile() local
44 alph=used=prevc=eof=0; in dofile()
53 used=alph=0; in dofile()
55 for(s=line; (c= *s) && (used<keycount); s++) in dofile()
63 used=alph=0; in dofile()
93 grec (char *s, FILE *f) in grec() argument
101 *s = 0; in grec()
119 return(s[0] ? len : 0L); in grec()
139 if (alph++ < 6) in chkey()
[all …]
H A Drefer6.c31 char *s, *tx; in putref() local
46 tx = s+3; in putref()
51 tx = s+2; in putref()
57 tx = s; in putref()
179 int c, alph, this; in caps() local
182 alph = 0; in caps()
185 if (this && alph == 1) { in caps()
191 if (!this && alph > 1) { in caps()
200 alph = this ? alph+1 : 0; in caps()
202 if (alph > 1) { in caps()
[all …]
H A Dglue4.c43 int c, alph = 0, nv = 0; in grepcall() local
59 alph = (c==0) ? 0 : alph+1; in grepcall()
60 if (alph == 1) in grepcall()
62 if (alph > 6) in grepcall()
101 for(s=line; *s && (*s != '\t'); s++); in grepcall()
102 if (*s == '\t') in grepcall()
104 *s++ = '\n'; in grepcall()
105 *s++ = 0; in grepcall()
117 while (*s) s++; in grepcall()
119 fprintf(stderr, "line %o s %o s-1 %o\n",line,s,s[-1]); in grepcall()
[all …]
H A Drefer2.c43 int nf, nr, query = 0, alph, digs; in doref() local
78 alph = digs = 0; in doref()
81 alph++; in doref()
87 if ((alph+digs < 3) || common(p-alph)) { in doref()
88 r = p-alph; in doref()
92 if (alph == 0 && digs > 0) { in doref()
100 alph = digs = 0; in doref()
167 newline(const char *s) in newline() argument
171 while ((c = *s++)) in newline()
/dports/math/gap/gap-4.11.0/pkg/automata-1.14/gap/
H A Dfoldings.gi212 s, r;
293 for s in [1 .. n2] do
294 if newtable[r][s] <> 0 then
295 if Position(acc, newtable[r][s]) <> fail then
296 newnewtable[r][s] := Position(acc, newtable[r][s]);
299 newnewtable[r][s] := 0;
359 s := []; #list of vertices of degree 1
362 Add(s,r);
365 if s <> [] then
433 alph := Concatenation(alph, [jascii[68+i]]);
[all …]
/dports/science/dynare/dynare-4.6.4/tests/identification/BrockMirman/
H A DBrockMirman.mod34 alph ${\alpha}$ (long_name='capital share')
40 alph = 0.35;
47 C^(-1)=alph*betta*C(+1)^(-1)*A(+1)*K^(alph-1);
49 K=A*K(-1)^alph-C;
60 K = (alph*betta*A)^(1/(1-alph)); % capital level
61 C = A*K^alph-K; % consumption level
89 error('identification based on moments is wrong for %s',strVars{:})
96 error('identification based on spectrum is wrong for %s',strVars{:})
103 error('identification based on minimal system is wrong for %s',strVars{:})
/dports/math/gap/gap-4.11.0/pkg/automgrp-1.3.2/gap/
H A Dparser.g339 local aut_list, aut_states, alph, i, j, k, s,
354 alph := Maximum(List(states, s -> largest_moved_point(s[3])));
362 if Length(s[2]) > alph then
363 alph := Length(s[2]);
369 s[2] := List([1..alph], i -> []);
370 elif Length(s[2]) <> alph then
380 for j in [1..alph] do
409 local result, table, names, need_one, s, i, alph;
414 alph := Length(table[1]) - 1;
418 for i in [1..alph] do
[all …]
/dports/science/dynare/dynare-4.6.4/examples/
H A Dramst.mod8 * The production function equals 'aa*x*k(-1)^alph', where 'aa' is a constant,
10 * end-of-period timing convention, which is Dynare's default), and 'alph' is
44 parameters alph gam delt bet aa;
45 alph=0.5;
53 c + k - aa*x*k(-1)^alph - (1-delt)*k(-1); // Resource constraint
54 c^(-gam) - (1+bet)^(-1)*(aa*alph*x(+1)*k^(alph-1) + 1 - delt)*c(+1)^(-gam); // Euler equation
60 k = ((delt+bet)/(1.0*aa*alph))^(1/(alph-1));
61 c = aa*k^alph-delt*k;
/dports/math/gap/gap-4.11.0/pkg/kan-1.29/lib/
H A Ddcrws.gi30 function( s, p )
32 w := s;
71 s := "";
76 s := Concatenation( s, c );
79 return s;
90 s := "";
95 s := Concatenation( s, c );
98 Print( s );
129 s := "";
134 s := Concatenation( s, c );
[all …]
/dports/biology/ugene/ugene-40.1/src/plugins/remote_blast/src/
H A DBlastQuery.cpp76 const DNAAlphabet *alph = dnaSeq.alphabet; in getAlgorithmTask() local
79 if (!alph->isAmino()) { in getAlgorithmTask()
81 if (alph->getType() == DNAAlphabet_NUCL) { in getAlgorithmTask()
86 …QList<DNATranslation *> TTs = AppContext::getDNATranslationRegistry()->lookupTranslation(alph, tt); in getAlgorithmTask()
88 …settings.aminoT = AppContext::getDNATranslationRegistry()->getStandardGeneticCodeTranslation(alph); in getAlgorithmTask()
96 RemoteBLASTTaskSettings s(settings); in getAlgorithmTask() local
97 s.query = dnaSeq.seq.mid(r.startPos, r.length); in getAlgorithmTask()
98 RemoteBLASTTask *sub = new RemoteBLASTTask(s); in getAlgorithmTask()
/dports/math/R-cran-gss/gss/src/
H A Ddmudr1.f2 subroutine dmudr1 (vmu, s, lds, nobs, nnull, q, ldqr, ldqc, nq, y,
8 double precision s(lds,*), q(ldqr,ldqc,*), y(*), tol, prec, theta(
32 call dstup (s, lds, nobs, n0, qraux, jpvt, y, q, ldqr, ldqc, nq, i
72 call dcoef (s, lds, nobs, n0, qraux, jpvt, ywk, qwk, ldqr, nlawk,
74 call dqrsl (s, lds, nobs, n0, qraux, c, tmp, c, tmp, tmp, tmp, 010
125 if( alph * tmp .gt. - prec )then
129 alph = alph / 2.d0
132 thewk(i) = theta(i) + alph * gwk1(i)
180 alph = -1.d0
220 thewk(i) = thewk(i) + alph * gwk1(i)
[all …]
/dports/misc/vxl/vxl-3.3.2/contrib/brl/bseg/boxm2/cpp/algo/
H A Dboxm2_batch_opt2_phongs_functors.h236 bool init_data(boxm2_data_base *alph, in init_data() argument
243 …alpha_data_ =new boxm2_data<BOXM2_ALPHA>(alph->data_buffer(),alph->buffer_length(),alph->block_id… in init_data()
247 id_ = alph->block_id(); in init_data()
306 for (unsigned int s=0; s<aux.size(); ++s) { in process_cell() local
307 float obs_seg_len = cum_len[s]; // .seg_len_; in process_cell()
308 float obs_weighted_seg_len = aux[s][3]; //.weighted_seg_len_sum_; in process_cell()
312 log_pass_prob_sum += aux[s][2]; //.log_pass_prob_sum_; in process_cell()
357 bool init_data(boxm2_data_base *alph, in init_data() argument
362 …alpha_data_ =new boxm2_data<BOXM2_ALPHA>(alph->data_buffer(),alph->buffer_length(),alph->block_id… in init_data()
366 id_ = alph->block_id(); in init_data()
H A Dboxm2_batch_opt2_functors.h137 …bool init_data(boxm2_data_base *alph, boxm2_data_base *mog, boxm2_stream_cache_sptr str_cache, bst… in init_data() argument
139 …alpha_data_=new boxm2_data<BOXM2_ALPHA>(alph->data_buffer(),alph->buffer_length(),alph->block_id()… in init_data()
142 id_ = alph->block_id(); in init_data()
172 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
175 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
178 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
181 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
184 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
187 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
190 for (unsigned int s=0; s<aux.size(); ++s) in process_cell()
[all …]
/dports/math/R-cran-gss/gss/src/ratfor/
H A Ddmudr1.r6 s, lds, nobs, nnull, q, ldqr, ldqc, nq, y,_ # inputs
28 double precision s(lds,*), q(ldqr,ldqc,*), y(*), tol, prec,_
104 double precision alph, scrold, scrwk, nlawk, limnla(2),_
130 call dstup (s, lds, nobs, n0, qraux, jpvt, y, q, ldqr, ldqc, nq, info,_
150 call dcoef (s, lds, nobs, n0, qraux, jpvt, ywk, qwk, ldqr, nlawk,_
153 call dqrsl (s, lds, nobs, n0, qraux, c, tmp, c, tmp, tmp, tmp,_
192 if ( alph * tmp > - prec ) {
196 alph = alph / 2.d0 globalVar
241 alph = -1.d0 globalVar
281 for (i=1;i<=nq;i=i+1) thewk(i) = thewk(i) + alph * gwk1(i)
[all …]
/dports/graphics/cfdg/cfdg-3.3_1/input/tests/
H A Dvectortest1.cfdg6 CIRCLE[s sz]
8 shape circ2(number alph, vector2 sz) {
9 CIRCLE[s sz a alph]
/dports/textproc/heirloom-doctools/heirloom-doctools-160308/troff/
H A Dn8.c106 if (!alph(*--i)) in hyphen()
109 while (hyext ? *i++ : alph(*i++)) in hyphen()
132 if (!alph(*wdend) || in hyphen()
172 if (!cbits(i) || alph(i)) in punct()
180 alph(tchar j) in alph() function
370 if (i >= 128 || !alph(*hyend)) in suffix()
379 s = s0 + i - 1; in suffix()
381 while (s > s0 && w >= wdstart && (*s & 0177) == maplow(*w)) { in suffix()
382 s--; in suffix()
385 if (s == s0) in suffix()
[all …]
/dports/math/gnumeric/gnumeric-1.12.50/src/
H A Dmathfunc.c1566 gnm_float f = pd_lower_cf (alph, x - (alph - 1)) * x / alph; in pgamma_raw()
5485 s = gnm_hypot (pivot, t); in gnm_matrix_eigen()
5486 c = t / s; in gnm_matrix_eigen()
5487 s = pivot / s; in gnm_matrix_eigen()
5490 s = -s; in gnm_matrix_eigen()
5582 int q, s; in gnm_matrix_modified_cholesky() local
5601 for (s = 0; s < j; s++) in gnm_matrix_modified_cholesky()
5602 L->data[j][s] = C->data[j][s] / D[s]; in gnm_matrix_modified_cholesky()
5605 int s; in gnm_matrix_modified_cholesky() local
5608 for (s = 0; s < j; s++) in gnm_matrix_modified_cholesky()
[all …]
/dports/japanese/mutt-devel/mutt-1.5.21/
H A Durl.c52 if (!s) in url_pct_decode()
55 for (d = s; *s; s++) in url_pct_decode()
59 if (s[1] && s[2] && in url_pct_decode()
62 hexval (s[1]) >= 0 && hexval (s[2]) >= 0) in url_pct_decode()
64 *d++ = (hexval (s[1]) << 4) | (hexval (s[2])); in url_pct_decode()
65 s += 2; in url_pct_decode()
82 if (!s || !(t = strchr (s, ':'))) in url_check_scheme()
87 strfcpy (sbuf, s, t - s + 1); in url_check_scheme()
182 static const char *alph = "0123456789ABCDEF"; in url_pct_encode() local
191 *dst++ = alph[(*src >> 4) & 0xf]; in url_pct_encode()
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/vib/
H A Dvib_callg.F11 double precision alph(lval,nroots)
23 call dfill(lval*nroots,0.0d00,alph,1)
30 call vib_sjacobi(nroots,nroots,g,root,alph,ierr)
129 s=ajj-aii
130 ds = dabs(s)
142 s = sq2inv
143 c = s
148 t = aij/s
173 a(irowtr + irow) = c*a(irowtr + irow)-s*(c*aij-s*ajj)
193 s=aij
[all …]

12345678910>>...16