SGR Generate PolarGraph
De BlueWiki
Version du 30 octobre 2013 à 14:31 par Paul Kuhn (discuter | contributions)
Paramètres
| Paramètres | Type | Description | |
|---|---|---|---|
| Données du graphe | Pointeur | 
|
Pointeur vers un tableau texte des paramètres du graphe
|
| Données des série | Pointeur |
|
Pointeur vers un tableau texte des paramètres de série
|
| DataSerie | Pointeur |
|
Pointeur vers un tableau texte à 2 dimensions des paramètres des séries |
| Distances | Pointeur |
|
Pointeur vers un tableau réel des distances par rapport au centre |
| angles | Pointeur |
|
Pointeur vers un tableau réel des angles en degrés |
| Resultat | Image | 
|
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)
Image correspondant à l'exemple de code ci-dessus
