Bonjour bonsoir !

je poste ici car jai un petit problème dans l'élaboration de mon algorithme ci dessous
• mon premier problème est dans le deuxième TANT_QUE je n'arrive pas à faire afficher la "droite"
54    TANT_QUE (xdepart<w) FAIRE
55      DEBUT_TANT_QUE
56      xfin PREND_LA_VALEUR xdepart+pas
57      TRACER_SEGMENT (xdepart,y/(4*(Math.PI)*pow(xdepart,2)))->(xfin,y/(4*(Math.PI)*pow(xfin,2)))
58      xdepart PREND_LA_VALEUR xfin
59      FIN_TANT_QUE
• mon second est le lourd problème du manque d'affichage des informations nécessaires sur un graphique : titre unité..


ALGO  -  31.01.2011

******************************************
Algorithme permettant de calculer :
- La puissance acoustique par enceinte (en dB)
- Le nombre d'enceintes nécessaires
- La distance minimale à respecter entre le public et la sc√®ne ;
en connaissant la capacité d'une enceinte, l'intensité voulue au fond de la salle et la profondeur de la salle.
******************************************

1   VARIABLES
2     v EST_DU_TYPE NOMBRE
3     w EST_DU_TYPE NOMBRE
4     y EST_DU_TYPE NOMBRE
5     u EST_DU_TYPE NOMBRE
6     d EST_DU_TYPE NOMBRE
7     pas EST_DU_TYPE NOMBRE
8     n EST_DU_TYPE NOMBRE
9     xdepart EST_DU_TYPE NOMBRE
10    xfin EST_DU_TYPE NOMBRE
11    b EST_DU_TYPE NOMBRE
12    utotal EST_DU_TYPE NOMBRE
13    ytotal EST_DU_TYPE NOMBRE
14    c EST_DU_TYPE NOMBRE
15  DEBUT_ALGORITHME
16    AFFICHER "Capacité d'une enceinte (en dB)"
17    LIRE u
18    AFFICHER u
19    AFFICHER "Niveau au fond de la salle (en dB)"
20    LIRE v
21    AFFICHER v
22    AFFICHER "Profondeur de la salle (en m)"
23    LIRE w
24    AFFICHER w
25    AFFICHER "Limite légale de décibel (en dB)"
26    LIRE d
27    AFFICHER d
28    AFFICHER "Puissance acoustique de l'enceinte : "
29    y PREND_LA_VALEUR (pow(10,-12))*(pow(10,(u/10)))
30    AFFICHER y
31    AFFICHER "W(acoustique)"
32    AFFICHER "Nombre d'enceintes nécessaires : "
33    n PREND_LA_VALEUR round(((pow(10,((-12)+(v/10))))*4*pow(w,2)*(Math.PI))/y)
34    AFFICHER n
35    AFFICHER "Niveau (en W(acoustique)) du total des enceintes : "
36    ytotal PREND_LA_VALEUR y*n
37    AFFICHER ytotal
38    AFFICHER "Niveau (en dB) du total des enceintes : "
39    utotal PREND_LA_VALEUR u*n
40    AFFICHER utotal
41    AFFICHER "Distance de sécurité : "
42    d PREND_LA_VALEUR round(sqrt((y*ytotal)/(pow(10,((-12)+(d/10)))*4*(Math.PI))))
43    AFFICHER d
44    TRACER_POINT (d,0)
45    TRACER_POINT (w,0)
46    pas PREND_LA_VALEUR 0.1
47    xdepart PREND_LA_VALEUR 0.1
48    TANT_QUE (xdepart<w) FAIRE
49      DEBUT_TANT_QUE
50      xfin PREND_LA_VALEUR xdepart+pas
51      TRACER_SEGMENT (xdepart,F1(xdepart))->(xfin,F1(xfin))
52      xdepart PREND_LA_VALEUR xfin
53      FIN_TANT_QUE
54    TANT_QUE (xdepart<w) FAIRE
55      DEBUT_TANT_QUE
56      xfin PREND_LA_VALEUR xdepart+pas
57      TRACER_SEGMENT (xdepart,y/(4*(Math.PI)*pow(xdepart,2)))->(xfin,y/(4*(Math.PI)*pow(xfin,2)))
58      xdepart PREND_LA_VALEUR xfin
59      FIN_TANT_QUE
60    TRACER_SEGMENT (d,0)->(d,F1(0.1))
61    TRACER_SEGMENT (w,0)->(w,F1(0.1))
62    AFFICHER "Représentation graphique "
63    AFFICHER "Niveau (en dB) en fonction de la distance (en m)"
64    AFFICHER "Bleu : niveau sonore (en dB)"
65    AFFICHER "Vert : fond de la salle "
66    AFFICHER "Rouge : limite de sécurité"
67    AFFICHER "Intensité à une distance donnée : "
68    LIRE b
69    b PREND_LA_VALEUR round(10*log((y*n)/(4*(Math.PI)*pow(b,2)*pow(10,(-12))))/log(10))
70    AFFICHER b
71    AFFICHER "Puissance (en W(acoustique)) à une distance donnée : "
72    LIRE c
73    c PREND_LA_VALEUR pow(10,(-12))*pow(10,(round(10*log((y*n)/(4*(Math.PI)*pow(c,2)*pow(10,(-12))))/log(10)))/10)
74    AFFICHER c
75    
76  FIN_ALGORITHME

Fonction numérique utilisée :
F1(x)=10*log(y*n/(4*(Math.PI)*pow(x,2)*pow(10,(-12))))/log(10)

Pas besoin que vous vous preniez la tête sur les formules..

Merci de votre réponse !

*** message déplacé ***