, that f(t) is a sinusoid:
</p>

<!-- LATEX \[  \cos \, (\omega_{c}t+B\sin \omega_{m}t)  \] -->

<img class="indented" src="pix/fmeq4.png" alt="cos(sin)">


<p>where the "m" stands for "modulator" and the "B" factor is usually called the modulation index.
The corresponding CLM code is:
</p>

<pre class="indented">
(oscil carrier (* B (oscil modulator)))
</pre>

<p>where oscil is (essentially):
</p>

<!-- CLM CASE 
<pre class="indented">
(defun oscil (oscillator &amp;optional (fm-input 0.0) (pm-input 0.0))
 