algebrite/tests/outer.coffee

Computer Algebra System in 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",
	]