Anonymous user
Shoelace formula for polygonal area: Difference between revisions
m
→{{header|Visual Basic}}: small simplification
(Add min) |
m (→{{header|Visual Basic}}: small simplification) |
||
Line 1,277:
Public Function ShoelaceArea(x() As Double, y() As Double) As Double
Dim i As Long, j As Long
Dim Area As Double
For
j = i
Next i
▲ Area = Area + (y(i - 1) + y(0)) * (x(i - 1) - x(0))
ShoelaceArea = Abs(Area) / 2
End Function
|