稀有超大罩杯胖臀外站国人主播超清画质玩某处放飞自我跳大摆锤Yana_cc
在视频中,Yana_cc穿着性感的衣服,给观众们带来了精彩的视觉盛宴,让人们惊叹不已。...
2024-10-09
一说到数学方程,很多人就会马上联想到mathematica、MATLAB、mathCAD、maple等专业的数学软件,确实这四个软件是在科技和工程界上比较流行和著名,它们在各自针对的目标领域都有不同的特色。要是设计到专业的数学领域的问题当然就要用他们来解决,但是有时候我们的需求就只是想看看这个数学方程式的图像,这个时候就没有必要费力去安装破解体积这么庞大的软件,其实我们日常使用的Excel就能够担当大任!下面就来详细讲解一下作图思路和具体步骤:
先看一下最终的效果演示:
最终效果演示
新建一个工作表,命名为方程式和作图数据,并按如图所示填好相应的内容:
方程式表内容及参数填写
作图数据表格内容填写
打开VBE编辑器(Alt+F11),或则在功能区打开,如下图所示:
打开VBE编辑器
插入一个模块,如下图所示:
插入一个模块
双击插入的模块(默认名称为:模块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轴范围时点击作图按钮,只是改变方程时点击刷新按钮!!!
注意事项
以上内容就是为大家推荐的excel画函数图像求表达式(函数图像生成器app)最佳回答,如果还想搜索其他问题,请收藏本网站或点击搜索更多问题
内容来源于网络仅供参考版权声明:所有来源标注为小樱知识网www.cnfyy.com的内容版权均为本站所有,若您需要引用、转载,只需要注明来源及原文链接即可。
本文标题:excel画函数图像求表达式(函数图像生成器app)
本文地址:https://www.cnfyy.com/shcs/119359.html
相关文章
在FC2上,有一位名叫希娜的新人正式加入了第一战的行列...
2024-09-11
热点文章
2021年独生子女补贴新政策是真的吗(独生子女证有有效期吗)
2021年国庆节阅兵仪式几点开始几点结束(2021年国庆节还有阅兵吗)
鼠目寸光一点红是什么生肖动物(鼠目寸光一点红)指什么生肖,紧密
k0到k9的玩法大全(强制gc的玩法和注意事项)
入土为安是什么生肖《入土为安》打一个生肖动物,词语解释
浙江12月底全面停工是真的吗(浙江什么时候放假停工)
如何做t(t怎么把p做哭)
北京口碑最差的三甲医院(北京301医院最擅长什么)