不正な浮動小数点 (ID:17750)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

<ここです>  for NTime := 1 to NTimeMx do
  begin
      force (N, L, RC, Switch) ;
      CC0 := 1.0 / K;
      CC1 := 1.0;
      for j := 1 to N do
      begin
        if j = NA + 1 then
        begin CC1 := CC0; end;
      RXI := 2.0 * RX[j] - RXO[j] + FX[j] * HSQ * CC1;
      RYI := 2.0 * RY[j] - RYO[j] + FX[j] * HSQ * CC1;
      RXO[j] := RX[j] ;
      RYO[j] := RY[j] ;
      RX[j]  := RXI ;
      RY[j] :=  RYI ;
      end;
  if (NTime mod NPrint) = 0 then
    begin
      Time := H * Ntime ;
      PrintOut (N, NA, Time, Np);
    end;
  if (NTime mod NGraph) = 0 then
    begin
      NOPT := NOPT + 1;
      writeln(Fout,NOPT:4) ;
      Write(fout,N) ;
      Write(fout,NA) ;
      write(fout,NB) ;
      write(fout,L) ;
      s := H * NTime;
      write(Fout, S) ;

for q := 1 to N do
     begin
      if q < NA then
      begin R := 1;  end
      else if q >= NA then
      begin R := 1.5; end;
      writeln(Fout, q);
      writeln(Fout, R);
      writeln(Fout, RX[q]);
      writeln(Fout, RY[q]);
     end;

が、問題のコードです(だとおもいます…)。

←解決時は質問者本人がここをチェックしてください。

戻る