wolfram-mathematica - Wolframループは1回だけ実行される

Question

こんにちは、Wolfram Cloud でアナログ デジタル コンバーター (ADC) のソフト バージョンを試しています。コードを以下に示します。

min =0.0;
max =15.0;
val=5.0;
avg =0.0;

ans= ConstantArray[0.0,8];
i=0;
while[i<8,i=i+1;
avg = (max+min)/2;

min = If[avg<val , min , avg];
max = If[avg<val, avg, max];

Insert[ans, If[val<avg,0,1], i];

Print[avg]
];

Print[ans];

私が直面している問題は、while ループが 1 回しか実行されず、出力が以下に示されていることです。For ループも試しましたが、結果は同じです。

7.5`
{0.`,0.`,0.`,0.`,0.`,0.`,0.`,0.`}

何が起こっているのか分かりますか？