// Werte werden auf (in1 + \sum_i faki * ini') gesetzt

procedure tFelder.liKo(in1,in2
{$IFDEF lkA3},in3{$ENDIF}
{$IFDEF lkA4},in4{$ENDIF}
{$IFDEF lkA5},in5{$ENDIF}
{$IFDEF lkA6},in6{$ENDIF}
{$IFDEF lkA7},in7{$ENDIF}
{$IFDEF lkA8},in8{$ENDIF}
{$IFDEF lkA9},in9{$ENDIF}
{$IFDEF lkA10},in10{$ENDIF}
{$IFDEF lkA11},in11{$ENDIF}
{$IFDEF lkA12},in12{$ENDIF}
{$IFDEF lkA13},in13{$ENDIF}
{$IFDEF lkA14},in14{$ENDIF}
{$IFDEF lkA15},in15{$ENDIF}
{$IFDEF lkA16},in16{$ENDIF}
{$IFDEF lkA17},in17{$ENDIF}
{$IFDEF lkA18},in18{$ENDIF}
{$IFDEF lkA19},in19{$ENDIF}
{$IFDEF lkA20},in20{$ENDIF}
{$IFDEF lkA21},in21{$ENDIF}
{$IFDEF lkA22},in22{$ENDIF}
{$IFDEF lkA23},in23{$ENDIF}
{$IFDEF lkA24},in24{$ENDIF}
{$IFDEF lkA25},in25{$ENDIF}
{$IFDEF lkA26},in26{$ENDIF}
{$IFDEF lkA27},in27{$ENDIF}
{$IFDEF lkA28},in28{$ENDIF}
{$IFDEF lkA29},in29{$ENDIF}
{$IFDEF lkA30},in30{$ENDIF}
{$IFDEF lkA31},in31{$ENDIF}
{$IFDEF lkA32},in32{$ENDIF}: tFelder;
fak2
{$IFDEF lkA3},fak3{$ENDIF}
{$IFDEF lkA4},fak4{$ENDIF}
{$IFDEF lkA5},fak5{$ENDIF}
{$IFDEF lkA6},fak6{$ENDIF}
{$IFDEF lkA7},fak7{$ENDIF}
{$IFDEF lkA8},fak8{$ENDIF}
{$IFDEF lkA9},fak9{$ENDIF}
{$IFDEF lkA10},fak10{$ENDIF}
{$IFDEF lkA11},fak11{$ENDIF}
{$IFDEF lkA12},fak12{$ENDIF}
{$IFDEF lkA13},fak13{$ENDIF}
{$IFDEF lkA14},fak14{$ENDIF}
{$IFDEF lkA15},fak15{$ENDIF}
{$IFDEF lkA16},fak16{$ENDIF}
{$IFDEF lkA17},fak17{$ENDIF}
{$IFDEF lkA18},fak18{$ENDIF}
{$IFDEF lkA19},fak19{$ENDIF}
{$IFDEF lkA20},fak20{$ENDIF}
{$IFDEF lkA21},fak21{$ENDIF}
{$IFDEF lkA22},fak22{$ENDIF}
{$IFDEF lkA23},fak23{$ENDIF}
{$IFDEF lkA24},fak24{$ENDIF}
{$IFDEF lkA25},fak25{$ENDIF}
{$IFDEF lkA26},fak26{$ENDIF}
{$IFDEF lkA27},fak27{$ENDIF}
{$IFDEF lkA28},fak28{$ENDIF}
{$IFDEF lkA29},fak29{$ENDIF}
{$IFDEF lkA30},fak30{$ENDIF}
{$IFDEF lkA31},fak31{$ENDIF}
{$IFDEF lkA32},fak32{$ENDIF}: double);
var
  i,j: longint;
  emF: tEMFeldGroesze;
begin
  for emF:=erstesEMFMitAbleitung to letztesEMFMitAbleitung do
    for i:=0 to aX-1 do
      (emFelder[emF,false]+i)^:=
        (in1.emFelder[emF,false]+i)^
        + fak2*(in2.emFelder[emF,true]+i)^
        {$IFDEF lkA3}
        + fak3*(in3.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA4}
        + fak4*(in4.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA5}
        + fak5*(in5.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA6}
        + fak6*(in6.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA7}
        + fak7*(in7.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA8}
        + fak8*(in8.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA9}
        + fak9*(in9.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA10}
        + fak10*(in10.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA11}
        + fak11*(in11.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA12}
        + fak12*(in12.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA13}
        + fak13*(in13.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA14}
        + fak14*(in14.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA15}
        + fak15*(in15.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA16}
        + fak16*(in16.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA17}
        + fak17*(in17.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA18}
        + fak18*(in18.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA19}
        + fak19*(in19.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA20}
        + fak20*(in20.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA21}
        + fak21*(in21.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA22}
        + fak22*(in22.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA23}
        + fak23*(in23.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA24}
        + fak24*(in24.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA25}
        + fak25*(in25.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA26}
        + fak26*(in26.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA27}
        + fak27*(in27.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA28}
        + fak28*(in28.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA29}
        + fak29*(in29.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA30}
        + fak30*(in30.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA31}
        + fak31*(in31.emFelder[emF,true]+i)^
        {$ENDIF}
        {$IFDEF lkA32}
        + fak32*(in32.emFelder[emF,true]+i)^
        {$ENDIF};

  for i:=0 to length(impulsraum)-1 do
    for j:=0 to aX*aP-1 do
      (impulsraum[i,false]+j)^:=
        (in1.impulsraum[i,false]+j)^
        + fak2*(in2.impulsraum[i,true]+j)^
        {$IFDEF lkA3}
        + fak3*(in3.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA4}
        + fak4*(in4.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA5}
        + fak5*(in5.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA6}
        + fak6*(in6.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA7}
        + fak7*(in7.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA8}
        + fak8*(in8.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA9}
        + fak9*(in9.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA10}
        + fak10*(in10.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA11}
        + fak11*(in11.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA12}
        + fak12*(in12.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA13}
        + fak13*(in13.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA14}
        + fak14*(in14.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA15}
        + fak15*(in15.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA16}
        + fak16*(in16.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA17}
        + fak17*(in17.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA18}
        + fak18*(in18.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA19}
        + fak19*(in19.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA20}
        + fak20*(in20.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA21}
        + fak21*(in21.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA22}
        + fak22*(in22.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA23}
        + fak23*(in23.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA24}
        + fak24*(in24.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA25}
        + fak25*(in25.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA26}
        + fak26*(in26.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA27}
        + fak27*(in27.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA28}
        + fak28*(in28.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA29}
        + fak29*(in29.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA30}
        + fak30*(in30.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA31}
        + fak31*(in31.impulsraum[i,true]+j)^
        {$ENDIF}
        {$IFDEF lkA32}
        + fak32*(in32.impulsraum[i,true]+j)^
        {$ENDIF};

  {$IFDEF DichteNichtnegativieren}
  nichtnegativieren;
  {$ENDIF}

end;