( Read more... )

Вот интересный опыт случился. Увлекаюсь фазой по методу Михаила Радуги, поэтому экспериментирую с разными методиками. И вот одна из них, имеющая для меня достаточно сложное условие. Но обо всем по порядку ( Read more... )

С некоторых пор задаюсь такими вопросами, кем я хочу стать, кто я? Чего хочу от жизни? Хотя это достаточно сложно для меня - я серьезно болен. У меня много свободного времени, но я его не контролирую и, мне кажется, плыву по течению в бездну... Но это не все проблемы. Больше всего мне жаль, что я не вижу большого смысла во всем, что со мной ( Read more... )

( Read more... )

( Read more... )

F[x_, y_] := Cos[x + y];
G[x_, y_] := F[F[x, x], F[y, y]];
H[x_, y_] := Cos[G[x, y]]^2 + Sin[G[y, x]]^2;
J[x_, y_] := H[x, y]*x*y;
K[x_, y_] := J[x, y]*Cos[x]/Sin[y];
Z[x_, y_] := K[x, x] + K[y, y];
V[x_, y_] := Z[x, x] + 1/Z[y, y];
B[x_, y_] := V[x, y]^2 + V[y, x]^2;
Q[x_, y_] := ArcCos[B[x, y] + B[y, x]];
lim = Pi/2;
Plot3D[Q[pX, pY], {pX, -lim ( Read more... )

Click to view

Click to view

Const = 0.189231011451213671415;
Shift = 2*Pi + 2;
F[x_, y_] := Cos[x + y];
G[x_, y_] := F[F[x, x], F[y, y]];
H[x_, y_] := Cos[G[x, y]]^2 + Sin[G[y, x]]^2;
J[x_, y_] := Abs[H[x, y]*x*y];
K[x_, y_] := J[x, y]*Cos[x]/Sin[y];
Z[x_, y_] := K[x, x] + Abs[K[y, y]];
Plot3D[K[X, Y], {X, -Pi/2, Pi/2}, {Y, -1, 1}]

Problem[x_, y_] := x^2 - 1 - E^(2*I*y ( Read more... )

VERSION 2.0
b[x_, y_] := (ArcSin[Cos[x]] - x)/(ArcCos[Abs[Sin[y - Pi/2]]] - y ( Read more... )

Квант положительного ускорения (анимация образования и удаления стоячей волны или коридоров времени):
f[x_, y_] := (ArcSin[Cos[x]]^5 - x)/(ArcCos[Abs[Sin[y]]]^2 - y ( Read more... )