data test;                                                                                                                             
        input return @@;  name='A';count=1;                                                                                            

cards;  
0 0 1 1 2 3 3 3 4 4 4 4 5 6 6 7 7 8 8 9                                                                                                
;                                                                                                                                      
run;

proc gchart ;                                                                                                                          
        vbar name / sumvar=count subgroup=return ;                                                                                     
run; 

[此贴子已经被作者于2008-2-5 23:52:12编辑过]

对于几个股票可以这样做（以下假设有2只股 A和B）：

data test;                                                                                                                                
input name $ return ;
count=1;
                                                                                                                   
cards;                                                                                                                                 
A 0       
A 0                                                                                                                                   
A 1                                                                                                                                   
A 1                                                                                                                                   
A 2                                                                                                                                   
A 3                                                                                                                                   
A 3                                                                                                                                   
A 3                                                                                                                                   
A 4                                                                                                                                   
A 4                                                                                                                                   
B 0                                                                                                                                   
B 1                                                                                                                                   
B 2                                                                                                                                   
B 2                                                                                                                                   
B 2                                                                                                                                   
B 2                                                                                                                                   
B 3                                                                                                                                   
B 3                                                                                                                                   
B 4                                                                                                                                   
B 4                                                                                                                                   
B 4                                                                                                                                   
;
                                                                                                                                     
run;

proc means data=test n noprint;                                                                                                        
var count;                                                                                                                             
class name;                                                                                                                            
output out=test1(where=(name<>' ') keep=name _freq_) N= ;                                                                              
run;                                                                                                                                   
                                                                                                                                       
data test1;                                                                                                                            
        set test1 ;                                                                                                                    
        p=1/_freq_;                                                                                                                    
run;                                                                                                                                   
                                                                                                                                       
data test2;                                                                                                                            
        merge test test1;                                                                                                              
        by name;                                                                                                                       
run;                                                                                                                                   
                                                                                                                                       
proc gchart data=test2;                                                                                                                           
        vbar name / sumvar=p subgroup=return group=name;                                                                               
run;