Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
Private Function GetAngularCoefficient(ByVal segment As PointF()) As Single
If segment.Length <> 2 Then Throw New ArgumentException("Parameter must be of 2 items", "segment")
Dim U As PointF = segment(0)
Dim V As PointF = segment(1)
Dim angle As Double = GetAngularCoefficientRads(U, V)
If angle Mod Math.PI = Math.PI / 2D Then Return Single.PositiveInfinity
If angle Mod Math.PI = -Math.PI / 2D Then Return Single.NegativeInfinity
Return CSng(Math.Tan(angle))
End Function
If you are experiencing a similar issue, please ask a related question
Title | # Comments | Views | Activity |
---|---|---|---|
Not able to call Delphi XE10 dll function from Delphi 6.0 | 4 | 26 | |
cannot connect to sqlserver | 8 | 27 | |
Slow Restore if incremental backups using RDiff.exe | 4 | 18 | |
Convert datetime to time string | 10 | 20 |
Join the community of 500,000 technology professionals and ask your questions.