How to Create a Lemniscate Spheroid Curve

The Tutorial

1. How to Create a Lemniscate Spheroid Curve Picture 1
   Open a new Excel workbook and create 4 worksheets: Data, Lemniscate, Chart and Saves. Save the workbook into a logical file folder.
2. Set Preferences. Open Preferences in the Excel menu. Recommended Settings: Set General to R1C1 Off and Show the 10 Most Recent Documents; Edit - set all the Top options to checked except Automatically Convert Date System. Display number of decimal places = blank (for integers preferred), Preserve display of dates and set 30 for 21st century cutoff; View - show Formula Bar and Status Bar, hover for comments and all of Objects, Show gridlines and all boxes below that auto or checked; Chart - show chart names and data markers on hover. Leave rest unchecked for now; Calculation -- Automatically and calculate before save, Limit iteration checked, max iterations 100, max change .000,000,000,000,01 w/o commas as this problem involves precise goal seeking and save external link values and use 1904 date system; Error checking - check all; Save - save preview picture with new files and Save Autorecover after 5 minutes; Ribbon -- all checked except Hide group titles and Developer.
3. Activate the Lemniscate worksheet and enter the row 1 headings for both types of lemniscates:

   1. Select row 1 and Format cells Font red, Underline Single, Alignment Horizontal Center.
   2. A1: x=sin(a*π)
   3. B1: y=mx+b
   4. C1: m ±180
   5. D1: b
   6. E1: Enter the formula w/o quotes, "=2880*.125"
   7. F1: x = r*cos øπ*adj (Use whatever symbol you can for angle theta, ø -- Option o is convenient on the Mac.)
   8. G1: y = r^2*sin 2øπ*adj
   9. H1: radius r
   10. I1: ø degrees
   11. J1: sin 2øπ*adj
4. Enter the formulas for each column of the slanted lemniscate, A:D and create a small chart.

   1. Edit Go To cell range A2:A361 and with A2 the active cell enter w/o quotes the formula "=SIN((ROW()-2)*PI()/180)" and Edit Fill Down.
   2. Edit Go To cell range B2:B361 and with B2 the active cell enter w/o quotes the formula "=(C2*A2)+D2" and Edit Fill Down.
   3. Select cell C2 and enter 1. Edit Go To cell range C3:C181 and with C3 the active cell enter w/o quotes the formula "=1+C2" and Edit Fill Down. Edit Go To cell range C182:C361 and with C182 the active cell enter w/o quotes the formula "=C181-1" and Edit Fill Down and Format Cells Font Color Red.
   4. Select cell D2 and enter 25, or another y-intercept of arbitrary choice. Format Cells Fill Yellow. Edit Go To cell range D3:D361 and with D3 the active cell enter the formula w/o quotes, "=D2" and Edit Fill Down.
   5. Edit Go To cell range A2:B361 and choose Charts from the Ribbon or use Chart Wizard and choose All/Other and scroll down and select Scatter Smoothed Line Scatter. A 45 degree or so slanted propeller blade lemniscate small chart should appear. Move it atop the data in columns A:E.
   6. Select cell E2 and enter the formula "=1/8" and Format Cells Number Number Custom "Adj "0.0000 with quotes, then Insert Name Define name Adj for cell $E$2 and Format Cells Fill Sky Blue and Border Black Bold Outline. (It belongs to the data at right or with both sets of data.)
      1. It is left up to the reader whether or not to Insert New Comment of the formulas just input. It is a good practice to do so.
