ministat.c revision 256281
1295011Sandrew/* 2295011Sandrew * ---------------------------------------------------------------------------- 3295011Sandrew * "THE BEER-WARE LICENSE" (Revision 42): 4295011Sandrew * <phk@FreeBSD.ORG> wrote this file. As long as you retain this notice you 5295011Sandrew * can do whatever you want with this stuff. If we meet some day, and you think 6295011Sandrew * this stuff is worth it, you can buy me a beer in return. Poul-Henning Kamp 7295011Sandrew * ---------------------------------------------------------------------------- 8295011Sandrew * 9295011Sandrew */ 10295011Sandrew 11295011Sandrew#include <sys/cdefs.h> 12295011Sandrew__FBSDID("$FreeBSD: stable/10/usr.bin/ministat/ministat.c 243079 2012-11-15 15:06:12Z eadler $"); 13295011Sandrew 14295011Sandrew#include <stdio.h> 15295011Sandrew#include <math.h> 16295011Sandrew#include <err.h> 17295011Sandrew#include <string.h> 18295011Sandrew#include <stdlib.h> 19295011Sandrew#include <unistd.h> 20295011Sandrew#include <sys/ioctl.h> 21295011Sandrew#include <sys/queue.h> 22295011Sandrew#include <sys/ttycom.h> 23295011Sandrew 24295011Sandrew#define NSTUDENT 100 25295011Sandrew#define NCONF 6 26295011Sandrewstatic double const studentpct[] = { 80, 90, 95, 98, 99, 99.5 }; 27295011Sandrewstatic double student[NSTUDENT + 1][NCONF] = { 28295011Sandrew/* inf */ { 1.282, 1.645, 1.960, 2.326, 2.576, 3.090 }, 29295011Sandrew/* 1. */ { 3.078, 6.314, 12.706, 31.821, 63.657, 318.313 }, 30295011Sandrew/* 2. */ { 1.886, 2.920, 4.303, 6.965, 9.925, 22.327 }, 31295011Sandrew/* 3. */ { 1.638, 2.353, 3.182, 4.541, 5.841, 10.215 }, 32295011Sandrew/* 4. */ { 1.533, 2.132, 2.776, 3.747, 4.604, 7.173 }, 33295011Sandrew/* 5. */ { 1.476, 2.015, 2.571, 3.365, 4.032, 5.893 }, 34295011Sandrew/* 6. */ { 1.440, 1.943, 2.447, 3.143, 3.707, 5.208 }, 35295011Sandrew/* 7. */ { 1.415, 1.895, 2.365, 2.998, 3.499, 4.782 }, 36295011Sandrew/* 8. */ { 1.397, 1.860, 2.306, 2.896, 3.355, 4.499 }, 37295011Sandrew/* 9. */ { 1.383, 1.833, 2.262, 2.821, 3.250, 4.296 }, 38295011Sandrew/* 10. */ { 1.372, 1.812, 2.228, 2.764, 3.169, 4.143 }, 39295011Sandrew/* 11. */ { 1.363, 1.796, 2.201, 2.718, 3.106, 4.024 }, 40295011Sandrew/* 12. */ { 1.356, 1.782, 2.179, 2.681, 3.055, 3.929 }, 41295011Sandrew/* 13. */ { 1.350, 1.771, 2.160, 2.650, 3.012, 3.852 }, 42295011Sandrew/* 14. */ { 1.345, 1.761, 2.145, 2.624, 2.977, 3.787 }, 43295011Sandrew/* 15. */ { 1.341, 1.753, 2.131, 2.602, 2.947, 3.733 }, 44295011Sandrew/* 16. */ { 1.337, 1.746, 2.120, 2.583, 2.921, 3.686 }, 45295011Sandrew/* 17. */ { 1.333, 1.740, 2.110, 2.567, 2.898, 3.646 }, 46295011Sandrew/* 18. */ { 1.330, 1.734, 2.101, 2.552, 2.878, 3.610 }, 47295011Sandrew/* 19. */ { 1.328, 1.729, 2.093, 2.539, 2.861, 3.579 }, 48295011Sandrew/* 20. */ { 1.325, 1.725, 2.086, 2.528, 2.845, 3.552 }, 49295011Sandrew/* 21. */ { 1.323, 1.721, 2.080, 2.518, 2.831, 3.527 }, 50295011Sandrew/* 22. */ { 1.321, 1.717, 2.074, 2.508, 2.819, 3.505 }, 51295011Sandrew/* 23. */ { 1.319, 1.714, 2.069, 2.500, 2.807, 3.485 }, 52295011Sandrew/* 24. */ { 1.318, 1.711, 2.064, 2.492, 2.797, 3.467 }, 53295011Sandrew/* 25. */ { 1.316, 1.708, 2.060, 2.485, 2.787, 3.450 }, 54295011Sandrew/* 26. */ { 1.315, 1.706, 2.056, 2.479, 2.779, 3.435 }, 55295011Sandrew/* 27. */ { 1.314, 1.703, 2.052, 2.473, 2.771, 3.421 }, 56295011Sandrew/* 28. */ { 1.313, 1.701, 2.048, 2.467, 2.763, 3.408 }, 57295011Sandrew/* 29. */ { 1.311, 1.699, 2.045, 2.462, 2.756, 3.396 }, 58295011Sandrew/* 30. */ { 1.310, 1.697, 2.042, 2.457, 2.750, 3.385 }, 59295011Sandrew/* 31. */ { 1.309, 1.696, 2.040, 2.453, 2.744, 3.375 }, 60295011Sandrew/* 32. */ { 1.309, 1.694, 2.037, 2.449, 2.738, 3.365 }, 61295011Sandrew/* 33. */ { 1.308, 1.692, 2.035, 2.445, 2.733, 3.356 }, 62295011Sandrew/* 34. */ { 1.307, 1.691, 2.032, 2.441, 2.728, 3.348 }, 63295011Sandrew/* 35. */ { 1.306, 1.690, 2.030, 2.438, 2.724, 3.340 }, 64295011Sandrew/* 36. */ { 1.306, 1.688, 2.028, 2.434, 2.719, 3.333 }, 65295011Sandrew/* 37. */ { 1.305, 1.687, 2.026, 2.431, 2.715, 3.326 }, 66295011Sandrew/* 38. */ { 1.304, 1.686, 2.024, 2.429, 2.712, 3.319 }, 67295011Sandrew/* 39. */ { 1.304, 1.685, 2.023, 2.426, 2.708, 3.313 }, 68295011Sandrew/* 40. */ { 1.303, 1.684, 2.021, 2.423, 2.704, 3.307 }, 69295011Sandrew/* 41. */ { 1.303, 1.683, 2.020, 2.421, 2.701, 3.301 }, 70295011Sandrew/* 42. */ { 1.302, 1.682, 2.018, 2.418, 2.698, 3.296 }, 71295011Sandrew/* 43. */ { 1.302, 1.681, 2.017, 2.416, 2.695, 3.291 }, 72295011Sandrew/* 44. */ { 1.301, 1.680, 2.015, 2.414, 2.692, 3.286 }, 73295011Sandrew/* 45. */ { 1.301, 1.679, 2.014, 2.412, 2.690, 3.281 }, 74295011Sandrew/* 46. */ { 1.300, 1.679, 2.013, 2.410, 2.687, 3.277 }, 75295011Sandrew/* 47. */ { 1.300, 1.678, 2.012, 2.408, 2.685, 3.273 }, 76295011Sandrew/* 48. */ { 1.299, 1.677, 2.011, 2.407, 2.682, 3.269 }, 77295011Sandrew/* 49. */ { 1.299, 1.677, 2.010, 2.405, 2.680, 3.265 }, 78295011Sandrew/* 50. */ { 1.299, 1.676, 2.009, 2.403, 2.678, 3.261 }, 79295011Sandrew/* 51. */ { 1.298, 1.675, 2.008, 2.402, 2.676, 3.258 }, 80295011Sandrew/* 52. */ { 1.298, 1.675, 2.007, 2.400, 2.674, 3.255 }, 81295011Sandrew/* 53. */ { 1.298, 1.674, 2.006, 2.399, 2.672, 3.251 }, 82295011Sandrew/* 54. */ { 1.297, 1.674, 2.005, 2.397, 2.670, 3.248 }, 83295011Sandrew/* 55. */ { 1.297, 1.673, 2.004, 2.396, 2.668, 3.245 }, 84295011Sandrew/* 56. */ { 1.297, 1.673, 2.003, 2.395, 2.667, 3.242 }, 85295011Sandrew/* 57. */ { 1.297, 1.672, 2.002, 2.394, 2.665, 3.239 }, 86295011Sandrew/* 58. */ { 1.296, 1.672, 2.002, 2.392, 2.663, 3.237 }, 87295011Sandrew/* 59. */ { 1.296, 1.671, 2.001, 2.391, 2.662, 3.234 }, 88295011Sandrew/* 60. */ { 1.296, 1.671, 2.000, 2.390, 2.660, 3.232 }, 89295011Sandrew/* 61. */ { 1.296, 1.670, 2.000, 2.389, 2.659, 3.229 }, 90295011Sandrew/* 62. */ { 1.295, 1.670, 1.999, 2.388, 2.657, 3.227 }, 91295011Sandrew/* 63. */ { 1.295, 1.669, 1.998, 2.387, 2.656, 3.225 }, 92295011Sandrew/* 64. */ { 1.295, 1.669, 1.998, 2.386, 2.655, 3.223 }, 93295011Sandrew/* 65. */ { 1.295, 1.669, 1.997, 2.385, 2.654, 3.220 }, 94295011Sandrew/* 66. */ { 1.295, 1.668, 1.997, 2.384, 2.652, 3.218 }, 95295011Sandrew/* 67. */ { 1.294, 1.668, 1.996, 2.383, 2.651, 3.216 }, 96295011Sandrew/* 68. */ { 1.294, 1.668, 1.995, 2.382, 2.650, 3.214 }, 97295011Sandrew/* 69. */ { 1.294, 1.667, 1.995, 2.382, 2.649, 3.213 }, 98295011Sandrew/* 70. */ { 1.294, 1.667, 1.994, 2.381, 2.648, 3.211 }, 99295011Sandrew/* 71. */ { 1.294, 1.667, 1.994, 2.380, 2.647, 3.209 }, 100295011Sandrew/* 72. */ { 1.293, 1.666, 1.993, 2.379, 2.646, 3.207 }, 101295011Sandrew/* 73. */ { 1.293, 1.666, 1.993, 2.379, 2.645, 3.206 }, 102295011Sandrew/* 74. */ { 1.293, 1.666, 1.993, 2.378, 2.644, 3.204 }, 103295011Sandrew/* 75. */ { 1.293, 1.665, 1.992, 2.377, 2.643, 3.202 }, 104295011Sandrew/* 76. */ { 1.293, 1.665, 1.992, 2.376, 2.642, 3.201 }, 105295011Sandrew/* 77. */ { 1.293, 1.665, 1.991, 2.376, 2.641, 3.199 }, 106295011Sandrew/* 78. */ { 1.292, 1.665, 1.991, 2.375, 2.640, 3.198 }, 107295011Sandrew/* 79. */ { 1.292, 1.664, 1.990, 2.374, 2.640, 3.197 }, 108295011Sandrew/* 80. */ { 1.292, 1.664, 1.990, 2.374, 2.639, 3.195 }, 109295011Sandrew/* 81. */ { 1.292, 1.664, 1.990, 2.373, 2.638, 3.194 }, 110295011Sandrew/* 82. */ { 1.292, 1.664, 1.989, 2.373, 2.637, 3.193 }, 111295011Sandrew/* 83. */ { 1.292, 1.663, 1.989, 2.372, 2.636, 3.191 }, 112295011Sandrew/* 84. */ { 1.292, 1.663, 1.989, 2.372, 2.636, 3.190 }, 113295011Sandrew/* 85. */ { 1.292, 1.663, 1.988, 2.371, 2.635, 3.189 }, 114295011Sandrew/* 86. */ { 1.291, 1.663, 1.988, 2.370, 2.634, 3.188 }, 115295011Sandrew/* 87. */ { 1.291, 1.663, 1.988, 2.370, 2.634, 3.187 }, 116295011Sandrew/* 88. */ { 1.291, 1.662, 1.987, 2.369, 2.633, 3.185 }, 117295011Sandrew/* 89. */ { 1.291, 1.662, 1.987, 2.369, 2.632, 3.184 }, 118295011Sandrew/* 90. */ { 1.291, 1.662, 1.987, 2.368, 2.632, 3.183 }, 119295011Sandrew/* 91. */ { 1.291, 1.662, 1.986, 2.368, 2.631, 3.182 }, 120295011Sandrew/* 92. */ { 1.291, 1.662, 1.986, 2.368, 2.630, 3.181 }, 121295011Sandrew/* 93. */ { 1.291, 1.661, 1.986, 2.367, 2.630, 3.180 }, 122295011Sandrew/* 94. */ { 1.291, 1.661, 1.986, 2.367, 2.629, 3.179 }, 123295011Sandrew/* 95. */ { 1.291, 1.661, 1.985, 2.366, 2.629, 3.178 }, 124295011Sandrew/* 96. */ { 1.290, 1.661, 1.985, 2.366, 2.628, 3.177 }, 125295011Sandrew/* 97. */ { 1.290, 1.661, 1.985, 2.365, 2.627, 3.176 }, 126295011Sandrew/* 98. */ { 1.290, 1.661, 1.984, 2.365, 2.627, 3.175 }, 127295011Sandrew/* 99. */ { 1.290, 1.660, 1.984, 2.365, 2.626, 3.175 }, 128295011Sandrew/* 100. */ { 1.290, 1.660, 1.984, 2.364, 2.626, 3.174 } 129295011Sandrew}; 130295011Sandrew 131295011Sandrew#define MAX_DS 8 132295011Sandrewstatic char symbol[MAX_DS] = { ' ', 'x', '+', '*', '%', '#', '@', 'O' }; 133295011Sandrew 134295011Sandrewstruct dataset { 135295011Sandrew char *name; 136295011Sandrew double *points; 137295011Sandrew unsigned lpoints; 138295011Sandrew double sy, syy; 139295011Sandrew unsigned n; 140295011Sandrew}; 141295011Sandrew 142295011Sandrewstatic struct dataset * 143295011SandrewNewSet(void) 144295011Sandrew{ 145295011Sandrew struct dataset *ds; 146295011Sandrew 147295011Sandrew ds = calloc(1, sizeof *ds); 148295011Sandrew ds->lpoints = 100000; 149295011Sandrew ds->points = calloc(sizeof *ds->points, ds->lpoints); 150295011Sandrew return(ds); 151295011Sandrew} 152295011Sandrew 153295011Sandrewstatic void 154295011SandrewAddPoint(struct dataset *ds, double a) 155295011Sandrew{ 156295011Sandrew double *dp; 157295011Sandrew 158295011Sandrew if (ds->n >= ds->lpoints) { 159295011Sandrew dp = ds->points; 160295011Sandrew ds->lpoints *= 4; 161295011Sandrew ds->points = calloc(sizeof *ds->points, ds->lpoints); 162295011Sandrew memcpy(ds->points, dp, sizeof *dp * ds->n); 163295011Sandrew free(dp); 164295011Sandrew } 165295011Sandrew ds->points[ds->n++] = a; 166295011Sandrew ds->sy += a; 167295011Sandrew ds->syy += a * a; 168295011Sandrew} 169295011Sandrew 170295011Sandrewstatic double 171295011SandrewMin(struct dataset *ds) 172295011Sandrew{ 173295011Sandrew 174295011Sandrew return (ds->points[0]); 175295011Sandrew} 176295011Sandrew 177295011Sandrewstatic double 178295011SandrewMax(struct dataset *ds) 179295011Sandrew{ 180295011Sandrew 181295011Sandrew return (ds->points[ds->n -1]); 182295011Sandrew} 183295011Sandrew 184295011Sandrewstatic double 185295011SandrewAvg(struct dataset *ds) 186295011Sandrew{ 187295011Sandrew 188295011Sandrew return(ds->sy / ds->n); 189295011Sandrew} 190295011Sandrew 191295011Sandrewstatic double 192295011SandrewMedian(struct dataset *ds) 193295011Sandrew{ 194295011Sandrew 195295011Sandrew return (ds->points[ds->n / 2]); 196295011Sandrew} 197295011Sandrew 198295011Sandrewstatic double 199295011SandrewVar(struct dataset *ds) 200295011Sandrew{ 201295011Sandrew 202295011Sandrew return (ds->syy - ds->sy * ds->sy / ds->n) / (ds->n - 1.0); 203295011Sandrew} 204295011Sandrew 205295011Sandrewstatic double 206295011SandrewStddev(struct dataset *ds) 207295011Sandrew{ 208295011Sandrew 209295011Sandrew return sqrt(Var(ds)); 210295011Sandrew} 211295011Sandrew 212295011Sandrewstatic void 213295011SandrewVitalsHead(void) 214295011Sandrew{ 215295011Sandrew 216295011Sandrew printf(" N Min Max Median Avg Stddev\n"); 217295011Sandrew} 218295011Sandrew 219295011Sandrewstatic void 220295011SandrewVitals(struct dataset *ds, int flag) 221295011Sandrew{ 222295011Sandrew 223295011Sandrew printf("%c %3d %13.8g %13.8g %13.8g %13.8g %13.8g", symbol[flag], 224295011Sandrew ds->n, Min(ds), Max(ds), Median(ds), Avg(ds), Stddev(ds)); 225295011Sandrew printf("\n"); 226295011Sandrew} 227295011Sandrew 228295011Sandrewstatic void 229295011SandrewRelative(struct dataset *ds, struct dataset *rs, int confidx) 230295011Sandrew{ 231295011Sandrew double spool, s, d, e, t; 232295011Sandrew int i; 233295011Sandrew 234295011Sandrew i = ds->n + rs->n - 2; 235295011Sandrew if (i > NSTUDENT) 236295011Sandrew t = student[0][confidx]; 237295011Sandrew else 238295011Sandrew t = student[i][confidx]; 239295011Sandrew spool = (ds->n - 1) * Var(ds) + (rs->n - 1) * Var(rs); 240295011Sandrew spool /= ds->n + rs->n - 2; 241295011Sandrew spool = sqrt(spool); 242295011Sandrew s = spool * sqrt(1.0 / ds->n + 1.0 / rs->n); 243295011Sandrew d = Avg(ds) - Avg(rs); 244295011Sandrew e = t * s; 245295011Sandrew 246295011Sandrew if (fabs(d) > e) { 247295011Sandrew 248295011Sandrew printf("Difference at %.1f%% confidence\n", studentpct[confidx]); 249295011Sandrew printf(" %g +/- %g\n", d, e); 250295011Sandrew printf(" %g%% +/- %g%%\n", d * 100 / Avg(rs), e * 100 / Avg(rs)); 251295011Sandrew printf(" (Student's t, pooled s = %g)\n", spool); 252295011Sandrew } else { 253295011Sandrew printf("No difference proven at %.1f%% confidence\n", 254295011Sandrew studentpct[confidx]); 255295011Sandrew } 256295011Sandrew} 257295011Sandrew 258295011Sandrewstruct plot { 259295011Sandrew double min; 260295011Sandrew double max; 261295011Sandrew double span; 262295011Sandrew int width; 263295011Sandrew 264295011Sandrew double x0, dx; 265295011Sandrew int height; 266295011Sandrew char *data; 267295011Sandrew char **bar; 268295011Sandrew int separate_bars; 269295011Sandrew int num_datasets; 270295011Sandrew}; 271295011Sandrew 272295011Sandrewstatic struct plot plot; 273295011Sandrew 274295011Sandrewstatic void 275295011SandrewSetupPlot(int width, int separate, int num_datasets) 276295011Sandrew{ 277295011Sandrew struct plot *pl; 278295011Sandrew 279295011Sandrew pl = &plot; 280295011Sandrew pl->width = width; 281295011Sandrew pl->height = 0; 282295011Sandrew pl->data = NULL; 283295011Sandrew pl->bar = NULL; 284295011Sandrew pl->separate_bars = separate; 285295011Sandrew pl->num_datasets = num_datasets; 286295011Sandrew pl->min = 999e99; 287295011Sandrew pl->max = -999e99; 288295011Sandrew} 289295011Sandrew 290295011Sandrewstatic void 291295011SandrewAdjPlot(double a) 292295011Sandrew{ 293295011Sandrew struct plot *pl; 294295011Sandrew 295295011Sandrew pl = &plot; 296295011Sandrew if (a < pl->min) 297295011Sandrew pl->min = a; 298295011Sandrew if (a > pl->max) 299295011Sandrew pl->max = a; 300295011Sandrew pl->span = pl->max - pl->min; 301295011Sandrew pl->dx = pl->span / (pl->width - 1.0); 302295011Sandrew pl->x0 = pl->min - .5 * pl->dx; 303295011Sandrew} 304295011Sandrew 305295011Sandrewstatic void 306295011SandrewDimPlot(struct dataset *ds) 307295011Sandrew{ 308295011Sandrew AdjPlot(Min(ds)); 309295011Sandrew AdjPlot(Max(ds)); 310295011Sandrew AdjPlot(Avg(ds) - Stddev(ds)); 311295011Sandrew AdjPlot(Avg(ds) + Stddev(ds)); 312295011Sandrew} 313295011Sandrew 314295011Sandrewstatic void 315295011SandrewPlotSet(struct dataset *ds, int val) 316295011Sandrew{ 317295011Sandrew struct plot *pl; 318295011Sandrew int i, j, m, x; 319295011Sandrew unsigned n; 320295011Sandrew int bar; 321295011Sandrew 322295011Sandrew pl = &plot; 323295011Sandrew if (pl->span == 0) 324295011Sandrew return; 325295011Sandrew 326295011Sandrew if (pl->separate_bars) 327295011Sandrew bar = val-1; 328295011Sandrew else 329295011Sandrew bar = 0; 330295011Sandrew 331295011Sandrew if (pl->bar == NULL) { 332295011Sandrew pl->bar = malloc(sizeof(char *) * pl->num_datasets); 333295011Sandrew memset(pl->bar, 0, sizeof(char*) * pl->num_datasets); 334295011Sandrew } 335295011Sandrew if (pl->bar[bar] == NULL) { 336295011Sandrew pl->bar[bar] = malloc(pl->width); 337295011Sandrew memset(pl->bar[bar], 0, pl->width); 338295011Sandrew } 339295011Sandrew 340295011Sandrew m = 1; 341295011Sandrew i = -1; 342295011Sandrew j = 0; 343295011Sandrew for (n = 0; n < ds->n; n++) { 344295011Sandrew x = (ds->points[n] - pl->x0) / pl->dx; 345295011Sandrew if (x == i) { 346295011Sandrew j++; 347295011Sandrew if (j > m) 348295011Sandrew m = j; 349295011Sandrew } else { 350295011Sandrew j = 1; 351295011Sandrew i = x; 352295011Sandrew } 353295011Sandrew } 354295011Sandrew m += 1; 355295011Sandrew if (m > pl->height) { 356295011Sandrew pl->data = realloc(pl->data, pl->width * m); 357295011Sandrew memset(pl->data + pl->height * pl->width, 0, 358295011Sandrew (m - pl->height) * pl->width); 359295011Sandrew } 360295011Sandrew pl->height = m; 361295011Sandrew i = -1; 362295011Sandrew for (n = 0; n < ds->n; n++) { 363295011Sandrew x = (ds->points[n] - pl->x0) / pl->dx; 364295011Sandrew if (x == i) { 365295011Sandrew j++; 366295011Sandrew } else { 367295011Sandrew j = 1; 368295011Sandrew i = x; 369295011Sandrew } 370295011Sandrew pl->data[j * pl->width + x] |= val; 371295011Sandrew } 372295011Sandrew if (!isnan(Stddev(ds))) { 373295011Sandrew x = ((Avg(ds) - Stddev(ds)) - pl->x0) / pl->dx; 374295011Sandrew m = ((Avg(ds) + Stddev(ds)) - pl->x0) / pl->dx; 375295011Sandrew pl->bar[bar][m] = '|'; 376295011Sandrew pl->bar[bar][x] = '|'; 377295011Sandrew for (i = x + 1; i < m; i++) 378295011Sandrew if (pl->bar[bar][i] == 0) 379295011Sandrew pl->bar[bar][i] = '_'; 380295011Sandrew } 381295011Sandrew x = (Median(ds) - pl->x0) / pl->dx; 382295011Sandrew pl->bar[bar][x] = 'M'; 383295011Sandrew x = (Avg(ds) - pl->x0) / pl->dx; 384295011Sandrew pl->bar[bar][x] = 'A'; 385295011Sandrew} 386295011Sandrew 387295011Sandrewstatic void 388295011SandrewDumpPlot(void) 389295011Sandrew{ 390295011Sandrew struct plot *pl; 391295011Sandrew int i, j, k; 392295011Sandrew 393295011Sandrew pl = &plot; 394295011Sandrew if (pl->span == 0) { 395295011Sandrew printf("[no plot, span is zero width]\n"); 396295011Sandrew return; 397295011Sandrew } 398295011Sandrew 399295011Sandrew putchar('+'); 400295011Sandrew for (i = 0; i < pl->width; i++) 401295011Sandrew putchar('-'); 402295011Sandrew putchar('+'); 403295011Sandrew putchar('\n'); 404295011Sandrew for (i = 1; i < pl->height; i++) { 405295011Sandrew putchar('|'); 406295011Sandrew for (j = 0; j < pl->width; j++) { 407295011Sandrew k = pl->data[(pl->height - i) * pl->width + j]; 408295011Sandrew if (k >= 0 && k < MAX_DS) 409295011Sandrew putchar(symbol[k]); 410295011Sandrew else 411295011Sandrew printf("[%02x]", k); 412295011Sandrew } 413295011Sandrew putchar('|'); 414295011Sandrew putchar('\n'); 415295011Sandrew } 416295011Sandrew for (i = 0; i < pl->num_datasets; i++) { 417295011Sandrew if (pl->bar[i] == NULL) 418295011Sandrew continue; 419295011Sandrew putchar('|'); 420295011Sandrew for (j = 0; j < pl->width; j++) { 421295011Sandrew k = pl->bar[i][j]; 422295011Sandrew if (k == 0) 423295011Sandrew k = ' '; 424295011Sandrew putchar(k); 425295011Sandrew } 426295011Sandrew putchar('|'); 427295011Sandrew putchar('\n'); 428295011Sandrew } 429295011Sandrew putchar('+'); 430295011Sandrew for (i = 0; i < pl->width; i++) 431295011Sandrew putchar('-'); 432295011Sandrew putchar('+'); 433295011Sandrew putchar('\n'); 434295011Sandrew} 435295011Sandrew 436295011Sandrewstatic int 437295011Sandrewdbl_cmp(const void *a, const void *b) 438295011Sandrew{ 439295011Sandrew const double *aa = a; 440295011Sandrew const double *bb = b; 441295011Sandrew 442295011Sandrew if (*aa < *bb) 443295011Sandrew return (-1); 444295011Sandrew else if (*aa > *bb) 445295011Sandrew return (1); 446295011Sandrew else 447295011Sandrew return (0); 448295011Sandrew} 449295011Sandrew 450295011Sandrewstatic struct dataset * 451295011SandrewReadSet(const char *n, int column, const char *delim) 452295011Sandrew{ 453295011Sandrew FILE *f; 454295011Sandrew char buf[BUFSIZ], *p, *t; 455295011Sandrew struct dataset *s; 456295011Sandrew double d; 457295011Sandrew int line; 458295011Sandrew int i; 459295011Sandrew 460295011Sandrew if (n == NULL) { 461295011Sandrew f = stdin; 462295011Sandrew n = "<stdin>"; 463295011Sandrew } else if (!strcmp(n, "-")) { 464295011Sandrew f = stdin; 465295011Sandrew n = "<stdin>"; 466295011Sandrew } else { 467295011Sandrew f = fopen(n, "r"); 468295011Sandrew } 469295011Sandrew if (f == NULL) 470295011Sandrew err(1, "Cannot open %s", n); 471295011Sandrew s = NewSet(); 472295011Sandrew s->name = strdup(n); 473295011Sandrew line = 0; 474295011Sandrew while (fgets(buf, sizeof buf, f) != NULL) { 475295011Sandrew line++; 476295011Sandrew 477295011Sandrew i = strlen(buf); 478295011Sandrew if (buf[i-1] == '\n') 479295011Sandrew buf[i-1] = '\0'; 480295011Sandrew for (i = 1, t = strtok(buf, delim); 481295011Sandrew t != NULL && *t != '#'; 482295011Sandrew i++, t = strtok(NULL, delim)) { 483295011Sandrew if (i == column) 484295011Sandrew break; 485295011Sandrew } 486295011Sandrew if (t == NULL || *t == '#') 487295011Sandrew continue; 488295011Sandrew 489295011Sandrew d = strtod(t, &p); 490295011Sandrew if (p != NULL && *p != '\0') 491295011Sandrew err(2, "Invalid data on line %d in %s\n", line, n); 492295011Sandrew if (*buf != '\0') 493295011Sandrew AddPoint(s, d); 494295011Sandrew } 495295011Sandrew fclose(f); 496295011Sandrew if (s->n < 3) { 497295011Sandrew fprintf(stderr, 498295011Sandrew "Dataset %s must contain at least 3 data points\n", n); 499295011Sandrew exit (2); 500295011Sandrew } 501295011Sandrew qsort(s->points, s->n, sizeof *s->points, dbl_cmp); 502295011Sandrew return (s); 503295011Sandrew} 504295011Sandrew 505295011Sandrewstatic void 506295011Sandrewusage(char const *whine) 507295011Sandrew{ 508295011Sandrew int i; 509295011Sandrew 510295011Sandrew fprintf(stderr, "%s\n", whine); 511295011Sandrew fprintf(stderr, 512295011Sandrew "Usage: ministat [-C column] [-c confidence] [-d delimiter(s)] [-Ans] [-w width] [file [file ...]]\n"); 513295011Sandrew fprintf(stderr, "\tconfidence = {"); 514295011Sandrew for (i = 0; i < NCONF; i++) { 515295011Sandrew fprintf(stderr, "%s%g%%", 516295011Sandrew i ? ", " : "", 517295011Sandrew studentpct[i]); 518295011Sandrew } 519295011Sandrew fprintf(stderr, "}\n"); 520295011Sandrew fprintf(stderr, "\t-A : print statistics only. suppress the graph.\n"); 521295011Sandrew fprintf(stderr, "\t-C : column number to extract (starts and defaults to 1)\n"); 522295011Sandrew fprintf(stderr, "\t-d : delimiter(s) string, default to \" \\t\"\n"); 523295011Sandrew fprintf(stderr, "\t-n : print summary statistics only, no graph/test\n"); 524295011Sandrew fprintf(stderr, "\t-s : print avg/median/stddev bars on separate lines\n"); 525295011Sandrew fprintf(stderr, "\t-w : width of graph/test output (default 74 or terminal width)\n"); 526295011Sandrew exit (2); 527295011Sandrew} 528295011Sandrew 529295011Sandrewint 530295011Sandrewmain(int argc, char **argv) 531295011Sandrew{ 532295011Sandrew struct dataset *ds[7]; 533295011Sandrew int nds; 534295011Sandrew double a; 535295011Sandrew const char *delim = " \t"; 536295011Sandrew char *p; 537295011Sandrew int c, i, ci; 538295011Sandrew int column = 1; 539295011Sandrew int flag_s = 0; 540295011Sandrew int flag_n = 0; 541295011Sandrew int termwidth = 74; 542295011Sandrew int suppress_plot = 0; 543295011Sandrew 544295011Sandrew if (isatty(STDOUT_FILENO)) { 545295011Sandrew struct winsize wsz; 546295011Sandrew 547295011Sandrew if ((p = getenv("COLUMNS")) != NULL && *p != '\0') 548295011Sandrew termwidth = atoi(p); 549295011Sandrew else if (ioctl(STDOUT_FILENO, TIOCGWINSZ, &wsz) != -1 && 550295011Sandrew wsz.ws_col > 0) 551295011Sandrew termwidth = wsz.ws_col - 2; 552295011Sandrew } 553295011Sandrew 554295011Sandrew ci = -1; 555295011Sandrew while ((c = getopt(argc, argv, "AC:c:d:snw:")) != -1) 556295011Sandrew switch (c) { 557295011Sandrew case 'A': 558295011Sandrew suppress_plot = 1; 559295011Sandrew break; 560295011Sandrew case 'C': 561295011Sandrew column = strtol(optarg, &p, 10); 562295011Sandrew if (p != NULL && *p != '\0') 563295011Sandrew usage("Invalid column number."); 564295011Sandrew if (column <= 0) 565295011Sandrew usage("Column number should be positive."); 566295011Sandrew break; 567295011Sandrew case 'c': 568295011Sandrew a = strtod(optarg, &p); 569295011Sandrew if (p != NULL && *p != '\0') 570295011Sandrew usage("Not a floating point number"); 571295011Sandrew for (i = 0; i < NCONF; i++) 572295011Sandrew if (a == studentpct[i]) 573295011Sandrew ci = i; 574295011Sandrew if (ci == -1) 575295011Sandrew usage("No support for confidence level"); 576295011Sandrew break; 577295011Sandrew case 'd': 578295011Sandrew if (*optarg == '\0') 579295011Sandrew usage("Can't use empty delimiter string"); 580295011Sandrew delim = optarg; 581295011Sandrew break; 582295011Sandrew case 'n': 583295011Sandrew flag_n = 1; 584295011Sandrew break; 585295011Sandrew case 's': 586295011Sandrew flag_s = 1; 587295011Sandrew break; 588295011Sandrew case 'w': 589295011Sandrew termwidth = strtol(optarg, &p, 10); 590295011Sandrew if (p != NULL && *p != '\0') 591295011Sandrew usage("Invalid width, not a number."); 592295011Sandrew if (termwidth < 0) 593295011Sandrew usage("Unable to move beyond left margin."); 594295011Sandrew break; 595295011Sandrew default: 596295011Sandrew usage("Unknown option"); 597295011Sandrew break; 598295011Sandrew } 599295011Sandrew if (ci == -1) 600295011Sandrew ci = 2; 601295011Sandrew argc -= optind; 602295011Sandrew argv += optind; 603295011Sandrew 604295011Sandrew if (argc == 0) { 605295011Sandrew ds[0] = ReadSet("-", column, delim); 606295011Sandrew nds = 1; 607295011Sandrew } else { 608295011Sandrew if (argc > (MAX_DS - 1)) 609295011Sandrew usage("Too many datasets."); 610295011Sandrew nds = argc; 611295011Sandrew for (i = 0; i < nds; i++) 612295011Sandrew ds[i] = ReadSet(argv[i], column, delim); 613295011Sandrew } 614295011Sandrew 615295011Sandrew for (i = 0; i < nds; i++) 616295011Sandrew printf("%c %s\n", symbol[i+1], ds[i]->name); 617295011Sandrew 618295011Sandrew if (!flag_n && !suppress_plot) { 619295011Sandrew SetupPlot(termwidth, flag_s, nds); 620295011Sandrew for (i = 0; i < nds; i++) 621295011Sandrew DimPlot(ds[i]); 622295011Sandrew for (i = 0; i < nds; i++) 623295011Sandrew PlotSet(ds[i], i + 1); 624295011Sandrew DumpPlot(); 625295011Sandrew } 626295011Sandrew VitalsHead(); 627295011Sandrew Vitals(ds[0], 1); 628295011Sandrew for (i = 1; i < nds; i++) { 629295011Sandrew Vitals(ds[i], i + 1); 630295011Sandrew if (!flag_n) 631295011Sandrew Relative(ds[i], ds[0], ci); 632295011Sandrew } 633295011Sandrew exit(0); 634295011Sandrew} 635295011Sandrew