Vector products: Difference between revisions

m
→‎{{header|AppleScript}}: (minor refactor of tests)
(→‎{{header|AppleScript}}: Added an AppleScript draft.)
m (→‎{{header|AppleScript}}: (minor refactor of tests))
Line 348:
unlines({¬tell test
"a . b = " & |λ|unlines(dotProduct) of test, {¬
"a x. b = " & |λ|(crossProductdotProduct) of test, ¬
"a .x (b x c) = " & |λ|(scalarTriplecrossProduct) of test, ¬
"a x. (b x c) = " & |λ|(vectorTriplescalarTriple) of test, ¬
"a x d(b x c) = " & either|λ|(my identity, my showvectorTriple), ¬
dotProduct( "a, x d)) = " & either(my identity, my show, ¬
"a . (b x d) = " & eitherdotProduct(my identitya, my showd)), ¬
scalarTriple( "a, . (b, x d)) = " & either(my identity, my show, ¬
} scalarTriple(a, b, d)) ¬
})
end tell
end run
 
9,655

edits