Method code for $math.ident_mat()

[Turn off line numbering]

---

  1: arg n;
  2: var x, y;
  3: 
  4: return map x in [1 .. n] to (map y in [1 .. n] to (x == y ? 1.0 : 0.0));

---

// Miroslav Silovic
// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit