方程代码怎么写（vb 已知两点求直线方程,要求y=kx+b形式,代码怎么写啊）

本文目录

• vb 已知两点求直线方程,要求y=kx+b形式,代码怎么写啊
• 求“一元二次方程”程序代码
• 使用步长0.01用有限差分法求解常微分方程的代码怎么写（最好matlab）
• “求一元二次方程的根”的vb代码怎么写，跪求
• 请问各位，用MATLAB为这个方程如何编代码
• VB 大神进，关于解方程的代码
• MATLAB当中怎么用牛顿法解方程，比如：x*exp（x）-1=0这个方程，代码怎么编写那位高手帮我一下，谢谢
• 如何写一元二次方程公式法计算机代码
• 怎样用c++编二元一次方程，代码是什么

vb 已知两点求直线方程,要求y=kx+b形式,代码怎么写啊

 代码如下，程序见附件，若满意请及时采纳，谢谢

Private Sub Command1_Click()

X1 = Val(Text2)

Y1 = Val(Text3)

X2 = Val(Text4)

Y2 = Val(Text5)

If X2 《》 X1 Then

    k = (Y2 - Y1) / (X2 - X1)

    b = (Y1 * X2 - X1 * Y2) / (X2 - X1)

    If b 》 0 Then d = "+" & Str(b) Else d = Str(b)

    If k = 1 And b = 0 Then

    Text1 = "y=x"

    ElseIf k = 1 Then

     Text1 = "y=" & "x" & d

    ElseIf b = 0 Then

    Text1 = "y=" & k & "x"

    Else

     Text1 = "y=" & k & "x" & d

    End If

Else

    Text1 = "y=" & X1

End If

End Sub

求“一元二次方程”程序代码

Private Sub Form_Load()
Dim a, b, c, x, y
a = InputBox("a", , 2)
b = InputBox("b", , 4)
c = InputBox("c", , 1)

If b ^ 2 - 4 * a * c 《 0 Then
MsgBox "无解"
Else
x = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "解得：" & x & "，" & y
End If
End Sub

使用步长0.01用有限差分法求解常微分方程的代码怎么写（最好matlab）

使用matlab软件，用有限差分法求解常微分方程 d^2y/ dx^2-2(9x+2)y=-2(9x+2)*e^x ,y(0)=0,y(1)=1，其步长0.01。求解该方程可以按照下列思路来编写代码：

首先，将x的区间【0，1】分成若干份，设定步长h=0.01，分点x0=0，x1=a+h，。。。，xk=a+kh，。。。，xn=b

其二，根据迭代式y(i+1)-(2+q(x(i))*h^2)*y(i)+y(i-1)=f(x(i))*h^2,b(i)=h^2*f(x(i)),其中，d(1)=h^2*f(x(1))-a，d(N)=h^2*f(x(N-1))-b，写出差分线性方程组,【A】*【y】=【d】

其三，用消元法，迭代法或追赶法，求解y(i)值

其四，用plot函数绘出y(x)的曲线图

运行代码可以得到如下结果。代码可以提供。

“求一元二次方程的根”的vb代码怎么写，跪求

Private Sub Command1_Click()
GetX 1, 2, 1
End Sub
’============求一元二次方程的根================
Sub GetX(a As Double, b As Double, c As Double)
Dim d As Double
d = b ^ 2 - 4 * a * c
If d 》 0 Then
MsgBox "次方程有两个根：" & vbCrLf & "x1=" & (-b + d) / (2 * a) & vbCrLf & "x2=" & (-b - d) / (2 * a)
ElseIf d = 0 Then
MsgBox "次方程有两个相等的根：" & vbCrLf & "x1=x2=" & (-b) / (2 * a)
Else
MsgBox "次方程无解！"
End If
End Sub

请问各位，用MATLAB为这个方程如何编代码

clc;clear
R=1000000;d0=125/3400000;
S=58.0644*10^(-4);
A=10*10^(-6);
B=8.854187817*10^(-12);
a=1;
tt=(0:1:100)*1e-11;    II=zeros(size(tt));
funct=@(z)exp(1/R/S/B*(d0.*z+1/6*a*z.^3));
for i=1:length(tt)
    t=tt(i);
    II(i)=-A*d0/R/B+A*(d0+0.5*a*t^2)/R/B*exp(-1/R/S/B*(d0*t+1/6*a*t^3))+...
        A*d0/R/B*(d0+0.5*a*t^2)/R/S/B*exp(-1/R/S/B*(d0*t+1/6*a*t^3))*...
        integral(funct,0,t);
end
plot(tt,II)
xlabel(’t’,’fontsize’,22)
ylabel(’Int’,’fontsize’,22)
grid on

VB 大神进，关于解方程的代码

