Version imprimable
Bonjour. j'ai trouvé un code SAL et j'essaye de l'écrire en LISP. Le problème est le suivant ; il faut écrire qu'une variable a une quantité de modulation qui varie entre plus ou moins 20 pour cent. Le code SAL est: mod-rnd = mod-det * 0.2 *rand-ctrl(). Je serais reconnaissant à un modérateur de m'indiquer comment on peut écrire en LISP cela.
Bonjour. Est-ce que rand-ctrl est une fonction prédéfinie ? Qu'est-ce qu'elle renvoie ? Désolé, je ne sais point SAL.
Bonjour.Citation:
Envoyé par fdair07
Il faudrait savoir quel lisp tu utilises, afin de savoir quelles sont ses possibilités de 'random'.
Par exemple, en Common Lisp (cf. 12.9. Random Numbers), la fonction 'random' admet un flottant.
Dans ce cas, la solution est très simple:Citation:
[Function]
random number &optional state
(random n) accepts a positive number n and returns a number of the same kind between zero (inclusive) and n (exclusive). The number n may be an integer or a floating-point number.
Si la fonction 'random' n'admet que des entiers (comme en emacs-lisp, par exemple), on peut s'en tirer avec un peu d'arithmétique de 6ème niveau:Code:(setq mod-rnd (* mod-det 0.2 (1- (random 2.0))))
Code:
2
Je remercie les modérateurs pour les réponses rapides.
Je cherche à écrire en XLISP utilisé dans le logiciel Audacity. En définitive, c'est du Nyquist; on s'en sert pour générer de l'audio uniquement.
mod-det n'est pas une fonction; dans le code c'est une variable qui semble imbriquée avec d'autres variables. Voilà un bout du code en SAL:
mod-det = mod-index * step-to-hz(pitch),
mod-rnd = mod-det * 0.2 * rand-ctrl(),
mod-depth = mod-det + mod-rnd,
Je ne suis pas modérateur, mais simple utilisateur du site, comme la plupart ici!Citation:
Envoyé par fdair07
C'est bien ce que j'avais compris.Citation:
mod-det n'est pas une fonction; dans le code c'est une variable
Je ne comprends pas très bien "imbriquée'.Citation:
qui semble imbriquée avec d'autres variables.
Veux-tu dire qu'elle fait partie d'un groupe de variables locales à une fonction?
Citation:
Je cherche à écrire en XLISP utilisé dans le logiciel Audacity. En définitive, c'est du Nyquist; on s'en sert pour générer de l'audio uniquement.
D'après la doc, il semblerait que la fonction 'random' de Nyquist soit du 2ème type (argument entier). Donc la 2ème solution proposée devrait fonctionner (en remplaçant 'setq' par 'setf', si besoin):
à tester...Code:
2
Merci pour les commentaires.
je ne suis pas compétent en LISP, aussi, si j'ai utilisé le terme "imbriquées" c'était pour indiquer que dans le code SAL qui m'intéresse on note à plusieurs reprise des noms de variables qui semblent être toutes dépendantes les unes des autres. Désolé pour mon erreur de vocabulaire si effectivement dans LISP le terme "imbriqué" à un sens très précis.
Apparemment, il y a un problème avec la suite du code. J'ai transcris en LISP ainsi pour le code SAL [amp-mod = rand-ctrl () * 0.3 + 1] et j'ai donc écrit par similitude avec la variable mod-rnd :
(setf amp-mod (*amp-mod 0.3 (1- (/ (/ (random *mod-rnd precision*) 0.5) (*mod-rnd-precision* ))))
L'auteur du code SAL indique que ici, l'amplitude varie de + ou- 30 pour cent.
Donc, il y a encore un problème car le Nyquist Prompt indique dans Audacity:"error: unbound variable - AMP-MOD if continued: try evaluating symbol again".
Est-ce qu'il faut concevoir comme un tout le code SAL suivant:amp-mod = rand-ctrl() * 0.3 + 1
return fm-det * amp-mod
D'avance merci pour les commentaires.