' - - File:  III_Unit4.txt
pi = 3.14159

' Unlock the 2D check and use the 3D cursor keys, if necessary.
F{t} = Sin[25 * pi * t /5]
A{t} = Sin[100 * pi * t / 5]

X{t} = 10 * t
Y{t} = 10 * Unit[2 * F{t}] * F{t}
Z{t} = 10 * (1 - Unit[2*F{t} ] ) * A{t}

H<t> = <X, Y, Z>

t0 = 0  :  tf = 1  :  n = 400
Plot[H,{t, t0, tf, n}]

