;Tertiary echo ;(c) Laurids Pedersen aug 1999 $ PTMP 1 Tertiary echo - Relativity theory by Gilbert Tjørnum $ 53 TABLN 22 MEGET 21 MEGET 100 ADD 20 MEGET 100 ADD NUMS Radix: ## ## #### $ 53 TABLN 1 Primary date: Age Lower echo: Higher echo: $ 53 TABLN 0 MEGET 10 STO 1 MEGET 11 STO 2 MEGET 12 STO 1 $ 0 59 FOR 10 RCL 0 MEPUT 11 RCL 1 MEPUT 12 RCL 1 CNT ADD 2 MEPUT DNORM 2 MEGET 1 MEGET 100 ADD 0 MEGET 100 ADD NUMS ## ## #### \ $ 2 MEGET 1 MEGET 0 MEGET 22 MEGET 21 MEGET 20 MEGET DDIF 0 STO ;age in days 1 ADD 40 1461 MULT NUMS 10 DIVR ###.#\ $ 0 RCL 0 < 0 RCL 32767 > AND IF;less than 89 years age 0 RCL 8111 16577 MULT 1 STO ;lower echo age (days) 0 RCL 16577 8111 MULT 2 STO ;higher echo age (days) $ 20 MEGET 1 RCL ADD 0 MEPUT 21 MEGET 1 MEPUT 22 MEGET 2 MEPUT DNORM ;lower echo date 2 MEGET 1 MEGET 100 ADD 0 MEGET 100 ADD NUMS ## ## #### \ $ 0 RCL 16383 > 20 MEGET 2 RCL ADD 0 > NOT AND IF 20 MEGET 2 RCL ADD 0 MEPUT 21 MEGET 1 MEPUT 22 MEGET 2 MEPUT DNORM ;higher echo date 2 MEGET 1 MEGET 100 ADD 0 MEGET 100 ADD NUMS ## ## #### \ $ ELSE NUMS xxxxxxxxxx \ $ ENDIF ELSE NUMS xxxxxxxxxx \ xxxxxxxxxx \ $ ENDIF 1 $ NEXT 53 TABLN 1 $$$