SGR Generate PolarGraph : Différence entre versions

De BlueWiki
(Exemple de code)
(Exemple de code)
Ligne 77 : Ligne 77 :
 
   
 
   
 
   // Définition des paramètre de dessin génériques du graphe
 
   // Définition des paramètre de dessin génériques du graphe
  TABLEAU TEXTE($DataGraphe;0)
+
TABLEAU TEXTE($DataGrapheName;0)
  AJOUTER A TABLEAU($DataGraphe;"Répartition des ressources autour de chez vous")  // 1 - titre du graphe
+
TABLEAU TEXTE($DataGraphe;0)
  AJOUTER A TABLEAU($DataGraphe;"30")  // 2 - taille du libellé
+
AJOUTER A TABLEAU($DataGrapheName;"Title")
  AJOUTER A TABLEAU($DataGraphe;"White")  // 3 - couleur du fond
+
AJOUTER A TABLEAU($DataGraphe;"Répartition des ressources autour de chez vous")  // 1 - titre du graphe
  AJOUTER A TABLEAU($DataGraphe;"oui")  // 4 - Echelle
+
  AJOUTER A TABLEAU($DataGraphe;"oui")  // 5 - Affichage des axes
+
AJOUTER A TABLEAU($DataGrapheName;"TitleAlignement")
  AJOUTER A TABLEAU($DataGraphe;"oui")  // 6 - Affichage des graguations périmétriques
+
AJOUTER A TABLEAU($DataGraphe;Chaine(Centré))  // 4 - Alignement du Titre du graphe
  AJOUTER A TABLEAU($DataGraphe;"Blue")  // 7 - couleur du périmetre du cercle
+
  AJOUTER A TABLEAU($DataGraphe;"blue:10")  // 8 - couleur du fond du cercle
+
AJOUTER A TABLEAU($DataGrapheName;"FontSize")
  AJOUTER A TABLEAU($DataGraphe;"purple:5")  // 9 - couleur des cercles concentriques d'échelle
+
AJOUTER A TABLEAU($DataGraphe;"30")  // 2 - taille du libellé
  AJOUTER A TABLEAU($DataGraphe;"oui")  // 10 - graduation radiale de 10 en 10
+
  AJOUTER A TABLEAU($DataGraphe;"rose des vents")  // 11 - graduation radiale en rose des vents
+
AJOUTER A TABLEAU($DataGrapheName;"GraphBGColor")
  AJOUTER A TABLEAU($DataGraphe;"times")  // 12 - Police du graphe
+
AJOUTER A TABLEAU($DataGraphe;"Lightgrey")  // 3 - couleur du fond
  TABLEAU TEXTE(DataSerie;3;3)
+
  DataSerie{1}{1}:="Cinema"
+
AJOUTER A TABLEAU($DataGrapheName;"ShowLegend")
  DataSerie{1}{2}:="Purple"
+
AJOUTER A TABLEAU($DataGraphe;"oui")  // 4 - Echelle
  DataSerie{1}{3}:="rond"  // marque : carré/rond/triangle
+
 
+
AJOUTER A TABLEAU($DataGrapheName;"ShowAxis")
  DataSerie{2}{1}:="Station essence"
+
AJOUTER A TABLEAU($DataGraphe;"oui")  // 5 - Affichage des axes
  DataSerie{2}{2}:="blue"
+
  DataSerie{2}{3}:="triangle"  // marque : carré/rond/triangle
+
AJOUTER A TABLEAU($DataGrapheName;"PerimeterGraduation")
 
+
AJOUTER A TABLEAU($DataGraphe;"oui")  // 6 - Affichage des graduations périmétriques
  DataSerie{3}{1}:="Services de secours"
+
  DataSerie{3}{2}:="red"
+
AJOUTER A TABLEAU($DataGrapheName;"PerimeterColor")
  DataSerie{3}{3}:="carré"  // marque : carré/rond/triangle
+
AJOUTER A TABLEAU($DataGraphe;"Blue")  // 7 - couleur du périmetre du cercle
 
+
 +
AJOUTER A TABLEAU($DataGrapheName;"CircleBGColor")
 +
AJOUTER A TABLEAU($DataGraphe;"blue:10")  // 8 - couleur du fond du cercle
 +
 +
AJOUTER A TABLEAU($DataGrapheName;"ConcentricCirclesColor")
 +
AJOUTER A TABLEAU($DataGraphe;"purple:5")  // 9 - couleur des cercles concentriques d'échelle
 +
 +
AJOUTER A TABLEAU($DataGrapheName;"CircleBGColor")
 +
Si (gradRad=1)
 +
AJOUTER A TABLEAU($DataGraphe;"oui")  // 10 - graduation radiale de 10 en 10
 +
Sinon
 +
AJOUTER A TABLEAU($DataGraphe;"non")  // 10 - graduation radiale de 10 en 10
 +
Fin de si
 +
 +
