知识大全如何用vb画出简易函式影象

Posted 2022-07-02 影象

篇首语：笛里谁知壮士心，沙头空照征人骨。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何用vb画出简易函式影象相关的知识，希望对你有一定的参考价值。

如何用vb画出简易函式影象

用vb画出简易函式影象的操作步骤为：
（1）新建一个工程,新建一个Form1,在上面新增一个picture控制元件和一个mand控制元件；
（2）选中此控制元件,右击"复制",在窗体空白处右击"贴上",在弹出的对话方块中选择"是",建立了一个Command控制元件阵列,复制,使窗体上总共出现7个Command控制元件；
（3）复制程式码:
Const Pi = 3.1415926535 \'定义圆周率
Dim a, wor
Dim i As Integer
Static Function Loge(X)
Loge = Log(X) / Log(Exp(1))
End Function
\'定义用于在Picture1上的一个位置列印字元函式
Private Function PrintWord(X, y, Word As String)
With Picture1
.CurrentX = X
.CurrentY = y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY() \'建立直角座标系
Picture1.DrawWidth = 1 \'设定线条宽度
Picture1.Cls
\'设定使用者座标系，座标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)
Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"
\'画 X 轴
Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)
Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)
Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)
Picture1.Print "Y"
\'画 Y 轴
For lin = -9 To 9
Picture1.Line (lin, 0)-(lin, 0.25)
wor = PrintWord(lin - 0.5, -0.5, Str(lin))
Picture1.Line (0, lin)-(-0.25, lin)
If lin <> 0 Then
wor = PrintWord(-0.9, lin, Str(lin))
End If
Next lin
Picture1.DrawWidth = 2
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
For a = -3 To 3 Step Pi / 6000
Dot = DrawDot(a, a ^ 2, RGB(0, 0, 0))
Next a
wor = PrintWord(4, 9, "二次曲线 y=x^2")
Case 1
For a = -9 To 9 Step Pi / 6000
Dot = DrawDot(a, a, RGB(0, 0, 0))
Next a
wor = PrintWord(8, 5, "一次曲线 y=x")
Case 2
For a = -9 To 3 Step Pi / 6000
Dot = DrawDot(a, Exp(a), RGB(0, 0, 0))
Next a
wor = PrintWord(4, 9, "指数曲线 y=e^x")
Case 3
For a = 0.0001 To 9 Step Pi / 6000
Dot = DrawDot(a, Loge(a), RGB(0, 0, 0))
Next a
wor = PrintWord(8, 3, "对数曲线 y=ln x")
Case 4
For a = -10 To 10 Step Pi / 6000
Dot = DrawDot(a, Sin(a), RGB(0, 0, 0))
Next a
wor = PrintWord(-5, 2, "正弦曲线 y=sin x")
Case 5
For a = -10 To 10 Step Pi / 6000
Dot = DrawDot(a, Cos(a), RGB(0, 0, 0))
Next a
wor = PrintWord(-9, 2, "余弦曲线 y=cos x")
Case 6
XY
End Select
End Sub
Private Sub Form_Load()
Me.Caption = "数学函式作图?quot;"
Me.Show
Me.AutoRedraw = True
Picture1.AutoRedraw = True
Command1(0).Caption = "二次曲线"
Command1(1).Caption = "一次曲线"
Command1(2).Caption = "指数曲线"
Command1(3).Caption = "对数曲线"
Command1(4).Caption = "正弦曲线"
Command1(5).Caption = "余弦曲线"
Command1(6).Caption = "清空"
XY
End Sub
Private Sub Form_Resize()
Picture1.Width = Me.Width * 0.94
Picture1.Height = Me.Height - (Command1(0).Height * 4 + 100)
Command1(0).Top = Me.Height - (Command1(0).Height * 2.5 + 100)
Command1(0).Left = Me.Width * 0.01
For i = 1 To 6
Command1(i).Top = Me.Height - (Command1(0).Height * 2.5 + 100)
Command1(i).Left = Command1(i - 1).Left + 1000
Next
XY
End Sub

如何用VB画出二次函式影象和波长影象

