' - - File: IIIPulse2.txt    
'     We define the Pulse function:  Pu{x,y,z} = Unit[y - x] - Unit[y - z]
'      See IIIPulse1.txt for details.
Pu{x,t,z} = Unit[t - x] - Unit[t - z]             ' t was used because X & Z used parameter, t.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -
pi = 3.14159

X{t} = t
Y{t} = Pu{2,t,7} + Pu{3,t,6}* Sin[2*pi*t] /2 + 5
Z{t} = 3 * (1 - 2 * t^3 / 2000)

Fc<t> = <X,Y,Z>     ' 3D curve to generate the shadows.  Move arrow keys to view.

' Generate "shadows" to the respective planes.
Xs<t> = <0,Y,Z>     ' Shadow onto the yz-plane.
Ys<t> = <X,0,Z>     ' Shadow onto the xz-plane.
Zs<t> = <X,Y,0>     ' Shadow onto the xy-plane.

t0 = 0  :  tf = 10:  n = 200
Plot[Fc,Xs, Ys, Zs, {t, t0, tf, n}]

' Set z-scale to 0.5 and key Update if you wish.