Dim N As Integer
Dim A() As Single
Dim B() As Single
Dim C() As Single
Dim Str1 As String
Dim I As Integer, J As Integer, K As Integer
Private Sub Form_Click()
Form1.Cls
Randomize
Str1 = InputBox("阶数（未知数的个数）N＝", "输入", 4)
If Str1 = "" Or Not IsNumeric(Str1) Then Exit Sub
N = Int(Val(Str1))
ReDim A(N, N), B(N, N), C(N)
If N = 4 Then
A(1, 1) = 81
A(1, 2) = -36
A(1, 3) = 27
A(1, 4) = -18
A(1, 0) = 252
A(2, 2) = 100
A(2, 3) = -50
A(2, 4) = 60
A(2, 0) = 260
A(3, 3) = 64
A(3, 4) = -8
A(3, 0) = 120
A(4, 4) = 49
A(4, 0) = 49
Else
For I = 1 To N
For J = 0 To N
A(I, J) = Int(Rnd * 200 - 100)
Next
Next
End If
Print "输入的方程组("; N; "阶)："
For I = 1 To N
Print Space(6 * (I - 1));
For J = I To N + 1
If J = N + 1 Then
Str1 = InputBox("请输入第" & I & "个方程的常数项", "输入", A(I, 0))
Else
Str1 = InputBox("请输入第" & I & "个方程的 X" & J & "的系数", "输入", A(I, J))
End If
If Str1 = "" Or Not IsNumeric(Str1) Then
J = J - 2
Else
If J = N + 1 Then
A(I, 0) = Int(Val(Str1))
Print "="; A(I, 0)
Else
A(I, J) = Int(Val(Str1))
If A(I, J) 》= 0 And J 《》 I Then Print "+";
Print Trim(Str(A(I, J))); "X"; Trim(Str(J)); " ";
End If
End If
Next
Next
Print "解为："
For I = 1 To N
For J = 0 To N
B(I, J) = A(I, J)
Next
Next
For I = N To 1 Step -1
For J = 0 To N
A(I, J) = A(I, J) / A(I, I)
Next
If I 》 1 Then
For J = 1 To I - 1
For K = 0 To N
A(J, K) = A(J, K) - A(J, I) * A(I, K)
Next
Next
End If
Next
For I = N To 1 Step -1
Print "X("; Trim(Str(I)); ")="; Round(A(I, 0), 2); Space(1);
Next
Print
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Print "解n元一次方程组（为简单的倒三角方程）"
Form1.Print "单击窗口开始......"
End Sub

MATLAB当中怎么用牛顿法解方程，比如：x*exp（x）-1=0这个方程，代码怎么编写那位高手帮我一下，谢谢

#include《stdio.h》
#include《math.h》
#define f(x) (x*exp(x)-1=0) /*宏定义此方程*/
#define f_(x) (exp(x)+x*exp’(x)=0) /*f(x)求导*/
void main()
{
float eps,x; /*定义两个变量：误差为eps及初值x*/
printf("请输入误差限:\n");
scanf("%f",&eps);
printf("请输入初值:\n");
scanf("%f",&x);
while(fabs(f(x))》eps) /*计算导数与方程的差值并与误差比较*/
x=x-f(x)/f_(x);
printf("该方程的一个根是%f!\n",x);

如何写一元二次方程公式法计算机代码

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, x1 As Single, x2 As Single, delta As Single, sqrdelta As Single
Do
a = Val(InputBox("请输入二次项系数"))
If a = 0 Then
MsgBox "二次想系数不得为零！"
Else
Exit Do
End If
Loop
b = Val(InputBox("请输入一次项系数"))
c = Val(InputBox("请输入常数项"))
delta = b * b - 4 * a * c
If delta 《 0 Then
Print "判别式小于零，有两个虚根："
sqrdelta = Sqr(-delta)/2/a
Print "X1="; -b / 2 / a; "+"; sqrdelta; "i"
Print "X2="; -b / 2 / a; "-"; sqrdelta; "i"
ElseIf delta = 0 Then
Print "判别式等于零，有一个实根："
Print "X="; -b / 2 / a
Else
Print "判别式大于零，有两个实根："
sqrdelta = Sqr(delta)/2/a
Print "X1="; -b / 2 / a + sqrdelta
Print "X2="; -b / 2 / a - sqrdelta
End If
End Sub

怎样用c++编二元一次方程，代码是什么

#include《iostream》
#include《cmath》
using namespace std;
int main()
{
long double a,b,c,x1,x2;
cout《《"a*x^2+b*x+c=0中的系数"《《endl;
cout《《"a:"《《endl;
cin》》a;
cout《《"b:"《《endl;
cin》》b;
cout《《"c:"《《endl;
cin》》c;
if(b*b《4*a*c)//判断方程是否无解
cout《《"此方程无解"《《endl;
else//有解的话，进行求解
{
x1=(-b+sqrt(b*b-4*a*c))/(2*a);
x2=(-b-sqrt(b*b-4*a*c))/(2*a);
if(x1==x2)
cout《《"方程有两个相同的解："《《x1《《endl;
else
cout《《"方程有两个不同的解："《《"x1="《《x1《《’ ’《《"x2="《《x2《《endl;
}
return 0;

}