ੱ㑆⊒㆐⑼ቇㇱᢎ᝼ጯᧄᔘਯ ᢙቇ⑼ᢎ⢒ᴺߦ߅ߌࠆᢙᑼಣℂ࠰ࡈ࠻ Mathematica ߩᵴ↪

全文

(1)

ᢙቇ⑼ᢎ⢒ᴺߦ߅ߌࠆᢙᑼಣℂ࠰ࡈ࠻ 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頁.

(2)

ߒߡ޿ࠆ㧚

▚ⴚ⸘▚

Mathematica

ߪ㧘㔚ථߩࠃ߁ߦዊᢙߢ㄰ߐߕ㧘 ෩ኒ୯ࠍ㄰ߔ㧚଀߃߫ಽᢙࠍ౉ജߒߡ߽㧘ߘߩ

߹߹ಽᢙߢ㄰ߔ㧚ߘߎߢ㧘ዊᢙ୯ߢ㄰ߔߚ߼ߦ ߪ㧘⚵ߺㄟߺ㑐ᢙ

N

ࠍ૶߁㧚଀߃߫㧘ਅ⸥ߩࠃ ߁ߦ⥄ὼኻᢙ

e

߿౞๟₸Ǹߩ୯ࠍዊᢙ୯ߢ᳞߼

ࠆߎߣ߇ߢ߈ࠆ㧚

e-iǸ

߽ታ㓙ߩ⸘▚ߪ㕙ୟߢ޽ࠆ ߇㧘╵߃ߪ㧝ߢ޽ࠆߎߣ߇◲නߦಽ߆ࠆ㧚

In[1]:=305/177

Out[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 x3

1

+

ߣ㄰ߔߚ߼ߦߪߐࠄߦ೎ߩ㑐ᢙ ࠍ૶߁ᔅⷐ߇޽ࠆ㧚

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頁.

(3)

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}]

642 2 4 6

1.00.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頁.

(4)

1.00.5 0.5 1.0

1.00.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)㧚ޟᢙቇ⑼ᢎ⢒ᴺޠߦ߅ߌࠆ߭ߣ

ߟߩᢎ⢒ታ〣㧚

੩ㇺ↥ᬺᄢቇ⺰㓸࡮⥄ὼ⑼ቇ

♽೉࡮I࡮27,pp.149-158㧚

ᮘญ⑓৻࡮ᯅᧄศᒾ(1994)㧚ᢙቇ⑼ᢎ⢒ᴺ㧙ਛ

ቇ࡮㜞ᩞᢙቇߦ߅ߌࠆၮ␆࡮ၮᧄ㧙㧚

’㊁ᦠ ᐫ㧚

᭏ේㅴ(1993)㧚ࠃߊࠊ߆ࠆ Mathematica㧚౒┙

಴ 㧚

⊕⍹ୃੑ(1995)㧚଀㗴ߢቇ߱Mathematica㨇ᢙ

ቇ✬㨉 㧚᫪ർ಴ 㧚

ᢙቇᢎ⢒ቇ⎇ⓥળ 㧔✬㧕

(2001)㧚ᣂ  ᢙቇᢎ⢒

ߩℂ⺰ߣታ㓙㧨ਛቇᩞ࡮㜞ᩞ㧪㧚⡛ᢥᣂ␠㧚

ศ↰ ⒤(2003)㧚▚ᢙ࡮

ᢙቇ⑼ᢎ⢒ᴺߣᢎ⑼ኾ㐷

ߣߩ߆߆ࠊࠅߦߟ޿ߡߩ৻⠨ኤ㧙ᢎ⢒ቇㇱ ߦ߅޿ߡၭ߁ߴ߈ᢙቇ⊛⚻㛎ߣᢎ⢒⊛⚻㛎 ߣߩ㑐ㅪࠍᔨ㗡ߦ߅޿ߡ(ᄙ᭽ߥᢎ⢒ታ〣ߩ

តⓥ)㧙㧚ᢎ⑼ᢎ⢒ቇ⎇ⓥ࡮21,pp.231-258㧚

࠙࡞ࡈ࡜ࡓ,S㧚(2000)㧚Mathematica

ࡉ࠶ࠢ㧦 Mathematicaࡃ㧙࡚ࠫࡦ㧠㧚᧲੩ᦠ☋

富山大学総合情報基盤センター広報 vol.9 (2012) 4-7頁.

Updating...

参照

Updating...

関連した話題 :