home *** CD-ROM | disk | FTP | other *** search
- /* Plots single vertical error bar */
-
- #include "plplot.h"
- #include <math.h>
-
- void plery1(x,ymin,ymax)
- PLFLT x, ymin, ymax;
- {
- PLFLT mindef, minht, xpmm, ypmm;
- PLINT xminor;
-
- gmin(&mindef,&minht);
- gpixmm(&xpmm,&ypmm);
- xminor = max(1.0,minht*xpmm);
- movwor(x,ymin);
- plytik(wcpcx(x),wcpcy(ymin),xminor,xminor);
- drawor(x,ymax);
- plytik(wcpcx(x),wcpcy(ymax),xminor,xminor);
- }
-