AutoIt 簡易微分計算 演示

rictirse

1. Dim $h
   
2. Dim $x
   
3. Dim $derivatives ; 微分結果
   
4. 
   
5. $x = 2.0
   
6. $h = 1E-1
   
7.         ;
   
8.         ;求 func'(x) , x = 2.0 之值, 正解 = 6x = 12.0
   
9.         ;
   
10. 
    
11. While True
    
12.         If $h < 1E-10 Then ExitLoop
    
13.         $h *= 0.1
    
14. 
    
15.         ;
    
16.         ;微分定義 :
    
17.         ;
    
18.         ; f ' (x) = lim    f(x+h) - f(x)
    
19. 
    
20.         ;---------------------
    
21.         ; h->0         h
    
22. 
    
23.         $derivatives = ( _dc($x+$h) - _dc($x)) / $h
    
24.         ConsoleWrite ( StringFormat (" h = %e , f'(2.0) = %lf\n", $h, $derivatives))
    
25. WEnd
    
26. 
    
27. Func _dc($x)
    
28.         $x = 3.0*$x*$x ; 3x^2
    
29.         Return $x
    
30. EndFunc

複製代碼