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

[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}]