十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用line命令!固定第一个座标位置,再用斜率计算第二点的座标位置!
创新互联公司为企业级客户提高一站式互联网+设计服务,主要包括成都网站建设、成都网站设计、手机APP定制开发、重庆小程序开发公司、宣传片制作、LOGO设计等,帮助客户快速提升营销能力和企业形象,创新互联各部门都有经验丰富的经验,可以确保每一个作品的质量和创作周期,同时每年都有很多新员工加入,为我们带来大量新的创意。
我来帮你好了,可以用VB编程来解决,至于专门的软件嘛,应该没有,这个功能只是一个小小的程序,我还没有发现有软件会实现这个功能
思路:
1、直线的斜率k可以求出
2、直线pq的斜率为直线斜率的倒数1/k
3、pq有点、有斜率,可以写出点斜式
4、求原直线与pq的交点(直线方程联立,即二元一次方程组)s
5、求出ps的横向或纵向距离,加倍,就是q
代码(文本框的名字分别为:x,y,a,b,c):
Private Sub Command1_Click()
If b = 0 Then
'竖线
label1= "Q(" -2 * c / a - x "," y ")"
ElseIf a = 0 Then
'横线
label1= "Q(" x "," -2 * c / b - y ")"
Else
'斜线
k = -a / b
b0 = -c / b
X1 = (y + x / k - b0) / (k + 1 / k) '垂足
Y1 = k * X1 + b0
label1= "Q(" 2 * X1 - x "," 2 * Y1 - y ")"
End If
End Sub
VB系统的坐标原点在左上角,X轴的正方向是水平向右,而Y轴的正方向是垂直向下。所以,要绘制三角函数的曲线,自己可以通过改变点坐标的方法来实现,当然,VB.NET提供了相应的方法可以来实现坐标变换,也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。
下面是我通过自己变换实现的示例,提供参考;我的环境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
'声明横向和纵向比例变量
Dim Heng As Integer = 20
Dim Zong As Integer = 50
'先获得正弦值,保存到点坐标数组
Dim MyPoints(700) As Point
Dim i As Integer
For i = 0 To 700
MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)
Next
'采用绘制光滑线连接点的方式绘制曲线
MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
显示的效果图:
知坐标(x0,y0)和斜率k
则有y0=kx0+b,= b=y0-kx0
所以 方程为 y=kx+(y0-kx0)
要在VB中画出方程图像来,就有点复杂了。以下是代码。部分代码参考网络。已经标注清楚
控件部分:三个文本,两个按键,一个picture,全部不改名。
文本1输入斜率,文本2输入X0,文本3输入Y0。按钮1作图。按钮2清空所作图形。保持坐标轴。如果对VB的坐标轴有疑问,请查阅百度或其它资料。
以下是全部代码:
Const Pi = 3.1415926535 '定义圆周率
Dim a, wor '定义用于在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
'以下坐标代码“借”自 《自己动手做一个数学函数作图器》
'出处:电脑爱好者 2004年02月14日 作者:陈新新 责任编辑:zwg
'
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 Command2_Click() '清空
XY
End Sub
Private Sub Form_Load()
Me.Show
Me.AutoRedraw = True
Picture1.BackColor = vbWhite
XY
End Sub
'以上代码摘自
Private Sub Form_Resize()
Picture1.Width = Me.Width * 0.9
Picture1.AutoRedraw = True
End Sub
Private Sub Command1_Click()
Dim x, y, x0, y0, k
Dim b
k = Val(Text1.Text)
y0 = Val(Text3.Text)
x0 = Val(Text2.Text)
b = y0 - k * x0
Dim fangq As String
fangq = "直线:y=" Str(k) "x"
If k = 0 Then fangq = "直线:y=" '对斜率为0的情况作出处理。
If b = 0 Then
fangq = fangq "+" Str(b)
Else
fangq = fangq Str(b)
End If
For x = -8 To 8 Step Pi / 6000 '作直线
Dot = DrawDot(x, k * x + b, RGB(255, 255, 0))
Next x
If Not k = 0 Then '输出名称
wor = PrintWord(-b / k - 2, 2, fangq)
Else
wor = PrintWord(5, b, fangq)
End If
End Sub
附运行图