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

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

科技更新时间:2024-10-15 14:54:33

一說到數學方程，很多人就會馬上聯想到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每日頭條，我们将持续为您更新最新资讯!

查看全部

网友关注

科技西安電商賣什麼産品比較多
京東快遞無人車方便了快遞包裹配送受訪單位供圖登錄、搜索、下單……65歲的黃海萍熟練地操作着手機，家裡随處可見網購的衣服、鞋襪、水果、零食。“網購打開了新世界，成了我退休生活的新愛好。”黃海萍說。28歲的小月從裝修新家開始就選擇網購，小到牙膏... 2023-02-18
科技現在大家都在買什麼手機
我是康康、95後，大學外語專業畢業後現在入職在一家外貿公司（出行相關疫情原因很閑）。看看日本MUJI的折扣心動康康一直用的是安卓機、從高中的中興V889D（鼓動班上好多同學一起買）、到後來陪伴我走過大學的魅族MX4-三星S8-S9-到現在用... 2023-02-28
科技學校對小學生手機的管理規定
如果，你希望你的孩子學壞。請給他一部手機；如果你希望你的孩子成績一落千丈。請你給他一部手機；如果你希望與孩子之間的情感變淡，還是請給他一部手機......關于手機的危害，各類媒體均有不同程度的報道，因手機問題引發案件也日益增多，孩子因玩手機... 2023-03-23
科技互聯網小投資前景
36氪獲悉，世優（北京）科技有限公司（以下簡稱世優科技）宣布完成過億元的A輪第二期融資，本輪融資投資方為上市公司捷成股份、天地在線以及其他兩家公司和元宇宙基金2号。世優科技創始人紀智輝表示，本輪融資資金将主要用于現有業務規模化、數字人技術升... 2023-02-12
科技 dnf新活動槍劍士攻略
【客戶端EX内容】槍劍士資源（未實裝）, 2023-03-09
科技不限容量雲盤
兩三年以前可謂是網盤的大時代，國内不乏像百度、115、金山、360等各大品牌網盤可選，越來越多的用戶也習慣在網盤上存儲資料，以及用戶之間相互分享。畢竟，這些是網盤相比傳統硬盤存儲與生俱來的優勢。雖然由于某些原因，後來許多網盤關閉導緻無法使用... 2023-02-19
科技現在該怎麼選擇顯卡
Hello大家好，我是兼容機之家的小牛！顯卡是我們裝機過程中不可缺失的一個重要部件，無論是獨立顯卡，還是集成在CPU的核心顯卡。便宜的顯卡可能是買CPU裡面“附贈”的核顯，最貴的顯卡好幾萬不等。還在為挑選顯卡而煩惱？面對價格區間如此之大的顯... 2023-02-05
科技怎麼完成網站推廣
企業網站是企業進行網絡推廣的關鍵所在，那麼如何才能讓網站獲取更大流量，從而提高品牌知名度和帶來實際收益呢？代傑科技總結了以下幾個關鍵點，和大家一起分享探讨。第一步：找關鍵詞結合自身網站内容尋找一些關鍵詞，最好不要找太熱門關鍵詞但也不能太冷門... 2022-12-09
科技網站推廣怎麼脫穎而出
話題：新形勢下企業如何才能做好線上推廣？企業怎麼做網絡推廣?解答：螞蟻全媒體中心、螞蟻傳媒網總編劉鑫炜移動互聯網時代，用戶注意力和流量嚴重碎片化，平台去中心化，在這種情況下，企業如何做好線上推廣呢?企業要做好網絡推廣，必須逆向思維。我們做網... 2022-12-09
科技 gtx1070是哪一年的
2017-09-2211:56:51作者：馬榮在上周我們曾報道NVIDIA即将推出一款基于帕斯卡架構的遊戲級顯卡GTX1070Ti，現在這張卡的性能參數就遭到了曝光。據報道，GTX1070Ti将會配備2304個流處理器，隻比GTX1080少... 2023-03-07
科技蘋果手機沒有雙卡雙待嗎
手機發展真是快，從以前的按鍵機到現在的智能機，再從單卡到雙卡，現在手機十個有八個都是雙卡的，以前說高配的手機都是單卡的多，因為高配的手機主闆要占更多的空間，這是以前其中的一個說法，但現在高配的手機很多也有雙卡雙待的，比如三星現在出的高配手機... 2023-02-15
科技 oppo手機微信怎麼注冊不了
oppo手機微信怎麼注冊不了?微信号是用手機注冊的，是不是你的手機号注冊過了，抄或者手機号是黑名單才注冊不襲了，接下來我們就來聊聊關于oppo手機微信怎麼注冊不了?以下内容大家不妨參考一二希望能幫到您!oppo手機微信怎麼注冊不了微信号是用... 2022-06-29
科技最新的民航飛機不用開飛行模式
旅客在東航航班上操作便攜電子設備。中新網圖2018年旅客乘坐中國民航飛機已邁入“手機時代”。自中國民用航空局發布在機上使用便攜式電子設備（PED）細則後，截止到目前，已相繼有春秋航空、東方航空、海南航空、祥鵬航空、南方航空、廈門航空、山東航... 2023-01-13
科技 magisk模塊和手機有關嗎
①Magisk的安裝教程②Magisk常見問題解決和功能介紹③Magisk的模塊制作④Magisk維護和升級前言:很多人有誤解，xp和框架和Magisk是不是一類的？工作修改原理是差不多的，但是工作目錄路徑不同，簡言之：①xp框架的模塊是通... 2023-04-03
科技電腦音響排行榜10強
敬請期待後期佳作：《2017年各大品牌旗艦耳機橫評》衆所周知，電腦音響就是多媒體音響。一個好的電腦音響，不僅可以提供給遊戲玩家一個刺激的競技體驗，還能提供舒适而優雅的上網環境。現在的年輕人很多都追求視覺上的逼真和聽覺上的臨耳，對電腦配件要求... 2022-12-25
科技 1個手機号可以注冊兩個微信賬号嗎
1個手機号可以注冊兩個微信賬号嗎?作為一款用戶高達數億的國民APP，微信在我們的生活中的作用已經是越來越重要無論是日常通訊還是工作學習，基本上都習慣于使用微信來交流信息，我來為大家講解一下關于1個手機号可以注冊兩個微信賬号嗎?跟着小編一起來... 2022-10-18
科技 raid5出現災難性故障怎麼恢複
服務器數據恢複環境：3U戴爾機架式服務器SAS接口硬盤Windows操作系統100個125GB硬盤組成的raid5故障：一塊盤亮黃燈，被raid卡踢出後，raid崩潰。聯系北亞數據恢複中心進行數據恢複。raid5服務器數據恢複過程：1、對1... 2023-03-21
科技波西亞時光正式版還會更新嗎
重慶帕斯亞科技今天發布公告，由他們開發的《波西亞時光》即将迎來PC、主機版本的重大更新，并且手遊版本也将會在8月4日于海外發售(含中文語言)，國内移動平台目前仍需等待版号。《波西亞時光》主機版本受到許多玩家關注，這一次官方也給出了更詳細的進... 2023-01-09
科技為什麼amd 英偉達顯卡跑分低
【CNMO】在顯卡市場，AMD與英偉達是目前主要的兩家高性能GPU供應商，其中英偉達更為強勢，不論遊戲卡還是加速卡市場上都具有壟斷性優勢，雖然AMD的顯卡性價比很高，但正面競争難度很大。AMD顯卡日前在高盛的技術大會上，AMD主管數據中心業... 2023-02-10
科技沃爾沃xc60到底值不值得購買
有人的地方就有江湖，有車的地方就有套路～現在想買車的朋友很容易被一些媒體的文章忽悠，因為你們人類的文章總帶有太強的主觀色彩。而我，AI車叔，将用“沒有人情味”的方式評測沃爾沃XC60，用大數據和事實說話，為廣大消費者們提供購車參考！沃爾沃X... 2023-02-12
科技上海二氧化碳氣體檢測儀工作原理
其實現在的很多人對于一氧化碳檢測儀都很熟悉，但是大家知道一氧化碳檢測儀的采樣方式嗎?小編告訴大家，采樣方式有兩種，分别是泵吸式檢測儀與擴散式檢測儀，我們具體來看看~一、泵吸式檢測儀儀器配置了一個小型氣泵，其工作方式是電源帶動氣泵對待測區域的... 2023-01-22
科技十種常用的數據分析思路
常用的數據分析方法有5種。1.對比分析法對比分析法指通過指标的對比來反映事物數量上的變化，屬于統計分析中常用的方法。常見的對比有橫向對比和縱向對比。橫向對比指的是不同事物在固定時間上的對比，例如，不同等級的用戶在同一時間購買商品的價格對比，... 2022-12-09
科技歐陽娜娜的vlog是用什麼軟件拍的
vlog是近幾年很熱門的記錄生活的方式，一提到vlog，最火的就屬歐陽娜娜的了，她經常用vlog分享自己留學的日常生活，真實不做作的元氣少女模樣圈粉無數。當然除了vlog之外，也有很多人用短視頻的方式去記錄生活中的精彩并分享到到朋友圈、抖音... 2023-03-26
科技電腦藍屏代碼大全解析及解決辦法
電腦出現藍屏問題大家是不是無從下手，其實問題所在是非常簡單，想解決問題，你必須先找到問題，今天分享幾個大部分常見的代碼錯誤問題。1.0x0000000A此問題百分之八十是驅動沖突,顯卡和芯片組的問題偏多,如果出現這個藍屏代碼,建議進安全模式... 2022-12-20
科技手機屏幕壞了怎麼修理費用多少
廈門晚報訊(記者肖家豪)市民張先生報料稱，他的華為手機今年3月手機屏幕壞了，免費換了一個手機屏幕。8月下旬，這個手機屏幕又壞了，再次上門維修被告知要再換一個手機屏幕，不過這次超出了保修期，需要花費600多元。張先生質疑:“雖然手機過了保修期... 2022-11-30
科技移動手機卡0月租卡
移動手機卡0月租卡?以前出門，心中默念“錢包、鑰匙、身份證”三件套是否都帶好，在科技發達的今天，出門隻需一張“特殊”功能的手機卡就能全部搞定，今天小編就來聊一聊關于移動手機卡0月租卡?接下來我們就一起去研究一下吧!移動手機卡0月租卡以前出門... 2023-02-26
科技 excel如何删除沒有數據的行
先說一個場景：篩選狀态下删除部分數據，當表中的數據量非常大的時候，這将會是一個非常痛苦的經曆。有時候會直接卡死，相信部分小夥伴們已經遇到過這種情況。類似這樣，比如我要删除“男裝”這個類目。解決方法：我們注意到“男裝”的序号不是連續的，如下圖... 2023-02-23
科技觸摸屏軟件源碼
觸摸查詢系統的優點是品牌形象，速度快，美觀大方，可擴展性強，互動性強，能夠在公共場合實現服務大廳、服務窗口、相關法律法規推送、信息動态發布。觸摸查詢系統選用觸摸終端設備，整體設計管理後台，便于後台管理人員維護，人員隻要有文字輸入能力，不需要... 2023-01-01
科技蘋果a12z芯片和酷睿i5哪個好
IT之家8月18日消息A14XBionic将搭載在升級版的iPadPro機型中，新的芯片預計将在台積電的5nm節點上制造，很可能會帶來新的性能和效率數據。就在最近，YouTuberLukeMiami提供了一些有趣的洩露數據，其中談到了A14... 2022-12-31
科技深圳潮流實體店
1月7日，以潮流電玩影音為主題的“潮流科技無人店”在香港觀塘apm商場開業，該無人店面積約1000平方呎，設有潮流電玩影音、賀年潮貨、自助卡拉OK等主題區，顧客在無人店内選購商品後隻需站在出口處的“感應結算區域”，系統會自動識别商品，然後用... 2023-03-07

tft每日頭條

> 科技

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

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

相关科技资讯推荐

热门科技资讯推荐

网友关注