ᢙቇ⑼ᢎ⢒ᴺߦ߅ߌࠆᢙᑼಣℂ࠰ࡈ࠻ Mathematica ߩᵴ↪
ੱ㑆⊒㆐⑼ቇㇱ ᢎ ጯᧄᔘਯ ᢙቇ⑼ᢎ⢒ᴺߢߪ㧘නߦᢙቇߩᜰዉᴺߦ㑐ߔࠆℂ⸃ࠍᷓࠆߛߌߢߥߊ㧘࠹ࠢࡁࡠࠫᵴ↪⢻ജࠍ
⢒ᚑߔࠆߎߣ߽ᔅⷐߢࠆ㧚ᧄⓂߢߪ㧘ᢙቇ⑼ᢎ⢒ᴺߢᛒߞߡࠆᢙቇ࠰ࡈ࠻ߩਛߢ․ߦޟᢙᑼಣℂ
࠰ࡈ࠻
Mathematicaޠࠍขࠅߍ㧘ߎߩ࠰ࡈ࠻ߦࠃࠆ⻠⟵ߩⷐࠍ␜ߔߎߣߣߔࠆ㧚(1)Mathematicaߩᠲౝኈߣߒߡ㧘▚ⴚ⸘▚㧘ᢙᑼಣℂ㧘ᓸⓍಽ㧘ᣇ⒟ᑼ㧘ࠬ࠻㧘ࠣࡈࠖ࠶ࠢࠬߩ㗄⋡ߦߟߡ
ⷐࠍ␜ߒߚ㧚(2)ฃ⻠ቇ↢߇ᚑߒߚ
Mathematicaࠍᵴ↪ߒߚᜰዉࠍ␜ߒߚ㧚
ࠠࡢ࠼㧦ᢙቇ⑼ᢎ⢒㧘࠹ࠢࡁࡠࠫ㧘ᢙᑼಣℂ࠰ࡈ࠻㧘ᢎ⡯⑼⋡
㧝㧚ᢙቇ⑼ᢎ⢒ߦ߅ߌࠆ࠹ࠢࡁࡠࠫᵴ↪⢻ജ ߩ⢒ᚑ
৻⥸ߦᢎຬ㙃ᚑࠞࠠࡘࡓߦ߅ߡ㧘ᢙቇ
⑼ᢎ⢒ᴺߪΣ㨪Φ߹ߢ⸳ቯߐࠇߡࠆ㧚ᧄቇߦ ߅ߡ㧘ᢙቇ⑼ᢎ⢒ᴺΤߪ࠹ࠢࡁࡠࠫᵴ↪⢻
ജ⢒ᚑࠍ⋡ᮡߦⴕࠊࠇߡࠆ㧚ᢙቇ⑼ᢎ⢒ᴺߪ㧘 නߦᢙቇߩᜰዉᴺߦ㑐ߔࠆℂ⸃ࠍᷓࠆߛߌߢ ߥߊ㧘࠹ࠢࡁࡠࠫᵴ↪⢻ജࠍ⢒ᚑߔࠆߎߣ߽
ࠎߢࠆ㧚
ᢙቇ⑼ᢎ⢒ᴺΤߩ⋡⊛ߪ㧘ታ㓙ߦᢙᑼಣℂ࠰
ࡈ࠻㧘ᐞ࿑࠰ࡈ࠻㧘㑐ᢙ࠰ࡈ࠻ߥߤߩᠲ
ታ⠌ࠍⴕ߁ߎߣࠍㅢߒߡᢙቇᢎ⢒ߦ߅ߌࠆ࠹ࠢ
ࡁࡠࠫᵴ↪ߦߟߡℂ⸃ࠍᷓ㧘ታ㓙ߩᜰዉ ߦ߅ߡ࠹ࠢࡁࡠࠫࠍᵴ↪ߔࠆ⢻ജࠍિ߫ߔ ߎߣߢࠆ㧚ᢙቇ⑼ᢎ⢒ᴺߦ߅ߡ࠹ࠢࡁࡠࠫ
ᵴ↪ࠍขࠅߍߡࠆℂ↱ߪએਅߢࠆ㧚
(1)ᣣ㧘ᢙቇᢎ⢒ߦ߅ߌࠆ࠹ࠢࡁࡠࠫᵴ↪ߪᢎᏧߦߣߞߡਇนᰳߥ⢻ജߢࠆ㧚
(2)࠹ࠢࡁࡠࠫᵴ↪ߦࠃߞߡ㧘ᢙቇᬺ߇ᦸ߹
ߒᣇะ߳ᄌൻߔࠆߎߣ߇ᦼᓙߐࠇࠆ㧚 ⻠⟵ߩ⇛ߪએਅߢࠆ㧚
(1)ᢙቇᢎ⢒ߦ߅ߌࠆ࠹ࠢࡁࡠࠫᵴ↪ߩታᘒ (2)ࠗࡦ࠲ࡀ࠶࠻ࠦࡦ࠹ࡦ࠷ߩᵴ↪
(3)ᐞ࿑࠰ࡈ࠻Cabri-GeometryΤߩᵴ↪
(4)ᢙᑼಣℂ࠰ࡈ࠻Mathematica
ߩᵴ↪
(5)㑐ᢙ࠰ࡈ࠻Grapes
ߩᵴ↪
(6)ᢙቇᢎ⢒ߦ߅ߌࠆ࠹ࠢࡁࡠࠫᵴ↪ߩᜰዉ
(7)ᢙቇᢎ⢒ߦ߅ߌࠆ࠹ࠢࡁࡠࠫᵴ↪ߩᜰዉ᩺
ᚑ
ᧄⓂߢߪ㧘ᢙቇ⑼ᢎ⢒ᴺߢᛒߞߡࠆᢙቇ࠰
ࡈ࠻ߩਛߢ․ߦᢙᑼಣℂ࠰ࡈ࠻
Mathematicaࠍขࠅߍ㧘ߎߩ࠰ࡈ࠻ߦࠃࠆ⻠⟵ߩⷐࠍ␜
ߔߎߣߣߔࠆ㧚
㧞㧚/CVJGOCVKEC
Mathematicaߪ㧘࠙࡞ࡈࡓ߆ࠄߐࠇߡ
ࠆᢙᑼ ಣℂ࠰ࡈ࠻ߢ 㧘ᐢߊ ࠊࠇߡࠆ 㧚
MATLAB㧘MathCad߿
MAPLEߥߤߪ㧘㘃ૃ
࠰ࡈ࠻ߢࠆ㧚ߘࠇࠄߪᠲᣇᴺ߿ᯏ⢻ߦ৻ㇱ
㆑߇ࠆ㧚Mathematica ߪ㧘ᢙ୯⸘▚㧘ᢙᑼ ಣℂ㧘ࠣࡈࠖ࠶ࠢߥߤ߇ߢ߈ࠆ㧚㧟ᰴరߩࠣ
ࡈ␜㧔㧞ᰴరߩ࠺ࠖࠬࡊࠗߦ㧟ᰴరࠣ
ࡈࠍ␜ߔࠆ㧕߇น⢻ߢࠆߣߎࠈ߇․ᓽߢ
ࠆ㧚
㧟㧚ᢙቇ⑼ᢎ⢒ᴺΤߩⷐ
Mathematicaߦ㑐ߒߡ㧘ౝኈߏߣߦ㗅ᰴขࠅ ᛒ߁ߩߢߪߥߊ㧘ೋ⚖ᠲ㧘ਛ⚖ᠲ㧘⚖ᠲ
ߣ߁ࠃ߁ߦ㧟ߟߦಽߌߡ㧘หߓౝኈࠍ➅ࠅ
ߒⴕߥ߇ࠄ㧘ౝኈࠍࠃࠅᷓߡߊࠃ߁ߦ
富山大学総合情報基盤センター広報 vol.9 （2012） 4-7頁.
ߒߡࠆ㧚
▚ⴚ⸘▚
Mathematicaߪ㧘㔚ථߩࠃ߁ߦዊᢙߢߐߕ㧘 ෩ኒ୯ࠍߔ㧚߃߫ಽᢙࠍജߒߡ߽㧘ߘߩ
߹߹ಽᢙߢߔ㧚ߘߎߢ㧘ዊᢙ୯ߢߔߚߦ ߪ㧘⚵ߺㄟߺ㑐ᢙ
Nࠍ߁㧚߃߫㧘ਅ⸥ߩࠃ ߁ߦ⥄ὼኻᢙ
e߿₸Ǹߩ୯ࠍዊᢙ୯ߢ᳞
ࠆߎߣ߇ߢ߈ࠆ㧚
e-iǸ߽ታ㓙ߩ⸘▚ߪ㕙ୟߢࠆ ߇㧘╵߃ߪ㧝ߢࠆߎߣ߇◲නߦಽ߆ࠆ㧚
In[1]:=305/177Out[1]=
305 177
In[2]:=N[305/177]
Out[2]=1.72316384180790960 In[3]:=E
Out[3]=e In[4]:=N[E,45]
Out[4]=2.718281828459045235360287471352 66249775724709
In[5]:=Pi Out[5]=Ǹ In[6]:=N[Pi,45]
Out[6]=3.141592653589793238462643383279 5028841971694
In[7]:=E^(-I*Pi) Out[7]=-1
ᢙᑼಣℂ
Mathematica․ߩ࡞࡞߇ࠆ㧚߃߫㧘
xߣ
x1߿
xyߣ
x*yߪ⇣ߥࠆ߽ߩߣ⼂ߐࠇࠆ㧚 ߴ߈ዷ㐿ߔࠆ႐ว߽㑐ᢙࠍ߁ᔅⷐ߇ࠆ㧚 ಽᢙᑼߩߦ߅ߡ㧘⚿ᨐߪ㧘
2) x x 1 x)(
1 (-
1 + + +
ߣߒ㧘
-1 x31
+
ߣߔߚߦߪߐࠄߦߩ㑐ᢙ ࠍ߁ᔅⷐ߇ࠆ㧚
In[1]:=(2x)^2+(x2)^2+(xy)^2+(x*y)^2
Out[1]= 4x2+x22+xy2+x2y2 In[2]:=(ax)^n
Out[2]= (ax)n
In[3]:=PowerExpand[(ax)^n]
Out[3]= anxn
In[4]:=Apart[1/(x^3-1)]
Out[4]=
x) 3(-1
1
+ +3(-1 x x2) x 2
+ +
−
−
In[5]:=Together[1/3(-1+x)+(-2-x)/3(1+x+x^2)]
Out[5]=
2) x x 1 x)(
1 (-
1 + + +
In[6]:=Simplify[1/3(-1+x)+(-2-x)/3(1+x+x^2)]
Out[6]=-1 x3 1 +
ᓸⓍಽ
ᓸⓍಽߩ⸘▚߽◲නߢࠆ㧚ਅ⸥ߩࠃ߁ߦಽ Უ߇㧜ߦߥࠆ႐วߢ߽㧘ᭂ㒢୯߇ሽߔࠇ߫㧘
2/3ߣߔ㧚
In[1]:=D[x^n,x]
Out[1]=nx-1+n
In[2]:=Integrate[nx(n-1),x]
Out[2]=xn
In[3]:=Limit[(x^2-1)/(x^3-1),xψ1]
Out[3]=
3 2
ᣇ⒟ᑼ
ߤߩࠃ߁ߥᣇ⒟ᑼ߽◲නߦߘߩ⸃ࠍ᳞ࠆߎ ߣ߇ߢ߈ࠆ㧚ߚߛߒਅ⸥ߩࠃ߁ߦᜰᢙࠍߞߡ
␜ߐࠇࠆ㧚
In[1]:=Solve[a*x^2+bx+c==0,x]
Out[1]={{x
ψ
a 2
ac 4 b b− 2−
− },{x
ψ
a 2
ac 4 b b+ 2−
− }}
In[2]:=Solve[x^3-19x+30==0,x]
富山大学総合情報基盤センター広報 vol.9 （2012） 4-7頁.
Out[2]={{xψ-5},{xψ2},{xψ2}}
In[3]:=Solve[x^3-8==0,x]
Out[3]={{xψ2},{xψ-2(-1)1/3},{xψ2(-1)2/3}}
ࠬ࠻
Mathematicaߦߪࠬ࠻ᯏ⢻߇ࠅ㧘ਅ⸥ߩ ࠃ߁ߦ㧘㧜㨪㧝߹ߢߩ
1000ߩੂᢙࠍ⊒↢ߐߖ ߡ㧘ߘࠇࠍ␜ߔࠆߎߣ߽ߢ߈ࠆ㧚ߘߩਅߩ߽
ߩߪ㧘㧜㨪10 ߹ߢߩ
1000ߩᢛᢙ୯ߩੂᢙࠍ
⊒↢ߐߖߡ㧘ߘࠇࠍ␜ߔࠆߎߣ߽ߢ߈ࠆ㧚
In[1]:=random=Table[Random[],{1000}];ListPlot[ran]
200 400 600 800 1000
0.2 0.4 0.6 0.8 1.0
Out[1]=
In[2]:=random2=Table[Random
[Integer,{0,10}],{1000}];ListPlot[random2]
200 400 600 800 1000
2 4 6 8 10
Out[2]=
ࠣࡈࠖ࠶ࠢࠬ
㧝ᄌᢙ㑐ᢙ߽◲නߦࠣࡈ␜ߢ߈ࠆ㧚ߥ߅
ࠣࡈߩ․ᓽࠍᝒ߃߿ߔߊߔࠆߚ㧘㨤ゲߣ㨥 ゲߩ❗ዤ߇⇣ߥߞߡ߅ࠅ㧘sin x ߩࠣࡈ߽ᝄ
߇ᄢ߈ߊߐࠇߡࠆ㧚ⶄᢙߩ㑐ᢙࠍ৻ᐲߦ
ࠣࡈ␜ߢ߈㧘ਅ⸥ߩࠃ߁ߦ
y=x㨪x5ߩ㑐ᢙ
ߩჇടߩ᭽ሶߩ㆑߇ᝒ߃߿ߔߊߥࠆ㧚ᇦᄌ ᢙ ࠍ ↪ ߚ 㑐 ᢙ ߽ ࠣ ࡈ ␜ ߢ ߈ ࠆ 㧚
Mathematicaߪ㧘㧟ᰴరߩࠃ߁ߥ㧞ᄌᢙ㑐ᢙ㧔ᇦ
ᄌᢙߦࠃࠆ߽ߩ߽㧕ࠍࠣࡈ␜ߢ߈ࠆ
ߎߣ߇ఝࠇߚ․ᓽߢࠆ㧚
In[1]:=Plot[Sin[x],{x,-2Pi,2Pi}]
䊶6 䊶4 䊶2 2 4 6
䊶1.0 䊶0.5 0.5 1.0
Out[1]=-Graphics-
In[2]:=Plot[{x,x^2,x^3,x^4,x^5},{x,1,5}]
2 3 4 5
100 200 300 400
Out[2]=-Graphics- In[3]:=ParametricPlot [{Sin[t],Sin[2t]},{t,0,2Pi}]
富山大学総合情報基盤センター広報 vol.9 （2012） 4-7頁.
䊶1.0 䊶0.5 0.5 1.0
䊶1.0 䊶0.5 0.5 1.0
Out[3]=-Graphics-
In[4]:=Plot3D[Sin[xSin[y]],{x,0,2Pi},{y,0,2Pi}]
Out[4]=-SurfaceGraphics-
In[5]:=ParametricPlot3D[{(2.5+Cos[t])Cos[s], (2.5+Cos[t])Sin[s],Sin[t]},{t,0,2Pi},{s,0,2Pi}]
Out[5]=-Graphics3D-
ෳ⠨ᢥ₂
⬒ ᢅ(1998)㧚ޟᢙቇ⑼ᢎ⢒ᴺޠߦ߅ߌࠆ߭ߣ
ߟߩᢎ⢒ታ〣㧚
੩ㇺ↥ᬺᄢቇ⺰㓸⥄ὼ⑼ቇ♽I27,pp.149-158㧚
ᮘญ৻ᯅᧄศᒾ(1994)㧚ᢙቇ⑼ᢎ⢒ᴺ㧙ਛ
ቇ㜞ᩞᢙቇߦ߅ߌࠆၮ␆ၮᧄ㧙㧚
’㊁ᦠ ᐫ㧚ේㅴ(1993)㧚ࠃߊࠊ߆ࠆ Mathematica㧚┙
㧚
⊕⍹ୃੑ(1995)㧚㗴ߢቇ߱Mathematica㨇ᢙ
