请教一个函数求反函数的问题

qddmar

函数的型式大概为STRAIN=0.0.0085*N^-0.3+0.0872*N^-0.4
现在我已知STRAIN的值，想求N的值，如何做

香川群子

1. Function fuc(x) '此为计算函数
   
2.     fuc = 0.0085 * x ^ -0.3 + 0.0872 * x ^ -0.4
   
3. End Function
   
4. 
   
5. Function myGoalSeek(s) '此为反推函数
   
6.     '首先确定整数位的位数 即 0 或 10 或 100 或 100000
   
7.      For m = 0 To 10
   
8.         a = s + 10 ^ m
   
9.         t = fuc(a)
   
10.         If t < s Then Exit For
    
11.     Next
    
12.     a = 10 ^ (m - 1) + 10 ^ (m - 15)
    
13. 
    
14.     '如果首位>0则依次确定整数的其它各位数值
    
15.     For i = 1 To m
    
16.         For n = 1 To 9
    
17.             Mid(a, i, 1) = n
    
18.             t = fuc(a)
    
19.             If t < s Then Exit For
    
20.         Next
    
21.         Mid(a, i, 1) = n - 1
    
22.     Next
    
23.    
    
24.     '接下来确定小数部分各个数位的数值
    
25.     For i = m + 2 To 16
    
26.         For n = 1 To 9
    
27.             Mid(a, i, 1) = n
    
28.             t = fuc(a)
    
29.             If t < s Then Exit For
    
30.         Next
    
31.         Mid(a, i, 1) = n - 1
    
32.     Next
    
33.     myGoalSeek = a
    
34. End Function

复制代码

香川群子

如果目标值=10，则反推结果N=0.000007645273896

目标值	反推N值	计算验证
1000	.000000000072693	1000.002
100	.000000023410037	100
10	.000007645273896	10
1	.002558878527231	1
0.1	.893720706286584	0.1
0.01	335.589092057982	0.01
0.001	141937.665108564	0.001
0.0001	72177789.4820233	0.0001

663973866

香川群子 发表于 2014-12-12 12:04

群子老师，你的编程技术确实厉害。小弟可以跟您学吗

qddmar

香川群子 发表于 2014-12-12 12:05
如果目标值=10，则反推结果N=0.000007645273896

真心感谢您