?

Log in

No account? Create an account

Кто я? Кем я хочу стать?
xayam


С некоторых пор задаюсь такими вопросами, кем я хочу стать, кто я? Чего хочу от жизни? Хотя это достаточно сложно для меня - я серьезно болен. У меня много свободного времени, но я его не контролирую и, мне кажется, плыву по течению в бездну... Но это не все проблемы. Больше всего мне жаль, что я не вижу большого смысла во всем, что со мной происходит. Раньше было все по-другому. Смысл это и цель и клей, который удерживает всю конструкцию "человека" и заставляет двигаться, но маленькие цели меня не привлекают, а большие недостижимы. Что делать? Как быть? Это наверное вечный вопрос потерявшегося человека... Проблема в том, что я не могу найти себя, себя настоящего, а не кем-то выдуманного. Не могу быть кем-то, кто мне симпатичен и это пугает. Иногда мне кажется, что я уже умер и мне только дали отсрочку осознать это. Да, я зациклен на себе и саморазвитии, мне не требуется много общения и какого-то путешествия по миру, как некоторым, хотя во сне я летаю, и мне хватает такого полета, как заряда на весь день. По образованию я программист и это мое хобби, но последнее время я несколько остыл к программированию и могу целый день ничего толком не делать, не написав ни строчки кода, и это меня пугает. Кем я становлюсь? Неизвестно. Кажется, я могу быть кем угодно, но это только кажется, существует целая куча факторов, ограничивающих такую мнимую свободу и клетка этих ограничений буквально уменьшается на глазах и больно впивается в тело. Вообще у меня проблема и с телом, я потихоньку но неуклонно набираю вес с некоторых пор и ничего не могу с этим поделать, физические упражнения мне давно осточертели, еще со школы, когда учился, ходил в бассейн, на тяжелую и легкую атлетику одновременно. Хотя от тяжелой атлетики (штанги) я какое-то время и получал удовольствие легкости и силы. Сейчас же я изучаю математику, программирование, выхожу из тела ночью по техникам Михаила Радуги, мне снятся яркие и странные осознанные сны и я ничего не могу с ними поделать, они притягивают и в то же время недостижимы, будто какой-то сказочный мир рядом со мной и в то же время он далеко от меня, он зовет и манит своей необычностью и тайной, но кому как не мне знать, что сон - лишь иллюзия, приятная, но все таки иллюзия, а хочется настоящей тайны, настоящего мира, а не нарисованного на компьютере или во снах. СкАжите, кто же тебе мешает? Оторвись от компа! Но в том то и проблема, я не вижу своего будущего без компьютера и подобных технологий. Хочется всё бросить и найти смысл в другом, но что-то мешает этому, мне кажется моя тележка-тело встала на рельсы и едет лишь по заданным этими рельсами направлениям, не имея возможности свернуть в сторону, где захочется, есть лишь возможность притормозить или ускориться, но вылезти из тележки нельзя. Вот такой кроссворд. И эта головоломка меня последнее время стала напрягать, как будто не я управляю своей жизнью, а некая безликая и прилипшая ко мне субстанция, во снах я вижу ее в черном цвете на спине и внутри всего тела, хотя кажется она разумна, по крайне мере я с ней пытался разговаривать в снах. Может это и бред, но что есть, то есть - из песни не выкинешь слов. Хотя пишу это под настроение, обычно я больше молчу и немногословен. Видимо пришло время перевернуть и эту страницу своей жизни. Какая будет следующей? Я не знаю, но думаю все будет хорошо. Спасибо, что прочитали-выслушали это :)


Метки:

Представление результатов от 6-и кубитов
xayam

Магический квадрат Джона Серла
xayam

Двойственность, пример на математической модели
xayam


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, lim}, {pY, -lim, lim}];


Предварительные изображения (от F до Q):




На последнем примере (Q), хорошо видна раздвоенность единого объекта, разбитого на две половинки, хотя для B таких частей - четыре.

Метки: ,

