%latch f

probabilty latch
Author: Philoop
License: BSD
Github: phi/prob/%latch f.axo

Inlets

frac32.bipolar i

Outlets

frac32.bipolar o

Parameters

frac32.s.map prob

Displays

bool32 on

Declaration
int32_t val;
int ntrig;

int latch;
int mtrig;
int ptrig;
int32_t pval;
Init
val = (int32_t)(GenerateRandomNumber()) >> 4;
ntrig = 0;
latch = 0;
ptrig = 0;
pval = 0;
mtrig = 0;
Control Rate
// change
if ((pval != inlet_i) & (!ptrig)) {
  pval = inlet_i;
  ptrig = 1;
} else {
  ptrig = 0;
}
// prob
if ((ptrig > 0) && !ntrig) {
  val = (int32_t)(GenerateRandomNumber()) >> 4;
  ntrig = 1;
} else if (!(ptrig > 0))
  ntrig = 0;

// latch
if (((param_prob > val) > 0) && !mtrig) {
  latch = inlet_i;
  mtrig = 1;
}
if (!((param_prob > val) > 0))
  mtrig = 0;
outlet_o = ((param_prob > val) > 0) ? latch : inlet_i;

disp_on = outlet_o;

Privacy

© 2024 Zrna Research