正弦型函數(shù)的圖象是高中數(shù)學(xué)中很重要的內(nèi)容。但對于很多學(xué)生來說，這節(jié)課的內(nèi)容又顯得過于抽象而變得難于理解。所以，數(shù)學(xué)老師們多選擇用課件來演示正弦波以更好地完成教學(xué)任務(wù)。那么，在PowerPoint中如何實(shí)現(xiàn)正弦波的演示呢?
一、一般性演示
如果課件只是要求簡單的演示正弦波的圖象，沒有什么交互性的要求，而您使用的又是Offcie XP或者2003版本，那么，這個(gè)問題就變得非常簡單了。
先點(diǎn)擊“繪圖”工具欄中的“橢圓”按鈕，在幻燈片編輯窗口中畫一個(gè)小的圓球(用它來表示動(dòng)點(diǎn))。選中此圓球，右擊鼠標(biāo)，在彈出的右鍵菜單中選擇“自定義動(dòng)畫”命令，打開“自定義動(dòng)畫”任務(wù)窗格。在此任務(wù)窗格中點(diǎn)擊“添加效果→動(dòng)作路徑→正弦波”命令，如圖1所示。
那么，您會(huì)看到編輯窗口中的圓球會(huì)沿一個(gè)正弦波路徑運(yùn)動(dòng)。當(dāng)它停止運(yùn)動(dòng)后，您就可以看到一個(gè)正弦波出現(xiàn)了。選中它，您可以利用控制句柄調(diào)整其大小或進(jìn)行旋轉(zhuǎn)操作。如圖2所示。
不過，先別高興太早，在放映時(shí)，您只能看到圓球沿該路徑運(yùn)動(dòng)，路徑本身(正弦波)是不會(huì)顯示出來的。想顯示正弦波嗎?那咱們得動(dòng)動(dòng)手。
點(diǎn)擊菜單命令“視圖→顯示比例…”，在打開的“顯示比例”對話框中選擇“100%”，按下“Print Screen”鍵，將屏幕拷貝下來并粘貼到畫圖板中，進(jìn)行適當(dāng)?shù)木庉嫞槐Ａ袈窂讲糠郑４妗?/FONT>
然后點(diǎn)擊菜單命令“插入→圖片→來自文件…”，將路徑圖插入到編輯窗口中，仔細(xì)調(diào)整圖片的位置，使圖片中的路徑與編輯窗口中的路徑完全重合(可以按下Ctrl鍵并配合小鍵盤上的方向鍵實(shí)現(xiàn)逐象素移動(dòng))。別忘了調(diào)整一下小球的“疊放次序”啊，保險(xiǎn)起見，將它調(diào)到頂層好了(調(diào)整方法是右擊小球，在右鍵菜單中點(diǎn)擊“疊放次序→置于頂層”命令)。好了，現(xiàn)在，您可以放映一下，感覺一下效果了。
我們可以調(diào)整一下小球運(yùn)動(dòng)的速度，以獲得更佳的演示效果:雙擊正弦波路徑，打開3所示的“正弦波”對話框。點(diǎn)擊“計(jì)時(shí)”選項(xiàng)卡，看到了嗎?
默認(rèn)情況下是兩秒鐘完成動(dòng)畫的，當(dāng)然會(huì)感覺快了。在“速度”輸入框中輸入您所希望的時(shí)間(以秒為單位)，然后點(diǎn)擊“確定”按鈕就可以了。
二、定制正弦型函數(shù)圖象
雖然上面的方法制作起來簡單快捷，但其中的不便之處也是顯而易見的。那就是它不能按我們上課的實(shí)際需要精確演示函數(shù)圖象。在教學(xué)實(shí)際中，我們經(jīng)常要根據(jù)不同的A、ω、φ值畫出準(zhǔn)確的y=Asin(ωx+φ)圖象。顯然，上面的方法是不可能完成的。不過，在PowerPoint中，利用VBA，還是可以使我們的這一要求得到滿足的。
首先點(diǎn)擊菜單命令“視圖→工具欄→控件工具箱”，打開控件工具箱工具欄。點(diǎn)擊工具欄中的“文本框”工具，在編輯窗口中拖放三個(gè)文本輸入框。我們將利用此三個(gè)文本框分別接收幻燈片放映時(shí)輸入的A、ω、φ的值，并利用這三個(gè)值畫出函數(shù)y=Asin(ωx+φ)圖象。
點(diǎn)擊控件工具箱中的“命令按鈕”工具，在編輯窗口中拖放一個(gè)按鈕。選中它，點(diǎn)擊右鍵，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性”對話框。如圖4所示。將“Caption”右側(cè)的內(nèi)容改為“畫圖象”，并將“AutoSize”右側(cè)的“False”改為“True”。其它的可以采用默認(rèn)形式。點(diǎn)擊“確定”按鈕。
仍然選中“畫圖象”命令按鈕，點(diǎn)擊右鍵，在彈出的快捷菜單中選擇“查看代碼”命令，打開VBA代碼編輯窗口。在窗口輸入如下代碼:
Private Sub CommandButton1_Click()
A = Val(TextBox1.Text) * 20
B = Val(TextBox2.Text)
C = Val(TextBox3.Text) * 3.14 * 20 / 180
SlideShowWindows(1).View.DrawLine 70, 200, 600, 200
SlideShowWindows(1).View.DrawLine 100, 60, 100, 400
Do While Count < 450
x1 = Count + 100
y1 = -A * Sin((B * Count + C) / 20) + 200
Count = Count + 1
x2 = Count + 100
y2 = -A * Sin((B * Count + C) / 20) + 200
SlideShowWindows(1).View.DrawLine x1, y1, x1, y2
Loop
End Sub
放映一下，輸入三個(gè)變量值，點(diǎn)擊“畫圖象”按鈕，看看效果如何?如圖5所示(最后一個(gè)文本框應(yīng)輸入φ的角度數(shù))。
您可以多次輸入數(shù)據(jù)，畫出多個(gè)函數(shù)圖象以方便觀察。要清除這些圖象，可以用上面的方法再做一個(gè)按鈕，按鈕上的文字設(shè)置為“清除圖象”，編輯代碼為:
Private Sub CommandButton3_Click()
SlideShowWindows(1).View.EraseDrawing
End Sub
想要一個(gè)坐標(biāo)系?呵呵，如果您不怕麻煩，當(dāng)然可以了。做第三個(gè)按鈕，按鈕文字為“畫坐標(biāo)系”，編輯代碼為:
rivate Sub CommandButton3_Click()
h = 100
k = 200
Length = 15.7
Number = 500
Dim xx
xx = 1
Do While xx < Number
If xx Mod 4 = 0 Then
SlideShowWindows(1).View.DrawLine h + xx * Length, k - 7, h + xx * Length, k
SlideShowWindows(1).View.DrawLine h - xx * Length, k - 7, h - xx * Length, k
SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 7, k - xx * (Length + 4.3)
SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 7, k + xx * (Length + 4.3)
Else
SlideShowWindows(1).View.DrawLine h + xx * Length, k - 3, h + xx * Length, k
SlideShowWindows(1).View.DrawLine h - xx * Length, k - 3, h - xx * Length, k
SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 3, k - xx * (Length + 4.3)
SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 3, k + xx * (Length + 4.3)
End If
xx = xx + 1
Loop
SlideShowWindows(1).View.DrawLine h, k, h + xx * Length, k
SlideShowWindows(1).View.DrawLine h - xx * Length, k, h, k
SlideShowWindows(1).View.DrawLine h, k, h, k - xx * Length
SlideShowWindows(1).View.DrawLine h, k, h, k + xx * Length
End Sub
行了，再試一次。如圖6所示。呵呵，夠“專業(yè)”吧?用它來演示正弦波，不錯(cuò)吧?