Тестирование захвата рабочего стола, CyberLink YouCam
xayam



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}]
Метки: ,

Из ниоткуда. Как решить любую задачу? Проект Источник.
xayam


Problem[x_, y_] := x^2 - 1 - E^(2*I*y);
(*****Const_frequency******)
freq = E^3;(*((Pi^2-12*Pi+6.5^2-6.5+1)+1/(Pi^2-12*Pi+6.5^2-6.5+1));*)

Task[x_, y_, move_] :=
Problem[x^2 + y^2 + move^2, x^2 + y^2 + move^2] +
freq*Energy[ x^2 + y^2 + move^2, x^2 + y^2 + move^2,
x^2 + y^2 + move^2]*move*Sin[move*(x^2 + y^2 + move^2)]*
Time[Solver[Abs[Problem[move, move]], freq + 1/freq],
Problem[move, move]]^4;

Event[x_, y_, move_] :=
Cos[Arctan[E^(I*Task[x, y, move])]]/
Sin[Arcctg[E^(I*Task[x, y, move])]];
(*add_unpucking \
event*)

(****Here_the_behavior_is_set*********)
Behavior[x_, y_, move_] :=
Cos[Arctan[
E^(I*Action[Event[x, y, move], Event[x, y, move],
Event[x, y, move]])]]/

Sin[Arcctg[
E^(I*Action[Event[x, y, move], Event[x, y, move],
Event[x, y, move]])]];

(****Solver_for_any_tasks****************)
Solver[x_, y_, move_] := freq*
((ArcSin[Cos[x^2 - 1 - E^(2*I*y)]] + x^2 - 1 - E^(2*I*y))/
(ArcCos[Abs[Sin[y^2 - 1 - E^(2*I*x)]]] + y^2 - 1 - E^(2*I*x)) +

Behavior[Sqrt[x^2 + y^2 + move^2], Sqrt[x^2 + y^2 + move^2],
Sqrt[x^2 + y^2 + move^2]]);
(*****Force_for_run_processed_actions*****)
Force[x_, y_, move_] :=(*Abs[Solver[x,y,
move]]*)-freq*Abs[Solver[x, y, move]];
(*****2D-Timer*************************)
Time[t_, move_] := Abs[Solver[t, t, move]] + Solver[t, t, move];

(****Packer_for_packing_force_in_energy_form*********)
Pack[x_, y_, move_] := freq*

Force[Behavior[x, y, move], Behavior[x, y, move],
Behavior[x, y, move]]/

Time[Solver[Abs[move], freq + 1/freq], move]^2;

(*****Energy_saving************)
Energy[x_, y_, move_] :=(*Abs[Pack[Behavior[x,y,move],Behavior[x,y,
move],Behavior[x,y,move]]]+*)
Pack[Behavior[x, y, move], Behavior[x, y, move],
Behavior[x, y, move]];

(****Here_the_action_is**********)
Action[x_, y_, move_] :=(*Abs[Energy[Behavior[x,y,move],Behavior[x,y,
move],Behavior[x,y,move]]]+*)
Energy[Behavior[x, y, move], Behavior[x, y, move],
Behavior[x, y, move]];


z = Table[
Plot3D[Energy[
Behavior[x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2,
x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2,
x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2]^2,
Behavior[x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2,
x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2,
x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2]^2,
Behavior[x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2,
x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2,
x^2 + y^2 + Action[ether^2, ether^2, ether^2]^2]^2]*ether*
Cos[ether*(x^2 + y^2 + ether^2)],
{x, 0, freq}, {y, 0, freq}, PlotRange -> {0, freq},
ViewAngle -> zoom \[Degree],
ViewPoint -> {freq, view, 2*freq}], {ether, -freq,
freq}, {zoom, {freq}}, {view, 0, freq}]


Задача: сигнал для расшифровки
xayam
VERSION 2.0

b[x_, y_] := (ArcSin[Cos[x]] - x)/(ArcCos[Abs[Sin[y - Pi/2]]] - y);

