Fridays the 13th, ported to Prime

[ggauny@live.fr]

Hi,
I've tryed port to Prime an jewel from Master Horn, Friday the 13 (see "one minute marvels" page 14), for superstitious!!! Normally i am allowed but i don't know.
Certainely it is possible do better because i am bad with PPL. Well you need 2 routines to do the job.

Code:

EXPORT Vend13(AN)
BEGIN
LOCAL A,B,C,G,L;
L:={};
B:=(AN/1000000)+13.01;

//13.011987▶B;
13.063▶C;

FOR A FROM 1 TO 13 DO
13.063;
DDAYSS(C,B)▶R;
IF NOT(R MOD7)
THEN B▶L(A);END;
IF A<14 THEN B:=B+0.01;
 
END;

END;
PRINT(L);
END;

EXPORT DDAYSS(D1,D2)
BEGIN
LOCAL a1,m1,j1,a2,m2,j2,z1,z2;
D1:=FP((D1)*100)*10000+IP(FP(D1)*100)
/100+IP(D1)/10000;
D2:=FP((D2)*100)*10000+IP(FP(D2)*100)
/100+IP(D2)/10000;
//YYYY.MMDD
a1:=IP(D1);//YYYY
m1:=IP(FP(D1)*100);//MM
j1:=IP(FP(FP(D1)*100)*100);//DD
//YYYY.MMDD(2)
a2:=IP(D2);//YYYY2
m2:=IP(FP(D2)*100);//MM2
j2:=IP(FP(FP(D2)*100)*100);//JJ2
IF m1<3 THEN m1:=m1+12;a1:=a1-1;
END;
IF D1≤1582.1004
   THEN B:=IP(−2+(a1+4716)/4-1179);
   ELSE B:=IP(a1/400-a1/100+a1/4);
END;
z1:=365*a1-679004+B+2400000.5;
z1:=z1+IP(30.6001*(m1+1))+j1+.5;
IF m2<3 THEN m2:=m2+12;a2:=a2-1;
END;
IF D2≤1582.1004
   THEN B:=IP(−2+(a2+4716)/4-1179);
   ELSE B:=IP(a2/400-a2/100+a2/4);
END;
z2:=365*a2-679004+B+2400000.5;
z2:=z2+IP(30.6001*(m2+1))+j2+.5;
RETURN ABS(z2-z1);
END;

For exemple Year 1987 give 13.02.1987 13.03.1987 13.11.1987
Year 1938 give 13.05.1938 13.13.1938

Surely it is possible to "ameliorer" Enhenced ?

Good night and regards, Gérard.

[Tim Wessman]

I really need to get the days/date functions added...

[ggauny@live.fr]

(01-14-2015 09:16 PM)Tim Wessman Wrote:  I really need to get the days/date functions added...

I am very honored that you speak me. Well i send this to a friend, i give you too. it is not complete i have others.

I beg for language, regards.

[ggauny@live.fr]

(01-14-2015 09:16 PM)Tim Wessman Wrote:  I really need to get the days/date functions added...

Dear Sir,

I have tested my littles programs, all seem good running. So i give them to you.

For thoses who are interested in calendars calculations, there are very important
things to note :

1/ Calculations calendars are strictly from 1/1/-4712 up to 31/12/9999, after the precision goes down (dangerous when calculate astronomy or pursuit artificial satellites for example).

2/ Most importants programs are :
a/ D2JDc (DATE TO JULIAN DAY number, c stand for calcs only numericals),
ex : D2JDc(23.021951) return number 2,433,701. But
D2JD (23.021951) return one comment, if needed, like
"23.021951=2433701" not numeric

b/ JD2Dc (JULIAN DAY number TO DATE, c is the same signification)
ex : JD0Dc(2,433,701) return 23.021951, numeric date. But
JD2D (2,433,701) return a text comment like for example :
"Vendredi 23.021951 (JDN=2,433,701)

3/ To build a calendar, it is needed to know the day of the first month of a year,
FIRSTDAYOFYEARMOD give us the day of week, the date numeric and the
JDN of this day :

Ex : FIRSTDAYOFYEAR(2015) return :
"Jeudi 1.012015 (JDN = 2457024). I have subroutines by month yet.

I hope not have disturbed you.

My best regards.

Gérard. (i send you a big part of my programs, not calendar for any year because it is not possible to print, but i have always my 2 HP41, one C and the other CX).

[ggauny@live.fr]

(01-14-2015 09:16 PM)Tim Wessman Wrote:  I really need to get the days/date functions added...

Please take care only with this new zip.bis, in first zip are 2 mistakes. Apolozise !

I hope theses littles codes will helpfull for you.

Gérard.

[Thomas_Sch]

(01-22-2015 10:11 PM)ggauny@live.fr Wrote:  ... Please take care only with this new zip.bis, in first zip are 2 mistakes. Apolozise !
I hope theses littles codes will helpfull for you.
Gérard.

Hello Gérard,

date/ calender functions exists already in the Software Library, please have a look at
Date Functions
I don't think, that we need too much of them.
If there are errors or missing functions, you can add a question or send a PM to Wolfgang.

Thomas

[Dieter]

(01-14-2015 09:16 PM)Tim Wessman Wrote:  I really need to get the days/date functions added...

If they are currently missing (sorry, I don't own a Prime) I think adding these would be a major improvement.

You could even top the WP34s by adding a configuration setting that's missing there: a user-adjustable transition point between the Julian and Gregorian calendar (defaulting to 04/15 Oct 1582). This can be accomplished quite easily, as shown in the VBA code in this message in the Prime software library.

Dieter

[Thomas_Sch]

(01-23-2015 09:10 PM)Dieter Wrote:  ...
If they are currently missing (sorry, I don't own a Prime) I think adding these would be a major improvement.
..
Dieter

Hello Dieter,
there are Prime's "for free" at http://ftp.ftp.hp.com/pub/calculators/Prime/,
the HP_Prime_Virtual_Calculator_2014_12_03.exe including manuals etc.

Thomas