Biorhythms: Difference between revisions

For a while in the late 70s, the pseudoscience of biorhythms was popular enough to rival astrology, with kiosks in malls that would give you your weekly printout. It was also a popular entry in "Things to Do with your Pocket Calculator" lists. You can read up on the history at [https://en.wikipedia.org/wiki/Biorhythm_theory Wikipedia], but the main takeaway is that unlike astrology, the math behind biorhythms is dead simple.

 

 

To compute your biorhythmic profile for a given day, the first thing you need is the number of days between that day and your birth, so the answers in [[Days between dates]] are probably a good starting point. (Strictly speaking, the biorhythms start at 0 at the moment of your birth, so if you know time of day you can narrow things down further, but in general these operate at whole-day granularity.) Then take the residue of that day count modulo each of the the cycle lengths to calculate where the day falls on each of the three sinusoidal journeys.

 

Example run of my Raku implementation:

{{Out}}

 

Double valley! This was apparently not a good day for Mr. Fischer to begin a chess tournament...

 

=={{header|Delphi}}==

{{libheader| System.SysUtils}}

{{libheader| System.Math}}

{{Trans|Go}}

program Biorhythms;

 

CalcBiorhythms(datePairs[i, 0], datePairs[i, 1]);

readln;

=={{header|Factor}}==

math.constants math.functions ;

 

[ 33 "Mental" .day ] tri ;

 

{{out}}

<pre>

Mental day 5: 81.5%↑

</pre>

 

=={{header|Fortran}}==

 

 

 

PROGRAM BIORHYTHM

C ------------------------------------------------------------------

RETURN

 

{{in}}

E P : | M : | THR 84

===========================================================================</pre>

 

 

 

=={{header|Go}}==

{{trans|Wren}}

 

import (

biorhythms(datePair[0], datePair[1])

}

 

{{out}}

Mental day 5 : 81.4% (up and rising, next peak 1863-11-22)

</pre>

=={{header|J}}==

Let's presume the content of file <tt>br.ijs</tt> :

use=: 'Use: ', (;:inv 2 {. ARGV) , ' YYYY-MM-DD YYYY-MM-DD'

 

 

exit 0

Then bash commands could be

<pre>

│Mental │ _0.9 _0.9 _1.0 _1.0 _1.0 _0.9 _0.8│ 0.9 0.9 1.0 1.0 1.0 0.9 0.8│

└──────────┴──────────────────────────────────────────┴──────────────────────────────────────────┘

</pre>

 

=={{header|Julia}}==

{{trans|Raku}}

 

const cycles = ["Physical" => 23, "Emotional" => 28,"Mental" => 33]

tellfortune(Date("1809-01-12"), Date("1863-11-19"))

tellfortune(Date("1809-02-12"), Date("1863-11-19"))

<pre>

Born 1943-03-09, target date 1972-07-11

Mental day 5: 81.5% (up and rising, next peak 1863-11-22)

</pre>

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

birthdate = "1943-03-09";

targetdate //= DateObject;

,

{i, 3}

{{out}}

<pre>Day 10717:

Emotional day 21: valley

Mental day 25: valley</pre>

=={{header|Nim}}==

{{trans|Go}}

import strformat

import times

biorythms("1943-03-09", "1972-07-11")

biorythms("1809-01-12", "1863-11-19")

 

{{out}}

Emotional day 11: 62.3% (up but falling, next transition 1863-11-22)

Mental day 5: 81.5% (up and rising, next peak 1863-11-22)</pre>

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use DateTime;

}

printf "%-13s %2d: %s", "$label day\n", $position, $description;

{{out}}

<pre>Day 20003:

Mental day 5: 81.4% (up and rising, next peak 1863-11-22)

Physical day 16: -94.2% (down and falling, next valley 1863-11-20)</pre>

=={{header|Phix}}==

{{trans|Wren}}

{{out}}

<pre>

Mental day 5 : 81.4% (up and rising, next peak 1863-11-22)

</pre>

=={{header|Python}}==

"""

 

biorhythms("1943-03-09","1972-07-11")

 

{{out}}

Mental day 25: valley

</pre>

=={{header|R}}==

Also creates a plot showing past and future 30-day cycles

 

bDay <- as.Date(bDay)

targetDay <- as.Date(targetDay)

}

 

 

{{out}}

Mental = 25: Down and rising

</pre>

=={{header|Raku}}==

unit sub MAIN($birthday=%*ENV<BIRTHDAY>, $date = Date.today()) {

 

say "$label day $position: $description";

}

 

{{Out}}

Mental day 3: 54% (up and rising, next peak 1863-11-24)

</pre>

 

 

 

 

<pre>

</pre>

=={{header|Ruby}}==

CYCLES = {physical: 23, emotional: 28, mental: 33}

 

biorhythms("1943-03-09", "1972-07-11")

{{out}}

<pre>physical : cycle day 22, negative

emotional : cycle day 21, negative

mental : cycle day 25, negative

</pre>

 

{{works with|Wish}}

A graphing version using Tcl+Tk:

# Biorhythm calculator

set today [clock format [clock seconds] -format %Y-%m-%d ]

}

 

{{Out}}

https://i.imgur.com/U2izZOM.png

=={{header|VBA}}==

{{trans|Wren}}

 

'Jagged Array

Debug.Print ""

 

{{Out}}

<pre>

Emotional day 14 : critical transition

Mental day 3 : 54.1% (up and rising, next peak 24.11.1863)

</pre>

 

{{libheader|Wren-date}}

{{libheader|Wren-fmt}}

 

var cycles = ["Physical day ", "Emotional day", "Mental day "]

["1809-02-12", "1863-11-19"] // correct DOB for Abraham Lincoln

]

 

{{out}}