cmplxprod
Prev | Opcodes et opérateurs de l'orchestre | Next

## cmplxprod

cmplxprod — Multiplication complexe de deux tableaux.

## Description

Calcule le produit complexe de deux tableaux de la même taille et en format réel-imaginaire entrelacé.

## Syntaxe

    kout[] cmplxprod kin1[], kin2[]

## Exécution

kout[] -- tableau de sortie contenant le produit. Créé s'il n'existe pas.

kin1[],kin2[] -- tableaux contenant les entrées complexes.

## Exemples

Voici un exemple de l'opcode cmplxprod. Il utilise le fichier cmplxprod.csd.

Example 125. Exemple de l'opcode cmplxprod.

Voir les sections Audio en temps réel et Options de la ligne de commande pour plus d'information sur l'utilisation des options de la ligne de commande.

    <CsoundSynthesizer>
    <CsOptions>
    -d -o dac
    </CsOptions>
    <CsInstruments>
    ;ksmps needs to be an integer div of hopsize
    ksmps = 64
    0dbfs = 1

    instr 1

     ihopsize = 256   ; hopsize
     ifftsize = 1024  ; FFT size
     iolaps = ifftsize/ihopsize ; overlaps
     ibw = sr/ifftsize ; bin bandwidth
     kcnt init 0    ; counting vars
     krow init 0

     kOla[] init ifftsize ; overlap-add buffer
     kIn[] init ifftsize  ; input buffer
     kFil[] init ifftsize  ; filter buffer
     kOut[][] init iolaps, ifftsize ; output buffers

     kfrst init 1
     if kfrst == 1 then
      copyf2array kFil,1
      kfrst = 0
     endif

     a1 diskin2 "fox.wav",1,0,1 ; audio input

     /* every hopsize samples */
     if kcnt == ihopsize then
       /* window and take FFT */
       kWin[] window kIn,krow*ihopsize
       kSpec[] rfft kWin

       kProd[] cmplxprod kSpec, kFil

       /* IFFT + window */
       kRow[] irfft kProd
       kWin window kRow, krow*ihopsize
       /* place it on out buffer */
       kOut setrow kWin, krow

       /* zero the ola buffer */
       kOla = 0
       /* overlap-add */
       ki = 0
       until ki == iolaps do
         kRow getrow kOut, ki
         kOla = kOla + kRow
         ki += 1
       od

      /* update counters */
      krow = (krow+1)%iolaps
      kcnt = 0
     endif

     /* shift audio in/out of buffers */
     kIn shiftin a1
     a2 shiftout kOla
        out a2/iolaps

     /* increment counter */
     kcnt += ksmps

    endin

    </CsInstruments>
    <CsScore>
    f1 0 1024 7  0 64 0.1 64 0.2 128 0.5 256 1 512 1
    i1 0 10
    </CsScore>
    </CsoundSynthesizer>

## Voir aussi

Opcodes vectoriels, array

## Crédits

Auteur : Victor Lazzarini
NUI Maynooth
2014

Nouveau dans la version 6.04

Prev | Up | Next
clockon | Home | cngoto