Manual pages | Cast3M

$$$$ @HISTOGR NOTICE  JC220346  12/05/02    21:15:01     7366           
                                             DATE     12/05/02

    Procédure @HISTOGR                  Voir aussi : TRAC DESS EVOL
    ------------------                            

            (EVOL2 TABL2) = @HISTOGR LREE1 (TABL1) (LOGI1)



    Description :
    _____________

    Creation/Drawing of an histogram (bar graph)


    Comments :
    __________

    LREE1 = LISTREEL object containing the data to be plotted. Each
            value in the list will give a separate bar.

    LOGI1 = LOGIQUE variable indicating whether EVOL2 and TABL2 objects
            will be returned (in order to feed DESS subsequently)

    TABL1 = TABLE object controlling the plot appearance :

          - Index 'COUL' [MOT or LISTMOTS]
            = Bars color(s) (default='DEFA')

          - Index 'NOMS' [TABLE]
            = Words to display above the bars (default=vide)

          - Index 'LARG' [LISTREEL]
            = Bars width(s) (default=[0.8 ... 0.8])

          - Index 'ESPA' [FLOTTANT]
            = Spacing between adjacent bars (default=0.2)

          - Index 'HPOS' [FLOTTANT]
            = Graph horizontal offset (default=0.)

          - Index 'INVE' [LOGIQUE]
            = Draw bars from right to left ? (default=FAUX)

          - Index 'DESS' [MOT]
            = Parameters to be passed to DESS (default=no drawing)
              The presence of this keyword implies that @HISTOGR
              proceeds to the drawing (whatever LOGI1 was set up to)


    Example :
    _________

*   Visualization of a Gaussian random distribution

    NN = 10000 ;

    LTIRAG1 = BRUI 'BLAN' 'GAUS' 0. 2. NN ;
    LTIRAG1 = LTIRAG1 - (MASQ LTIRAG1 'INFERIEUR' 0.) ;
    LTIRAG1 = ENTI LTIRAG1 ;

    IMIN1 = MINI LTIRAG1 ;
    NC = (MAXI LTIRAG1) - IMIN1 + 1 ;
    LCOMPT1 = PROG NC*0. ;

    REPE BLOC1 NN ;
        IPOS1 = (EXTR LTIRAG1 &BLOC1) + 1 - IMIN1 ;
        ICOMPT1 = EXTR LCOMPT1 IPOS1 ;
        REMP LCOMPT1 IPOS1 (ICOMPT1 + 1.) ;
    FIN BLOC1 ;

    TOPT1 = TABL ;
    TOPT1 . 'HPOS' = FLOT IMIN1 ;
    TOPT1 . 'DESS' = 'GRIL AXES' ;

    @HISTOGR LCOMPT1 TOPT1 FAUX ;