MAMBO logo MAMBO & the MAMBO Toolbox MAMBO logo

MamboDot — Finding the dot product between two MAMBO vectors or descriptions [mathematica]

v~MamboDot~w

MamboDot[v,w]

v,w: MAMBO vectors or compatible MAMBO descriptions

The function MamboDot returns the vector dot product of the two MAMBO vectors/descriptions v and w.

Restart;
DeclareTriads[a,b];
DefineTriads[a,b,theta,3];
v=MakeTranslations[a,1];
w=MakeTranslations[{a,1},{b,2}];
v~MamboDot~w

1 - Sin [ theta ]

MakeDescription[Table[MakeTranslations[a,i],{i,3}],3]~MamboDot~
  MakeDescription[Table[MakeTranslations[b,i],{i,3}],1]//MatrixForm

( Cos [ theta ] - Sin [ theta ] 0 Sin [ theta ] Cos [ theta ] 0 0 0 1 ) TagBox[RowBox[List["(", "", GridBox[List[List[RowBox[List["Cos", "[", "theta", "]"]], RowBox[List["-", RowBox[List["Sin", "[", "theta", "]"]]]], "0"], List[RowBox[List["Sin", "[", "theta", "]"]], RowBox[List["Cos", "[", "theta", "]"]], "0"], List["0", "0", "1"]], Rule[GridBoxAlignment, List[Rule["Columns", List[List[Center]]], Rule["ColumnsIndexed", List[]], Rule["Rows", List[List[Baseline]]], Rule["RowsIndexed", List[]]]], Rule[GridBoxSpacings, List[Rule["Columns", List[Offset[0.27999999999999997`], List[Offset[0.7`]], Offset[0.27999999999999997`]]], Rule["ColumnsIndexed", List[]], Rule["Rows", List[Offset[0.2`], List[Offset[0.4`]], Offset[0.2`]]], Rule["RowsIndexed", List[]]]]], "", ")"]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]


Toolbox functions