Динамічні властивості нелінійних локалізованих мод у лінійних молекулярних ланцюжках
$fu = $u[$m][$t];//Тотожність, зручно записувати у файл просто змінну не масива
$fm = $f[$m][$t]*$f[$m][$t]+$fi[$m][$t]*$fi[$m][$t];
//fputs($xwail, "$m $t $fm $fu\n");
$norm += $fm;
}
$norm2 = 0;
$norm = sqrt($norm);
//print "$norm";
for ($m = 1; $m <= $N; $m++) //Перерозрахунок, застосування
//умови нормування
{
if ($norm != 1)
{
$f[$m][$t] = $f[$m][$t]/$norm;
$fi[$m][$t] = $fi[$m][$t]/$norm;
}
$fu = $u[$m][$t];//Тотожність, зручно записувати у файл
//просто змінну не масива
$fm = $f[$m][$t]*$f[$m][$t]+$fi[$m][$t]*$fi[$m][$t];
fputs($xwail, "$m $t $fm $fu\n");
fputs($pot, "$m $fm $fu\n");
$norm2 += $fm;
}
fclose ($pot);
print "Перевірка норми (час $t): $norm
";