💾 Archived View for spam.works › mirrors › textfiles › programming › formulas.prn captured on 2023-11-14 at 11:49:49.
⬅️ Previous capture (2023-06-16)
-=-=-=-=-=-=-
============================================================================== F O R M U L A S Here are a few interesting formulas which I have gleaned from some 20 years in computers. Some of these will be familiar to you, some may not. All of these formulas work properly. The calendar functions have been tested for all dates from 1/1/1 through 12/31/5000. Even though these dates are meaningless, you cam depend on the formulas for precision on real dates. If you are interested in other constants, or constants to much greater precision, you might want to try my BIGCALC program which emulates a Hewlett-Packard calculator on screen. BIGCALC has a four register stack and 10 memory registers. You can specify the precision from 3 to 1000 digits. The constants pi and e are provided to full precision. BIGCALC was used to derive the following constants. BIGCALC is available on the IBM Software and Microsoft Systems Forums on Compuserve. The file is named BCALxx.ARC where xx is the revision number. The file FORMULAS.TXT is in ASCII form. The file FORMULAS.PRN is in form suitable for IBM compatible printers and uses the extended character set for pi, powers, etc. Looks better. I would be happy to recieve comments on this stuff, especially any new formulas or algorithms! Enjoy. Judson D. McClendon Sun Valley Systems 844 Sun Valley Road Birmingham, AL 35215 205-853-8440 Compuserve [74415,1003] ============================================================================== ============================================================================== MATHEMATICAL FORMULAS: ============================================================================== Some Important Constants: ?: 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280 34825 34211 70679 82 1/?: 0.31830 98861 83790 67153 77675 26745 02872 40689 19291 48091 28974 95334 68811 77935 95268 45307 01802 27605 53250 61719 12 ??: 9.86960 44010 89358 61883 44909 99876 15113 53136 99407 24079 06264 13349 37622 00448 22419 20524 30017 73403 71855 22318 24 ?/180: 0.01745 32925 19943 29576 92369 07684 88612 71344 28718 88541 72545 60971 91440 17100 91146 03449 44368 22415 69634 50948 22 180/?: 57.29577 95130 82320 87679 81548 14105 17033 24054 72466 56432 15491 60243 86120 28471 48321 55263 24409 68995 85111 09441 86 e: 2.71828 18284 59045 23536 02874 71352 66249 77572 47093 69995 95749 66967 62772 40766 30353 54759 45713 82178 52516 64274 27 1/e: 0.36787 94411 71442 32159 55237 70161 46086 74458 11131 03176 78345 07836 80169 74614 95744 89980 33571 47274 34591 96437 46 e?: 7.38905 60989 30650 22723 04274 60575 00781 31803 15570 55184 73240 87127 82252 25737 96079 05776 33843 12485 07912 17947 73 ?2: 1.41421 35623 73095 04880 16887 24209 69807 85696 71875 37694 80731 76679 73799 07324 78462 10703 88503 87534 32764 15727 35 ?3: 1.73205 08075 68877 29352 74463 41505 87236 69428 05253 81038 06280 55806 97945 19330 16908 80003 70811 46186 75724 85756 75 Golden Ratio: 1.61803 39887 49894 84820 45868 34365 63811 77203 09179 80576 ? = (?5+1)/2 28621 35448 62270 52604 62818 90244 97072 07204 18939 11374 84 ============================================================================== ============================================================================== Newton's Method: Newton's Method for extracting positive integral roots of positive numbers is as follows: The Rth root of the positive number A is obtained as a root of the function: f(X) = XS0RT - N by means of the iterated equation: Xj = Xi - (XiS0RT - N) / (R * XiS0(R-1)T) = Xi * (1 - 1/R) + (N / (R * XiS0(R-1)T)) For square root, the equation simplifies to Xj = (Xi + (N / Xi)) / 2 Where: Xi = previous approximation Xj = next approximation R = root N = number This method converges very rapidly if a reasonable first approximation is obtained. ============================================================================== ============================================================================== CALENDAR FORMULAS: ============================================================================== Zeller's Congruence: Zeller's Congruence is used to determine the day of the week of any date in the Gregorian calendar, which was instituted October 15, 1582. The formula, good for any date since October 15, 1582 is as follows: weekday = ( day + 1 + (month * 2) + INT((month + 1) * 3 / 5) Note: or INT((month + 1) * .6) + year + INT(year / 4) - INT(year / 100) + (year / 400) ) MOD 7 Where: weekday = (0=Sun, 1=Mon, 2=Tue, 3=Wed, 4=Thu, 5=Fri, 6=Sat) day = day of the month month = month of year (Jan & Feb = 13 & 14 of prev year) year = year (year - 1 if month is Jan or Feb) INT = integer part (eg: INT(3.5) = 3) MOD = modulus or remainder part (eg: (10 MOD 7) = 3) Example: Feb 12, 1809 day = 12, month = 14, year = 1808 (weekday = 0 Sun) Jul 4, 1776 day = 4, month = 7, year = 1776 (weekday = 4 Thu) ============================================================================== ============================================================================== Date Day Number: Date Day Number is used to determine the number of days between any two dates in the Gregorian calendar, which was instituted October 15, 1582. Date day number calculates a number which is one greater for each succeeding date. The formula, good for any date since October 15, 1582 is as follows: dateday = ( (year * 365) + INT(year / 4) - INT(year / 100) + INT(year / 400) + INT(month * 306001 / 10000) Note: or INT(month * 30.6001) + day ) Where: dateday = Date Day Number (Note that dateday can be 6 digits or more) day = day of the month month = month + 13 (Jan & Feb) month + 1 (Mar - Dec) year = year - 1 (Jan & Feb) year (Mar - Dec) INT = integer part (eg: INT(3.5) = 3) Example: Feb 12, 1809 day = 12, month = 15, year = 1808 (dateday = 660,730) Jul 4, 1776 day = 4, month = 8, year = 1776 (dateday = 648,801) (days between = 11,929) ============================================================================== ============================================================================== Easter Computation: Easter falls on the first Sunday following the arbitrary Paschal Full Moon, which does not necessarily coincide with a real or astronomical full moon. The date of the Paschal Full Moon is obtained by dividing the year by 19 and applying the remainder to the following table: 0: Apr 14 5: Apr 18 10: Mar 25 15: Mar 30 1: Apr 3 6: Apr 8 11: Apr 13 16: Apr 17 2: Mar 23 7: Mar 28 12: Apr 2 17: Apr 7 3: Apr 11 8: Apr 16 13: Mar 22 18: Mar 27 4: Mar 31 9: Apr 5 14: Apr 10 Thus, for the year 2000 the key is 5 or April 18. Since April 18th in the year 2000 is a Tuesday, Easter Sunday is April 23rd. CAUTION - If the Paschal Full Moon falls on a Sunday, Easter is the following Sunday. The earliest Easter can fall is March 23rd and the latest is April 25th. Lent begins on Ash Wednesday which comes 40 days before Easter, excluding Sundays, or 45 days overall. ==============================================================================