]> permondes.de Git - Analog_Engine.git/blob - AESL/Radioactive Decay.AESL
e225eef3b37195e5debd94219ebce0563717b46d
[Analog_Engine.git] / AESL / 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 ALIAS COEFFICIENT.1 InitialValue
13 ALIAS COEFFICIENT.2 Decay
14
15 PROGRAM DIVISION
16 +1 -> InitialValue -> N0
17 N’, IC:N0 -> Integrator.1 -> -N
18 -N -> Decay -> -lambda*N=N’
19 -N -> Inverter.1 -> N
20
21 OPERATION DIVISION
22 MODE REPEAT
23 OP-TIME 20ms