AJOUTER A TABLEAU($DataGrapheName;"ScaleUnit")
 +
Au cas ou
 +
: (naturegrad=1)
 +
AJOUTER A TABLEAU($DataGraphe;"degré")  // 11 - graduation radiale de 10 en 10 en degré
 +
: (naturegrad=2)
 +
AJOUTER A TABLEAU($DataGraphe;"radian")  // 11 - graduation radiale de 10 en 10 en radian
 +
: (naturegrad=3)
 +
AJOUTER A TABLEAU($DataGraphe;"grade")  // 11 - graduation radiale de 10 en 10 en grade
 +
: (naturegrad=4)
 +
AJOUTER A TABLEAU($DataGraphe;"rose des vents")  // 11 - graduation radiale en rose des vents
 +
Sinon
 +
AJOUTER A TABLEAU($DataGraphe;"degré")  // 11 - graduation radiale de 10 en 10 en degré
 +
Fin de cas
 +
 +
AJOUTER A TABLEAU($DataGrapheName;"GraphFont")
 +
AJOUTER A TABLEAU($DataGraphe;"times")  // 12 - Police du graphe
 +
 +
 +
TABLEAU TEXTE(DataSerie;3;3)
 +
DataSerie{1}{1}:="Cinema"
 +
DataSerie{1}{2}:="Purple"
 +
DataSerie{1}{3}:="rond"  // marque : carré/rond/triangle
 +
 +
DataSerie{2}{1}:="Station essence"
 +
DataSerie{2}{2}:="blue"
 +
DataSerie{2}{3}:="triangle"  // marque : carré/rond/triangle
 +
 +
DataSerie{3}{1}:="Services de secours"
 +
DataSerie{3}{2}:="red"
 +
DataSerie{3}{3}:="étoile"  // marque : carré/rond/triangle
 +
 
   // définition du tableau à 2 dimensions des distances
 
   // définition du tableau à 2 dimensions des distances
  TABLEAU REEL(Distance;0;0)
+
TABLEAU REEL(Distance;0;0)
  TABLEAU REEL(Distance;3;5)
+
TABLEAU REEL(Distance;3;5)
  Distance{1}{1}:=5
+
Distance{1}{1}:=5
  Distance{1}{2}:=30
+
Distance{1}{2}:=30
  Distance{1}{3}:=70
+
Distance{1}{3}:=70
 
   
 
   
 
  Distance{2}{1}:=20
 
  Distance{2}{1}:=20
Ligne 135 : Ligne 179 :
 
  angles{3}{2}:=60
 
  angles{3}{2}:=60
 
   
 
   
  TheGraphe:=SGR_Generate_PolarGraph (->$DataGraphe;->DataSerie;->Distance;->angles)
+
  TheGraphe:=SGR_Generate_PolarGraph (->$DataGrapheName;->$DataGraphe;->DataSerie;->Distance;->angles)
+
 
 
<gallery>
 
<gallery>
 
Fichier:polargraph-ex1.jpg|Image correspondant à l'exemple de code ci-dessus
 
Fichier:polargraph-ex1.jpg|Image correspondant à l'exemple de code ci-dessus
 
</gallery>
 
</gallery>

Version du 30 octobre 2013 à 13:31

Paramètres


Paramètres Type Description
Données du graphe Pointeur caption Pointeur vers un tableau texte des paramètres du graphe
  1. - titre du graphe
  2. - taille du libellé
  3. - couleur du fond
  4. - Echelle
  5. - Affichage des axes
  6. - Affichage des graguations périmétriques
  7. - couleur du périmetre du cercle
  8. - couleur du fond du cercle
  9. - couleur des cercles concentriques d'échelle
  10. - graduation radiale de 10 en 10 (oui / Non)
  11. - graduation radiale de 10 en 10 en degré, radian, grade ou "rose des vents")
  12. - Police du graphe
Données des série Pointeur caption Pointeur vers un tableau texte des paramètres de série
  1. Nom
  2. Couleur
  3. Symbole (rond, carré, triangle, étoile)
DataSerie Pointeur caption Pointeur vers un tableau texte à 2 dimensions des paramètres des séries
Distances Pointeur caption Pointeur vers un tableau réel des distances par rapport au centre
angles Pointeur caption Pointeur vers un tableau réel des angles en degrés
Resultat Image caption Image incluant le code SVG

Description


Vous pouvez changer les symboles, les couleurs pour chaque série

Vous pouvez Afficher des graduation en degrés, radians ou grades ou demander une rose des vents

Exemple de code


 // Nom utilisateur (OS) : Paul Kuhn - BlueCompany
 // ----------------------------------------------------
 // Méthode : Exemple_DiagrammePolaire
 // Description
 // 
 //
 // Paramètres
 // ----------------------------------------------------


 // Définition des paramètre de dessin génériques du graphe
