-- This example is part of the regression test suite.  Functions starting
-- with TEST are part of the test framework and can be ignored.

nx = 4
nt = 4
ls = { nx, nx, nx, nt }
L = qopqdp.lattice(ls)

TESTON()

f = L:real()
f:zero()
f:unit()

sa = L:subset("all")
r = f:norm2(sa)
print(r)

se = L:subset("even")
r = f:norm2(se)
print(r)

so = L:subset("odd")
r = f:norm2(so)
print(r)

f:zero(se)
print(f:norm2(se))
print(f:norm2(so))
print(f:norm2(sa))

TESTOFF()
generated by LDoc 1.4.2