HP3000-L Archives

February 2006, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: easter script
From:
"Johnson, Tracy" <[log in to unmask]>
Reply To:
Johnson, Tracy
Date:
Fri, 17 Feb 2006 15:06:39 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (90 lines) 
Line 16 has an unfinished variable _i.

Taking a good guess I changed it to _e_i.


Tracy Johnson
Measurement Specialties, Inc. 

BT







NNNN


> -----Original Message-----
> From: HP-3000 Systems Discussion 
> [mailto:[log in to unmask]] On Behalf Of donna garverick
> Sent: Friday, February 17, 2006 2:53 PM
> To: [log in to unmask]
> Subject: [HP3000-L] easter script
> 
> 
> since it's friday, here's a fun little script.
> 
> adapted from the algorithm found at: 
> http://aa.usno.navy.mil/faq/docs/easter.html
> 
> i came up with:
> ===================
> parm y=!hpyear
> 
> setvar _e_year      !y
> setvar _e_century   _e_year / 100
> setvar _e_n         _e_year - 19 * ( _e_year / 19 )
> setvar _e_k         ( _e_century - 17 ) / 25
> setvar _e_i &
>   _e_century - ( _e_century / 4 ) - &
>   ( _e_century - _e_k ) / 3 + 19 * _e_n + 15
> setvar _e_i         _e_i - 30 * ( _e_i / 30 )
> setvar _e_i &
>   _e_i - ( _e_i / 28 ) * ( 1 - ( _e_i / 28 ) * &
>   ( 29 / ( _e_i + 1 ) ) * &
>   ( ( 21 - _e_n ) / 11 ) )
> setvar _e_j &
>   _e_year + ( _e_year / 4 ) + _i + 2 - _e_century + ( _e_century / 4 )
> setvar _e_j         _e_j - 7 * ( _e_j / 7 )
> setvar _e_l         _e_i - _e_j
> setvar _e_month     3 + ( _e_l + 40 ) / 44
> setvar _e_day       _e_l + 28 - 31 * ( _e_month / 4 )
> 
> setvar _e_date      "!_e_year" + "/" + &
>                     rht(("00"+"!_e_month"),2) + "/" + &
>                     rht(("00"+"!_e_day"),2)
> echo Easter occurs on: !_e_date
> 
> deletevar _e_@
> =====================
> enjoy :-)       - d
> 
> (yeah, i know getting the year isn't rigourous....)
> 
> Donna Garverick, HP-CSA   Sr. System Programmer
> dgarverick -at- longs -dot- com
> 925-210-6631              Longs Drug Stores
> 
> Come, my friends, 'Tis not too late to seek a newer world.
> Tho' much is taken, much abides; and tho'
> We are not now that strength which in old days
> Moved earth and heaven, that which we are, we are.
> "Ulysses", A. Tennyson
> 
> >>>MY opinions, not Longs Drug Stores'<<<
> 
> __________________________________________________
> Do You Yahoo!?
> Tired of spam?  Yahoo! Mail has the best spam protection around 
> http://mail.yahoo.com 
> 
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2