' - - File: III_Inv1

pi = 3.14159

' The +3 & +6 offset below added to "stack" the displays.
I{t} = Inv[cos[10t] ] + 3
C{t} = cos[t] + 6
' - - - - - - - - - - - - - - - - - -
F{t} = (I{t} - 3)* ( C{t} - 6)         ' Remove the offset.

Cp<t> = <t, C, 0>                    ' The "signal" to be "modulated' by I{t}.
Ip<t> = <t, I, 0>
A<t> = <t, F, 0>
' - - - - - - - - - - - - - - - - - -
Plot[Cp, Ip, A, {t, 0, 8, 500}]

' Note: If only F{t} is needed, then remove the offsets & omit Cp & Ip vectors.
'@Red is
