SGR Generate PolarGraph
De BlueWiki
Version du 27 décembre 2013 à 17:55 par Paul Kuhn (discuter | contributions)
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)