From: Permondes <machen@permondes.de>
Date: Tue, 16 Jan 2024 17:20:13 +0000 (+0100)
Subject: Mass with charge in em-field
X-Git-Url: https://permondes.de/gitweb/Analog_Engine.git/commitdiff_plain/54bf965f97de8b362cbd0b85440aabbbd861ddc1

Mass with charge in em-field

Example: added "Mass with charge in em-field"
Language: changed OUT to OUTPUT
---

diff --git a/Analog Engine Example Applications.odt b/Analog Engine Example Applications.odt
index fe40752..226f3e4 100644
Binary files a/Analog Engine Example Applications.odt and b/Analog Engine Example Applications.odt differ
diff --git a/Analog Engine Scripting Language.odt b/Analog Engine Scripting Language.odt
index 0abadbd..e2d9a60 100644
Binary files a/Analog Engine Scripting Language.odt and b/Analog Engine Scripting Language.odt differ
diff --git a/Charge in em field.AESL b/Charge in em field.AESL
new file mode 100644
index 0000000..47d2847
--- /dev/null
+++ b/Charge in em field.AESL	
@@ -0,0 +1,32 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID ChargeInEMfield
+VERSION 20240116
+COMMENT A mass m with charge q>0 is located in a static electro-magnetic field [0,0,E], [0,-B,0].
+COMMENT Find the trajetory
+COMMENT Differential equation (Lorentz force): x'' = omega*z', z'' = a*omega^2 - omega*x'
+COMMENT good start settings are omega=0,92, a*omega^2=0,05
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+TIMEBASE 1ms
+REQUIRES INTEGRATOR 4
+REQUIRES INVERTER 1
+REQUIRES COEFFICIENT 3
+
+DATA DIVISION
+OUTPUT OUTPUT.X x
+OUTPUT OUTPUT.Z z
+
+PROGRAM DIVISION
+x'' -> INTEGRATOR.1 -> -x'
+-x' -> INTEGRATOR.2 -> x
+-x' -> COEFFICIENT.6 -> -omega*x'
++1  -> COEFFICIENT.7 -> a*omega^2
+a*omega^2, -omega*x' -> INTEGRATOR.4 -> -z' # input is z''
+-z' -> INTEGRATOR.5 -> z
+-z' -> INVERTER.1 -> z'
+z'  -> COEFFICIENT.5 -> omega*z' = x''
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 0,21ms