nx_fin_universe_gate.nx source
↩ module page · 54 lines · 2859 B
1// nx_fin_universe_gate.nx -- GATE for the universe-selection brain. 4 candidates: c0 passes all gates, c1 has
2// no deflated edge, c2 failed the screen, c3 passes with the strongest risk-adjusted score. Only c0 + c3 are
3// tradeable; ranked, c3 then c0. Proves capital only flows to screen-pass + deflated-significant + low-PBO
4// names. Exits 0 iff all pass. license_tier: ORIGINAL
5import "nx_gate.nx"
6import "nx_fin_universe.nx"
7
8func chk(name: *u8, got: i64, want: i64, st: *i64) -> i64 {
9 if got == want { st[0] = st[0] + 1; gw(" PASS " as *u8); gw(name); gw("\n" as *u8) }
10 else { st[1] = st[1] + 1; gw(" FAIL " as *u8); gw(name); gw(" got=" as *u8); gn(got); gw(" want=" as *u8); gn(want); gw("\n" as *u8) }
11 return 0
12}
13
14func main() -> i64 {
15 let st: *i64 = sys_mmap(16) as *i64
16 st[0] = 0; st[1] = 0
17
18 // qualification gate (screen_verdict, deflated_sig, pbo, max_pbo)
19 chk("clean candidate qualifies" as *u8, uv_qualifies(0, 1, 100, 500), 1, st)
20 chk("failed screen -> no" as *u8, uv_qualifies(5, 1, 100, 500), 0, st)
21 chk("no deflated edge -> no" as *u8, uv_qualifies(0, 0, 100, 500), 0, st)
22 chk("PBO too high -> no" as *u8, uv_qualifies(0, 1, 600, 500), 0, st)
23
24 // risk-adjusted score (Calmar-like)
25 chk("score ret500/dd200 = 24875" as *u8, uv_score(500, 200), 24875, st)
26 chk("score ret800/dd100 = 79207" as *u8, uv_score(800, 100), 79207, st)
27
28 // build 4 candidates and select
29 let scr: *i64 = sys_mmap(8*8) as *i64
30 let qual: *i64 = sys_mmap(8*8) as *i64
31 // c0: pass all -> qualified, score 24875 ; c1: no edge ; c2: failed screen ; c3: pass, score 79207
32 qual[0] = uv_qualifies(0, 1, 100, 500); scr[0] = uv_score(500, 200)
33 qual[1] = uv_qualifies(0, 0, 100, 500); scr[1] = uv_score(900, 100)
34 qual[2] = uv_qualifies(5, 1, 100, 500); scr[2] = uv_score(999, 50)
35 qual[3] = uv_qualifies(0, 1, 100, 500); scr[3] = uv_score(800, 100)
36 chk("c0 qualified" as *u8, qual[0], 1, st)
37 chk("c1 disqualified (no edge)" as *u8, qual[1], 0, st)
38 chk("c2 disqualified (screen)" as *u8, qual[2], 0, st)
39 chk("c3 qualified" as *u8, qual[3], 1, st)
40
41 let sel: *i64 = sys_mmap(8*8) as *i64
42 let n2: i64 = uv_select_topk(scr, qual, 4, 2, sel)
43 chk("selected 2 of 4" as *u8, n2, 2, st)
44 chk("rank #1 = c3 (best score)" as *u8, sel[0], 3, st)
45 chk("rank #2 = c0" as *u8, sel[1], 0, st)
46 // ask for 5 but only 2 qualify -> never pads with unqualified names
47 let n3: i64 = uv_select_topk(scr, qual, 4, 5, sel)
48 chk("k=5 but only 2 qualify -> 2" as *u8, n3, 2, st)
49
50 gw("nx_fin_universe_gate: PASS=" as *u8); gn(st[0]); gw(" FAIL=" as *u8); gn(st[1]); gw("\n" as *u8)
51 if st[1] == 0 { gw("nx_fin_universe: GREEN (capital only to screen-pass + deflated-significant + low-PBO names)\n" as *u8); return 0 }
52 gw("nx_fin_universe: RED\n" as *u8)
53 return 1
54}