Математика 11

[Petrovich_Tot]

а гифку сможешь? ГОЛОВАСТЫЙ+рукастый петров сын
+по просьбам трудящихся планету ЮПИТЕР НАТЮРРЛИХ!
СПРАВКА ЛИКБЕЗ
 100 мега байт любой хостинг гифок класса    www  .upload.ee
   ЗАГРУЗИТ бесплат  хоть с Тоr  Browser Bundle  родн анг верс
вот например
[img]https://www.upload.ee/image/7520615/6777----70-.gif[/im]

гифку сделаю, только я не понял для чего - для стримера?

[Petrovich_Tot]

вихревое кольцо при импульсном истечении газа из сопла

[Petrovich_Tot]

Изменение магнитуды геомагнитного поля с 1918 по 2018 (гифку сделал на Математике)

[Petrovich_Tot]

Вихревое кольцо

[Petrovich_Tot]

На форуме Вольфрама обсуждается вопрос о точности вычислений  http://community.wolfram.com/groups/-/m/t/1327253

[BJIaquMup]

Получи.

Код: [Выделить]

ai := Re[(x^(1/x))^(No^x)];
No = 0.0076797027;
i = -0.33333334;
l = -0.333333333;
Plot[ai, {x, i, l}, ImageSize -> {400, 400}];
Вообще ничего не даёт, гадюка.
А пятера показывает минимум.

[Petrovich_Tot]

Получи.

Код: [Выделить]

ai := Re[(x^(1/x))^(No^x)];
No = 0.0076797027;
i = -0.33333334;
l = -0.333333333;
Plot[ai, {x, i, l}, ImageSize -> {400, 400}];
Вообще ничего не даёт, гадюка.
А пятера показывает минимум.

Убери ; в конце плот. Покажет константу.

[BJIaquMup]

Убери ; в конце плот. Покажет константу.

Какую константу? Нет тут константы.

А чё, график показывать не будет? Нахрен ycpaлась такая программа.

[Petrovich_Tot]

Какую константу? Нет тут константы.

А чё, график показывать не будет? Нахрен ycpaлась такая программа.

на хрена и кому (какому дураку) нужен такой график - горизонтальная линия?   

[BJIaquMup]

на хрена и кому (какому дураку) нужен такой график - горизонтальная линия?   

Я пока ещё вполне способен отличить прямую от кривой. Хотя и являюсь дураком.

[BJIaquMup]

Впрочем, спасибо и на этом.

[Petrovich_Tot]

Я пока ещё вполне способен отличить прямую от кривой. Хотя и являюсь дураком.

что ты сможешь разглядеть в интервале  (-0.33333334, -0.333333333) у степенной функции? Только константу

[BJIaquMup]

что ты сможешь разглядеть в интервале  (-0.33333334, -0.333333333) у степенной функции? Только константу

Для данной функции там минимум. Но это не доказано.
Пощитать конечно можно и без графика. Легко. Но кое-где в других функциях неxyлево и на график взглянуть.

[BJIaquMup]

Посмотрел я на эту навороченную одиннадцатую версию... На меня вылит ушат холодной воды. Есть и плюсы, но минусов столько, что приходится переходить обратно на 5-ю.

[Petrovich_Tot]

Посмотрел я на эту навороченную одиннадцатую версию... На меня вылит ушат холодной воды. Есть и плюсы, но минусов столько, что приходится переходить обратно на 5-ю.

Согласен, я тоже некоторые задач на старых версиях считаю, поскольку на 11.3 все зависает на часы. И память жрет гигабайтами на самых простых задачах. Что они там нагородили, не могу понять.
Минимум у функции есть, надо написать

Код: [Выделить]

FindMinimum[ai, {x, -0.33}]Ответ 

Код: [Выделить]

{-1.82837*10^7, {x -> -0.332054}}На графике тоже можно изобразить

Код: [Выделить]

ai := Re[(x^(1/x))^(No^x)];
No = 0.0076797027;
i = -0.32;
l = -0.35;
Plot[ai, {x, i, l}, ImageSize -> {400, 400}]

[BJIaquMup]

Согласен, я тоже некоторые задач на старых версиях считаю, поскольку на 11.3 все зависает на часы. И память жрет гигабайтами на самых простых задачах. Что они там нагородили, не могу понять.

Ну уж если ты не можешь понять, то я..  +@> тем более.
На тяжелых графиках типа моих "встречных тракторов" там бесполезно. А вот чисто численные решаются очень быстро. Таких задач тоже полно.

Минимум у функции есть, надо написать

Код: [Выделить]

FindMinimum[ai, {x, -0.33}]Ответ 

Код: [Выделить]

{-1.82837*10^7, {x -> -0.332054}}На графике тоже можно изобразить

Код: [Выделить]

ai := Re[(x^(1/x))^(No^x)];
No = 0.0076797027;
i = -0.32;
l = -0.35;
Plot[ai, {x, i, l}, ImageSize -> {400, 400}]

Да это всё я знаю.

[Petrovich_Tot]

Сделал программу для решения нестационарных задач гидродинамики. Код и тесты опубликовал на форуме http://community.wolfram.com/groups/-/m/t/1433064