Помогите, пожалуйста

Форум пользователей пакета Mathematica

Модератор: Admin

*Аня*
Сообщения: 1
Зарегистрирован: Вс сен 30, 2012 8:29 pm

Помогите, пожалуйста

Сообщение *Аня* » Вс сен 30, 2012 8:47 pm

Построить матрицу 100*100 элементов вида:
Изображение

VSI
Сообщения: 305
Зарегистрирован: Вт мар 15, 2005 6:40 pm
Откуда: Мариуполь

Re: Помогите, пожалуйста

Сообщение VSI » Пн окт 01, 2012 8:17 am

*Аня* писал(а):Построить матрицу 100*100 элементов вида:...

M = Table[
If[EvenQ[i + j], i + j - 1, -(i + j - 1)], {i, 10}, {j, 10}] //
MatrixForm

Это матрица 10х10. Чтобы было 100х100, замените 10 на 100