Динамічні властивості нелінійних локалізованих мод у лінійних молекулярних ланцюжках

$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
";