diff options
| -rw-r--r-- | epostunit.pas | 242 |
1 files changed, 68 insertions, 174 deletions
diff --git a/epostunit.pas b/epostunit.pas index 0ef4b6b..44b6427 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -130,6 +130,7 @@ type function xScale: extended; function tScale: extended; function dichtenParameterErkannt(sT: boolean; s: string; var bekannteBefehle: tMyStringList; threads,xMin,xMax,tMin,tMax: longint): boolean; + function ausdehnungsParameterErkannt(sT: boolean; s: string; wessenSkala: tWerte; var bekannteBefehle: tMyStringList; var xMin,xMax,tMin,tMax: longint): boolean; function kont2disk(senkrecht: boolean; x: extended): longint; overload; inline; function kont2disk(dir: char; x: extended): longint; overload; function kont2diskFak(senkrecht: boolean; x: extended): extended; overload; inline; @@ -1332,11 +1333,13 @@ begin vorlagen.gamma:=exprToFloat(false,s); continue; end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin + if istDasBefehl('tMin:',s,bekannteBefehle,true) or + istDasBefehl('yMin:',s,bekannteBefehle,true) then begin vorlagen.tStart:=exprToFloat(false,s); continue; end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin + if istDasBefehl('tMax:',s,bekannteBefehle,true) or + istDasBefehl('yMax:',s,bekannteBefehle,true) then begin vorlagen.tStop:=exprToFloat(false,s); continue; end; @@ -2340,6 +2343,32 @@ begin result:=false; end; +function tWerte.ausdehnungsParameterErkannt(sT: boolean; s: string; wessenSkala: tWerte; var bekannteBefehle: tMyStringList; var xMin,xMax,tMin,tMax: longint): boolean; +begin + result:=true; + if not assigned(wessenSkala) then + wessenSkala:=self; + if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin + xMin:=wessenSkala.kont2disk('x',wessenSkala.exprToFloat(sT,s)); + exit; + end; + if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin + xMax:=wessenSkala.kont2disk('x',wessenSkala.exprToFloat(sT,s)); + exit; + end; + if istDasBefehl('tMin:',s,bekannteBefehle,true) or + istDasBefehl('yMin:',s,bekannteBefehle,true) then begin + tMin:=wessenSkala.kont2disk('t',wessenSkala.exprToFloat(sT,s)); + exit; + end; + if istDasBefehl('tMax:',s,bekannteBefehle,true) or + istDasBefehl('yMax:',s,bekannteBefehle,true) then begin + tMax:=wessenSkala.kont2disk('t',wessenSkala.exprToFloat(sT,s)); + exit; + end; + result:=false; +end; + function tWerte.kont2disk(senkrecht: boolean; x: extended): longint; begin result:=kont2disk(char(ord('x')+byte(senkrecht)),x); @@ -2750,38 +2779,13 @@ begin exit; end; if istDasBefehl('Ende',s,bekannteBefehle,false) then break; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - if length(liKo)=0 then begin - gibAus('xMin kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3); - exit; - end; - xMin:=liKo[0].werte.kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - if length(liKo)=0 then begin - gibAus('xMax kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3); - exit; - end; - xMax:=liKo[0].werte.kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - if length(liKo)=0 then begin - gibAus('tMin kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3); - exit; - end; - tMin:=liKo[0].werte.kont2disk('t',exprToFloat(sT,s)); - continue; + if ((length(liKo)=0) and + ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax)) then begin + gibAus('Ausdehnung kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3); + exit; end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - if length(liKo)=0 then begin - gibAus('tMax kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3); - exit; - end; - tMax:=liKo[0].werte.kont2disk('t',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,liKo[0].werte,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; if tMax<tMin then begin i:=tMax; tMax:=tMin; @@ -2914,6 +2918,7 @@ var quellen: tWerteArray; s: string; Zeit: extended; + bekannteBefehle: tMyStringList; begin result:=false; warteAufBeendigungDesLeseThreads; @@ -2930,48 +2935,42 @@ begin transformationen:=tAgglomeration.create; (transformationen as tAgglomeration).schritt:=-1; (transformationen as tAgglomeration).horizontal:=false; + bekannteBefehle:=tMyStringList.create; repeat + bekannteBefehle.clear; if not f.metaReadln(s,true) then begin gibAus('Unerwartetes Dateiende!',3); + bekannteBefehle.free; exit; end; - if s='Ende' then break; - if startetMit('xMin:',s) then begin - xMin:=quellen[0].kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if startetMit('xMax:',s) then begin - xMax:=quellen[0].kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if startetMit('tMin:',s) then begin - tMin:=quellen[0].kont2disk('t',exprToFloat(sT,s)); - continue; - end; - if startetMit('tMax:',s) then begin - tMax:=quellen[0].kont2disk('t',exprToFloat(sT,s)); + if istDasBefehl('Ende',s,bekannteBefehle,false) then + break; + if ausdehnungsParameterErkannt(sT,s,quellen[0],bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; - if startetMit('Schritt:',s) then begin + if istDasBefehl('Schritt:',s,bekannteBefehle,true) then begin (transformationen as tAgglomeration).schritt:=exprToFloat(sT,s); continue; end; - if startetMit('Nullposition:',s) then begin + if istDasBefehl('Nullposition:',s,bekannteBefehle,true) then begin (transformationen as tAgglomeration).nullposition:=exprToFloat(sT,s); continue; end; - if s='waagerecht' then begin + if istDasBefehl('waagerecht',s,bekannteBefehle,false) then begin (transformationen as tAgglomeration).horizontal:=true; continue; end; - if s='senkrecht' then begin + if istDasBefehl('senkrecht',s,bekannteBefehle,false) then begin (transformationen as tAgglomeration).horizontal:=true; continue; end; setLength(quellen,length(quellen)+1); i:=findeWerte(erstesArgument(s),nil,wertes,konturen,false); - if (i<0) or (wertes^[i]=self) then + if (i<0) or (wertes^[i]=self) then begin + bekannteBefehle.sort; + gibAus('Ansonsten kenne ich noch folgende Befehle:'#10+bekannteBefehle.text,3); + bekannteBefehle.free; exit; + end; quellen[length(quellen)-1]:=wertes^[i]; if length(quellen)=1 then begin _xSteps:=quellen[0]._xSteps; @@ -2979,29 +2978,36 @@ begin end; if _xSteps<>quellen[length(quellen)-1]._xSteps then begin gibAus('Unterschiedliche Anzahl an x-Schritten: '+intToStr(_xSteps)+' bisher vs. '+intToStr(quellen[length(quellen)-1]._xSteps)+' bei '+intToStr(i)+'!',3); + bekannteBefehle.free; exit; end; if _tSiz<>quellen[length(quellen)-1]._tSiz then begin gibAus('Unterschiedliche Anzahl an t-Schritten: '+intToStr(_tSiz)+' bisher vs. '+intToStr(quellen[length(quellen)-1]._tSiz)+' bei '+intToStr(i)+'!',3); + bekannteBefehle.free; exit; end; if quellen[length(quellen)-1].transformationen.xStart<>quellen[0].transformationen.xStart then begin gibAus('Anfangspostionen passen nicht zusammen ('+floatToStr(quellen[0].transformationen.xStart)+' bisher vs. '+floatToStr(quellen[length(quellen)-1].transformationen.xStart)+' bei '+intToStr(i)+')!',3); + bekannteBefehle.free; exit; end; if quellen[length(quellen)-1].transformationen.xStop<>quellen[0].transformationen.xStop then begin gibAus('Endpostionen passen nicht zusammen ('+floatToStr(quellen[0].transformationen.xStop)+' bisher vs. '+floatToStr(quellen[length(quellen)-1].transformationen.xStop)+' bei '+intToStr(i)+')!',3); + bekannteBefehle.free; exit; end; if quellen[length(quellen)-1].transformationen.tStart<>quellen[0].transformationen.tStart then begin gibAus('Anfangszeiten passen nicht zusammen ('+floatToStr(quellen[0].transformationen.tStart)+' bisher vs. '+floatToStr(quellen[length(quellen)-1].transformationen.tStart)+' bei '+intToStr(i)+')!',3); + bekannteBefehle.free; exit; end; if quellen[length(quellen)-1].transformationen.tStop<>quellen[0].transformationen.tStop then begin gibAus('Endzeiten passen nicht zusammen ('+floatToStr(quellen[0].transformationen.tStop)+' bisher vs. '+floatToStr(quellen[length(quellen)-1].transformationen.tStop)+' bei '+intToStr(i)+')!',3); + bekannteBefehle.free; exit; end; until false; + bekannteBefehle.free; if length(quellen)=0 then begin gibAus('Leere Agglomeration!',3); @@ -3121,22 +3127,8 @@ begin end; bekannteBefehle.clear; if istDasBefehl('Ende',s,bekannteBefehle,false) then break; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; if istDasBefehl('epsilon:',s,bekannteBefehle,true) then begin epsilon:=exprToFloat(sT,s); continue; @@ -3233,22 +3225,8 @@ begin end; bekannteBefehle.clear; if istDasBefehl('Ende',s,bekannteBefehle,false) then break; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; if istDasBefehl('konjugiert',s,bekannteBefehle,false) then begin konjugiert:=true; continue; @@ -3466,7 +3444,7 @@ function tWerte.ermittleMinMaxDichten(sT: boolean; f: tMyStringList; threads: lo var s: string; bekannteBefehle: tMyStringList; - xMin,xMax,tMin,tMax: int64; + xMin,xMax,tMin,tMax: longint; begin result:=false; warteAufBeendigungDesLeseThreads; @@ -3485,22 +3463,8 @@ begin end; bekannteBefehle.clear; if istDasBefehl('Ende',s,bekannteBefehle,false) then break; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; bekannteBefehle.sort; gibAus('Verstehe Option '''+s+''' nicht beim Ermitteln von Minimum und Maximum!'#10'Ich kenne:'#10+bekannteBefehle.text,3); bekannteBefehle.free; @@ -5599,22 +5563,8 @@ begin threads:=strToInt(s); continue; end; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=quelle.kont2disk('x',quelle.exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=quelle.kont2disk('x',quelle.exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=quelle.kont2disk('t',quelle.exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,quelle,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=quelle.kont2disk('t',quelle.exprToFloat(sT,s)); - continue; - end; if istDasBefehl('Richtung:',s,bekannteBefehle,true) then begin bekannteBefehle.clear; if istDasBefehl('waagerecht',s,bekannteBefehle,false) then begin @@ -6295,22 +6245,8 @@ begin continue; end; if self.dichtenParameterErkannt(sT,s,bekannteBefehle,threads,xMin,xMax,tMin,tMax) then continue; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; if istDasBefehl('modulo',s,bekannteBefehle,false) then begin modulo:=true; continue; @@ -6692,22 +6628,8 @@ begin datei:=s; continue; end; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; if istDasBefehl('Koordinaten einfügen',s,bekannteBefehle,false) then begin if (_xSteps=1) or (_tSiz=1) then begin mitKoordinaten:=byte(_xSteps=1)*2 + byte(_tSiz=1); @@ -7453,22 +7375,8 @@ begin datei:=s; continue; end; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; if istDasBefehl('x-Skalierung:',s,bekannteBefehle,true) then begin xFak:=kont2diskFak('x',exprToFloat(sT,s)); continue; @@ -7601,22 +7509,8 @@ begin datei:=s; continue; end; - if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin - xMin:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('xMax:',s,bekannteBefehle,true) then begin - xMax:=kont2disk('x',exprToFloat(sT,s)); - continue; - end; - if istDasBefehl('tMin:',s,bekannteBefehle,true) then begin - tMin:=kont2disk('t',exprToFloat(sT,s)); + if ausdehnungsParameterErkannt(sT,s,nil,bekannteBefehle,xMin,xMax,tMin,tMax) then continue; - end; - if istDasBefehl('tMax:',s,bekannteBefehle,true) then begin - tMax:=kont2disk('t',exprToFloat(sT,s)); - continue; - end; if istDasBefehl('toroidal',s,bekannteBefehle,false) then begin toroidal:=true; continue; |