กราฟ 2 มิติจากฟังค์ชัน

เราสามารถใช้ Mathematica สร้างกราฟได้ง่ายๆด้วยคำสั่ง Plot[ ] โดยที่ Plot[f[x], {x, xmin, xmax}] จะแสดงภาพของ f[x] จาก x = xmin ถึง xmax

In[1]:=

Plot[Sin[x], {x, 0, 2Pi}]

[Graphics:../HTMLFiles/chapter3_2.gif]

Out[1]=

⁃Graphics⁃

เราสามารถแสดงกราฟพร้อมๆกันหลายอันได้ด้วยรูปแบบ Plot[{f[x], g[x],...}, {x, xmin, xmax}] จะแสดงภาพของ f[x], g[x], ... จาก x = xmin ถึง xmax

In[2]:=

Plot[{Sin[x], Cos[x]}, {x, 0, 2Pi}]

[Graphics:../HTMLFiles/chapter3_5.gif]

Out[2]=

⁃Graphics⁃

บางครั้ง Plot[ ] จะไม่แสดงภาพทั้งหมดเมื่อค่าของฟังค์ชันในช่วง [xmin, xmax] เปลี่ยนแปลงมากๆ

In[3]:=

Plot[Exp[-x^2], {x, -5, 5}]

[Graphics:../HTMLFiles/chapter3_8.gif]

Out[3]=

⁃Graphics⁃

เราจะต้องบอก Plot[ ] ให้แสดงภาพให้ครบด้วย option "PlotRange -> All"

In[4]:=

Plot[Exp[-x^2], {x, -5, 5}, PlotRange -> All]

[Graphics:../HTMLFiles/chapter3_11.gif]

Out[4]=

⁃Graphics⁃

บางครั้ง Plot[ ] จะ่แสดงภาพทั้งหมดเมื่อค่าของฟังค์ชันในช่วง [xmin, xmax] เปลี่ยนแปลงเร็วๆ

In[5]:=

Plot[Cos[x^2], {x, 0, 20}]

[Graphics:../HTMLFiles/chapter3_14.gif]

Out[5]=

⁃Graphics⁃

เราจะต้องบอก Plot[ ] ให้ใช้จุดในการวาดมากขึ้นด้วย option "PlotPoints"

In[6]:=

Plot[Cos[x^2], {x, 0, 20}, PlotPoints -> 100]

[Graphics:../HTMLFiles/chapter3_17.gif]

Out[6]=

⁃Graphics⁃

เราสามารถใส่ชื่อแกนใน Plot[ ] ได้ด้วย option "AxesLabel"

In[7]:=

-1 Plot[ArcTan[x], {x, -10, 10}, AxesLabel  {"x", tan x}]

[Graphics:../HTMLFiles/chapter3_20.gif]

Out[7]=

⁃Graphics⁃

ถ้าเราวาดหลายๆฟังค์ชันพร้อมๆกันเราอาจจะดูไม่รู้เรื่องได้

In[8]:=

Plot[{Cos[x], Sin[x], Tan[x]}, {x, 0, 2Pi}, PlotRange {-2, 2}]

[Graphics:../HTMLFiles/chapter3_23.gif]

Out[8]=

⁃Graphics⁃

เราทำให้ดูรู้เรื่องโดยใช้ "PlotStyle"  โดยเราบอกว่าฟังค์ชันใหนใช้สีอะไร
RGB[x,y,z] คือสีที่มีส่วนผสมระหว่างสีแดง (Red), เขียว (Green), น้ำเงิน (Blue) = x:y:z
RGB[1,1,1] คือสีขาว  RGB[0,0,0] คือสีดำ  RGB[1,0,0] คือสีแดง ฯลฯ    

In[9]:=

Plot[{Cos[x], Sin[x], Tan[x]}, {x, 0, 2Pi}, PlotRange {-2, 2}, PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}]

[Graphics:../HTMLFiles/chapter3_26.gif]

Out[9]=

⁃Graphics⁃

วิธีบอกว่าฟังค์ชันใหนใช้สีอะไรนอกจากใช้ RGBColor[ ] แล้วยังมี Hue[ ] และ GrayLevel[ ]

In[10]:=

StyleBox[RowBox[{Plot, [, RowBox[{{Cos[x], Sin[x], Tan[x]}, ,, {x, 0, 2Pi}, ,, PlotRangeᢃ ... RowBox[{Hue, [, 0.2, ]}], ,, RowBox[{Hue, [, 0.5, ]}]}], }}]}]}], ]}], FormatType -> StandardForm]

[Graphics:../HTMLFiles/chapter3_29.gif]

Out[10]=

⁃Graphics⁃

In[11]:=

StyleBox[RowBox[{Plot, [, RowBox[{{Cos[x], Sin[x], Tan[x]}, ,, {x, 0, 2Pi}, ,, PlotRangeᢃ ... l, [, 0.5, ]}], ,, , RowBox[{GrayLevel, [, 0.75, ]}]}], }}]}]}], ]}], FormatType -> StandardForm]

[Graphics:../HTMLFiles/chapter3_32.gif]

Out[11]=

⁃Graphics⁃

นอกจากใช้สีแล้วเรายังสามารถใช้ ลักษณะของเส้นที่ใช้วาด ด้วย Dashing[ ]

In[12]:=

StyleBox[RowBox[{Plot, [, RowBox[{{Cos[x], Sin[x], Tan[x]}, ,, {x, 0, 2Pi}, ,, PlotRangeᢃ ... Dashing, [, RowBox[{{, RowBox[{0.05, ,, 0}], }}], ]}]}], }}]}]}], ]}], FormatType -> StandardForm]

[Graphics:../HTMLFiles/chapter3_35.gif]

Out[12]=

⁃Graphics⁃

Created by Mathematica  (September 8, 2005)