summaryrefslogtreecommitdiff
path: root/Physikunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'Physikunit.pas')
-rw-r--r--Physikunit.pas36
1 files changed, 18 insertions, 18 deletions
diff --git a/Physikunit.pas b/Physikunit.pas
index 0e8075b..e761834 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -140,7 +140,7 @@ type
tGitter = class(tObject)
private
- besitzer: tSimulation;
+ simulation: tSimulation;
prot: tProtokollant;
zeitverfahren: tZeitverfahren;
abbruch: boolean;
@@ -152,7 +152,7 @@ type
aktuelleFelder: longint;
felders: array of tFelder; // mehrere komplette Simulationsboxen von Feldern, benötigt um Zwischenschritte für die Zeitentwicklung zu speichern
- constructor create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
+ constructor create(besitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
destructor destroy; override;
procedure iteriereSchritt(dT: double);
procedure dumpErhaltungsgroeszen;
@@ -191,7 +191,7 @@ const
minAusgabeBuffer = 1024*1024;
var
- sighupSimulationen: array of tSimulation;
+ simulationen: array of tSimulation;
// tAusgabeDatei ***************************************************************
@@ -1091,7 +1091,7 @@ end;
// tGitter *********************************************************************
-constructor tGitter.create(derBesitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
+constructor tGitter.create(besitzer: tSimulation; aX,aP: longint; deltaX,deltaP: double; bekannteWerte: tKnownValues; teilchen: array of tTeilchenSpezies; lichter: tMyStringlist; zv: tZeitverfahren; name: string);
var
i: longint;
begin
@@ -1106,10 +1106,10 @@ begin
deltaX:=deltaX*(i-1)/(aX-4-1);
abbruch:=false;
- besitzer:=derBesitzer;
+ simulation:=besitzer;
zeitverfahren:=zv;
kvs:=bekannteWerte;
- prot:=tProtokollant.create(besitzer.prot,name);
+ prot:=tProtokollant.create(simulation.prot,name);
dX:=deltaX;
iDX:=1/dX;
case Zeitverfahren of
@@ -1528,7 +1528,7 @@ begin
end;
pro.free;
- if length(sighupSimulationen)=0 then begin
+ if length(simulationen)=0 then begin
new(na);
na^.sa_Handler := sigActionHandler(@signalCapture);
fillchar(na^.sa_Mask,sizeof(na^.sa_mask),#0);
@@ -1542,8 +1542,8 @@ begin
end;
dispose(na);
end;
- setlength(sighupSimulationen,length(sighupSimulationen)+1);
- sighupSimulationen[length(sighupSimulationen)-1]:=self;
+ setlength(simulationen,length(simulationen)+1);
+ simulationen[length(simulationen)-1]:=self;
gitter:=tGitter.create(self,round(breite/dX)+1,2*round(pMax/dP)+1,dX,dP,kvs,teilchen,lichter,zeitverfahren,'gitter');
@@ -1562,11 +1562,11 @@ begin
setlength(ausgabeDateien,0);
gitter.free;
prot.free;
- for i:=length(sighupSimulationen)-1 downto 0 do
- if sighupSimulationen[i]=self then begin
- for j:=i+1 to length(sighupSimulationen)-1 do
- sighupSimulationen[j-1]:=sighupSimulationen[j];
- setlength(sighupSimulationen,length(sighupSimulationen)-1);
+ for i:=length(simulationen)-1 downto 0 do
+ if simulationen[i]=self then begin
+ for j:=i+1 to length(simulationen)-1 do
+ simulationen[j-1]:=simulationen[j];
+ setlength(simulationen,length(simulationen)-1);
end;
inherited destroy;
end;
@@ -1616,13 +1616,13 @@ var
i: longint;
begin
if signal=SIGHUP then
- for i:=0 to length(sighupSimulationen)-1 do
- sighupSimulationen[i].gotSighup:=true;
+ for i:=0 to length(simulationen)-1 do
+ simulationen[i].gotSighup:=true;
end;
initialization
- setlength(sighupSimulationen,0);
+ setlength(simulationen,0);
finalization
- setlength(sighupSimulationen,0);
+ setlength(simulationen,0);
end.