|
Пожалуйста, оформляйте код тегами tt или Code. Невозможно же читать.
Вот правильное решение вашей задачи:
A = {{3, 2, 15}, {7, x, 1}, {22, 11, 0}};
Solve[Det[A] == 0, x]
Ваши ошибки:
а) в Mathematica символ = (Set) используется для присваивания. Для проверки на равенство используется символ == (Equal). А символ := (SetDelayed) используется для so-called отложенного присваивания (для определения функций, выражаясь по-простому). Короче, вы тотально попутали эти символы;
б) уравнения (по крайней мере, полиномиальные, как в вашем случае) решаются с помощью функции Solve. Синтаксис её, как вы можете видеть, такой: Solve[уравнение (используем ==), переменные)];
в) AFAIS, вы пользуетесь Mathematica едва ли не первый день. Если бы вы взяли на себя труд хотя бы немного почитать справку (начните с tutorial/GettingStartedOverview: введите этот текст в адресную строку Центра документации), вы не совершали бы таких дурацких ошибок. Пожалуйста, воспользуйтесь справкой прежде чем снова совершать ошибки и задавать вопросы на форуме. Будьте уверены: нет на свете программы, которая была бы задокументирована лучше, чем Wolfram Mathematica.
|
