Mathematica: казус

[Парджеттер]

Добрый вечер всем.

Вот у меня интересный такой ход получается.
Есть выражение такое

$$1+\frac{3}{1+e^{-x/ 200}}$$

Я его хочу сначала продифференцировать, а затем проинтегрировать. Вроде бы должно быть то же самое с точностью до постоянной.
Но результат Mathematica выдает такой

$$-\frac{3}{1+e^{x/ 200}}$$

Код, например, такой

In[1]:= eps = 1 + 3/(1 + Exp[-x/200])

Out[1]= 1 + 3/(1 + E^(-x/200))

In[4]:= deps = D[eps, x]

Out[4]= (3 E^(-x/200))/(200 (1 + E^(-x/200))^2)

In[8]:= ideps = Integrate[deps, x]

Out[8]= -(3/(1 + E^(x/200)))

Это глюк у программы или у меня?

[maxal]

Парджеттер писал(а):

Есть выражение такое

$$1+\frac{3}{1+e^{-x/ 200}}$$

Я его хочу сначала продифференцировать, а затем проинтегрировать. Вроде бы должно быть то же самое с точностью до постоянной.
Но результат Mathematica выдает такой

$$-\frac{3}{1+e^{x/ 200}}$$

Так и есть. Вычислите разность и докажите, что она равна константе

[Someone]

Simplify[eps - ideps] даёт 4.

[Парджеттер]

maxal в сообщении #135508 писал(а):

Так и есть. Вычислите разность и докажите, что она равна константе

Да, константа равна 4. Это я заметил сразу. Я вот чего не пойму - можно преобразовать один результат к другому?

Добавлено спустя 57 секунд:

Я имею в виду получить знак "-" в экспоненте.

[Someone]

Домножьте числитель и знаменатель на $e^{-x/200}$ и выделите целую часть.

[Парджеттер]

Someone писал(а):

Домножьте числитель и знаменатель на $e^{-x/200}$ и выделите целую часть.

Спасибо. Теперь разобрался. А то я смотрю - там минус, здесь плюс. Странно