5. Enter the formulas and create a small chart for the normal lemniscate of cell range F2:J2882;

   1. Edit Go To cell range F2:F2882 and with F2 active, input w/o quotes the formula, "=H2*COS(I2*PI()/180*Adj)" and Edit Fill Down and Insert New Comment "Original formula =H2*COS(I2*PI()/180*Adj)".
   2. Edit Go To cell range G2:G2882 and with G2 active, input w/o quotes the formula, "=(H2^2*Adj)*J2" and Edit Fill Down and Insert New Comment "Original formula =(H2^2*Adj)*J2"
   3. Select cell H2 and input w/o quotes the formula, "=Unadjusted_Radius" and Insert New Comment "Original formula =Unadjusted_Radius"; Activate the Chart worksheet and select cell J63 and enter Unadjusted Radius. Select cell J64 and enter "=VLOOKUP(Spheroids,LemniscateLooker,4)" and Format Cells Font Red Fill Sky Blue Border Black Bold Outline and Insert Name Define name Unadjusted_Radius for cell $J$64. Return to the Lemniscate worksheet and Edit Go To cell range H3:H2882 and with cell H3 active enter the formula w/o quotes "=H2" and Edit Fill Down.
      1. SPECIAL NOTE: The Unadjusted Radius needs to be adjusted depending upon how many spheroids are entered on the DATA worksheet. Overnight, a Lookup Table was constructed and developed into the formulation, i.e in the first column is the number of Spheroids, and in the fourth column are the values found to provide the roundest spheres for that number of spheroids. Then the variable Unadjusted_Radius is set to "=VLOOKUP(Spheroids,LemniscateLooker,4)" and the Lookup Table has the Defined Name LemniscateLooker. It was a project because there are a minimum number of spheroids really necessary to make up the curve at all. One should feel free to make adjustments to the table at their own discretion. Find it via Edit Go To LemniscateLooker.
   4. Edit Go To cell range I2:I2882 and enter 1 and Edit Fill Series Columns Linear Step Value 1, OK.
   5. Edit Go To cell range J2:J2882 and with J2 active, input w/o quotes the formula, "=SIN(2*I2*PI()/180*Adj)" and Edit Fill Down and Insert New Comment "Original formula =SIN(2*I2*PI()/180*Adj)". This will later be modified for Height.
   6. Select all input columns A:J and do Format Columns Autofit Selection.
   7. Edit Go To cell range F2:G2882 and choose Charts from the Ribbon (or use Chart Wizard) and choose All/Other and scroll down and select Scatter Smoothed Line Scatter. Bernoulli's Lemniscate should appear which should be moved atop the data but not the first few rows. Select cells F1:J2882 and Format Cells Fill Sky Blue, Border Black bold Outline. Format Cell H2 Fill Orange, Font White, Border Black bold Outline.
