Bulletin of JSSAC(2012) Vol. 18, No. 2, pp. 127-137 : Mathematica v8 Wolfram Research Asia Limited 1 Mathematica R v8 2010 11 v8 12 v8 2007 v6 Mathematica v6 v7 v8 v6 OpenGL R Direct3D R Mathematica v8 Mathematica Mathematica v8 v8 Mathematica fusashin@wolfram.com c 2012 Japan Society for Symbolic and Algebraic Computation
128 18 2 2012 2 2.1 v8 Mathematica ( ) [ ], { } Expand[(a+b)^2] Plot[Sin[x], {x, 0, 2Pi}] Windows Mathematica Mathematica 2.2 v8 Mathematica = ( ) = solve the equation x2+2x+1=0 Mathematica Wolfram R Mathematica Mathematica x==-1 x2 x^2 OK = plot sinx with red dashing sin(x) Mathematica = plot sinxy
Bulletin of JSSACVol. 18, No. 2, 2012 129 sin(x y) 2 3D Mathematica Mathematica 3 Mathematica typeset MathML 3.1 2 Mathematica Mathematica GUI Mathematica Textbook PDF 3.2 TraditionalForm Mathematica TraditionalForm 3.3 CDF TM Computable Document Format Mathematica Mathematica
130 18 2 2012 Mathematica Player v8 Mathematica 1. Mathematica NB :.nb CDF :.cdf 2. CDF Player 3. CDF CDF Player CDF Player Mathematica CDF Mathematica 1 Mathematica 4 Mathematica v2 Manipulate v6 4.1 GUI sin(x) sin(x) Manipulate[ Plot[ *Sin[ *x- *t], {x,-2*pi,2*pi}, PlotRange -> {-5,5}], {, 1, 5}, {, 1, 10}, {, 1, 10}, {t, 0, 10 Pi}] 1 2 {, 1, 5} [1.0, 5.0]
Bulletin of JSSACVol. 18, No. 2, 2012 131 1: Manipulate 2: 3 t 3: 4: 4
132 18 2 2012 n = 1, 2, 3,... (a + b) n func=sin, Cos, Tan, Cot func[x] Cos cos(x) 5 5: 4.2 GUI Manipulate NB CDF CDF Player Mathematica Mathematica Wolfram 5 v6 OpenGL Direc3D v8 5.1 2D 3D 6 SphericalPlot3D[ 1, {u,0,pi}, {v,0,2pi}, Mesh->None, TextureCoordinateFunction->({#5, 1-#4}&), PlotStyle->Directive[Specularity[ White, 10], Texture[ ]], Lighting->"Neutral", Axes->False, RotationAction->"Clip"] 2D &
Bulletin of JSSACVol. 18, No. 2, 2012 133 & Mathematica GUI 3D Manipulate 2D Mathematica 6: 5.2 myspheres = Table[{RGBColor[Random[], Random[], Random[]], Manipulate[ Graphics3D[ Specularity[White, 128], Sphere[{x, y, z}, 1]}, {x, 0, 10, 4}, {y, 0, 10, 4}, {z, 0, 10, 4}]; {White, PointSize[.02], Point[{t[[1]], t[[2]], 5}], myspheres}, Background -> Black, Boxed -> False, Lighting -> {RGBColor[.3,.3,.3], {White, {{{t[[1]], t[[2]], 5}, {0, 0, 0}}, 2}}}, PlotRange -> {{-1, 10}, {-1, 10}, {-1, 10}}, ImageSize -> 500], {t, {-15, -15}, {20, 20}}, SaveDefinitions -> True] Mathematica C OpenGL+GLUT GUI Mathematica 6 Mathematica Manipulate 6.1 Manipulate
134 18 2 2012 4.1 Manipulate Manipulate Manipulate 4.1 NDSolve (Numerical Differential equation Solve) NDSolve ss[a_] := NDSolve[{y [x]==y[x]*cos[x+a*y[x]], y[0]==1}, y, {x, 0, 30}]; ss Manipulate[ Plot[Evaluate[y[x] /. ss[a]], {x, 0, 30}, PlotRange -> {0, 3.0}], {a, 0, 2}] 7 a Rapid Proto Typing 7: 6.2 GPU v7 Parallelize v8 v8 GPU GPU CUDA OpenCL Mathematica GPU Mathematica GPU
Bulletin of JSSACVol. 18, No. 2, 2012 135 GPU CPU GPU GPU CPU CPU GPU 7 v6 Wolfram Mathematica 7.1 Wolfram Mathematica Wolfram Mathematica GDP GDP Mathematica 7.2 Mathematica Mathematica Mathematica Mathematica 100
136 18 2 2012 TEX CAD 8 v8 Mathematica v8 CurrentImage Dynamic Dynamic[CurrentImage[ ]] Dynamic[EdgeDetect[CurrentImage[ ]]] Mathematica USB 9 Wolfram Alpha R Wolfram Alpha Wolfram Wolfram Alpha http://www.wolframalpha.com/ ( ) Mathematica ==integrate 1/(x^3-1)
Bulletin of JSSACVol. 18, No. 2, 2012 137 Show Steps 2 ==A glass of beer + a bigmac Wolfram Alpha 10 CDF http://www.wolfram.com/cdf/ CDF GUI CDF 11 Mathematica Mathematica mathematics mathematics Mathematica Mathematica Wolfram Mathematica http://www.wolfram.com Mathematica Wolfram