---

Sub Lab_6()
    Dim PI As Double, dFi As Double
    Dim a_from As Double, a_to As Double, a_step As Double
    Dim Fi_min As Double, Fi_max As Double
    Dim Fi As Double, r As Double, X As Double, Y As Double
    Dim a As Double, i As Integer, k As Integer

    PI = 3.1415
    dFi = PI / 36
    Fi_min = 0
    Fi_max = 2 * PI
    a_from = 60
    a_to = 0
    a_step = -20
    
    i = 1

    For a = a_from To a_to Step a_step
        For k = 0 To 72
            Fi = Fi_min + k * dFi
            r = Abs(20 + a * Abs((Cos(Fi)) ^ 2 - (Sin(Fi)) ^ 2))
            X = r * Cos(Fi)
            Y = r * Sin(Fi)
            
            Cells(i, 1) = a
            Cells(i, 2) = Fi
            Cells(i, 3) = r
            Cells(i, 4) = X
            Cells(i, 5) = Y
            
            i = i + 1
        Next k
        i = i + 1
    Next a

    Call POLARN
End Sub

Sub POLARN()
    Range("D:E").Select
    ActiveSheet.Shapes.AddChart2(201, xlXYScatterSmooth, 240, 130).Select
    ActiveChart.SetSourceData Source:=Range("$D$1:$E$" & Cells(Rows.Count, 4).End(xlUp).Row)
End Sub