グラフを描く(Mathematica)

<< Graphics`Graphics`
BarChart@{2, 5, 9};

コンソールでやれば次のようになる

In[1]:= << Graphics`Graphics`

In[2]:= BarChart@{2, 5, 9};




 #
 ##                                                   ####################
 ##                                                   #@@@@@@@@@@@@@@@@@@#
 #                                                    #@@@@@@@@@@@@@@@@@@#
8##                                                   #@@@@@@@@@@@@@@@@@@#
 ##                                                   #@@@@@@@@@@@@@@@@@@#
 ##                                                   #@@@@@@@@@@@@@@@@@@#
 ##                                                   #@@@@@@@@@@@@@@@@@@#
 ##                                                   #@@@@@@@@@@@@@@@@@@#
6#                                                    #@@@@@@@@@@@@@@@@@@#
 ##                                                   #@@@@@@@@@@@@@@@@@@#
 ##                           ####################    #@@@@@@@@@@@@@@@@@@#
 ##                           #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##                           #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
4#                            #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##                           #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##                           #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##                           #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##   ####################    #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
2#    #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##   #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##   #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 ##   #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#    #@@@@@@@@@@@@@@@@@@#
 #############################################################################
 #
                1                      2                       3

この企画、Mathematicaのはんそくにならないか？

キミならどう書く 2.0 - ROUND 3 -