怎麼用wps畫方程的函數圖像-tft每日頭條

怎麼用wps畫方程的函數圖像

科技更新时间:2024-12-12 22:50:51

一說到數學方程，很多人就會馬上聯想到mathematica、MATLAB、mathCAD、maple等專業的數學軟件，确實這四個軟件是在科技和工程界上比較流行和著名，它們在各自針對的目标領域都有不同的特色。要是設計到專業的數學領域的問題當然就要用他們來解決，但是有時候我們的需求就隻是想看看這個數學方程式的圖像，這個時候就沒有必要費力去安裝破解體積這麼龐大的軟件，其實我們日常使用的Excel就能夠擔當大任！下面就來詳細講解一下作圖思路和具體步驟：

先看一下最終的效果演示：

怎麼用wps畫方程的函數圖像（無需專業數學軟件）1

最終效果演示

步驟一：

新建一個工作表，命名為方程式和作圖數據，并按如圖所示填好相應的内容：

怎麼用wps畫方程的函數圖像（無需專業數學軟件）2

方程式表内容及參數填寫

怎麼用wps畫方程的函數圖像（無需專業數學軟件）3

作圖數據表格内容填寫

步驟二：

打開VBE編輯器（Alt F11），或則在功能區打開，如下圖所示：

怎麼用wps畫方程的函數圖像（無需專業數學軟件）4

打開VBE編輯器

插入一個模塊，如下圖所示：

怎麼用wps畫方程的函數圖像（無需專業數學軟件）5

插入一個模塊

步驟三：

雙擊插入的模塊（默認名稱為：模塊1），粘貼以下兩段代碼，代碼的具體含義在這就不做詳細講解了，如有需要，歡迎交流，共同進步。

作圖代碼：

Sub 作圖()

Dim obReg As Object

Dim oMatch As Object

Dim length As Integer

length = (Sheets("方程式").Cells(2, 3).Value - Sheets("方程式").Cells(2, 2).Value) / Sheets("方程式").Cells(2, 4).Value

Set obReg = CreateObject("vbscript.regexp")

Sheets("作圖數據").Rows("2:1048576").Clear

Sheets("方程式").ChartObjects("圖表 3").Activate '假設隻有一個圖表

With ActiveChart

For i = .SeriesCollection.Count To 1 Step -1

.SeriesCollection(i).Delete

Next

End With

With obReg

.Global = True

.IgnoreCase = True

.Pattern = "[x]"

End With

Sheets("作圖數據").Cells(2, 1).FormulaR1C1 = "=方程式!R2C2"

Sheets("作圖數據").Cells(3, 1).FormulaR1C1 = "=R[-1]C 方程式!R2C4"

Sheets("作圖數據").Cells(3, 1).AutoFill Destination:=Sheets("作圖數據").Range(Sheets("作圖數據").Cells(3, 1), Sheets("作圖數據").Cells(length 2, 1))

For i = 0 To 9

Sheets("作圖數據").Cells(2, 2 i).FormulaR1C1 = "=" & obReg.Replace(Sheets("方程式").Cells(2 i, 1).Value, "RC[-" & i 1 & "]")

Sheets("作圖數據").Range(Sheets("作圖數據").Cells(2, 2 i), Sheets("作圖數據").Cells(2, 2 i)).AutoFill Destination:=Sheets("作圖數據").Range(Sheets("作圖數據").Cells(2, 2 i), Sheets("作圖數據").Cells(length 2, 2 i))

Next

ActiveWorkbook.Names.Add Name:="X_1", RefersToR1C1:="=OFFSET(作圖數據!R1C1,0,0,方程式!R2C7,1)"

For j = 1 To 10

ActiveWorkbook.Names.Add Name:="Y_" & j, RefersToR1C1:="=OFFSET(作圖數據!R1C" & j 1 & ",0,0,方程式!R2C7,1)"

Next

ActiveSheet.ChartObjects("圖表 3").Activate

ActiveChart.SetSourceData Source:=Sheets("作圖數據").Range("a1:b" & length 2)

For k = 2 To 10

Application.Goto Reference:="Y_" & k

Selection.Copy

Sheets("方程式").Select

