//Exercice 1-1: tracé d'une spirale, version simple
clear; //mise à zéro de toutes les variables du programme
clf(); //vide les fenêtres graphiques
t = linspace(0,5,200)'; //vecteur colonne des valeurs de t

//dialogue pour définir les paramètres
txt = ["amortissement","pulsation"];
rps = x_mdialog("choisissez vos paramètres",txt,["0.6","7"]);
alf = evstr(rps(1)); bet = evstr(rps(2));

x = exp(-alf*t).*cos(bet*t); //.* est l'opérateur de
//multiplication  élément par élément de deux vecteurs 
y = exp(-alf*t).*sin(bet*t); 

subplot(2,2,1); 
//y(t) 
plot(t,y,"r");

subplot(222);
//tracé de la spirale
plot2d(x,y,style=2);

subplot(2,2,4);
//t(x)
plot(x,t,"g")