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($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 | // 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}{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
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)