2 Mathematica でグラフを描く - ようこそ

1 2 mathematica Plot Plot >> Plot ?Plot (1) f(x) [a, b] Plot[f[x],{x,a,b}] Plot[Sin[2 x],{x,-Pi,Pi}]Mathematica8 =( = plot sin 2x from -pi to pi (3) (2) f(x),g(x),.. ,h(x) [a, b] Plot[{f[x],g[x], .., h[x]},{x,a,b}] Plot[{Sin[2 x],x^2},{x,-Pi,Pi}](3)Plot Plot B B AspectRatio->Automatic( 1:1 AspectRatio->a =1:a ) PlotStyle->RGBC olor[a,b,c]( a:b:c 05a, b, c51) RGBC olor[a,b,c] Hue[a](05a51 a ) x , y 1,1 Ticks->{{-Pi,Pi},{-1,1}} {} x {} y {} PlotRange ->{{a,b},{c,d}} a b c d ) ImageSize->300 300 1 Plot[{Sin[2 x],x^2},{x,-Pi,Pi},PlotStyle->Hue[ ]] 1sinx cosx sinx+cosx [ , ] sinx+cosx sinx cosx Plot[{Sin[x],Cos[x],Sin[x]+Cos[x]},{x,-P i,Pi},AspectRatio->Automatic,PlotStyle-> {Hue[ ],Hue[ ],Hue[ ]}] Mathematica Word Word (1) (2) (3) Microsoft Word (4)

2 Word = img img 2 Word Manipulate Manipulate[Plot[Sin[x+t],{x,-Pi,Pi}, PlotRange->{{-Pi,Pi},{-1,1}}],{t,1,5, }] Manipulate[ ,{t,1,5, }] [] sin(x+t) Plot[Sin[x+t],{x,-Pi,Pi},PlotRange->{{-P i,Pi},{-1,1}}] PlotRange->{{-Pi,Pi},{-1,1}} 5x5 , 15y51 Mathematica 2 {t,0,5, } t 0 5 0, , ,.. sinx,sin( )x,sin( )x,.. ,sin( )x,sin 5x Manipulate (1) + B (2) (3) Manipulate ?

3 Manipulate Note manipulate 2sinx,sin 3x,sin 5x,sin 7x,sin 9x [ , ] [ 1,1] , k ,Sin[k*x] Manipulate[Plot[Sin[k*x],{x,-Pi,Pi},Plot Range->{{-Pi,Pi},{-1,1}},PlotStyle->Hue[ ]],{k,1,9,2}] Manipulate[ ,{k,1,9,2}] Plot[Sin[k*x],{x,-Pi,Pi},PlotRange->{{-P i,Pi},{-1,1}},PlotStyle->Hue[ ]] k 1 9 2 Manipulate Manipulate[(1+1/n)^n,{n,1,50}] =Epilog= Epilog->{ } 2 Plot[{Sin[x],Cos[x]},{x,-Pi,Pi},PlotStyl e ->{Hue[ ],Hue[ ]},Epilog->{Hue[ ],PointSize[ ],Point[{0,0}]}]3 {} (PointSize[ ]) (Point[{0,0}] ) {Hue[ ],Circle[{0,0},1]} ({0,0}) (1) Plot[{Sin[x],Cos[x]},{x,-Pi,Pi},PlotStyl e ->{Hue[ ],Hue[ ]},AspectRatio->Automataic,Epilog->{Hue[ ],Circle[{0,0},1]}] 1 ?

4 Epilog ListAnimate ListAnimate Table Table[Plot[Sin[i*x],{x,-Pi,Pi}, PlotRange->{{-Pi,Pi},{-1,1}},PlotStyle-> Hue[ ]],{i,1,9,1}] ListAnimate[ ] [] ListAnimate[Table[Plot[Sin[i*x],{x,-Pi,P i},PlotRange->{{-Pi,Pi},{-1,1}},PlotStyl e->Hue[ ]],{i,1,9,2}]] (1) sinix(i=1,2,3,4) [ , ] Plot i Animate Manipulate .(2) x2sinix(i=1,2,3,4) [ 2 ,2 ] Plot i .(3) eix(i=1,2,3) [ 1,2] Plot i .( eix Exp[i*x] . i x * )(4) exe2x,ex+e2x,e3x [ 1,2] Plot exe2x NOTE Mathematica Plot 4