jokersobak

jokersobak

Пикабушник
10К рейтинг 9 подписчиков 3 подписки 279 постов 9 в горячем
Награды:
10 лет на Пикабу
0

Математическое к 8 Марта

Однажды к сибирскому мудрецу пришёл странник, чтобы узнать формулу счастья. Мудрец подумал и дал страннику систему диффуров 2-го порядка.

— Что это? — спросил странник.


— Мои предшественники говорили, что у этой системы диффуров какое-то интересное решение. Но у меня сломался компьютер, а вручную считать мне лень, — ответил мудрец.


И тогда странник посчитал решение системы, и у него получился цветок. Он заметил, что справа цветок не идеален, и у линии наблюдается разрыв.


— В чём дело? — спросил странник мудреца.


— Очевидно, ты используешь плохой численный метод. Или вовсе программировать не умеешь.


Тогда странник нашёл точное решение этой системы (к счастью, система была линейной) и построил его график. Но цветок снова получился не замкнутым.


— У тебя неточная формула. Тоже мне мудрец! — сказал странник. — Или ты хочешь сказать этим, что мир несовершенен?


— Сам ты несовершенен, — возразил мудрец. — Ты же сам выбрал длину временного интервала. Попробуй теперь её увеличить.


И когда странник посчитал решение системы на большем временном интервале, он увидел, что у цветка появились новые лепестки, и цветок стал намного красивее.


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


Поздравляем всех девушек с Международным женским днём 8 Марта и желаем, чтобы на вашу красоту вычислительных мощностей всегда хватало.


P.S. Да, и ещё в уравнениях не указаны начальные условия.



Нарисовать свой цветок с помощью дифференциальных уравнений вы можете на странице http://grenkin.github.io/flower/

Математическое к 8 Марта
Показать полностью 1
2

Банан

Банан

tx[t_] :=

If[t < 1/3, -1/2 + Cos[Pi*t],

If[t < 2/3, 1/2 + Cos[2*Pi/3 + Pi*(t - 1/3)],

Cos[4*Pi/3 + Pi*(t - 2/3)]]];


ty[t_] :=

If[t < 1/3, -1/(2*Sqrt[3]) + Sin[Pi*t],

If[t < 2/3, -1/(2*Sqrt[3]) + Sin[2*Pi/3 + Pi*(t - 1/3)],

1/Sqrt[3] + Sin[4*Pi/3 + Pi*(t - 2/3)]]];


ParametricPlot[{tx[t], ty[t]}, {t, 0, 1}, AspectRatio -> 1,

PlotRange -> {{-1, 1}, {-1, 1}}]

fx[t_] := t;

fy[t_] := 0;

fz[t_] := If[t < 1/2, t^2, t^2 + 12*(t - 1/2)^2];

r[t_] := If[t < 1/2, 0.3*(1 - 2*t^2), 0.3*(1 - 2*(1/2)^2)];

ParametricPlot3D[{fx[s](*-0.2*r[s]*), fy[s] + r[s]*tx[t],

fz[s] + r[s]*ty[t]}, {s, -1/2, 1/2 + 0.1}, {t, 0, 1}, Mesh -> None,

PlotStyle ->

Directive[Specularity[RGBColor[1, 0.8, 0], 20], Yellow,

Lighting -> {{"Directional", Orange, {0, -0.1, 1}}, {"Ambient",

Darker[White, 0.5]}}]]

Удачных экспериментов!

@jokersobak специально для pikabu

Показать полностью
1491

На экзамене

Преподаватель принимает экзамен в большой аудитории-амфитеатре с длинными партами и стульями. Студентов рассадил так, чтобы никто не сидел рядом и не списывал.

В аудиторию заходит другой преподаватель:

- Почему они сидят через одно место?

- Как подготовились, так и сидят.

Всё хорошо, ты держись...

Снова куча пациентов,

Несмотря на то, что лето.

Некогда тут отдохнуть,

У моря полежать, вздремнуть.


Заходишь в кабинет под вечер,

Чтоб проверить свою печень.

Притворяюсь, будто я

Больше не приму тебя.


Опять ты полис забыл.

Всё понимаю, но я не принимаю тебя.

Опять анализ не сдал.

Всё хорошо, ты держись,

Раздевайся, ложись, раз пришёл.


Всё, тебе УЗИ я сделал,

Результат через неделю.

Полис только занеси,

Номер карты сообщи.


Заполняю документы,

Неужели так всё лето?

Ты вручаешь мне коньяк,

Три звезды – не просто так.


Опять ты полис забыл.

Всё понимаю, но я приму коньяк от тебя.

Но ты анализ не сдал.

Всё хорошо, ты держись,

Пей таблетки, лечись, раз пришёл.

Показать полностью
Отличная работа, все прочитано!