在窗体上放置一个名为 PicDraw 的图片框，两个按钮，分别命名为 CmdDrawQuad 与 CmdDrawWave，全部程式码如下[Visual Basic 6.0]：
Option Explicit
\'宣告平面直角座标系的左上角、右下角的座标
Const sngCrdL_X As Single = -50
Const sngCrdL_Y As Single = 100
Const sngCrdR_X As Single = 100
Const sngCrdR_Y As Single = -50
\'宣告二次函式的解析式（Y = AX^2 + BX + C）
Const sngA As Single = 1 / 5
Const sngB As Single = 0
Const sngC As Single = 10
\'================================
\'计算 PI
\'================================
Property Get PI() As Single
PI = Atn(1) * 4
End Property
\'================================
\'计算一次/二次函式
\'================================
Function CalculateFunction(X As Single, Optional A As Single, Optional B As Single, Optional C As Single) As Single
CalculateFunction = A * X ^ 2 + B * X + C
End Function
\'================================
\'计算波
\'Swin 振幅
\'PeriodsDistance 每一个周期的长度
\'================================
Function CalculateWave(X As Single, Swin As Single, PeriodsDistance As Single) As Single
CalculateWave = Sin(X / PeriodsDistance * PI * 2) * Swin
End Function
\'================================
\'准备平面直角座标系
\'================================
Sub Prepare()
Dim X As Long, Y As Long
PicDraw.Cls \'清空图片框
PicDraw.Scale (sngCrdL_X, sngCrdL_Y)-(sngCrdR_X, sngCrdR_Y) \'设定座标
PicDraw.Line (sngCrdL_X, 0)-(sngCrdR_X, 0), vbBlue \'绘制 X 轴
PicDraw.Line (0, sngCrdL_Y)-(0, sngCrdR_Y), vbBlue \'绘制 Y 轴
For X = sngCrdL_X To sngCrdR_X
For Y = sngCrdR_Y To sngCrdL_Y
PicDraw.PSet (X, Y), vbCyan \'绘制网格
Next Y
Next X
End Sub
Private Sub CmdDrawQuad_Click()
Prepare
Dim sngX As Single, sngY As Single
Dim LastX As Single, LastY As Single
Dim bDrawing As Boolean
For sngX = sngCrdL_X To sngCrdR_X Step 0.5
LastY = sngY
sngY = CalculateFunction(sngX, sngA, sngB, sngC) \'计算与X座标所对应的Y座标
If bDrawing Then
PicDraw.Line (LastX, LastY)-(sngX, sngY) \'绘制线段
End If
LastX = sngX
bDrawing = True
Next sngX
End Sub
Private Sub CmdDrawWave_Click()
Prepare
Dim sngX As Single, sngY As Single
Dim LastX As Single, LastY As Single
Dim bDrawing As Boolean
For sngX = sngCrdL_X To sngCrdR_X Step 0.5
LastY = sngY
sngY = CalculateWave(sngX, 50, 50) \'计算与X座标所对应的Y座标
If bDrawing Then
PicDraw.Line (LastX, LastY)-(sngX, sngY) \'绘制线段
End If
LastX = sngX
bDrawing = True
Next sngX
End Sub
宣告一点，由于知识水平原因，CalculateWave函式是我自己摸索出来的，如果有问题，请告知，谢谢！

如何用mathematica同时画出两个函式影象

Show[Plot[x^5, x, -10, 10], Plot[5^x, x, -10, 10]]

如何由原函式影象画出导函式影象,由导函式影象画出原函式影象

这个..
画出的影象其实也只能是草图而已..不可能得到精确的影象的
由原函式影象画出导函式影象：
先求导、再把导数影象画出来就好了
由导函式影象画出原函式影象：
那就要看导函式是正还是负了（Y轴）、正则原函式为增|负则为减
还有不明白的可以补充、我线上...

如何用MATLAB画函式影象

ezplot(\'x^3*y*(5+11*exp(-2*x/y))-10\');axis equal
ezplot(\'y^3*x*(5+11*exp(-2*y/x))-10\');axis equal

如何用matlab画出下面函式影象并取点

画图形用plot函式
取点用ginput函式去做
具体操作特别容易看一下matlab的任何参考书都可以编出来这个程式码，所以我就不在这里给你编程式码了

如何用matlab画二维函式影象

如果是初学，建议使用严格的数值绘图命令，在清楚函式定义域的前提下画图：
clear all;clc;
x=-3:0.01:3;
y=exp(x);
plot(x,y);grid on;
axis([-3,3,-2,6]);
-------------------------
log(x)这个函式，如果不限定定义域的话，会有复数解的。
clear all;clc;
x=0.02:0.01:4;
y=log(x);
plot(x,y);grid on;
axis([-1,4,-6,6]);

如何用excel画对数函式影象

用excel画对数函式影象方法详见：:jingyan.baidu./article/27fa7326e3f39546f8271f36.

知识大全 如何用vb画出简易函式影象