33 lines
436 B
CoffeeScript
33 lines
436 B
CoffeeScript
test_outer = ->
|
|
run_test [
|
|
"outer(a,b)",
|
|
"a*b",
|
|
|
|
"outer(a,[b1,b2])",
|
|
"[a*b1,a*b2]",
|
|
|
|
"outer([a1,a2],b)",
|
|
"[a1*b,a2*b]",
|
|
|
|
"H33=hilbert(3)",
|
|
"",
|
|
|
|
"H44=hilbert(4)",
|
|
"",
|
|
|
|
"H55=hilbert(5)",
|
|
"",
|
|
|
|
"H3344=outer(H33,H44)",
|
|
"",
|
|
|
|
"H4455=outer(H44,H55)",
|
|
"",
|
|
|
|
"H33444455=outer(H33,H44,H44,H55)",
|
|
"",
|
|
|
|
"simplify(inner(H3344,H4455)-contract(H33444455,4,5))",
|
|
"0",
|
|
]
|