Example 2.1

RAB = rZ[30 Degree] // N ; RAB // Nice

( 0.8660254037844386` -0.5` 0.` ) ... 0.8660254037844386` 0.` 0.` 0.` 1.`

RowBox[{RowBox[{PB, , =, , RowBox[{{, RowBox[{0., ,, , 2., ,, , 0.}], }}]}], ;}] PB // Nice

( 0.` ) 2.` 0.`

PA = RAB . PB ; PA // Nice

( -1.` ) 1.7320508075688772` 0.`

Created by Mathematica  (September 7, 2003)