User:Klever: Difference between revisions
Content added Content deleted
(→VBA Examples: look-and-say sequence) |
(Horner's rule) |
||
Line 15: | Line 15: | ||
In MS Office program (Word, Excel, Access...): open the Visual Basic window. Paste the code in a module. Execute it by typing a suitable command in the Immediate Window. Output will be directed to the Immediate Window unless stated otherwise... |
In MS Office program (Word, Excel, Access...): open the Visual Basic window. Paste the code in a module. Execute it by typing a suitable command in the Immediate Window. Output will be directed to the Immediate Window unless stated otherwise... |
||
==[[Horner's rule for polynomial evaluation]]== |
|||
Note: this function Horner gets its coefficients in a ParamArray which has no specified length. You must specify x before the arguments. |
|||
<lang> |
|||
Public Function Horner(x, ParamArray coeff()) |
|||
Dim result As Double |
|||
Dim ncoeff As Integer |
|||
result = 0 |
|||
ncoeff = UBound(coeff()) |
|||
For i = ncoeff To 0 Step -1 |
|||
result = (result * x) + coeff(i) |
|||
Next i |
|||
Horner = result |
|||
End Function |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
print Horner2(3, -19, 7, -4, 6) |
|||
128 |
|||
</pre> |
|||
==[[Look-and-say sequence]]== |
==[[Look-and-say sequence]]== |