' - -  File: validCk3 :   A composite Demo
pi = 3.14159

Cu{t} = t^3 * Unit[2 - t]	' Clip display after t > 2 to prevent excessive height.
Cu<t> = <t, Cu,0>

Si{t} = 1.5 * Sin[3*pi *(t - 3) ] 
Si<t> = <t, Si, 0>

M{t} = Cu{Si{t}}
Mc{t} = Sw[Cu{t} - M{t}] * M{t}
M<t> = <t, Mc, 0>

t0 = 0  : tf = 2.5 :  n = 500

Plot[Cu,M, {t, t0,tf,n}]


