1c4762a1bSJed Brown 2c4762a1bSJed Brown static char help[] = "Makes a simple histogram.\n"; 3c4762a1bSJed Brown 4c4762a1bSJed Brown #include <petscsys.h> 5c4762a1bSJed Brown #include <petscdraw.h> 6c4762a1bSJed Brown 7*d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv) 8*d71ae5a4SJacob Faibussowitsch { 9c4762a1bSJed Brown PetscDraw draw; 10c4762a1bSJed Brown PetscDrawHG hist; 11c4762a1bSJed Brown PetscDrawAxis axis; 12c4762a1bSJed Brown int n = 20, i, x = 0, y = 0, width = 400, height = 300, bins = 8; 13c4762a1bSJed Brown PetscInt w = 400, h = 300, nn = 20, b = 8, c = PETSC_DRAW_GREEN; 14c4762a1bSJed Brown int color = PETSC_DRAW_GREEN; 15c4762a1bSJed Brown const char *xlabel, *ylabel, *toplabel; 16c4762a1bSJed Brown PetscReal xd; 17c4762a1bSJed Brown PetscBool flg; 18c4762a1bSJed Brown 199371c9d4SSatish Balay xlabel = "X-axis Label"; 209371c9d4SSatish Balay toplabel = "Top Label"; 219371c9d4SSatish Balay ylabel = "Y-axis Label"; 22c4762a1bSJed Brown 23327415f7SBarry Smith PetscFunctionBeginUser; 249566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, NULL, help)); 259566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-width", &w, NULL)); 269566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-height", &h, NULL)); 279566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-n", &nn, NULL)); 289566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-bins", &b, NULL)); 299566063dSJacob Faibussowitsch PetscCall(PetscOptionsGetInt(NULL, NULL, "-color", &c, NULL)); 309566063dSJacob Faibussowitsch PetscCall(PetscOptionsHasName(NULL, NULL, "-nolabels", &flg)); 319371c9d4SSatish Balay width = (int)w; 329371c9d4SSatish Balay height = (int)h; 339371c9d4SSatish Balay n = (int)nn; 349371c9d4SSatish Balay bins = (int)b; 359371c9d4SSatish Balay color = (int)c; 369371c9d4SSatish Balay if (flg) { 379371c9d4SSatish Balay xlabel = NULL; 389371c9d4SSatish Balay ylabel = NULL; 399371c9d4SSatish Balay toplabel = NULL; 409371c9d4SSatish Balay } 41c4762a1bSJed Brown 429566063dSJacob Faibussowitsch PetscCall(PetscDrawCreate(PETSC_COMM_WORLD, 0, "Title", x, y, width, height, &draw)); 439566063dSJacob Faibussowitsch PetscCall(PetscDrawSetFromOptions(draw)); 449566063dSJacob Faibussowitsch PetscCall(PetscDrawHGCreate(draw, bins, &hist)); 459566063dSJacob Faibussowitsch PetscCall(PetscDrawHGSetColor(hist, color)); 469566063dSJacob Faibussowitsch PetscCall(PetscDrawHGGetAxis(hist, &axis)); 479566063dSJacob Faibussowitsch PetscCall(PetscDrawAxisSetColors(axis, PETSC_DRAW_BLACK, PETSC_DRAW_RED, PETSC_DRAW_BLUE)); 489566063dSJacob Faibussowitsch PetscCall(PetscDrawAxisSetLabels(axis, toplabel, xlabel, ylabel)); 499566063dSJacob Faibussowitsch /* PetscCall(PetscDrawHGSetFromOptions(hist)); */ 50c4762a1bSJed Brown 51c4762a1bSJed Brown for (i = 0; i < n; i++) { 52c4762a1bSJed Brown xd = (PetscReal)(i - 5); 539566063dSJacob Faibussowitsch PetscCall(PetscDrawHGAddValue(hist, xd * xd)); 54c4762a1bSJed Brown } 559566063dSJacob Faibussowitsch PetscCall(PetscDrawHGDraw(hist)); 569566063dSJacob Faibussowitsch PetscCall(PetscDrawHGSave(hist)); 57c4762a1bSJed Brown 589566063dSJacob Faibussowitsch PetscCall(PetscDrawHGDestroy(&hist)); 599566063dSJacob Faibussowitsch PetscCall(PetscDrawDestroy(&draw)); 609566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 61b122ec5aSJacob Faibussowitsch return 0; 62c4762a1bSJed Brown } 63c4762a1bSJed Brown 64c4762a1bSJed Brown /*TEST 65c4762a1bSJed Brown 66c4762a1bSJed Brown build: 67c4762a1bSJed Brown requires: x 68c4762a1bSJed Brown 69c4762a1bSJed Brown test: 70c4762a1bSJed Brown output_file: output/ex1_1.out 71c4762a1bSJed Brown 72c4762a1bSJed Brown TEST*/ 73