]> permondes.de Git - Analog_Engine.git/blob - scripts/Radioactive Decay.AESL
ef7fcdf49b3568aabdaa90f13fad9401971b71f8
[Analog_Engine.git] / scripts / Radioactive Decay.AESL
1 IDENTIFICATION DIVISION
2 PROGRAM-ID Radioactive_Decay
3
4 ENVIRONMENT DIVISION
5 ENGINE Anabrid-THAT
6 REQUIRES COEFFICIENT 2
7 REQUIRES INTEGRATOR 1
8 REQUIRES INVERTER 1
9
10 DATA DIVISION
11 OUTPUT OUTPUT.X N
12 COEFFICIENT.1 InitialValue
13 COEFFICIENT.2 Decay
14
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
20
21 OPERATION DIVISION
22 MODE REPEAT
23 OP-TIME 20ms