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

}

if ($m == 1)

{

$v1[$N+1][$tm1] = $v1[1][$tm1];

$v2[$N+1][$tm1] = $v2[1][$tm1];

$v3[$N+1][$tm1] = $v3[1][$tm1];

$v4[$N+1][$tm1] = $v4[1][$tm1];

$f[$N+1][$t] = $f[1][$t];

$w1[$N+1][$tm1] = $w1[1][$tm1];

$w2[$N+1][$tm1] = $w2[1][$tm1];

$w3[$N+1][$tm1] = $w3[1][$tm1];

$w4[$N+1][$tm1] = $w4[1][$tm1];

$fi[$N+1][$t] = $fi[1][$t];

$y1[$N+1][$tm1] = $y1[1][$tm1];

$y2[$N+1][$tm1] = $y2[1][$tm1];

$y3[$N+1][$tm1] = $y3[1][$tm1];

$y4[$N+1][$tm1] = $y4[1][$tm1];

$p[$N+1][$t] = $p[1][$t];

$z1[$N+1][$tm1] = $z1[1][$tm1];

$z2[$N+1][$tm1] = $z2[1][$tm1];

$z3[$N+1][$tm1] = $z3[1][$tm1];

$z4[$N+1][$tm1] = $z4[1][$tm1];

$u[$N+1][$t] = $u[1][$t];

}

//Запис всіх знайдених змінних