ActiveSheet.ChartObjects("圖表 3").Activate

ActiveChart.Paste

Next

Sheets("方程式").ChartObjects("圖表 3").Activate

ActiveChart.Axes(xlValue).Select

ActiveChart.Axes(xlValue).MinimumScale = Sheets("方程式").Range("e2").Value

ActiveChart.Axes(xlValue).MaximumScale = Sheets("方程式").Range("f2").Value

ActiveChart.Axes(xlValue).MajorUnit = Sheets("方程式").Range("E5").Value

ActiveChart.Axes(xlValue).MinorUnit = Sheets("方程式").Range("F5").Value

ActiveChart.Axes(xlCategory).Select

ActiveChart.Axes(xlCategory).MinimumScale = Sheets("方程式").Range("b2").Value

ActiveChart.Axes(xlCategory).MaximumScale = Sheets("方程式").Range("c2").Value

ActiveChart.Axes(xlCategory).MajorUnit = Sheets("方程式").Range("C5").Value

ActiveChart.Axes(xlCategory).MinorUnit = Sheets("方程式").Range("D5").Value

End Sub

刷新代碼：

Sub 刷新()

Dim obReg As Object

Dim oMatch As Object

Dim length As Integer

length = (Sheets("方程式").Cells(2, 3).Value - Sheets("方程式").Cells(2, 2).Value) / Sheets("方程式").Cells(2, 4).Value

Set obReg = CreateObject("vbscript.regexp")

Sheets("作圖數據").Rows("2:1048576").Clear

With obReg

.Global = True

.IgnoreCase = True

.Pattern = "[x]"

End With

Sheets("作圖數據").Cells(2, 1).FormulaR1C1 = "=方程式!R2C2"

Sheets("作圖數據").Cells(3, 1).FormulaR1C1 = "=R[-1]C 方程式!R2C4"

Sheets("作圖數據").Cells(3, 1).AutoFill Destination:=Sheets("作圖數據").Range(Sheets("作圖數據").Cells(3, 1), Sheets("作圖數據").Cells(length 2, 1))

For i = 0 To 9

Sheets("作圖數據").Cells(2, 2 i).FormulaR1C1 = "=" & obReg.Replace(Sheets("方程式").Cells(2 i, 1).Value, "RC[-" & i 1 & "]")

Sheets("作圖數據").Range(Sheets("作圖數據").Cells(2, 2 i), Sheets("作圖數據").Cells(2, 2 i)).AutoFill Destination:=Sheets("作圖數據").Range(Sheets("作圖數據").Cells(2, 2 i), Sheets("作圖數據").Cells(length 2, 2 i))

Next

ActiveWorkbook.Names.Add Name:="X_1", RefersToR1C1:="=OFFSET(作圖數據!R1C1,0,0,方程式!R2C7,1)"

For j = 1 To 10

ActiveWorkbook.Names.Add Name:="Y_" & j, RefersToR1C1:="=OFFSET(作圖數據!R1C" & j 1 & ",0,0,方程式!R2C7,1)"

Next

Sheets("方程式").ChartObjects("圖表 3").Activate

ActiveChart.Axes(xlValue).Select

ActiveChart.Axes(xlValue).MinimumScale = Sheets("方程式").Range("e2").Value

ActiveChart.Axes(xlValue).MaximumScale = Sheets("方程式").Range("f2").Value

ActiveChart.Axes(xlValue).MajorUnit = Sheets("方程式").Range("E5").Value

ActiveChart.Axes(xlValue).MinorUnit = Sheets("方程式").Range("F5").Value

ActiveChart.Axes(xlCategory).Select

ActiveChart.Axes(xlCategory).MinimumScale = Sheets("方程式").Range("b2").Value

ActiveChart.Axes(xlCategory).MaximumScale = Sheets("方程式").Range("c2").Value

ActiveChart.Axes(xlCategory).MajorUnit = Sheets("方程式").Range("C5").Value

ActiveChart.Axes(xlCategory).MinorUnit = Sheets("方程式").Range("D5").Value

End Sub
步驟四：
在方程式表中插入兩個宏按鈕，具體操作如下：

插入按鈕（窗體控件）

完成後效果如下：

