Excel Optical Illusions #4

@MikeD-

Thanks for commenting!

I certainly do. It would be insane to enter that many formulas and chart series by hand. Here is the VBA I used to do that (note that it takes a few minutes to run, but you can see all of the progress on the chart as it is happening):

Public Sub AddFormulasAndSeries()

    Dim swaths As Long

    Dim veins As Long

    Dim j As Long, k As Long

    

    swaths = 20

    veins = 6

    

    Sheet1.ChartObjects(1).Activate

    Application.Calculation = xlCalculationManual

    With ThisWorkbook.Names

        For k = 0 To swaths - 1

            For j = 0 To veins - 1

                .Add Name:="_" & Format(k, "00") & j & "x", RefersTo:=Array(1)

                .Add Name:="_" & Format(k, "00") & j & "y", RefersTo:=Array(1)

                .Add Name:="_" & Format(k, "00") & j & "xr", RefersTo:=Array(1)

                DoEvents: DoEvents

            Next j

        Next k

    End With

    For k = 0 To swaths - 1

        For j = 0 To veins - 1

            With ActiveChart.SeriesCollection.NewSeries

                .Name = Format(k, "00") & j

                .XValues = "1!_" & Format(k, "00") & j & "x"

                .Values = "1!_" & Format(k, "00") & j & "y"

                .Border.Color = RGB(255, 159, 128)

                .Border.Weight = xlMedium

            End With

            DoEvents: DoEvents

        Next j

        For j = 0 To veins - 1

            With ActiveChart.SeriesCollection.NewSeries

                .XValues = "1!_" & Format(swaths - 1 - k, "00") & j & "xr"

                .Values = "1!_" & Format(swaths - 1 - k, "00") & j & "y"

                .Border.Color = RGB(255, 159, 128)

                .Border.Weight = xlMedium

            End With

            DoEvents: DoEvents

        Next j

    Next k

    For k = 0 To swaths - 1

        For j = 0 To veins - 1

            ThisWorkbook.Names.Add Name:="_" & Format(k, "00") & j & "x", RefersTo:= _

              "=COS(k*" & k & ")*COS(j*" & j & ")*(a*b^t*COS(t) - a*b^t*SIN(t)*SIN(j*" & j & ")) - (COS(j*" & j & ")*a*b^t*SIN(t) + a*b^t*COS(t)*SIN(j*" & j & "))*SIN(k*" & k & ")"

                  

            ThisWorkbook.Names.Add Name:="_" & Format(k, "00") & j & "y", RefersTo:= _

              "=COS(k*" & k & ")*(COS(j*" & j & ")*a*b^t*SIN(t) + a*b^t*COS(t)*SIN(j*" & j & ")) + (COS(j*" & j & ")*a*b^t*COS(t) - a*b^t*SIN(t)*SIN(j*" & j & "))*SIN(k*" & k & ")"

            

            ThisWorkbook.Names.Add Name:="_" & Format(k, "00") & j & "xr", RefersTo:= _

              "=-(COS(k*" & k & ")*COS(j*" & j & ")*(a*b^t*COS(t) - a*b^t*SIN(t)*SIN(j*" & j & ")) - (COS(j*" & j & ")*a*b^t*SIN(t) + a*b^t*COS(t)*SIN(j*" & j & "))*SIN(k*" & k & "))"

                

            DoEvents: DoEvents

        Next j

    Next k

    Application.Calculation = xlCalculationAutomatic

End Sub

Regards,
Daniel Ferry
excelhero.com/blog

Daniel, thanks for your reply but I can't read them! There are no comments available at http://www.excelhero.com/blog/2010/03/excel-optical-illusions-4.html - the header says "0 Comments".

However ,at http://www.excelhero.com/blog/2010/03/ the header says "3 Comments".

I've tried IE and Firefox.