Biorhythms: Difference between revisions

Line 27:

Example run of my Raku implementation:

Line 37:

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

=={{header|11l}}==

<syntaxhighlight lang=11l>F biorhythms(birthdate_str, targetdate_str)

<syntaxhighlight lang="11l">F biorhythms(birthdate_str, targetdate_str)

‘

Print out biorhythm data for targetdate assuming you were

Line 94:

Line 93:

Mental day 25: valley

</pre>

=={{header|C}}==

<syntaxhighlight lang=c>#include <stdio.h>

<syntaxhighlight lang="c">#include <stdio.h>

#include <stdlib.h>

#include <math.h>

Line 129:

Line 127:

}</syntaxhighlight>

Test:

<syntaxhighlight lang=bash>gcc -o cbio cbio.c -lm

<syntaxhighlight lang="bash">gcc -o cbio cbio.c -lm

./cbio 1972 7 11 1943 3 9

Age: 10717 days

Line 135:

Line 133:

Emotional cycle: -100%

Intellectual cycle: -100%</syntaxhighlight>

=={{header|COBOL}}==

identification division.

Line 287:

Line 284:

</syntaxhighlight>

Test:

Compile and Test

C:\GnuCOBOL>

Line 297:

Line 294:

Emotional 14:+000.0% critical

Mental 03:+054.1%</syntaxhighlight>

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

<syntaxhighlight lang=lisp>;;;; Common Lisp biorhythms

<syntaxhighlight lang="lisp">;;;; Common Lisp biorhythms

;;; Get the days to J2000

Line 337:

Line 333:

emotional cycle: -100%

intellectual cycle: -100% </pre>

=={{header|Delphi}}==

program Biorhythms;

Line 447:

Line 442:

readln;

end.</syntaxhighlight>

