permondes.de Git - Analog_Engine.git/blob - scripts/Damped Harmonic Osciallator scaled.AESL

1 IDENTIFICATION DIVISION

2 PROGRAM-ID Damped_Oscillator

4 ENVIRONMENT DIVISION

5 ENGINE Anabrid-THAT

6 TIMEBASE 1ms

7 REQUIRES COEFFICIENT 5

8 REQUIRES INTEGRATOR 2

9 REQUIRES INVERTER 1

10 REQUIRES SUMMER 2

12 DATA DIVISION

13 OUTPUT OUTPUT.U y

14 ALIAS COEFFICIENT.1 InitialPosition

15 ALIAS COEFFICIENT.2 InitialSpeed

16 ALIAS COEFFICIENT.3 SpringForce

17 ALIAS COEFFICIENT.4 Damping # linear to speed

18 ALIAS COEFFICIENT.5 Mass # 1 / mass

20 PROGRAM DIVISION

21 # Colors being used for wiring

22 # - black: y0

23 # - blue: y0’

24 # - green: y0’’

25 # - yellow: y’’, y’

26 # - red: y

27 -1 -> InitialPosition -> -y0 # -initial position of the mass

28 -1 -> InitialSpeed -> y0s’ # y’ is scaled to be within -1..+1

29 +1, y0s’, y0s’ -> Summer -> y0’

31 y’’, IC:y0’ -> INTEGRATOR -> -y’

32 -y’,IC:-y0 -> INTEGRATOR -> y

33 y -> SpringForce -> S*y # springforce times displacement

34 -y’ -> INVERTER -> y’

35 y’ -> Damping -> D*y’ # damping times speed

36 10:S*y, 10:D*y’ -> SUMMER -> -(Dy’+Sy)

37 -(Dy’+Sy) -> Mass -> -1/m*(Dy’+Sy)=y’’

39 OPERATION DIVISION

40 MODE REPEAT

41 OP-TIME 57ms