permondes.de Git - Analog_Engine.git/blob - scripts/Radioactive Decay.AESL

1 IDENTIFICATION DIVISION

2 PROGRAM-ID Radioactive_Decay

4 ENVIRONMENT DIVISION

5 ENGINE Anabrid-THAT

6 REQUIRES COEFFICIENT 2

7 REQUIRES INTEGRATOR 1

8 REQUIRES INVERTER 1

10 DATA DIVISION

11 OUTPUT OUTPUT.X N

12 COEFFICIENT.1 InitialValue

13 COEFFICIENT.2 Decay

15 PROGRAM DIVISION

16 +1 -> COEFFICIENT.InitialValue -> N0

17 N’, IC:N0 -> INTEGRATOR -> -N

18 -N -> COEFFICIENT.Decay -> -lambda*N=N’

19 -N -> INVERTER -> N

21 OPERATION DIVISION

22 MODE REPEAT

23 OP-TIME 20ms