SOS!!!

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

Модератор: Admin

tusha20
Сообщения: 2
Зарегистрирован: Сб дек 04, 2010 10:31 pm

SOS!!!

Сообщение tusha20 » Сб дек 04, 2010 10:33 pm

Помогите пожалуйста)))
мне нужно вывести список из 4 чисел,но при этом их сумма должна равняться 10)))

Andrey
Сообщения: 667
Зарегистрирован: Пн июн 10, 2002 2:05 pm

Сообщение Andrey » Вс дек 05, 2010 5:16 pm

Table[i,{i,4}]
Total[%]

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Вс дек 05, 2010 5:32 pm

Код: Выделить всё

sum4is10[a1_] := NestList[# + 1/3 (5 - 2 a1) &, a1, 3]
sum4is10[3437]
Total[%]
sum4is10[x]
Total[%]


Код: Выделить всё

Append[#, 10 - Total[#]] &[RandomReal[{-10, 10}, 3]]
Total[%]


Код: Выделить всё

ConstantArray[10/4, 4]

tusha20
Сообщения: 2
Зарегистрирован: Сб дек 04, 2010 10:31 pm

Сообщение tusha20 » Пн дек 06, 2010 8:21 pm

вот смотрите)))у меня даны числа n1,n2,n3,n4 и нужно вывести список чисел для n1+n2+n3+n4=10
можете объянить поподробней то,что вы написали,за что я вам очень благодарна)))
а то я начинающий в математике(((