' - - File: III_MixTran.txt
' On this worksheet, we do the following:
             ' Translate F<t> to the origin.
             ' Rotate about the x-axis
             ' Inverse translate back.
pi = 3.14159  :  th = pi/4  :  tx = -2 :  ty = -3  :  tz = 0

R<t> = <t, (t - 2)^2 + 3, 0>            ' Center at (2,3)

T<t> = vTran[R,tx, ty, tz]               ' Translate to origin.
H<t> = vRotx[T, th]                        ' Do the rotation about the x-axis.
F<t> = vTran[H, -tx, -ty, -tz]          ' Undo the translation.

t0 = -2  :  tf = 5   :  n = 100
Plot[R,F, {t, t0,tf ,n }]

' Plot vectors T<t> and H<t>  if you wish to see the separate steps.
' Unlock 2D box if necessary and use the arrow keys to change viewing angles.


