c语言解三元一次方程,用VB编程序函数解三元一次方程组（在线等。。特急！！！QQ396872404）如能解决，另加50财富...

满意答案

hyvong166

2014.11.15

采纳率：53%    等级：8

已帮助：111人

先解出三元一次方程，利用x、y、z得到a、b、c的表达式，再编程验证：

ModuleModule1

SubMain()

Dimx1,x2,x3,y1,y2,y3,z1,z2,z3,a,b,cAsDouble

x1=1

x2=-1

x3=-1

y1=-1

y2=-1

y3=1

z1=-1

z2=1

z3=-1

a=0

b=0

c=0

Fangchengzu(x1,y1,z1,x2,y2,z2,x3,y3,z3,a,b,c)

System.Console.WriteLine("a="&a)

System.Console.WriteLine("b="&b)

System.Console.WriteLine("c="&c)

EndSub

PublicFunctionFangchengzu(ByValx1AsDouble,ByValy1AsDouble,ByValz1AsDouble,ByValx2AsDouble,ByValy2AsDouble,ByValz2AsDouble,ByValx3AsDouble,ByValy3AsDouble,ByValz3AsDouble,ByRefAAsDouble,ByRefBAsDouble,ByRefCAsDouble)AsBoolean

C=((x3-x2)*(x2*y1-x1*y2)-(x2-x1)*(x3*y2-x2*y3))/((x2*z1-x1*z2)*(x3*y2-x2*y3)-(x3*z2-x2*z3)*(x2*y1-x1*y2))

B=((x2-x1)+C*(x2*z1-x1*z2))/(x1*y2-x2*y1)

A=(-1-B*y1-C*z1)/x1

ReturnTrue

EndFunction

EndModule

00分享举报