满意答案
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分享举报