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

满意答案

02ae427d08e371d7e90d5b995e828d6d.png

hyvong166

2014.11.15

02ae427d08e371d7e90d5b995e828d6d.png

采纳率: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分享举报

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值