mathematicaの三次元での対数グラフの作成コマンドはどのようにすればよいのでしょうか？