完成效果圖
步驟五：
将控件按鈕分别對應關聯到我們剛才粘貼的兩段代碼：

單擊右鍵指定宏

關聯對應的宏
步驟六：
大功告成！隻需在方程式一欄中填寫自己想要作圖的方程然後點擊作圖即可生成函數圖像。

注意：當改變X、Y軸範圍時點擊作圖按鈕，隻是改變方程時點擊刷新按鈕！！！

注意事項

數學方程式圖像

由于頭條不能放置鍊接，如需要附件請私信我！
,
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部

网友关注

科技蘋果平闆pk華為平闆
如果要提起市面上主流的平闆電腦産品，很多消費者還是會選擇購買蘋果的平闆電腦。ipad作為數碼市場上最為主流，也可以說是最老牌的平闆産品。而近幾年随着數碼市場上的科技内卷，有許多數碼品牌也争相推出自己的手機産品。在數碼平闆市場上，蘋果的平闆電... 2022-11-25
科技哪幾款精華液最好用
精華液是護膚品中有效含量最高的，同時也是效果最好的，一般精華液都比較貴，歐美的動辄都是幾千塊，國産的也要好幾百。但是這些都真的好用嗎？其實很多精華液并沒有那麼好，相反有些不太知名的精華液倒是效果非常的好，後來才知道，好用是有道理的，比如研發... 2023-01-09
科技如何選系統門窗
我們選購門窗時，常常會面臨種類太多難選擇、專業性太強看不懂等多種問題。為了解決這個問題，今天我們深入淺出，給大家講一講門窗的兩大類别，還有消費者選購門窗、驗收門窗的注意事項。via網絡1.系統門窗、普通門窗的區别系統門窗：有自己獨立的技術部... 2023-03-26
科技大學自動化大賽
大學自動化大賽?未來網高校頻道9月17日訊（記者楊子健通訊員薛玉榮唐立偉）2020年，因新冠疫情的嚴重影響，全國高校的大學生無法到現場，參加一年一度的AB杯全國大學生自動化系統應用大賽，實屬遺憾但是，大連锂工科技有限公司，利用互聯網技術，在... 2023-02-16
科技 win10電腦出現問号
前一段win10系統又進行了一次更新，更新的過程真心是慢，電腦更新了好長時間才更新完成，結果呢？真心氣人，電腦在更新完版本更新之後，有一個磁盤竟然顯示藍色問号，雙擊打開的時候提示：“無法訪問等等”，不知道大家遇到過類似的事情麼？對于這樣的事... 2022-12-31
科技摩托羅拉又出了哪幾款新機
早在功能機時代的時候，摩托羅拉在國内市場的地位就數一數二，當時誰能買個摩托羅拉手機，出門走路都帶風。不過随着手機往智能手機快速轉變，各類國産品牌手機開始崛起，摩托羅拉并沒有抓住這個風口，在國内手機市場的份額也越來越低，一度以為它會成為第二個... 2022-10-25
科技 amd cpu原裝風扇怎麼安裝
amd的cpu與風扇安裝很簡單。這裡主要是amd3接口和fm2接口的介紹！前面我為大家介紹了Intel的電腦全套組裝，因為除了cpu安裝環節，其它部件安裝都是一樣的，所以今天就專門講一下amd的cpu和風扇安裝，其它的就不講了，因為通用部件... 2022-12-31
科技電腦上鍵盤如何打出省略号
請您點擊右上角“關注”，獲得更多電腦、手機等數碼産品的使用技巧，謝謝支持！昨天寫了一篇F1-F12的文章，似乎非常吸引人，今天繼續給大家介紹一下鍵盤上數字1-0的用法。無論是标準鍵盤，還是緊湊型筆記本鍵盤，雖然有各種差别，但數字1-0，這些... 2023-02-02
科技 ftp文件哪個好
随着網絡技術的高速發展，網絡安全保障機制也受到了巨大的挑戰。為了有效地保護内部的核心數據資産，比較普遍的防護手段會采用内外網隔離的策略。隔離之後，很多企業一開始都會采取一些比較傳統的文件擺渡方式，比如人工U盤拷貝、架構FTP等，但是在使用一... 2023-02-10
科技安卓手機光遇怎麼雙開分屏帶小号
Hi~大家好，這裡是每天為你分享遊戲内容的億遊聚合，點點關注支持一下吧。光遇手遊是一款人氣很高的冒險遊戲，遊戲裡很多玩家會帶小号跑圖，怎麼才能用一部手機實現分屏玩兩個号呢？小編來教教大家。同屏雙開前提首先蘋果手機是不支持分屏的，所以蘋果端無... 2023-01-02
科技 ps 好的磨皮插件
今天給大家介紹一款更專業快捷的PS磨皮插件：DeliciousRetouchPanel3.0（簡稱DR3）。這是一款Photoshop人像美容擴展面闆插件，效果要比Portraiture插件好，而且使用面闆中包含多種适用于人像修飾的功能，例... 2022-11-29
科技奇異恩典目前最好版本
大家應該聽過很多版本的《奇異恩典》，但是最好聽的可能就是蘇格蘭風笛演奏出來的吧，蘇格蘭風笛悲壯凄婉的曲調中帶有正氣！這才是真正的《奇異恩典》應該有的樣子，充滿了震撼與感動！《奇異恩典》這首最初由英國牧師約翰·牛頓作于1779年，開始是一首傳... 2023-03-07
科技榮耀手機有v和非v的區别
如果用一個字來形容今年榮耀手機，這個字就是亂，今年榮耀手機發布超過十款手機，甚至超過了自家大哥——華為。目前有榮耀V30、V30pro、榮耀30、榮耀30pro、榮耀30pro、榮耀30s、榮耀30青春版、榮耀10X、榮耀10Xmax等等那... 2023-03-16
科技如何開發簡單的exe程序
今天收到基友群裡的一個新需求，需求如下：将一個純靜态的html項目打包成一個pc端程序，也就是一個可執行的exe文件，剛好之前做過一個類似的項目，我就爽快的答應下來了。項目如下，是一個計時網頁：我要做的就是将這個網頁版的程序打包成一個exe... 2022-11-29
科技手機的軟件不能自動更新
手機的軟件不能自動更新?來源：人民日報海外版頻繁升級，讓用戶體驗到最新版本的同時，也易影響速度和使用，接下來我們就來聊聊關于手機的軟件不能自動更新?以下内容大家不妨參考一二希望能幫到您!手機的軟件不能自動更新來源：人民日報海外版頻繁升級，讓... 2022-12-02
科技華為手機為什麼收不到信息
華為手機的系統優化是開發的最好的，不管是系統流暢度還是電池續航方面，在國内都是第一。這樣有一個問題來了，部分APP想讓它在後台保持運行，接收信息推送就不能如意了。如果是為了提高待機續航能力，就把不常用的APP讓後台自動殺進程，當然大的軟件開... 2022-11-22
科技手機音量調到最大聽不到聲音
相信很多人都遇到過這樣一個問題，在打電話的時候，總感覺手機的音量很小，哪怕将音量調到最大，也還是聽不清對方在說什麼？總不能每次都開啟免提吧，畢竟有些場合是不方便開免提的，那我們該怎麼辦呢？如何才能将手機音量變大？具體方法如下：1、蘋果系統如... 2023-01-16
科技為什麼不建議組裝intel平台電腦
Hello大家好，我是兼容機之家的小牛！時光如梭，白駒過隙。2020年已經走到第五個月份，很多企業基本以及完成了複工複産，學校也陸陸續續開學了。現在的電腦硬件行情不像年初那麼“離譜”，主要配件價格基本回落，并且趨于穩定，短期内應該是不會有較... 2023-02-12
科技插畫師都用什麼軟件畫畫
學習插畫用什麼軟件？怎樣才能學好闆繪插畫入門？學習闆繪插畫入門有哪些技巧？想必這些問題都是繪畫初學者們比較傷腦筋的問題，那麼到底怎樣才能學好闆繪插畫漫畫入門基礎呢？今天靈貓課堂老師就在網絡上收集整理了關于學習插畫用什麼軟件？學畫畫必備的10... 2023-02-10
科技老虎吃400多人
4月4日，一則稱“杭州野生動物園有老虎吃人”的消息在微信群裡傳播，并附有3分39秒的視頻，引發了不少人的議論。網傳消息截圖網民讨論如此驚悚的消息，其實就是個移花接木式的謠言。4月5日淩晨，@杭州野生動物世界發表聲明，表示網傳視頻為多年前他地... 2023-02-24
科技教育平闆電腦的多場景模式的應用-雲通...
随着科學技術的蓬勃發展，各行各業開始了全面的智能轉型升級。教育産業作為國家發展的重要産業之一，也在不斷引進智能設備，以提高信息化水平。智能教育市場開始廣泛接受高效、全面的平闆電腦。觸摸平闆電腦是智能教學中應用最廣泛的智能設備之一，在衆多的智... 2022-10-25
科技 oppor9手機的拆機
很多人都說OPPO手機是低端機賣高價，手機的銷量全靠線下忽悠，到底OPPO手機是不是這樣呢？首先我們分析下，一部手機如何斷定是不是不值得購買，第一看配置，第二看做工，當然第三就是操作系統，如今安卓系統大家也都了解。OPPO的配置除了CPU采... 2022-12-14
科技華為新品發布會筆記本電腦價格
近日，美國《華爾街日報》的駐華記者StuWoo撰寫報道，稱中國華為公司受美國禁令影響，已經“暫停其個人電腦（PC）業務”。然而，我們《環球時報》的記者從華為内部人士處得知，此事純屬無稽之談。可這則被華為内部人士稱為“無稽之談”的消息又是怎麼... 2023-01-11
科技華為全場景智慧生活發布會時間
12月23日，華為舉辦冬季旗艦新品發布會，正式發布旗下HUAWEIP50Pocket旗艦折疊屏手機、AITO問界M5智能汽車、HUAWEIWATCHD腕部心電血壓記錄儀、華為智能眼鏡等HarmonyOS新品，持續構建萬物智聯的全場景生态。發... 2023-02-21
科技網站備案是怎麼做的
來源：公安部網安局, 2023-02-06
科技手機常死機怎麼處理
幾乎每個用智能機的人都遇到過死機的情況，死機的次數少還沒什麼，但要是手機頻繁出現死機的現象，那就很鬧心了。對此，我們應該怎麼辦呢？下面是ROM基地為大家精心搜集整理的幾個針對手機死機解決辦法，一定可以幫到為手機頻繁死機傷腦筋的你。1、不要同... 2023-02-04
科技緻歐家居ipo中止
在今年6月，跨境電商賽維時代科技股份有限公司成功過會後，又一家以線上B2C銷售為主的跨境電商——緻歐家居科技股份有限公司正在沖刺A股，深交所創業闆上市委員會定于2022年7月20日（今日）召開2022年第41次上市委員會審議會議。緻歐科技的... 2023-01-20
科技投标文件蓋章和簽字
在招标投标活動中，由于投标文件蓋章或簽字不符合要求而被廢标的情況經常發生，甚至有時還會因此造成招标失敗，今天招标代理機構來教你如何蓋章。關于蓋章，招投标法規沒有具體的标準，招标文件也不會對投标書蓋章做詳細的要求，所以蓋章環節都是投标人在實踐... 2023-01-19
科技 endnotex8怎樣安裝
軟件介紹不管是畢業論文還是學術論文，插入參考文獻是一件繁瑣又令人頭疼的的工作，目前，有很多款管理參考文獻的軟件工具，如CNKIE-Study，Notepress，EndNote等等。接下來，我将針對EndNote如何在寫論文的過程中插入并... 2023-01-16
科技手機nfc功能是不是雞肋
手機NFC黑科技是很早之前就有了的，自推出以來都是不溫不熱的。近年來各手機廠商都努力的推廣應用這項黑科技，那麼NFC究竟是什麼呢，對于生活又有什麼用呢？NFC的應用NFC并非什麼新的技術，早在2013年國外的廠商就基于非接觸式卡技術的無線通... 2023-01-17

tft每日頭條

> 科技

> 怎麼用wps畫方程的函數圖像

怎麼用wps畫方程的函數圖像

相关科技资讯推荐

热门科技资讯推荐

网友关注