/dports/science/dynare/dynare-4.6.4/tests/identification/kim/ |
H A D | kim2.mod | 25 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 D | pgamma.c | 270 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 D | pgamma.c | 270 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 D | pgamma.c | 272 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 D | xautomaton.tcl | 201 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 D | xsemigroup.tcl | 560 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 D | mkey2.c | 32 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 D | refer6.c | 31 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 D | glue4.c | 43 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 D | refer2.c | 43 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 D | foldings.gi | 212 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 D | BrockMirman.mod | 34 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 D | parser.g | 339 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 D | ramst.mod | 8 * 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 D | dcrws.gi | 30 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 D | BlastQuery.cpp | 76 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 D | dmudr1.f | 2 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 D | boxm2_batch_opt2_phongs_functors.h | 236 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 D | boxm2_batch_opt2_functors.h | 137 …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 D | dmudr1.r | 6 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 D | vectortest1.cfdg | 6 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 D | n8.c | 106 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 D | mathfunc.c | 1566 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 D | url.c | 52 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 D | vib_callg.F | 11 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 …]
|