/dports/audio/festalon/festalon/src/pce/ |
H A D | pce.c | 16 memset(&hes->ctrl, 0, sizeof(hes->ctrl)); in pce_reset() 17 memset(hes->ram, 0, sizeof(hes->ram)); in pce_reset() 19 h6280_reset(hes->h6280, hes, hes->ram, hes->read_ptr, hes->write_ptr); in pce_reset() 150 hes->bank_map[i].read = hes->dummy_read; in bank_reset() 151 hes->bank_map[i].write = hes->dummy_write; in bank_reset() 164 hes->bank_map[0xF8+i].read = &hes->ram[i << 13]; in bank_reset() 168 hes->bank_map[0xFF].read = hes->IBP; in bank_reset() 182 hes->read_ptr[bank] = hes->bank_map[value].read; in bank_set() 183 hes->write_ptr[bank] = hes->bank_map[value].write; in bank_set() 197 hes->ctrl.sel = (hes->ctrl.sel << 1) | (new_sel); in input_w() [all …]
|
H A D | psg.c | 59 memset(&hes->psg, 0, sizeof(hes->psg)); in psg_init() 66 memset(&hes->psg.channel, 0, sizeof(hes->psg.channel)); in psg_reset() 94 #define PSGCH hes->psg.channel[hes->psg.select] 111 redo_ddacache(hes, &hes->psg.channel[x]); in psg_w() 221 float *tmpo=(float *)&hes->psg.WaveHi[cb][hes->psg.lastpoo]; in psg_flush() 222 int32 *intmpo = &hes->psg.WaveHi[cb][hes->psg.lastpoo]; in psg_flush() 234 …end = FESTAFILT_Do(hes->psg.ff[cb],(float *)hes->psg.WaveHi16[cb],hes->psg.WaveFinal[cb], hes->psg… in psg_flush() 240 …end = FESTAFILT_Do(hes->psg.ff[cb], (float *)hes->psg.WaveHi[cb],hes->psg.WaveFinal[cb], hes->psg.… in psg_flush() 254 hes->psg.WaveIL[x*2] = hes->psg.WaveFinal[0][x]; in psg_flush() 255 hes->psg.WaveIL[x*2+1] = hes->psg.WaveFinal[1][x]; in psg_flush() [all …]
|
H A D | hes.c | 17 FESTALON_HES *hes; in FESTAHES_Load() local 46 system_init(hes); in FESTAHES_Load() 47 system_reset(hes); in FESTAHES_Load() 66 h6280_set_reg (hes->h6280, H6280_MPR0 + x, hes->mpr_start[x]); in FESTAHES_Load() 67 bank_set(hes, x, hes->mpr_start[x]); in FESTAHES_Load() 69 return(hes); in FESTAHES_Load() 76 system_reset(hes); in FESTAHES_SongControl() 82 h6280_set_reg (hes->h6280, H6280_MPR0 + x, hes->mpr_start[x]); in FESTAHES_SongControl() 83 bank_set(hes, x, hes->mpr_start[x]); in FESTAHES_SongControl() 93 if(hes->h6280) free(hes->h6280); in FESTAHES_Close() [all …]
|
H A D | system.c | 22 int system_init(FESTALON_HES *hes) in system_init() argument 26 psg_init(hes); in system_init() 35 hes->status &= ~STATUS_VD; in FESTAHES_Emulate() 41 if(hes->reg[5] & 0x04) in FESTAHES_Emulate() 53 if(hes->reg[5] & 0x0008) in FESTAHES_Emulate() 62 *Count = psg_flush(hes); in FESTAHES_Emulate() 64 return(hes->psg.WaveIL); in FESTAHES_Emulate() 70 pce_reset(hes); in system_reset() 71 vdc_reset(hes); in system_reset() 72 psg_reset(hes); in system_reset() [all …]
|
H A D | vdc.c | 14 void vdc_reset(FESTALON_HES *hes) in vdc_reset() argument 16 memset(hes->reg, 0, 0x20); in vdc_reset() 17 hes->status = hes->latch = 0; in vdc_reset() 26 int vdc_r(FESTALON_HES *hes, int offset) in vdc_r() argument 33 temp = hes->status; in vdc_r() 34 hes->status = (hes->status & STATUS_VD); in vdc_r() 35 h6280_set_irq_line(hes->h6280, 0, CLEAR_LINE); in vdc_r() 46 void vdc_w(FESTALON_HES *hes, int offset, int data) in vdc_w() argument 53 hes->latch = (data & 0x1F); in vdc_w() 59 hes->reg[hes->latch] = (hes->reg[hes->latch] & 0x00FF) | (data << 8); in vdc_w() [all …]
|
H A D | pce.h | 11 void pce_reset(FESTALON_HES *hes); 13 void io_page_w(FESTALON_HES *hes, int address, int data); 14 int io_page_r(FESTALON_HES *hes, int address); 15 void bank_reset(FESTALON_HES *hes); 16 void bank_set(FESTALON_HES *hes, int bank, int value); 17 void input_w(FESTALON_HES *hes, uint8 data); 18 uint8 input_r(FESTALON_HES *hes);
|
H A D | psg.h | 6 int psg_init(FESTALON_HES *hes); 7 void psg_reset(FESTALON_HES *hes); 8 void psg_shutdown(FESTALON_HES *hes); 9 void psg_w(FESTALON_HES *hes, uint16 address, uint8 data); 10 void psg_update(FESTALON_HES *hes); 11 uint32 psg_flush(FESTALON_HES *hes);
|
H A D | psg-loop.h | 1 for(V = hes->psg.lastts; V < timestamp;V++) 8 psg_channel *ch = &hes->psg.channel[chc]; 27 redo_ddacache(hes, ch); 39 redo_ddacache(hes, ch);
|
/dports/audio/festalon/festalon/src/ |
H A D | festalon.c | 43 else if(fe->hes) in FESTAI_Emulate() 44 return(FESTAHES_Emulate(fe->hes, Count)); in FESTAI_Emulate() 53 else if(fe->hes) in FESTAI_Disable() 54 FESTAHES_Disable(fe->hes, t); in FESTAI_Disable() 119 else if(fe->hes) in FESTAI_Close() 120 FESTAHES_Close(fe->hes); in FESTAI_Close() 131 else if(fe->hes) in FESTAI_SetVolume() 132 FESTAHES_SetVolume(fe->hes, volume); in FESTAI_SetVolume() 141 else if(fe->hes) in FESTAI_SetLowpass() 161 else if(fe->hes) in FESTAI_SongControl() [all …]
|
/dports/x11/babl/babl-0.1.88/babl/base/ |
H A D | type-half.c | 84 int hes; in doubles2halfp() local 110 if( hes >= 0x1F ) { // Overflow in doubles2halfp() 112 } else if( hes <= 0 ) { // Underflow in doubles2halfp() 117 hm = (uint16_t) (xm >> (11 - hes)); // Mantissa in doubles2halfp() 118 if( (xm >> (10 - hes)) & 0x00000001u ) // Check for rounding in doubles2halfp() 123 he = (uint16_t) (hes << 10); // Exponent in doubles2halfp() 201 int hes; in singles2halfp() local 228 if( hes >= 0x1F ) { // Overflow in singles2halfp() 230 } else if( hes <= 0 ) { // Underflow in singles2halfp() 235 hm = (uint16_t) (xm >> (14 - hes)); // Mantissa in singles2halfp() [all …]
|
/dports/math/cppad/CppAD-20210000.8/example/sparse/ |
H A D | sparse_hessian.cpp | 83 d_vector hes(n * n); in sparse_hessian() local 84 hes = f.SparseHessian(x, w); in sparse_hessian() 86 ok &= NearEqual(w[0] * check[ell], hes[ell], eps, eps ); in sparse_hessian() 103 hes = f.SparseHessian(x, w, p_bool); in sparse_hessian() 105 ok &= NearEqual(w[0] * check[ell], hes[ell], eps, eps ); in sparse_hessian() 121 hes = f.SparseHessian(x, w, p_set); in sparse_hessian() 123 ok &= NearEqual(w[0] * check[ell], hes[ell], eps, eps ); in sparse_hessian() 130 hes.resize(K); in sparse_hessian() 149 ok &= NearEqual(w[0] * check[ell], hes[k], eps, eps ); in sparse_hessian() 159 n_sweep = f.SparseHessian(x, w, not_used, row, col, hes, work); in sparse_hessian() [all …]
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/NL2SOL/ |
H A D | df7dhb.c | 93 hes = abs(iv[56]); 94 iv[56] = -hes; 100 dv7scp_(&i__1, &v[hes], &c_b3); 140 hes = -iv[56]; 154 k = hes + m * (m - 1) / 2; 239 hes = -iv[56]; 264 hpm = hes + pp1o2 + mm1; 272 hmi = hes + mm1o2; 276 hpi = hes + pp1o2; 305 hmi = hes + mm1o2 + i__ - 1; [all …]
|
H A D | df7hes.c | 22 static integer hmi, hes, hpi, hpm, stp0; local 128 hes = -iv[56]; 141 k = hes + m * (m - 1) / 2; 205 hes = -iv[56]; 236 hpm = hes + pp1o2 + mm1; 241 hmi = hes + mm1o2; 245 hpi = hes + pp1o2; 284 hmi = hes + mm1o2 + i__ - 1; 321 iv[74] = hes;
|
/dports/math/cppad/CppAD-20210000.8/example/general/ |
H A D | hessian.cpp | 70 Vector hes( n * n ); in HessianCases() local 71 hes = f.Hessian(x, 1); in HessianCases() 80 ok &= NearEqual( 2.*sin(x[1]), hes[0*n+0], eps99, eps99); in HessianCases() 81 ok &= NearEqual( 2.*x[0]*cos(x[1]), hes[0*n+1], eps99, eps99); in HessianCases() 82 ok &= NearEqual( 2.*x[0]*cos(x[1]), hes[1*n+0], eps99, eps99); in HessianCases() 83 ok &= NearEqual( - x[0]*x[0]*sin(x[1]), hes[1*n+1], eps99, eps99); in HessianCases()
|
/dports/math/cppad/CppAD-20210000.8/include/cppad/core/ |
H A D | sparse_hessian.hpp | 424 BaseVector& hes , in SparseHessianCompute() argument 445 size_t K = hes.size(); in SparseHessianCompute() 538 hes[k] = zero; in SparseHessianCompute() 581 { hes[ order[k] ] = ddw[ col[ order[k] ] * 2 + 1 ]; in SparseHessianCompute() 658 BaseVector& hes , in SparseHessian() argument 662 size_t K = hes.size(); in SparseHessian() 707 n_sweep = SparseHessianCompute(x, w, s, row, col, hes, work); in SparseHessian() 755 BaseVector hes(n * n); 769 hes[i * n + j] = zero; 799 hes[ row[k] * n + col[k] ] = H[k]; [all …]
|
H A D | opt_val_hes.hpp | 367 BaseVector& hes ) in opt_val_hes() argument 393 size_t(hes.size()) == n * n || hes.size() == 0, in opt_val_hes() 442 if( hes.size() == 0 ) in opt_val_hes() 512 { hes[i * n + j] = F_hes[ i*(n+m) + j ]; in opt_val_hes() 514 hes[i*n+j] -= F_hes[i*(n+m) + k+n] * neg_Y_x[k*n+j]; in opt_val_hes()
|
/dports/math/SCIP/scip-7.0.3/src/cppad/core/ |
H A D | sparse_hessian.hpp | 424 VectorBase& hes , in SparseHessianCompute() argument 445 size_t K = hes.size(); in SparseHessianCompute() 538 hes[k] = zero; in SparseHessianCompute() 581 { hes[ order[k] ] = ddw[ col[ order[k] ] * 2 + 1 ]; in SparseHessianCompute() 658 VectorBase& hes , in SparseHessian() argument 662 size_t K = hes.size(); in SparseHessian() 707 n_sweep = SparseHessianCompute(x, w, s, row, col, hes, work); in SparseHessian() 755 VectorBase hes(n * n); 769 hes[i * n + j] = zero; 799 hes[ row[k] * n + col[k] ] = H[k]; [all …]
|
H A D | opt_val_hes.hpp | 369 BaseVector& hes ) in opt_val_hes() argument 395 size_t(hes.size()) == n * n || hes.size() == 0, in opt_val_hes() 444 if( hes.size() == 0 ) in opt_val_hes() 514 { hes[i * n + j] = F_hes[ i*(n+m) + j ]; in opt_val_hes() 516 hes[i*n+j] -= F_hes[i*(n+m) + k+n] * neg_Y_x[k*n+j]; in opt_val_hes()
|
/dports/math/cppad/CppAD-20210000.8/test_more/general/ |
H A D | sparse_sub_hes.cpp | 119 d_vector x(n), hes( row.size() ); in test_set() local 122 f.SparseHessian(x, w, h, row, col, hes, work); in test_set() 129 ok &= hes[ell] == 2.0 * x[i-1]; in test_set() 132 ok &= hes[ell] == 2.0 * x[i]; in test_set() 195 d_vector x(n), hes( row.size() ); in test_bool() local 198 f.SparseHessian(x, w, h_extended, row, col, hes, work); in test_bool() 205 ok &= hes[ell] == 2.0 * x[i-1]; in test_bool() 208 ok &= hes[ell] == 2.0 * x[i]; in test_bool()
|
/dports/math/R-cran-gss/gss/src/ratfor/ |
H A D | dmudr1.r | 10 hes, gra, hwk1, hwk2, gwk1, gwk2, pvtwk,_ 31 thewk(*), hes(nq,*), gra(*), hwk1(nq,*), hwk2(nq,*),_ 211 hes, nq, gra,_ # outputs 221 call dcopy (nq, hes(1,i), 1, hes(1,iwk), 1) 227 call dcopy (nq, hes(i,1), nq, hes(iwk,1), nq) 234 call dcopy (iwk-i, hes(i+1,i), 1, hes(i,i+1), nq) 235 call dmcdc (hes, nq, iwk, gwk2, pvtwk, info) 237 call dposl (hes, nq, iwk, gwk1)
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/impls/gmres/ |
H A D | borthog2.c | 42 PetscScalar *hh,*hes,*lhh; in KSPGMRESClassicalGramSchmidtOrthogonalization() local 55 hes = HES(0,it); in KSPGMRESClassicalGramSchmidtOrthogonalization() 60 hes[j] = 0.0; in KSPGMRESClassicalGramSchmidtOrthogonalization() 82 hes[j] -= lhh[j]; /* hes += <v,vnew> */ in KSPGMRESClassicalGramSchmidtOrthogonalization() 114 hes[j] -= lhh[j]; /* hes += <v,vnew> */ in KSPGMRESClassicalGramSchmidtOrthogonalization()
|
H A D | borthog.c | 37 PetscScalar *hh,*hes; in KSPGMRESModifiedGramSchmidtOrthogonalization() local 43 hes = HES(0,it); in KSPGMRESModifiedGramSchmidtOrthogonalization() 49 *hes++ = *hh; in KSPGMRESModifiedGramSchmidtOrthogonalization()
|
/dports/math/R-cran-gss/gss/src/ |
H A D | dmudr1.f | 4 * jpvt, twk, traux, qwk, ywk, thewk, hes, gra, hwk1, hwk2, gwk1, gw 10 * qwk(ldqr,*), ywk(*), thewk(*), hes(nq,*), gra(*), hwk1(nq,*), hwk 153 call dcopy (nq, hes(1,i), 1, hes(1,iwk), 1) 164 call dcopy (nq, hes(i,1), nq, hes(iwk,1), nq) 172 call dcopy (iwk-i, hes(i+1,i), 1, hes(i,i+1), nq) 176 call dmcdc (hes, nq, iwk, gwk2, pvtwk, info) 178 call dposl (hes, nq, iwk, gwk1)
|
/dports/math/dune-fem/dune-fem-d1c625e6d51167d0cce57de6adcef21f548a8f82/dune/fem/space/ |
H A D | p1bubble.hh | 191 HessianRangeType hes; in hessianEach() local 192 functor( 0, hes ); in hessianEach() 193 functor( 1, hes ); in hessianEach() 194 functor( 2, hes ); in hessianEach() 195 functor( 3, hes ); in hessianEach() 288 HessianRangeType hes; in hessianEach() local 289 functor( 0, hes ); in hessianEach() 290 functor( 1, hes ); in hessianEach() 291 functor( 2, hes ); in hessianEach() 292 functor( 3, hes ); in hessianEach()
|
/dports/math/asl/solvers/ |
H A D | funcadd.c | 39 if (al->hes) in ginv() 40 *al->hes = -2.*x * *al->derivs; in ginv() 69 if (h = al->hes) { in myhypot() 78 if (h = al->hes) in myhypot()
|