首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

请大家伙儿帮助解读一段代码

2013-09-15 
请大家帮助解读一段代码下面是等分圆的划线的代码片段,请问它的算法以及语句Angle i * 2 * Atan(1)/3的

请大家帮助解读一段代码
下面是等分圆的划线的代码片段,请问它的算法以及语句Angle = i * 2 * Atan(1)/3的作用?


  '创建Pen对象
        'Dim StartPoint(23), EndPoint(23), OriginPoint As PointF
        Dim StartPoint, EndPoint, OriginPoint As PointF

        '定义刻度的起点和终点,坐标原点
        OriginPoint.X = 100
        OriginPoint.Y = 70
        '设置坐标原点
        Dim TmLong As Double = 70
        '刻度的比例长度
        Dim Angle As Double
        '刻度之间的角度
        Dim i As Integer
        For i = 0 To 11
            Angle = i * 2 * Atan(1) / 3

            '设置刻度起点和终点的坐标
            StartPoint.X = 0.8 * TmLong * Cos(Angle) + OriginPoint.X
            StartPoint.Y = 0.8 * TmLong * Sin(Angle) + OriginPoint.Y
            EndPoint.X = TmLong * Cos(Angle) + OriginPoint.X
            EndPoint.Y = TmLong * Sin(Angle) + OriginPoint.Y
            '绘制刻度
             g.DrawLine(LbPen, StartPoint, EndPoint)
        Next
   
[解决办法]
不解释,高中平面几何+三角函数

如果看不懂,请先不要看代码,请用你高中的知识用纸和笔去解。你解出来了,反应成代码,就是这玩意
------解决方案--------------------


arc tan,根据直角三角形两直角边求角度。

热点排行