VB解一元n次方程的程序3366.67.6732=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.

3366.67.6732=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.75
方程中是Q的0.25次方,以及后面一个括号的0.75次方.
用迭代法吧,
步骤一、令f(Q)=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.75－3366.67.6732
第一、Q的取值范围肯定得大于零,因为只有正数才有负0.25次方.
第二、f(Q)在0到正无穷的范围内不止一个值等于0,你不信的话可以对f(Q)求导.
第三、先取Q＝0.00001时,f(Q)=451.108543
第四、先取Q＝0.0001时,f(Q)=-844.1056416
这两个数之间其中一个大于0,另外一个小于0,则这两Q值的中间必然存在方程的解,所以再取Q＝两者的中间值,看是否大于0,然后再取中间值,如此迭代下去,基本就能求出Q使f(Q)=0,这就是方程的解.