' - -  File: III_Unit3.txt
pi = 3.14159
' Unlock the 2D check and use the 3D cursor keys, if necessary.

X{t} = 10 * t
Y{t} = 10 * Unit[10 * Sin[10*2*pi*t/5]] * Sin[10*2*pi*t/5]
Z{t} = 10 * (1- Unit[10*Sin[10*2*pi*t/5]] ) * Sin[10*2*pi*t/5]

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

t0 = 0  :  tf = 1  :  n = 100
Plot[Ac,{t, t0, tf, n}]





