Biorhythms: Difference between revisions

 

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|11l}}==

{{trans|Python}}

 

‘

Print out biorhythm data for targetdate assuming you were

print(label‘ day ’position‘: ’description)

 

 

{{out}}

</pre>

 

=={{header|Common Lisp}}==

{{trans|Locomotive Basic}}

 

;;; Get the days to J2000

 

(defun print-cycle (diff len nm)

 

;;; Print all cycles

(print-cycle diff 23 "physical")

(print-cycle diff 28 "emotional")

{{output}}

<pre>* (print-bio 1972 7 11 1943 3 9)

emotional cycle: -100%

intellectual cycle: -100% </pre>

=={{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|FOCAL}}==

{{trans|Locomotive Basic}}

1.02 ASK Y,M,D

1.03 D 2; S BZ=Z

4.1 T " CRITICAL",!

 

{{output}}

<pre>*G

Emotional cycle: =-100%

Intellectual cycle: =-100%</pre>

=={{header|Fortran}}==

 

 

 

PROGRAM BIORHYTHM

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

RETURN

 

{{in}}

E P : | M : | THR 84

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

=={{header|FreeBASIC}}==

{{trans|VBA}}

#define pi (4 * Atn(1))

 

Biorhythm("1809-02-12", "1863-11-19") 'correct DOB for Abraham Lincoln

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

=={{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|Locomotive Basic}}==

 

20 gosub 1000

30 bday = day

2050 return

3000 if y < 1901 or y > 2099 then print "Year must be between 1901 and 2099!":run

{{out}}

<pre>Birthday (y,m,d) 1943,3,9

emotional cycle: -100%

intellectual cycle: -100%</pre>

=={{header|Lua}}==

{{trans|Phix}}

lengths = {23, 28, 33}

quadrants = {

for i=1, #datePairs do

biorhythms(datePairs[i][1], datePairs[i][2])

 

{{out}}

Emotional day 24/28 : -78.2% (down but rising, next transition in 4 days)

Mental day 20/33 : -61.9% (down and falling, next transition in 4 days)</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}}

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">include</span> <span style="color: #004080;">timedate</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>

<span style="color: #0000FF;">}</span>

<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">datePairs</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #000000;">biorhythms</span><span style="color: #0000FF;">(</span><span style="color: #000000;">datePairs</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">][</span><span style="color: #000000;">1</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">datePairs</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">][</span><span style="color: #000000;">2</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>

{{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}}