aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Biorhythms/FutureBasic/biorhythms.basic
View file

@ -5,6 +5,8 @@ https://rosettacode.org/wiki/Biorhythms
Translated from FreeBasic to FutureBasic
Rich Love May 24, 2024
Oct 16, 2024 fixed the percentage amounts
*/
@ -39,9 +41,9 @@ void local fn Biorhythm(Birthdate As str255, Targetdate As str255)
short quadrantP = Int(4 * positionP / 23)
short quadrantE = Int(4 * positionE / 28)
short quadrantM = Int(4 * positionM / 33)
short percentageP = Fix(100 * Sin(2 * (pi * positionP) / 23))
short percentageE = Fix(100 * Sin(2 * (pi * positionE) / 28))
short percentageM = Fix(100 * Sin(2 * (pi * positionM) / 33))
short percentageP = int(100 * Sin(2 * (pi * positionP) / 23))
short percentageE = int(100 * Sin(2 * (pi * positionE) / 28))
short percentageM = int(100 * Sin(2 * (pi * positionM) / 33))
str255 textP, textE, textM, Header1Text, Header2Text