?

Log in

No account? Create an account

Представление результатов от 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]



Пятничная задача: Квадратичный косинус
xayam

Задача: Придумать функцию для графика -

Ограничения: Разрешается использовать только тригонометрические функции (любые) и знаки операций плюс, минус, разделить, умножить, модуль. Также разрешается использовать систему из двух (не более) уравнений (по одному для восходящего и нисходящего графика), но желательно решить одной функцией (такое решение существует и я его опубликую позже)
Update решение:
https://habrahabr.ru/post/343228/
Проблема по ссылке и там в комментариях рассматривается достаточно подробно, но особое место в вопросе белой функции занимает точка Pi/2, фольфрамальфа рисует это так:

Но нужно понимать, что это приближение, идеально в пределе там вертикальная линия и разрыва нет:

дорисовано красным то, что компьютер не может рассчитать!

PS