Revision: 43815
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at March 31, 2011 08:00 by ram321
Initial Code
Private Function Slope(y1 As Double, y2 As Double, y3 As Double) As Double
Dim xm_x As Double
Dim xm_y As Double
Dim xm_xy As Double
Dim xm_x2 As Double
Dim x1 As Double, x2 As Double, x3 As Double
x1 = 1#
x2 = 2#
x3 = 3#
xm_xy = (x1 * y1 + x2 * y2 + x3 * y3) / 3#
xm_x = (x1 + x2 + x3) / 3#
xm_y = (y1 + y2 + y3) / 3#
xm_x2 = (x1 * x1 + x2 * x2 + x3 * x3) / 3#
Slope = (xm_xy - xm_x * xm_y) / (xm_x2 - xm_x * xm_x)
End Function
Initial URL
Initial Description
Initial Title
automated trading - code vba 2
Initial Tags
Initial Language
Visual Basic