Question

关于如何用电脑解方程的问题

用c或者vb编程，弄一个通用的程序出来（例如在文本框输入一个方程：x+3=4，然后通过电脑结出来），会不会很复杂？
还有，现在网上有类似的软件了吗？
要求对输入格式没有限制，方程可以任意输入。
像tdtx2006说的那种就属于有限制了。

Answer 1

电脑的起源就是为了解方程而设计出来的机器，解方程对于它来说是本行。具体方法有：

1. 编程法，使用编程语言来解决数学方程，常用的语言有C，BASIC以及特别擅长计算的Fortran。

2. 软件法，比较专业的有Matlab，Mathematica，它们可以解非常复杂的矩阵方程以及函数方程。比较不专业的有SPSS,Excel。其中Excel的方程功能隐藏在模拟分析功能下的“目标搜寻”里面，但它只能解一些简单的方程。

3. 网络法，很多网页上也提供在线解方程的功能，当然一般也比较简单。其实各大网络引擎，比如谷歌，百度，也内置解简单方程的功能。
   

Answer 2

解一元二次方程
Private Sub command1_click()
Dim a As Single, b As Single, c As Single
Dim D As Single, X1 As Single, X2 As Single
Dim R As Single, P As Single
a = Val(Text1.Text) '取数据a
b = Val(Text2.Text) '取数据b
c = Val(Text3.Text) '取数据c
If a = 0 Then '当a=0
Text4.Text = "不是二次方程"
Text5.Text = "不是二次方程"
Else 'a<>0
D = b * b - 4 * a * c
R = -b / (2 * a)
If D = 0 Then 'D=0
Text4.Text = R
Text5.Text = R
ElseIf D > 0 Then 'D>0
X1 = (-b + Sqr(D)) / (2 * a)
X2 = (-b - Sqr(D)) / (2 * a)
Text4.Text = X1
Text5.Text = X2
Else 'D<0
P = Sqr(-D) / (2 * a)
Text4.Text = R & "+" & P & "i"
Text5.Text = R & "-" & P & "i"
End If
End If
End Sub

Answer 3

解矩阵方程就可以了。
具体用matlab实现较容易

Answer 4

解矩阵方程就可以了。
具体用matlab实现较容易