On closer inspection it looks like the moons in the right spot, but the Sun is in the wrong spot. I will take a look and see if there is no error in the lines that deal with the Sun's Az/El. I have the original code that was scanned from a USNO document. The OCR was rather sloppy. I will post the original in a minute and send the link.
Thanks, again Chris Maness On Mon, Jun 17, 2013 at 1:24 PM, Chris Maness <ch...@chrismaness.com> wrote: > Thanks a ton Greg, it works great. The only thing I that seems to be an > issue of I use Zulu time. According to the ephemeris the time seems to be > wrong when I use Zulu time. I would have never been able to fix that > program. Thanks again. I am going to load it on my NEC 8201A and see if > it will run there :D > > Thanks, > Chris Maness > > > On Mon, Jun 17, 2013 at 12:40 PM, Greg Larkin <glar...@freebsd.org> wrote: > >> -----BEGIN PGP SIGNED MESSAGE----- >> Hash: SHA1 >> >> On 6/17/13 3:03 PM, Chris Maness wrote: >> > Oops, here is another patch that includes a correction for the >> > missing parenthesis that Michael Ross pointed out: >> > >> > --- sun.bas.orig2013-06-17 11:51:00.000000000 -0700 +++ >> > sun.bas2013-06-17 11:57:55.000000000 -0700 @@ -104,7 +104,7 @@ 1020 >> > ON N GOTO 1030, 1090 1030 IS=133775.*M/SK 1040 PRINT "SUN AZIMUTH >> > (DEG.) ";AZ -1050 PRINT "SUN ALTITUDE (DOG.) ";HA +1050 PRINT "SUN >> > ALTITUDE (DEG.) ";HA 1060 PRINT "SUN ILLUMINANCE (LUX) ";IS 1070 >> > N=2 1080 GOTO 940 @@ -200,7 +200,7 @@ 1980 DS=FNARCSIN(SD) 1990 >> > RETURN 2000 H=(A(L)-SI*SD)/(CI*COS(D))S -2010 IF ABS(H>1. THEN GOTO >> > 2040 +2010 IF ABS(H)>1. THEN GOTO 2040 2020 H=FNARCOS(H)*RD/C 2030 >> > RETURN 2040 H=1.5 >> > >> > Thanks, guys. It will be cool if I can figure out why the >> > interpreter is core dumping. >> > >> > Chris Maness >> >> Hi Chris, >> >> I prepared a new patch that incorporates my fixes, yours and >> Michael's. I found the coredump - multiple missing right parens on >> line 1170. Then I ran into another problem on line 430 and made an >> educated guess with the fix. >> >> The new patch is here, and you'll need to apply it to the original >> version of the program: >> http://people.freebsd.org/~glarkin/diffs/prog.bas.2.diff >> >> Hope that works, >> Greg >> >> - -- >> Greg Larkin >> >> http://www.FreeBSD.org/ - The Power To Serve >> http://www.sourcehosting.net/ - Ready. Set. Code. >> http://twitter.com/cpucycle/ - Follow you, follow me >> -----BEGIN PGP SIGNATURE----- >> Version: GnuPG v1.4.13 (Darwin) >> Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/ >> >> iEYEARECAAYFAlG/ZiIACgkQ0sRouByUApAjVQCfYAWvfi7sJwa6+og+jcJDsrno >> jaYAn1vqRecRUn8e1dqU9uI+TMlvjU3Q >> =9Tnl >> -----END PGP SIGNATURE----- >> > > _______________________________________________ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