6. On the Data worksheet, enter the Defined Variable names of row 1. I suggest reading through this first and comparing it to one of my other articles you've completed to see if you can copy that sheet, as would be much quicker (see related wikiHows below). In that case, insert 5 columns at column I and move the Looker Table to the right please. Copy and Paste the Lemniscate data from Step 5 F1:J2882 then into the newly inserted columns.

   1. A1: AjRows
   2. B1: GM (for Golden Mean)
   3. C1: Factor1
   4. D1: KEY
   5. E1: Number (there were some notes following this in the previous sheet but we don't need to repeat those).
7. Enter the variables and formulas in row 2 and create the variable names. I realize that error values will result until all the LOOKUP Tables have been input.

   1. A2: 2880
   2. B2: "=-(1-SQRT(5))/2" Enter formulas w/o quotes please.
   3. C2: "=VLOOKUP(ABS(Spheroids),Looker,2)"
   4. D2: "=IF(Spheroids<=64,Spheroids*VLOOKUP(Spheroids,LOOKER2,5) *PI(),Spheroids*PI())"
   5. Select cell range A2:D2 and Format Sky Blue, Border Black bold Outline.
   6. E2: 1 (this is used as a warper). Format Cells Fill Yellow and Border Black bold Outline.
   7. Edit Go To cell range A1:E2 and Insert Name Create Top Row. OK There may have been some NewDates variables -- they won't be used and have been deleted.
8. Enter the Defined Variable Names of row 3.

   1. A3: Tip
   2. B3: Base
   3. C3: Spheroids
   4. D3: ShrinkExpand
   5. E3: PiDivisor
   6. F3: Thick1
   7. G3: Thickness
   8. H3: ShrinkExpand2
9. Enter the variables and formulas in row 4 and create the variable names. I realize some errors will result until all names have been defined and Lookup Tables have been completed.

   1. A4: "=Base*12*PI()"
   2. B4: "=16*107"
   3. Activate the Chart worksheet and select cell H63 and enter Spheres. Select cell H64 and Insert Name Define name Spheres for cell $H$64, Input 25. Format Cells Fill Yellow Font Red Size 18 Border Black bold Outline to signify it as an input cell.
   4. C4: "=Spheres"
   5. D4: 2
   6. E4: 180
   7. F4: "=VLOOKUP(Spheroids,Thick1Looker,7)" and Insert New Comment and paste in the Original formula.
   8. G4: "=VLOOKUP(Spheroids,ThicknessLooker,6) and insert New Comment and paste in the Original formula.
   9. H4: 1.5
   10. Edit Go To cell range A3:H4 and Insert Name Create Top Row. OK There may have been some NewDates variables -- they won't be used and have been deleted. Format Cells Fill Sky Blue and Border Black bold Outline. Select jointly with the Command key cells B4, D4 and E4 and Format Cells Fill Font Yellow. It would be a good idea to Insert New Comment and edit in the original values and formulas for all these cells, especially the yellow Input ones -- it's far easier than coming back here to research their original values.
10. Enter the column headings of row 5.

    1. A5: Base t
    2. B5: c
    3. C5: Cos
    4. D5: Sin
    5. E5: Main X
    6. F5: Main Y
    7. G5: Second X
    8. H5: Second Y
11. Enter the formulas of the columns. Some errors will result until the worksheets are complete.

    1. A6: "=IF(ODD(Spheroids)=Spheroids,0,Tip)"
    2. Edit Go To cell range A7:A2886 and with A7 active enter w/o quotes the formula "=(A6+(-Tip*2)/(AjRows))". Split the screen and on the bottom half, let row 2884 show. If Spheroids = 25, the check figure in A2886 will be -129081.75. Do Insert New Comment for cells A6 and A7 and copy and paste in the Original formulas into the comments the formulas you just entered.
    3. Select cell B6 and enter w/o quotes "=IF(Spheroids<=24,Base*24/Spheroids,Base*24/Spheroids)"
    4. Edit Go To cell range B7:B2886 and with B7 active, enter "=B6" and Edit Fill Down. Do Insert New Comment for cells B6 and B7 and copy and paste in the Original formulas you just entered into the comments.
    5. Select cell range A6:B7 and Format Cells Fill Sky Blue.
    6. Edit Go To cell range C6:C2886 and with C6 active, enter "=Thick1*Spheroids/KEY*(COS((ROW()-6)*Number*PI()/PiDivisor*Factor1))" and Edit Fill Down and Insert New Comment and edit in (via copy and paste after Original formula) "Original formula =Thick1*Spheroids/KEY*(COS((ROW()-6)*Number*PI()/PiDivisor*Factor1))".
    7. Edit Go To cell range D6:D2886 and with D6 active, enter "=Thick1*Spheroids/KEY*(SIN((ROW()-6)*Number*PI()/PiDivisor*Factor1))" and Edit Fill Down and Insert New Comment and edit in (via copy and paste after the first 2 words) "Original formula =Thick1*Spheroids/KEY*(SIN((ROW()-6)*Number*PI()/PiDivisor*Factor1))".
    8. Edit Go To cell range E6:E2886 and with E6 active, enter "=((SIN(A6/(B6*2))*GM*COS(A6)*GM*(COS(A6/(B6*2)))*GM)+I6)/ShrinkExpand" and Edit Fill Down and Insert New Comment and edit in (via copy and paste after the first 2 words) "Original formula =((SIN(A6/(B6*2))*GM*COS(A6)*GM*(COS(A6/(B6*2)))*GM)+I6)/ShrinkExpand)".
    9. Edit Go To cell range F6:F2886 and with F6 active, enter "=((SIN(A6/(B6*2))*GM*SIN(A6)*GM*(COS(A6/(B6*2)))*GM)+J6)/ShrinkExpand" and Edit Fill Down and Insert New Comment and edit in (via copy and paste after the first 2 words) "Original formula =((SIN(A6/(B6*2))*GM*SIN(A6)*GM*(COS(A6/(B6*2)))*GM)+J6)/ShrinkExpand".
    10. Edit Go To cell range G6:G2886 and with G6 active, enter "=((SIN(A6/(B6*2))*GM*COS(A6)*GM*(COS(A6/(B6*2)))*GM)+C6)/ShrinkExpand2" and Edit Fill Down and Insert New Comment and edit in (via copy and paste after the first 2 words) "Original formula =((SIN(A6/(B6*2))*GM*COS(A6)*GM*(COS(A6/(B6*2)))*GM)+C6)/ShrinkExpand2".
    11. Edit Go To cell range H6:H2886 and with H6 active, enter "=((SIN(A6/(B6*2))*GM*SIN(A6)*GM*(COS(A6/(B6*2)))*GM)+D6)/ShrinkExpand2" and Edit Fill Down and Insert New Comment and edit in (via copy and paste after the first 2 words) "Original formula =((SIN(A6/(B6*2))*GM*SIN(A6)*GM*(COS(A6/(B6*2)))*GM)+D6)/ShrinkExpand2".
    12. Select cell range C6:H6 and Format Cells Fill Sky Blue.
12. Activate the Lemniscate worksheet and Edit Go To cell range F1:J2882 and copy it and activate the Data worksheet and select cell I5 and paste it (unless you'd be pasting atop the Looker Table). Select cell K4 and enter Unadjusted Radius and Format Cells Alignment Horizontal Center. *If you would be pasting atop the LOOKER Table, STOP. Insert 5 columns and move the LOOKER Table right. Then do the copy and paste of the Lemniscate data and formulas.
13. Do Lemniscate Height Adjustment.

    1. Select cell M3 and enter Height.
    2. Select cell M4 and enter w/o quotes the formula "=IF(Spheroids<=12,6,2)" and Insert Name Define name Height to cell $M$4 and Format Cells Fill Sky Blue Font Red Alignment Horizontal Centered Border Black bold Outline.
    3. Select cell M6 and enter w/o quotes the formula "=Height*SIN(2*L6*PI()/180*Adj)", copy it in the Formula Bar, and Insert Comment and edit in "Original formula " and paste in the formula. Copy M6 and Edit Go To cell range M6:M2886 and Paste Special Formulas (there's no need to paste a comment into all the cells).
    4. Activate the Lemniscate worksheet and select cell J2 and enter the formula w/o quotes, "=Height*SIN(2*I2*PI()/180*Adj)" and Edit Go To cell range J2:J2882 and Edit Fill Down. In cell J2 Insert New Comment and edit in "Original formula =Height*SIN(2*I2*PI()/180*Adj)".
14. Enter the Looker Table.

    1. Enter LOOKER into cell N5 and Format Cells Font Red Underline Single Alignment Center.
    2. Edit Go To cell range N6:N69 and enter 1 and then do Edit Fill Series Columns Linear Step Value 1 OK.
    3. Edit Go To cell range O6:O69 and enter .125 and Edit Fill Down. This is the default value.
    4. Edit Go To cell range P6:P69 and with P6 the active cell, enter w/o quotes the formula "=N6*$P$35/$N$35" and Edit Fill Down, then select cell P35 and enter .125
    5. Select cells N6:P69 and Define Name LOOKER to cell range $N$6:$P$69. Fornmt cells Fill Yellow (because there's an easier way to do some of this -- one doesn't need a Lookup Table for a constant and the third column is formulaic).
15. Enter the LemniscateLooker table.

    1. Select cell Q5 and enter Lemniscate.
    2. Enter the following values in cells Q6:Q68. .4, .4, .4,. 4, .4, .4, .425, .45, .475, .5, .58, .68. .74, .82, .9, 0.927777777, .0.955555555, 0.983333333, 1.0388888, 1.06666666, 1.0944444, 1.1222222, 1.15, 1.15, 1.32, 1.49, 1.83 and Edit Go To cell range Q35:Q68 and enter 2 and Edit Fill Down and select dell range Q6:Q69 and Format Cells Fill Sky Blue. Insert Names Define name LemniscateLooker to cell range $N$6:%Q$69.
16. Enter the LOOKER2 table.

    1. Select cell R5 and enter LOOKER2 into it.
    2. Enter the following values in cells R6:R269. 24, 16, 8, 4, =PI(), =PI(), =PI(), and select cell range R13:R21 and enter 2 and Edit Fill Down and select range R6:R69 and Format Cells Fill Medium Sky Blue. Select cell range R22:R69 and enter 1 and Edit Fill Down. Select cell range N6:R69 and Insert Name Define name LOOKER2 to cell range $N$6:$R$69.
17. Create the ThicknessLooker Table.

    1. Select cell S5 and enter ThicknessLooker into it.
    2. Enter the following values into cells S6:S69. Select cell range S6:S17 and enter 1,8 and Edit Fill Down. S18:S20 -- 1.85, 1.9, 1.96. Select cell range S21:S69 and enter 1.5 and Edit Fill Down. Select cell range S6:S69 amd Format Cells Fill Yellow (because some of these perhaps should be changed). Insert Name Define name ThicknessLooker to cell range $N$6:$S$69.
18. Create the Thick1Looker Table.

    1. Select cell T5 and enter Thick1Looker into it.
    2. Edit Go To cell range T6:T69 and Format Cells Sky Blue and with T6 the active cell, enter w/o quotes the formula "=IF(N6>=36,N6*0.075,IF(N6>=17,0.1*N6,IF(N6>=8,N6/5,N6/2.5)))" and Edit Fill Down. Copy the formula in T6 by selecting across it within the Formula Bar and doing command+c and Insert New Comment and edit in ""Original formula (and either paste in the formula or enter into the comment box the exact copy of the original formula:) =IF(N6>=36,N6*0.075,IF(N6>=17,0.1*N6,IF(N6>=8,N6/5,N6/2.5)))"; expand the comment to fit the formula by clicking near the edge until grab-boxes appear and then pull those down and to the right.