![RowBox[{data, , =, , RowBox[{{, RowBox[{{0, 0}, ,, RowBox[{{, RowBox[{0.2, ,, 0.04}], }}], , ... }}], ,, RowBox[{{, RowBox[{0.8, ,, 0.64}], }}], ,, RowBox[{{, RowBox[{1.1, ,, 1.21}], }}]}], }}]}]](../HTMLFiles/chapter3_62.gif){kind=small}
กราฟ 2 มิติจากข้อมูล
ในบางครั้งเราไม่รู้หน้าตาของฟังค์ชัน แต่เรามีค่าของฟังค์ชันที่จุดต่างๆ เราก็สามารถวาดกราฟได้ด้วย ListPlot
ในที่นี้เรามีค่าคู่ลำดับแบบนี้
In[22]:=
Out[22]=
![RowBox[{{, RowBox[{{0, 0}, ,, RowBox[{{, RowBox[{0.2, ,, 0.04}], }}], ,, RowBox[{{, RowBox[{0. ... , }}], ,, RowBox[{{, RowBox[{0.8, ,, 0.64}], }}], ,, RowBox[{{, RowBox[{1.1, ,, 1.21}], }}]}], }}]](../HTMLFiles/chapter3_63.gif){kind=small}
เราวาดคู่ลำดับด้วย ListPlot
In[23]:=
![ListPlot[data]](../HTMLFiles/chapter3_64.gif){kind=small}
![[Graphics:../HTMLFiles/chapter3_65.gif]](../HTMLFiles/chapter3_65.gif)
Out[23]=
เนื่องจากจุดที่วาดเล็กเกินไป เราสามารถบอกให้ใช้จุดใหญ่ขึ้นด้วย option "PlotStyle"
In[24]:=
![RowBox[{ListPlot, [, RowBox[{data, ,, , RowBox[{PlotStyle, , , , RowBox[{PointSize, [, 0.02, ]}]}]}], ]}]](../HTMLFiles/chapter3_67.gif){kind=small}
![[Graphics:../HTMLFiles/chapter3_68.gif]](../HTMLFiles/chapter3_68.gif)
Out[24]=
เราสามารถลากเส้นระหว่างจุดได้ด้วย option "PlotJoined"
In[25]:=
![RowBox[{ListPlot, [, RowBox[{data, ,, , PlotJoined True, ,, , RowBox[{PlotStyle, , RowBox[{PointSize, [, 0.02, ]}]}]}], ]}]](../HTMLFiles/chapter3_70.gif){kind=small}
![[Graphics:../HTMLFiles/chapter3_71.gif]](../HTMLFiles/chapter3_71.gif)
Out[25]=
แต่เราไม่สามารถแสดงจุดใหญ่ๆ รวมกับเส้นลากระหว่างจุดได้!
วิธีแก้ก็คือ สร้างกราฟขึ้นสองอัน (g1 และ g2) แต่ซ่อนไว้ก่อนด้วย option "DisplayFunction -> Identity" (Identity คือ "อยู่เฉยๆ")
แล้ว ใช้คำสั่ง Show[ ] แสดงทั้ง g1 และ g2 โดยเลิกซ่อนด้วย option "DisplayFunction -> $DisplayFunction" ($DisplayFunction คือค่าเดิมของ option DisplayFunction ก่อนที่เราจะกำหนดค่ามันเป็น Identity)
วิธีนี้คุณสามารถนำไปดัดแปลงในสถานการอื่นๆ ที่คุณต้องแสดงกราฟหลายๆกราฟด้วยกัน
In[26]:=
![RowBox[{RowBox[{g1, , =, , RowBox[{ListPlot, [, RowBox[{data, ,, , RowBox[{PlotStyle, , &# ... e, DisplayFunction Identity] ; Show[{g1, g2}, DisplayFunction $DisplayFunction]](../HTMLFiles/chapter3_73.gif)
![[Graphics:../HTMLFiles/chapter3_74.gif]](../HTMLFiles/chapter3_74.gif)
Out[28]=
วิธีนี้คุณสามารถนำไปดัดแปลงในสถานการอื่นๆ ที่คุณต้องแสดงกราฟหลายๆกราฟด้วยกัน
ในที่นี้เราจะวาดกราฟของ 
และ กราฟของคู่ลำดับด้วยกัน
In[29]:=
![RowBox[{RowBox[{g1, , =, , RowBox[{Plot, [, RowBox[{x^2, ,, RowBox[{{, RowBox[{x, ,, 0, ,, 1 ... unction Identity}], ]}]}], ;}] Show[{g1, g2}, DisplayFunction $DisplayFunction]](../HTMLFiles/chapter3_77.gif)
![[Graphics:../HTMLFiles/chapter3_78.gif]](../HTMLFiles/chapter3_78.gif)
Out[31]=
Created by Mathematica (September 8, 2005)