Data Update

Task/Biorhythms/REXX/biorhythms.rexx

@@ -1,23 +1,67 @@
-/*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.*/
-if days==0  then do;  say;   say 'The two dates specified are exacty the same.';   exit 1
-                 end
-cycles= 'physical  emotional  intellectual'      /*the   names of   each biorhythm cycle*/
-cycle = 'negative neutral positive'              /* "   states of     "      "       "  */
-@.1= 23;             @.2= 28;           @.3= 33  /* "  # of days in   "      "       "  */
-pid2= pi() * 2 * days                            /*calculate  pi * t * number─of─days.  */
+/*REXX pgm shows the states of a person's biorhythms                   */
+/*                                 (physical, emotional, intellectual) */
+Parse Arg birthdate targetdate .  /* obtain one or two dates from CL   */
+If birthdate='?' Then Do
+  Say 'rexx bio birthdate (yyyymmdd) shows you today''s biorhythms'
+  Say 'or enter your birthday now'
+  Parse Pull birthdate
+  If birthdate='' Then Exit
+  End
+If birthdate='' Then
+  Parse Value 19460906 20200906 With birthdate targetdate
+If targetdate='' Then
+  targetdate=Date('S')
+days=daysbet2(birthdate,targetdate)
+If days==0 Then Do
+  Say
+  Say 'The two dates specified are exacty the same.'
+  Exit 1
+  End
+cycles='physical emotional intellectual' /*the biorhythm cycle names   */
+cycle='negative neutral positive'
+period.1=23
+period.2=28
+period.3=33
+pid2=pi()*2*days
+say 'Birthdate:   ' birthdate  '('translate('gh.ef.abcd',birthdate,'abcdefgh')')'
+say 'Today:       ' targetdate '('translate('gh.ef.abcd',targetdate,'abcdefgh')')'
+Say 'Elapsed days:' days
+Do j=1 To 3
+  state=2+sign(sin(pid2/period.j))  /* obtain state for each biorhythm */
+  Say 'biorhythm for the' right(word(cycles,j),12) 'cycle is',
+                                                      word(cycle,state)
+  End
+Exit
+/*---------------------------------------------------------------------*/
+pi:
+  pi=3.1415926535897932384626433832795028841971693993751058209749445923078
+  Return pi
+r2r:
+  Return arg(1)//(pi()*2)           /* normalize radians --? a unit ci*/
+/*--------------------------------------------------------------------------------------*/
+sin: Procedure
+  Parse Arg x
+  x=r2r(x)
+  _=x
+  Numeric Fuzz min(5,max(1,digits()-3))
+  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
+  Do k=2 By 2 Until p=z
+    p=z
+    _=-_*q/(k*k+k)
+    z=z+_
+    End
+  Return z
 
-       do j=1  for 3
-       state= 2   +   sign( sin( pid2 / @.j) )   /*obtain state for each biorhythm cycle*/
-       say 'biorhythm for the'  right(word(cycles,j),12)   "cycle is"   word(cycle, state)
-       end   /*j*/                               /* [↑]   get state for each biorhythm. */
-exit 0                                           /*stick a fork in it,  we're all done. */
-/*──────────────────────────────────────────────────────────────────────────────────────*/
-pi:   pi= 3.1415926535897932384626433832795028841971693993751058209749445923078; return pi
-r2r:  return arg(1)  //  (pi() * 2)              /*normalize radians ──► a unit circle. */
-/*──────────────────────────────────────────────────────────────────────────────────────*/
-sin:  procedure; parse arg x;  x= r2r(x);  _= x;  numeric fuzz min(5, max(1, digits() -3))
-      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
-        do k=2  by 2  until p=z;   p= z;   _= -_ *q/(k*k+k);    z= z+_;   end;    return z
+daysbet2: Procedure
+/* compute the number of days between fromdate and todate */
+  Parse Arg fromdate,todate
+  fromday=date('B',fromdate,'S')
+  today=date('B',todate,'S')
+  Return today-fromday