=={{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!):

<syntaxhighlight lang=lisp>(require 'calendar)

<syntaxhighlight lang="lisp">(require 'calendar)

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

Line 469:

Line 463:

age: 25238 physical: 94% emotional: 78% intellectual: -97%

</pre>

=={{header|Factor}}==

<syntaxhighlight lang=factor>USING: calendar calendar.parser formatting io kernel math

<syntaxhighlight lang="factor">USING: calendar calendar.parser formatting io kernel math

math.constants math.functions ;

Line 501:

Line 494:

Mental day 5: 81.5%↑

</pre>

=={{header|FOCAL}}==

<syntaxhighlight lang=~~FOCAL~~>1.01 T "Enter birthdate (y,m,d)",!

<syntaxhighlight lang="focal">1.01 T "Enter birthdate (y,m,d)",!

1.02 ASK Y,M,D

1.03 D 2; S BZ=Z

Line 541:

Line 533:

Emotional cycle: =-100%

Intellectual cycle: =-100%</pre>

=={{header|Fortran}}==

Line 547:

Line 538:

<syntaxhighlight lang=~~Fortran~~>C ------------------------------------------------------------------

<syntaxhighlight lang="fortran">C ------------------------------------------------------------------

PROGRAM BIORHYTHM

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

Line 775:

Line 766:

E P : | M : | THR 84

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

=={{header|FreeBASIC}}==

<syntaxhighlight lang=freebasic>#define floor(x) ((x*2.0-0.5) Shr 1)

<syntaxhighlight lang="freebasic">#define floor(x) ((x*2.0-0.5) Shr 1)

#define pi (4 * Atn(1))

Line 868:

Line 855:

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

</syntaxhighlight>

=={{header|Go}}==

<syntaxhighlight lang=go>package main

<syntaxhighlight lang="go">package main

import (

Line 965:

Line 950:

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'

Line 1,005:

Line 989:

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

</pre>

=={{header|Julia}}==

<syntaxhighlight lang=julia>using Dates

<syntaxhighlight lang="julia">using Dates

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

Line 1,056:

Line 1,039:

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

</pre>

=={{header|Locomotive Basic}}==

<syntaxhighlight lang=locobasic>10 input "Birthday (y,m,d) ",y,m,d:gosub 3000

<syntaxhighlight lang="locobasic">10 input "Birthday (y,m,d) ",y,m,d:gosub 3000

20 gosub 1000

30 bday = day

Line 1,090:

Line 1,072:

emotional cycle: -100%

intellectual cycle: -100%</pre>

=={{header|Lua}}==

<syntaxhighlight lang=~~Lua~~>cycles = {"Physical day ", "Emotional day", "Mental day "}

<syntaxhighlight lang="lua">cycles = {"Physical day ", "Emotional day", "Mental day "}

lengths = {23, 28, 33}

quadrants = {

Line 1,180:

Line 1,161:

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

<syntaxhighlight lang=~~Mathematica~~>targetdate = "1972-07-11";

<syntaxhighlight lang="mathematica">targetdate = "1972-07-11";

birthdate = "1943-03-09";

targetdate //= DateObject;

Line 1,229:

Line 1,209:

Emotional day 21: valley

Mental day 25: valley</pre>

=={{header|Nim}}==

<syntaxhighlight lang=~~Nim~~>import math

<syntaxhighlight lang="nim">import math

import strformat

import times

Line 1,313:

Line 1,292:

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

<syntaxhighlight lang=perl>use strict;

<syntaxhighlight lang="perl">use strict;

use warnings;

use DateTime;

Line 1,356:

Line 1,334:

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

with javascript_semantics

include timedate.e

Line 1,423:

Line 1,400:

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

</pre>

=={{header|Python}}==

"""

Line 1,502:

Line 1,476:

Mental day 25: valley

</pre>

=={{header|R}}==

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

<syntaxhighlight lang=R>bioR <- function(bDay, targetDay) {

<syntaxhighlight lang="r">bioR <- function(bDay, targetDay) {

bDay <- as.Date(bDay)

targetDay <- as.Date(targetDay)

Line 1,559:

Line 1,532:

Mental = 25: Down and rising

</pre>

=={{header|Raku}}==

<syntaxhighlight lang=raku line>#!/usr/bin/env raku

<syntaxhighlight lang="raku" line>#!/usr/bin/env raku

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

Line 1,607:

Line 1,579:

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

</pre>

=={{header|REXX}}==

The   '''daysbet2'''   (REXX program) is used   (invoked on line '''3''' of this program)   to calculate the number of days between two dates,

Line 1,620:

Line 1,591:

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

<syntaxhighlight lang=text>/*REXX pgm shows the states of a person's biorhythms (physical, emotional, intellectual)*/

<syntaxhighlight lang="text">/*REXX pgm shows the states of a person's biorhythms (physical, emotional, intellectual)*/

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.*/

Line 1,652:

Line 1,623:

</pre>

=={{header|Ruby}}==

<syntaxhighlight lang=~~Ruby~~>require 'date'

<syntaxhighlight lang="ruby">require 'date'

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

Line 1,675:

Line 1,646:

mental : cycle day 25, negative

</pre>

=={{header|Tcl}}==

A graphing version using Tcl+Tk:

<syntaxhighlight lang=tcl>#!/usr/bin/env wish

<syntaxhighlight lang="tcl">#!/usr/bin/env wish

# Biorhythm calculator

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

Line 1,749:

Line 1,719:

main {*}$argv</syntaxhighlight>

Output of <syntaxhighlight lang=sh>wish br.wish 1809-02-12 1863-11-19</syntaxhighlight> - Lincoln's biorhythms at Gettysburg:

Output of <syntaxhighlight lang="sh">wish br.wish 1809-02-12 1863-11-19</syntaxhighlight> - Lincoln's biorhythms at Gettysburg:

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

=={{header|VBA}}==

<syntaxhighlight lang=vb>Function Biorhythm(Birthdate As Date, Targetdate As Date) As String

<syntaxhighlight lang="vb">Function Biorhythm(Birthdate As Date, Targetdate As Date) As String

'Jagged Array

Line 1,845:

Line 1,814:

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

</pre>

=={{header|Vlang}}==

<syntaxhighlight lang=vlang>import time

<syntaxhighlight lang="vlang">import time

import math

Line 1,925:

Line 1,893:

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

</pre>

=={{header|Wren}}==

<syntaxhighlight lang=ecmascript>import "/date" for Date

<syntaxhighlight lang="ecmascript">import "/date" for Date

import "/fmt" for Fmt