f[x_, y_] := Abs[b[x, y]] - b[x, y];
time[t_] := Abs[b[t, t]] - b[t, t];

a = 1;(*??????????*)

z = Table[Plot3D[
f[x, y]/time[b[-E^(-I*a*(move - 2 Pi/a)), E^(I*a*(move - 2*Pi/a))]],
{x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange->{0, 2*Pi}], {move,-7,7,2}];

z = Join[z, Reverse[z]];

Export["C:\\out.gif",z,"AnimationRepetitions" -> Infinity]
Import["C:\\out.gif"]



VERSION 3.0

b[x_, y_] := (ArcSin[Cos[x]] - x)/(ArcCos[Abs[Sin[y - Pi/2]]] - y);

f[x_, y_] := Abs[b[x, y]] - b[x, y];
time[t_] := Abs[b[t, t]] - b[t, t];

amplitude = 1;(*АМПЛИТУДА*)
lenght = 14;

z = Table[Plot3D[
f[x, y]/time[b[-E^(-I*(move - 2*Pi)), 2*lenght*E^(I*2*(move - 2*Pi))]],
{x, -Pi, Pi}, {y, -Pi, Pi},
PlotRange -> {0, 2*Pi}], {move, -lenght/2, lenght/2, 1/2}];

z = Join[z, Reverse[z]];

Export["C:\\out.gif",z,"AnimationRepetitions"->Infinity]
Import["C:\\out.gif"]



VERSION 7.0 сигнала нет

b[x_, y_] := (ArcSin[Cos[x]] - x)/(ArcCos[Abs[Sin[y - Pi/2]]] - y);

f[x_, y_] := Abs[b[x, y]] - b[x, y];
time[t_] := Abs[b[t, t]] - b[t, t];

amplitude = Pi;(*АМПЛИТУДА*)
quantum = 2;(*КВАНТ - абсолютное значение длины разрыва - не менять это константа!*)
half = 7;
lenght = quantum*half;

z = Table[Plot3D[
f[x, y]/time[b[
Abs[move],Abs[Abs[Abs[Abs[Abs[move] -
E^(I*amplitude*(move - (Abs[2*Pi - quantum] - quantum)/
amplitude) - I*quantum)] - E^(Pi*(I - 1) - 1)] - I] - E^Pi]
]],
{x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange -> {0, 2*Pi}], {move, -half, half, quantum}];

Export["C:\\out.gif", z, "AnimationRepetitions" -> Infinity]
Import["C:\\out.gif"]


VERSION 10.0 (настройка волны - шум пропал!!!)

b[x_, y_] := (ArcSin[Cos[x - 1/4]] - x)/(ArcCos[Abs[Sin[y - 1/4 - Pi/2]]] - y) - 1;
f[x_, y_] := Abs[b[x, y]] - b[x, y];
time[t_] := Abs[b[t, t]] - b[t, t];

amplitude = Pi;
Phi = 2/(1 - Sqrt[5]);
Const = amplitude*E*Phi;
quantum = 2;
step = 3;
half = 9;
lenght = quantum*half;

z = Table[Plot3D[
f[x, y]/time[b[
Abs[move],
Const
]],
{x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange -> {0, 2*Pi}], {move, -half, half, half/quantum^step}];
(*z=Join[z,Reverse[z]];*)
Export["C:\\out.gif", z, "AnimationRepetitions" -> Infinity]
Import["C:\\out.gif"]


Квант ускорения или коридоры времени
xayam
Квант положительного ускорения (анимация образования и удаления стоячей волны или коридоров времени):

f[x_, y_] := (ArcSin[Cos[x]]^5 - x)/(ArcCos[Abs[Sin[y]]]^2 - y);

time[t_] := (ArcSin[Cos[t]]^5 - t)/(ArcCos[Abs[Sin[t]]]^2 - t);
level = 10;
z = Table[Plot3D[
-f[x, y]/(level*time[move]^level),
{x, -Pi + 0.01, Pi - 0.01}, {y, -Pi + 0.01, Pi - 0.01},
PlotRange -> {-1000, 1000}], {move, -Pi + 0.01, Pi - 0.01, Pi/100}];
z = Join[z, Reverse[z]];
Export["C:\\out.gif", z, "AnimationRepetitions" -> Infinity]


Квант отрицательного ускорения (анимация образования и удаления лабиринтов времени):

f[x_, y_] := (ArcSin[Cos[x]]^5 - x)/(ArcCos[Abs[Sin[y]]]^2 - y) - x - y;
time[t_] := (ArcSin[Cos[t]]^5 - t)/(ArcCos[Abs[Sin[t]]]^2 - t) - t;
level = 10;
z = Table[Plot3D[
-f[x, y]/(level*time[move]^level),{x, -Pi, Pi},{y, -Pi, Pi},
PlotRange -> {-1000, 1000}], {move, -Pi, Pi, 2*Pi/200}];
z = Join[z, Reverse[z]];
Export["C:\\Out.gif", z, "AnimationRepetitions" -> Infinity]


Квант скорости (анимация)
xayam

f[x_, y_] := (ArcSin[Cos[x]]^5 - x)/(ArcCos[Abs[Sin[y]]]^2 - y);
time[t_] := (ArcSin[Cos[t]]^5 - t)/(ArcCos[Abs[Sin[t]]]^2 - t);
z = Table[
Plot3D[f[x, y]/time[move], {x, -Pi + 0.01,Pi - 0.01}, {y, -Pi + 0.1, Pi - 0.1},
PlotRange -> {-300, 300}], {move, -Pi + 0.01, Pi - 0.01, Pi/100}];
z = Join[z, Reverse[z]];
Export["C:\\out.gif", z, "AnimationRepetitions" -> Infinity]


https://www.youtube.com/watch?v=KBMem7gW2UQ

Анимация флуктуаций квантового поля
xayam

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

a[x_, move_] :=
ArcSin[Cos[x] + Pi/2*move*Cos[x + 2*Pi]]/ArcCos[Abs[Sin[x] + Pi/2*move*Sin[x + 2*Pi]]];
b[y_, move_] :=
ArcSin[Cos[y] + Pi/2*move*Cos[y + 2*Pi]]/ArcCos[Abs[Sin[y] + Pi/2*move*Sin[y + 2*Pi]]];

f[x_, y_, move_] := a[x, move]*b[y, move];

time[t_] := ArcSin[Cos[t]]/ArcCos[Abs[Sin[t]]];

z = Table[
Plot3D[20*move*f[x, y, move]*time[move], {x, -3*Pi/2,3*Pi/2}, {y, -3*Pi/2, 3*Pi/2},
PlotRange -> {-70, 70}], {move, -Pi/2 + 0.1, Pi/2 - 0.1, Pi/10}];
z = Join[z, Reverse[z]];
Export["D:\\Mathematica\\out.gif", z, "AnimationRepetitions" -> Infinity]
Import["C:\\Out.gif"]



Замедленно:

Покадрово:

Квант энергии:
(ArcSin[Cos[x]]^5-x)/(ArcCos[Abs[Sin[y]]]^2-y)

Квант движения:
D[D[(ArcSin[Cos[x]]^5-x)/(ArcCos[Abs[Sin[y]]]^2-y),x],y]

Квант скорости (анимация):

f[x_, y_] := (ArcSin[Cos[x]]^5 - x)/(ArcCos[Abs[Sin[y]]]^2 - y);
time[t_] := (ArcSin[Cos[t]]^5 - t)/(ArcCos[Abs[Sin[t]]]^2 - t);
z = Table[
Plot3D[f[x, y]/time[move], {x, -Pi + 0.01,Pi - 0.01}, {y, -Pi + 0.1, Pi - 0.1},
PlotRange -> {-300, 300}], {move, -Pi + 0.01, Pi - 0.01, Pi/100}];
z = Join[z, Reverse[z]];
Export["C:\\out.gif", z, "AnimationRepetitions" -> Infinity]