Biorhythms: Difference between revisions

 

Example run of my Raku implementation:

{{Out}}

{{trans|Python}}

 

‘

Print out biorhythm data for targetdate assuming you were

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

 

 

{{out}}

=={{header|C}}==

{{trans|Locomotive Basic}}

#include <stdlib.h>

#include <math.h>

cycle(diff, 28, "Emotional");

cycle(diff, 33, "Intellectual");

Test:

./cbio 1972 7 11 1943 3 9

Age: 10717 days

Physical cycle: -27%

Emotional cycle: -100%

 

=={{header|COBOL}}==

{{trans|Locomotive Basic}}

 

identification division.

.

 

Test:

Compile and Test

C:\GnuCOBOL>

Physical 01:+027.0%

Emotional 14:+000.0% critical

 

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

{{trans|Locomotive Basic}}

 

;;; Get the days to J2000

(print-cycle diff 23 "physical")

(print-cycle diff 28 "emotional")

{{output}}

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

{{libheader| System.Math}}

{{Trans|Go}}

program Biorhythms;

 

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

readln;

 

=={{header|Emacs Lisp}}==

For Emacs, it makes sense to implement this as an interactive command which is personalized to the user's birthdate and computes the biorhythm for today. So if you put this code into your .emacs file (note that the birthdate has to be in MDY order in Emacs!):

 

(setq biorhythm-birthdate '(3 16 1953))

(* 2 pi diff (/ 1.0 x)))))) rhyt)))

(message "age: %i physical: %i%% emotional: %i%% intellectual: %i%%"

Then typing "M-x biorhythm" will produce this output in the Emacs echo area on 2022-04-21:

<pre>

 

=={{header|Factor}}==

math.constants math.functions ;

 

[ 33 "Mental" .day ] tri ;

 

{{out}}

<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

 

 

PROGRAM BIORHYTHM

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

RETURN

 

{{in}}

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

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

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

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

=={{header|Lua}}==

{{trans|Phix}}

lengths = {23, 28, 33}

quadrants = {

for i=1, #datePairs do

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

 

{{out}}

 

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

birthdate = "1943-03-09";

targetdate //= DateObject;

,

{i, 3}

{{out}}

<pre>Day 10717:

=={{header|Nim}}==

{{trans|Go}}

import strformat

import times

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

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

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use DateTime;

}

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

{{out}}

<pre>Day 20003:

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

 

=={{header|Python}}==

"""

 

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

 

{{out}}

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

 

bDay <- as.Date(bDay)

targetDay <- as.Date(targetDay)

}

 

 

{{out}}

 

=={{header|Raku}}==

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

 

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

}

 

{{Out}}

 

It is usual to use the birth date of a person.

parse arg birthdate targetDate . /*obtain one or two dates from the C.L.*/

days= daysbet2(birthdate targetDate) /*invoke the 2nd version of a REXX pgm.*/

if x=pi * .5 then return 1; if x==pi*1.5 then return -1

if abs(x)=pi | x=0 then return 0; q= x*x; z= x

{{out|output|text=&nbsp; when using the input of: &nbsp; &nbsp; <tt> 6/9/1946 </tt>}}

 

</pre>

=={{header|Ruby}}==

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

 

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

{{out}}

<pre>physical : cycle day 22, negative

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

=={{header|Vlang}}==

{{trans|Go}}

import math

biorhythms(date_pair[0], date_pair[1])?

}

 

{{out}}

{{libheader|Wren-date}}

{{libheader|Wren-fmt}}

import "/fmt" for Fmt

 

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

]

 

{{out}}