フィボナッチ数列の連続する項の差の比
z(n) = { f(n-1) - f(n-2) } / { f(n) - f(n-1) } 、
これのz(n-1),z(n)の差の絶対値がある定数以下になった時(100項まで)に計算を終了するプログラムを作ったのですが、何度コンパイルしても上の式の除算部でエラーが起きてしまいます。
どこがおかしいのかご教授ください。
program Toi3 (input,output);
const dif = 1.0 * exp(-6);
var n : integer;
result : real;
function f(n:integer):integer;
begin
if(n>=0)and(n<=1) then f:=1
else f:=f(n-1)+f(n-2);
end;{f}
function z(n:integer):real;
begin
z := {f(n-1) - f(n-2)}/{f(n)-f(n-1)}
end;
begin
n:=2;
while (n=100) or (result<dif) do
begin
n:=n+1;
result:= abs(z(n)-z(n-1))
end;
if n=100 then
begin
result:= abs(z(100)-z(99));
if result<dif then
begin
writeln('収束した')
end
else
begin
writeln( z(100),'収束しなかった')
end
end
else
begin
writeln('収束した')
end
end.
エラー： 17 z := {f(n-1) - f(n-2)}/{f(n)-f(n-1)}
E 18460--------------------------------^--- Replaced '/' with a identifier
In function z:
w 18270 variable n is never used
先程アップしたのは、図が変になってしまいました。
改めて質問します。
1つのFF(非同期リセット)をVerilog-HDLで記述すると、以下のように記述出来ますよね？
always @ ( posedge CLK or negedge RESET ) begin
if ( !RESET ) begin
Q <= 1'b0 ;
xQ <= 1'b1 ;
end
else begin
Q <= D ;
xQ <= ~D ;
end
end
この1つのFFをalways文を2つ使って記述出来るんですか？
ご回答宜しくお願いします。
ただいまdelphiで直線検出のハフ変換のプログラムを書いているのですが、コンパイルし、実行しようとするとスタックオーバーフローになってしまいます。
おそらく2次元配列のcounterの部分だと思うのですが、どなたか回避の仕方お分かりになるでしょうか?
ご存じの方いらっしゃいましたら教えて下さい。
下記にハフ変換の部分のコードを載せます。
他にも何か気付いた点ありましたらご指摘お願いいたします。
○直線検出のハフ変換○
var
i, j, k, n: Integer;
rx, ry: Integer;
clr: tcolor;
R: longint;
counter_max: Integer;
THETA_RESOLUTION, RHO_RESOLUTION, LNUMBER_MAX: Integer;
pai: Double;
theta, rho: Integer;
theta_max, rho_max, count: Integer;
theta_cut, rho_cut: Integer;
counter:array[0..1023,0..1999] of Integer; //直線検出のためのカウンタ
sn:array[0..1023] of Double; //sin
cs:array[0..1023] of Double; //cos
begin
THETA_RESOLUTION:=1024; //thetaの範囲は0から1023まで
RHO_RESOLUTION:=2000; //rhoの範囲は-1000から999まで
LNUMBER_MAX:=15; //検索する電線の数は15まで
pai:=PI / THETA_RESOLUTION; //π÷THETA_RESOLUTION
for i:=0 to 1023 do //sinとcosのテーブルを用意
begin
sn[i]:=Sin(pai*i);
cs[i]:=Cos(pai*i);
end;
//ハフ変換の実行//
for rx:=0 to 639 do
begin
for ry:=0 to 479 do
begin
clr:=image1.Canvas.Pixels[rx,ry];
R:=colortorgb(clr);
if(getrvalue(R)=0)and(getgvalue(R)=0)and(getbvalue(R)=0) then //黒である
for theta:=0 to 1023 do
begin
rho:=Trunc(rx*cs[theta]+ry*sn[theta]+0.5);
counter[theta,rho+1000]:=counter[theta,rho+1000]+1;
end;
end;
end;
//ハフ逆変換の実行//
for n:=0 to 14 do
begin
//counterが最大になるtheta_maxとrho_maxを求める//
counter_max:=0;
for theta:=0 to 1023 do
begin
for rho:=-RHO_RESOLUTION div 2 to RHO_RESOLUTION div 2-1 do
begin
if(counter[theta,rho+RHO_RESOLUTION div 2] > counter_max) then
begin
counter_max:=counter[theta,rho+RHO_RESOLUTION div 2];
theta_max:=theta;
rho_max:=rho;
count:=counter_max;
end;
end;
end;
//counter[theta_max,rho_max]の近傍を0にする//
for i:=-20 to 20 do
begin
for j:=-10 to 10 do
begin
theta_cut:=theta_max+i;
rho_cut:=rho_max+j;
if(theta_cut < 0) then
begin
theta_cut:=theta_cut+THETA_RESOLUTION;
rho_cut:=-rho_cut;
end
else if(theta_cut > THETA_RESOLUTION-1) then
begin
theta_cut:=theta_cut-THETA_RESOLUTION;
rho_cut:=-rho_cut;
end;
counter[theta_cut,rho_cut+RHO_RESOLUTION div 2]:=0; //削除する
end;
end;
//ハフ逆変換した結果の表示//
if(theta_max<>0) then //垂線の線を描く
begin
for rx:=0 to 639 do
begin
ry:=Trunc((rho_max-rx*cs[theta_max])/sn[theta_max]+0.5);
if(ry>=480)or(ry<0) then continue;
image1.Canvas.Pixels[rx,ry]:=RGB(255,0,0);
end;
end;
if(theta_max<>THETA_RESOLUTION div 2) then //水平の線を描く
begin
for ry:=0 to 479 do
begin
rx:=Trunc((rho_max-ry*sn[theta_max])/cs[theta_max]+0.5);
if(rx>=640)or(rx<0) then continue;
image1.Canvas.Pixels[rx,ry]:=RGB(255,0,0);
end;
end;
//直線を形成するピクセルが60個未満になったら表示しない//
if count<60 then break;
end;
end;
Ｄｅｌｐｈｉ６Ｐｒｏを使用しています。
実行時のみ発生するエラーなのですが、
例外が発生するとログファイルに出力する様に組んであります。
（ApplicationEvents1Exceptionでトラップ）
コンパイル後のプログラムを実行すると
「'' is not a valid integer value」が出力されています。
これだけでは直接原因しか判らず、変数や場所の特定ができません。
推測するとどうもStringgridの値をstrtointで数値変換している当たりが怪しそうなのですが、該当箇所が多数あり全てにとラップを仕掛けるのは大変効率が悪く困っています。
何か良い方法をご存じでしたら宜しくお願い致します。
