Skip to main content
added 179 characters in body
Source Link
att
  • 22.9k
  • 2
  • 21
  • 71

Wolfram Language (Mathematica), 7171 78 bytes

+7 fix a bug noted by Arnauld

#/2|Ramp@Round[DMSList2|Ramp[DMSList/@@Round[{c@#,2c[1+#]-2c@#}]&~Array~360,60^-2]]&~Array~360
c=120Sin[#/4°]&

Try it online!Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.

DMSList conveniently converts a number into its integer part and two sexagesimal places. We can multiply the sixtieths by 60 to extract its three parts using the same function.

Wolfram Language (Mathematica), 71 bytes

#/2|Ramp@Round[DMSList/@{c@#,2c[1+#]-2c@#}]&~Array~360
c=120Sin[#/4°]&

Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.

DMSList conveniently converts a number into its integer part and two sexagesimal places. We can multiply the sixtieths by 60 to extract its three parts using the same function.

Wolfram Language (Mathematica), 71 78 bytes

+7 fix a bug noted by Arnauld

#/2|Ramp[DMSList/@Round[{c@#,2c[1+#]-2c@#},60^-2]]&~Array~360
c=120Sin[#/4°]&

Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.

DMSList conveniently converts a number into its integer part and two sexagesimal places. We can multiply the sixtieths by 60 to extract its three parts using the same function.

added 94 characters in body
Source Link
att
  • 22.9k
  • 2
  • 21
  • 71

Wolfram Language (Mathematica), 71 bytes

#/2|Ramp@Round[DMSList/@{c@#,2c[1+#]-2c@#}]&~Array~360
c=120Sin[#/4°]&

Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.

DMSList conveniently converts a number into its integer part and two sexagesimal places. We can multiply the sixtieths by 60 to extract its three parts using the same function.

Wolfram Language (Mathematica), 71 bytes

#/2|Ramp@Round[DMSList/@{c@#,2c[1+#]-2c@#}]&~Array~360
c=120Sin[#/4°]&

Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.

Wolfram Language (Mathematica), 71 bytes

#/2|Ramp@Round[DMSList/@{c@#,2c[1+#]-2c@#}]&~Array~360
c=120Sin[#/4°]&

Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.

DMSList conveniently converts a number into its integer part and two sexagesimal places. We can multiply the sixtieths by 60 to extract its three parts using the same function.

Source Link
att
  • 22.9k
  • 2
  • 21
  • 71

Wolfram Language (Mathematica), 71 bytes

#/2|Ramp@Round[DMSList/@{c@#,2c[1+#]-2c@#}]&~Array~360
c=120Sin[#/4°]&

Try it online!

Yields a list of rows expressed as θ | {{chord...}, {sixtieths...}}.