Не могу найти решение системы из 8 уравнений

@MilaSatt · Регистрация: 11.10.2017

Author24 — интернет-сервис помощи студентам

Решаю систему solve, и выдает [], система правильная 8 уравнений и 8 неизвестных. Помогите решить проблему, пожалуйста.

Haskell

restart; 
with(linalg);
a11 := lambda+exp(q[m, n]-q[m, n-1]);
a12 := -exp(q[m, n]); 
a21 := exp(-q[m, n-1]); 
a22 := -1;
A11 := lambda+exp(q[m+1, n]-q[m+1, n-1]); 
A12 := -exp(q[m+1, n]); 
A21 := exp(-q[m+1, n-1]); 
A22 := -1; 
l11 := lambda+exp(q[m, n]-q[m-1, n]); 
l12 := -exp(q[m, n]); 
l21 := exp(-q[m-1, n]); 
l22 := -1; 
L11 := lambda+exp(q[m+1, n]-q[m, n]); 
L12 := -exp(q[m+1, n]);
L21 := exp(-q[m, n]); 
L22 := -1;
m:=0;
n:=0;
a := a11*v11+a21*v12-a11*w11-a12*w21-A11;
b := a12*v11+a22*v12-a11*w12-a12*w22-A12; 
c := a11*v21+a21*v22-a21*w11-a22*w21-A21; 
d := a12*v21+a22*v22-a21*w12-a22*w22-A22; 
e := l11*v11+l21*v12-l11*w11-l12*w21-L11;
f := l12*v11+l22*v12-l11*w12-l12*w22-L12;
k := l11*v21+l21*v22-l21*w11-l22*w21-L21;
i := l12*v21+l22*v22-l21*w12-l22*w22-L22; 
solve([a = 0, b = 0, c = 0, d = 0, i = 0, e = 0, k = 0, f = 0], [v11, v12, v21, v22, w11, w12, w21, w22]);

@VSI · 16.05.2020, 18:43

MilaSatt, а что это за ОТРИЦАТЕЛЬНЫЕ индексы у элементов матрицы?
q[m, n-1] при Ваших m:=0; и n:=0; получится q[0,-1]. Это так и надо? И так далее...
Вот Ваше сообщение об ошибке: Error, (in fsolve) {lambda, q[-1, 0], q[0, -1], q[0, 0], q[1, -1], q[1, 0]} are in the equation, and are not solved for

@one man · 16.05.2020, 18:46

Сообщение от MilaSatt

система правильная

Похоже, система несовместна. Проверяйте, это линейная система.
Да, а linalg здесь при чём?

@MilaSatt · 16.05.2020, 19:04 **[ТС]**

Я ищу элементы матрицы, linalg потом для проверки
Да, так и надо

@one man · 17.05.2020, 21:33

Сообщение от VSI

а что это за ОТРИЦАТЕЛЬНЫЕ индексы у элементов матрицы?

Нет, в данном случае ошибкой не является. Пакет воспринимает их как обычные индексные переменные.
Это проверяется с помощью процедуры whattype(q[m+1, n-1]);
И в качестве примера можно посмотреть решение системы, которая получается путём урезания авторской. Теперь уже очевидно, что с исходной системой не всё в порядке.

Haskell

restart:
a11 := lambda+exp(q[m, n]-q[m, n-1]); 
a12 := -exp(q[m, n]); 
a21 := exp(-q[m, n-1]); 
a22 := -1; 
A11 := lambda+exp(q[m+1, n]-q[m+1, n-1]);
A12 := -exp(q[m+1, n]); 
m := 0; 
n := 0; 
a := a11*v11+a21*v12-A11; 
b := a12*v11+a22*v12-A12; 
solve([a, b], {v11, v12});

@VSI Модератор $Эксперт по математике/физике$ 5277 / 4059 / 1389 Регистрация: 30.07.2012 Сообщений: 12,429
	16.05.2020, 18:43	2
	MilaSatt, а что это за ОТРИЦАТЕЛЬНЫЕ индексы у элементов матрицы? q[m, n-1] при Ваших m:=0; и n:=0; получится q[0,-1]. Это так и надо? И так далее... Вот Ваше сообщение об ошибке: Error, (in fsolve) {lambda, q[-1, 0], q[0, -1], q[0, 0], q[1, -1], q[1, 0]} are in the equation, and are not solved for 0

@one man 156 / 337 / 62 Регистрация: 09.06.2015 Сообщений: 1,305
	16.05.2020, 18:46	3
	Сообщение от MilaSatt система правильная Похоже, система несовместна. Проверяйте, это линейная система. Да, а linalg здесь при чём? 0

@MilaSatt 0 / 0 / 0 Регистрация: 11.10.2017 Сообщений: 7
	16.05.2020, 19:04 [ТС]	4
	Я ищу элементы матрицы, linalg потом для проверки Да, так и надо Миниатюры 0

	17.05.2020, 21:33