今天在抖音上看到一個抖友，發了一個短視頻。視頻中利用Excel製作出一個漂亮，並通過動態賦值，實現心形變化的函數圖（如下圖）。
覺得十分好看，但玩過抖音的小夥伴都知道，一般這種視頻都是不會給教程的，這個視頻也不例外。於是，我就發揮了自己的動手能力，
完整的復原的這個過程，今天就跟大家分享一下這個心形變化的函數圖，是如何用Excel製作出來的。
一、製作原理：
1、利用笛卡爾心形函數 r=a(1－sinθ）的基本形式，由於該形式是單線變量，為了豐富多線變化，採用了變形式（具體函數如下圖）。
其中，可以變常數a的大小，控制心形線大小。理論上，a越大，心形線越大。
2、利用該函數式，在Excel表中，通過函數X、a值的變化，生成一系列有關Y的數據區域，再取Y數據區域，插入圖表，選取帶直線的散點圖。再利用
Excel控件的賦值，實現可變常數a的動態賦值變化，實現心形圖像的線性變化，即可完成。
二、製作工具：office軟件的Excel，或者WPS軟件的Excel
三、採用的函數：SQRT（）平方根計算函數、SIN（）正弦函數、PI()返回圓周率的近似值函數、POWER（）乘冪運算函數
四、前提條件：啟動開發工具，採用VBA編程。在彈出的“ Excel選項 ”屬性框中，選擇“常用”，在“使用Excel時採用的首選項模塊下，選擇在“ 在功能區顯示開發工具選項卡 ”複選框打鉤，按確定。建議對VBA宏的安全級別，不要設置太高，否則無法運行。
五、主要步驟：
1、任選單元格A3，作為X序列的縱向起點；選單元格B3，作為Y序列的縱向起點。
2、X的取值範圍：[-1.81,1.81]，該取值範圍是保證正弦函數有效取值範圍。
3、Y=POWER(A3^2,1/3)+0.9*SQRT(3.3-A3^2)*SIN($G$2*PI()*A3)。
4、這裡的$G$2，是可變常數a的固定單位格。當然，a在哪個單元格可以自己選，前提要保證Excel引用的是絕對值。
5、 選取Y序列的數據區域，單擊Excel菜單欄中的 ”插入“， 在圖表區域，點擊 ”帶直線的散點圖 “，即可得到。
6、為了表現圖像的美觀，可以採用隱藏或者採用Delete鍵的方式，去掉橫縱座標和數值。圖像線條顏色可以設置成“紅色”。
7、為了實現可變常數a的動態變化，採用Excel的滾動條（ScrollBar），進行滑動賦值。
8、單擊Excel菜單欄中的 ”開發工具“，找到滾動條，並點擊滾動條的“控件屬性”，將Max設置為1000，Min設置為1。
9、打開滾動條（ScrollBar）“編輯代碼”，這裡“G2”就是可變常數a所在的單位格。
Private Sub ScrollBar1_Change()
Sheet1.Range("G2") = ScrollBar1.Value / 10
End Sub
10、保存代碼，點擊退出編輯狀態，即可完成。
如果此文幫助到您了，麻煩轉發點贊哦！
如果需要下載成品Excel文件請點擊下方鏈接，可以用來向女朋友表白哈哈
如果此文幫助到您了，麻煩轉發點贊哦！
下載地址
↓↓↓↓
閱讀更多 資源雲社區 的文章