TABLEAU TEXTE($DataGrapheName;0)
TABLEAU TEXTE($DataGraphe;0)
AJOUTER A TABLEAU($DataGrapheName;"Title")
AJOUTER A TABLEAU($DataGraphe;"Répartition des ressources autour de chez vous")  // 1 - titre du graphe

AJOUTER A TABLEAU($DataGrapheName;"TitleAlignement")
AJOUTER A TABLEAU($DataGraphe;Chaine(Centré))  // 4 - Alignement du Titre du graphe

AJOUTER A TABLEAU($DataGrapheName;"FontSize")
AJOUTER A TABLEAU($DataGraphe;"30")  // 2 - taille du libellé

AJOUTER A TABLEAU($DataGrapheName;"GraphBGColor")
AJOUTER A TABLEAU($DataGraphe;"Lightgrey")  // 3 - couleur du fond

AJOUTER A TABLEAU($DataGrapheName;"ShowLegend")
AJOUTER A TABLEAU($DataGraphe;"oui")  // 4 - Echelle

AJOUTER A TABLEAU($DataGrapheName;"ShowAxis")
AJOUTER A TABLEAU($DataGraphe;"oui")  // 5 - Affichage des axes

AJOUTER A TABLEAU($DataGrapheName;"PerimeterGraduation")
AJOUTER A TABLEAU($DataGraphe;"oui")  // 6 - Affichage des graduations périmétriques

AJOUTER A TABLEAU($DataGrapheName;"PerimeterColor")
AJOUTER A TABLEAU($DataGraphe;"Blue")  // 7 - couleur du périmetre du cercle

AJOUTER A TABLEAU($DataGrapheName;"CircleBGColor")
AJOUTER A TABLEAU($DataGraphe;"blue:10")  // 8 - couleur du fond du cercle

AJOUTER A TABLEAU($DataGrapheName;"ConcentricCirclesColor")
AJOUTER A TABLEAU($DataGraphe;"purple:5")  // 9 - couleur des cercles concentriques d'échelle

AJOUTER A TABLEAU($DataGrapheName;"CircleBGColor")
Si (gradRad=1)
AJOUTER A TABLEAU($DataGraphe;"oui")  // 10 - graduation radiale de 10 en 10
Sinon 
AJOUTER A TABLEAU($DataGraphe;"non")  // 10 - graduation radiale de 10 en 10
Fin de si 

AJOUTER A TABLEAU($DataGrapheName;"ScaleUnit")
Au cas ou 
: (naturegrad=1)
AJOUTER A TABLEAU($DataGraphe;"degré")  // 11 - graduation radiale de 10 en 10 en degré
: (naturegrad=2)
AJOUTER A TABLEAU($DataGraphe;"radian")  // 11 - graduation radiale de 10 en 10 en radian
: (naturegrad=3)
AJOUTER A TABLEAU($DataGraphe;"grade")  // 11 - graduation radiale de 10 en 10 en grade
: (naturegrad=4)
AJOUTER A TABLEAU($DataGraphe;"rose des vents")  // 11 - graduation radiale en rose des vents
Sinon 
AJOUTER A TABLEAU($DataGraphe;"degré")  // 11 - graduation radiale de 10 en 10 en degré
Fin de cas 

AJOUTER A TABLEAU($DataGrapheName;"GraphFont")
AJOUTER A TABLEAU($DataGraphe;"times")  // 12 - Police du graphe


TABLEAU TEXTE(DataSerie;3;3)
DataSerie{1}{1}:="Cinema"
DataSerie{1}{2}:="Purple"
DataSerie{1}{3}:="rond"  // marque : carré/rond/triangle

DataSerie{2}{1}:="Station essence"
DataSerie{2}{2}:="blue"
DataSerie{2}{3}:="triangle"  // marque : carré/rond/triangle

DataSerie{3}{1}:="Services de secours"
DataSerie{3}{2}:="red"
DataSerie{3}{3}:="étoile"  // marque : carré/rond/triangle

 // définition du tableau à 2 dimensions des distances
TABLEAU REEL(Distance;0;0)
TABLEAU REEL(Distance;3;5)
Distance{1}{1}:=5
Distance{1}{2}:=30
Distance{1}{3}:=70

Distance{2}{1}:=20
Distance{2}{2}:=47
Distance{2}{3}:=20
Distance{2}{4}:=40
Distance{2}{5}:=60

Distance{3}{1}:=40
Distance{3}{2}:=65

 // définition du tableau à 2 dimensions des angles
TABLEAU REEL(angles;0;0)
TABLEAU REEL(angles;3;5)
angles{1}{1}:=405
angles{1}{2}:=220
angles{1}{3}:=330

angles{2}{1}:=290
angles{2}{2}:=30
angles{2}{3}:=150
angles{2}{4}:=65
angles{2}{5}:=180

angles{3}{1}:=335
angles{3}{2}:=60

TheGraphe:=SGR_Generate_PolarGraph (->$DataGrapheName;->$DataGraphe;->DataSerie;->Distance;->angles)