oat_rust 0.2.0

User-friendly tools for applied topology
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47









pub fn zigzag() {
    let Vi;
    let Vii;
    let Ai;
    let Si;
    let C0 = identity;
    let j = i-1;
    let k = i+1;
    Z = [];

    for i in 0 .. N {
        // left basis
        // ----------
        if Si < 0 {
            Di = Ai * Cj;
            Ri * Mi = Di * Ci;
            Wi = Ri; 
        } else { 
            .. 
        }
        // right basis 
        // -----------       
        if Sk < 0 {
            Dk = Ak;
            Rk * Mk = Dk * Ck;
            Wk = Rk; 
        } else { 
            .. 
        }
        // zip bases
        // ---------
        Dl = Wi^{-1} * Wk;
        Rl * Ml = Dl * Cl;
        // store zipped basis
        // ------------------
        Z.append(Dl)
    }
    return Z
}