diff options
author | Erich Eckner <git@eckner.net> | 2015-08-07 11:03:53 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2015-08-07 11:03:53 +0200 |
commit | 313dc9c91ed794336898054a8e0d328e09875359 (patch) | |
tree | 25fcadc874694242db6f2e6ccfbc80b07cd83353 /Physikunit.pas | |
parent | 924aa698dcd4fb33c925630aeff7b1320e445ab0 (diff) | |
download | Plasmapropagation-313dc9c91ed794336898054a8e0d328e09875359.tar.xz |
Diffstat (limited to 'Physikunit.pas')
-rw-r--r-- | Physikunit.pas | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Physikunit.pas b/Physikunit.pas index ab99170..85b6508 100644 --- a/Physikunit.pas +++ b/Physikunit.pas @@ -648,12 +648,11 @@ begin for i:=0 to length(matWerte)-1 do matWerte[i,mfDPsiDX,true]:= besitzer.spezLadungen[i] * emWerte[efDPhiDX,false] -;// - (rN.matWerte[i,mfGamma,false] - lN.matWerte[i,mfGamma,false]) * iDX/2; + - (rN.matWerte[i,mfGamma,false] - lN.matWerte[i,mfGamma,false]) * iDX/2; - // d2A/dt2 = Laplace(A) - Nabla(phi) ... + // d2A/dt2 = Laplace(A) ... ( - Nabla(dPhi/dt) wird auf dA/dt aufgeschlagen !!! ) emWerte[efDAXDT,true]:= - ( rN.emWerte[efAX,false] - 2*emWerte[efAX,false] + lN.emWerte[efAX,false] )*sqr(iDX) - - emWerte[efDPhiDX,false]; + ( rN.emWerte[efAX,false] - 2*emWerte[efAX,false] + lN.emWerte[efAX,false] )*sqr(iDX); emWerte[efDAYDT,true]:= ( rN.emWerte[efAY,false] - 2*emWerte[efAY,false] + lN.emWerte[efAY,false] )*sqr(iDX); emWerte[efDAZDT,true]:= @@ -671,8 +670,8 @@ begin - (besitzer.spezLadungen[i] * matWerte[i,mfN,false] * matWerte[i,mfIGamma,false] * matWerte[i,mfPZ,false]); end; - // dA/dt = dA/dt - emWerte[efAX,true]:=emWerte[efDAXDT,false];// + emWerte[efDAXDT,true]*dT; + // dA/dt = dA/dt - Nabla(Phi) + emWerte[efAX,true]:=emWerte[efDAXDT,false] - emWerte[efDPhiDX,false];// + emWerte[efDAXDT,true]*dT; emWerte[efAY,true]:=emWerte[efDAYDT,false];// + emWerte[efDAYDT,true]*dT; emWerte[efAZ,true]:=emWerte[efDAZDT,false];// + emWerte[efDAZDT,true]*dT; end; |