Отсутствуют файлы 'ZAMS.IN1', 'ZAMS.IN3' или 'ENVELOP.IN', "; echo "необходимыe для работы процедуры ZAMS. Запустите процедуру "; echo "PHYSTAB."; } else { # read X, Z from zams.in1 list ($X1, $Z1) = load_line ("zams.in1", 0); $X1 = rtrim ($X1, "0"); $Z1 = rtrim ($Z1, "0"); # read X, Z from zams.in3 list ($Z3) = load_line ("zams.in3", 0); $Z3 = rtrim ($Z3, "0"); # read X, Y from envelop.in list ($X4, $Y4) = load_line ("envelop.in", 0); $X4 = rtrim ($X4, "0"); $Y4 = rtrim ($Y4, "0"); $Z4 = 1.0 - $X4 - $Y4; if ($Z1 != $Z3 || $X1 != $X4 || abs($Z1-$Z4) > 0.000001) { echo "
Термодинамические таблицы (ZAMS.IN1) рассчитаны для химического ";
echo "состава:
";
echo "X = $X1
";
echo "Z = $Z1
Таблицы коэффициентов ядерных реакций (ZAMS.IN3) ";
echo "рассчитаны для химического состава:
";
echo "Z = $Z3
Таблицы непрозрачностей для моделей оболочек (ENVELOP.IN) ";
echo "рассчитаны для химического состава:
";
echo "X = $X4
";
echo "Z = $Z4
Значения X, Z в файлах ZAMS.IN1, ZAMS.IN3, ENVELOP.IN " . "не совпадают! Выполните заново процедуру " . "PHYSTAB.
"; } else { echo "Таблицы термодинамики (ZAMS.IN1), " .
"коэффициентов ядерных реакций (ZAMS.IN3), " .
"непрозрачностей для моделей оболочек (ENVELOP.IN) " .
"рассчитаны для химического состава:
" .
"X = $X1
" .
"Z = $Z1
" .
"Если вас не устраивает химический состав, " .
"выполните процедуру PHYSTAB.
Чтобы изменить химический состав, выполните процедуру PHYSTAB.
"; } } ?>