From 313dc9c91ed794336898054a8e0d328e09875359 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 7 Aug 2015 11:03:53 +0200
Subject: inhaltlichen Bug aus DGL entfernt (?)

---
 input.plap | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'input.plap')

diff --git a/input.plap b/input.plap
index 94a7c54..83607cf 100644
--- a/input.plap
+++ b/input.plap
@@ -26,7 +26,7 @@ ausgabenEnde
 !setze $tFwhm:   (2.5 * T)
 !setze $tMitte:  (1 * T)
 
-# licht von links      0.1 * 2^(-2*((t-$tMitte)/$tFwhm)^2) * ω * cos(ω*t)    # Zeitableitung des A-Feldes
+licht von links      2 * 2^(-2*((t-$tMitte)/$tFwhm)^2) * ω * cos(ω*t)    # Zeitableitung des A-Feldes
 
 !setze $IonenMassenFaktor: (1836.15267245 + 1838.68366158)
 
@@ -56,13 +56,13 @@ teilchen2
 #  verteilung wie teilchen1
   verteilung stückweise
     0
-      (0.1*λ + $breite-$profilbreite)/2 - $randbreite
-    sin((x - (0.1*λ + $breite-$profilbreite)/2 - $randbreite)*π/2/$randbreite)^2
-      (0.1*λ + $breite-$profilbreite)/2
+      ($breite-$profilbreite)/2 - $randbreite
+    sin((x - ($breite-$profilbreite)/2 - $randbreite)*π/2/$randbreite)^2
+      ($breite-$profilbreite)/2
     1
-      (0.1*λ + $breite+$profilbreite)/2
-    sin((x - (0.1*λ + $breite+$profilbreite)/2 + $randbreite)*π/2/$randbreite)^2
-      (0.1*λ + $breite+$profilbreite)/2 + $randbreite
+      ($breite+$profilbreite)/2
+    sin((x - ($breite+$profilbreite)/2 + $randbreite)*π/2/$randbreite)^2
+      ($breite+$profilbreite)/2 + $randbreite
     0
   stückweiseEnde
 teilchen2Ende
-- 
cgit v1.2.3-54-g00ecf