Add pgs calls for trace:R^dxd -> R and transpose:R^dxd->R^dxd

src/language/modules/MathFunctionRegisterForVh.cpp

@@ -216,6 +216,13 @@ MathFunctionRegisterForVh::MathFunctionRegisterForVh(SchemeModule& scheme_module
 
                                              ));
 
+  scheme_module._addBuiltinFunction("trace", std::function(
+
+                                               [](std::shared_ptr<const IDiscreteFunction> A)
+                                                 -> std::shared_ptr<const IDiscreteFunction> { return trace(A); }
+
+                                               ));
+
   scheme_module._addBuiltinFunction("inverse", std::function(
 
                                                  [](std::shared_ptr<const IDiscreteFunction> A)
@@ -223,6 +230,14 @@ MathFunctionRegisterForVh::MathFunctionRegisterForVh(SchemeModule& scheme_module
 
                                                  ));
 
+  scheme_module._addBuiltinFunction("transpose",
+                                    std::function(
+
+                                      [](std::shared_ptr<const IDiscreteFunction> A)
+                                        -> std::shared_ptr<const IDiscreteFunction> { return transpose(A); }
+
+                                      ));
+
   scheme_module._addBuiltinFunction("min", std::function(
 
                                              [](std::shared_ptr<const IDiscreteFunction> a) -> double { return min(a); }