View Snippet
⚪ᗩ⚪ИN⚪人⚪ᗱᗴ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗝ⚪◯⚪ᔓᔕ⚪ᗩ⚪ꖴ⚪ᴥ⚪ᗩ⚪◯⚪ИN⚪ᗩ⚪ᑎ⚪ᒍᒐ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᒍᒐ⚪ᑎ⚪ᗩ⚪ИN⚪◯⚪ᗩ⚪ᴥ⚪ꖴ⚪ᗩ⚪ᔓᔕ⚪◯⚪ᗝ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᗱᗴ⚪人⚪ИN⚪ᗩ⚪[0]=1;
⚪ᗩ⚪ИN⚪人⚪ᗱᗴ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗝ⚪◯⚪ᔓᔕ⚪ᗩ⚪ꖴ⚪ᴥ⚪ᗩ⚪◯⚪ИN⚪ᗩ⚪ᑎ⚪ᒍᒐ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᒍᒐ⚪ᑎ⚪ᗩ⚪ИN⚪◯⚪ᗩ⚪ᴥ⚪ꖴ⚪ᗩ⚪ᔓᔕ⚪◯⚪ᗝ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᗱᗴ⚪人⚪ИN⚪ᗩ⚪[⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪_Integer?Positive]:=⚪ᗩ⚪ИN⚪人⚪ᗱᗴ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗝ⚪◯⚪ᔓᔕ⚪ᗩ⚪ꖴ⚪ᴥ⚪ᗩ⚪◯⚪ИN⚪ᗩ⚪ᑎ⚪ᒍᒐ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᒍᒐ⚪ᑎ⚪ᗩ⚪ИN⚪◯⚪ᗩ⚪ᴥ⚪ꖴ⚪ᗩ⚪ᔓᔕ⚪◯⚪ᗝ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᗱᗴ⚪人⚪ИN⚪ᗩ⚪[⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪]=Sum[2^((⚪✻⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✻⚪ (⚪✻⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✻⚪-1)-⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ (⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪-1))/2) ⚪ᗩ⚪ИN⚪人⚪ᗱᗴ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗝ⚪◯⚪ᔓᔕ⚪ᗩ⚪ꖴ⚪ᴥ⚪ᗩ⚪◯⚪ИN⚪ᗩ⚪ᑎ⚪ᒍᒐ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᒍᒐ⚪ᑎ⚪ᗩ⚪ИN⚪◯⚪ᗩ⚪ᴥ⚪ꖴ⚪ᗩ⚪ᔓᔕ⚪◯⚪ᗝ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᗱᗴ⚪人⚪ИN⚪ᗩ⚪[⚪✻⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✻⚪]/(⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪-⚪✻⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✻⚪+1)!,{⚪✻⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✻⚪,0,⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪-1}]/(2^⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪-1);
⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◯⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪◯⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪_]:=Module[{⚪ИN⚪Ⓞ⚪ꖴ⚪ᔓᔕ⚪ꖴ⚪ᑐᑕ⚪ᗱᗴ⚪ᴥ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᴥ⚪ᗱᗴ⚪ᑐᑕ⚪ꖴ⚪ᔓᔕ⚪ꖴ⚪Ⓞ⚪ИN⚪=Precision[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪],⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪,⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪,⚪¤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪¤⚪,⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪,⚪ᗱᗴ⚪ᑐᑕ⚪ИN⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪ᙁ⚪Ⓞ⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪Ⓞ⚪ᙁ⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ИN⚪ᑐᑕ⚪ᗱᗴ⚪,⚪ᗯ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᗯ⚪,⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪,⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪},If[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪<0,Return[0,Module]];⚪ᗱᗴ⚪ᑐᑕ⚪ИN⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪ᙁ⚪Ⓞ⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪Ⓞ⚪ᙁ⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ИN⚪ᑐᑕ⚪ᗱᗴ⚪=10^(-⚪ИN⚪Ⓞ⚪ꖴ⚪ᔓᔕ⚪ꖴ⚪ᑐᑕ⚪ᗱᗴ⚪ᴥ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᴥ⚪ᗱᗴ⚪ᑐᑕ⚪ꖴ⚪ᔓᔕ⚪ꖴ⚪Ⓞ⚪ИN⚪);⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪=SetPrecision[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,Infinity];⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪=1;⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪=0;⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪=If[0<=⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪<=2,1-Abs[1-⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪],⚪¤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪¤⚪=Quotient[⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪,2];If[ThueMorse[⚪¤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪¤⚪]==1,⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪=-1];1-Abs[1-⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪+2 ⚪¤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪¤⚪]];While[⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪>0,⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪=-Floor[RealExponent[⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪,2]];⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪=2^⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪;⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪-=1/⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪;⚪ᗯ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᗯ⚪=1;
Do[⚪ᗯ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᗯ⚪=⚪ᗩ⚪ИN⚪人⚪ᗱᗴ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗝ⚪◯⚪ᔓᔕ⚪ᗩ⚪ꖴ⚪ᴥ⚪ᗩ⚪◯⚪ИN⚪ᗩ⚪ᑎ⚪ᒍᒐ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᒍᒐ⚪ᑎ⚪ᗩ⚪ИN⚪◯⚪ᗩ⚪ᴥ⚪ꖴ⚪ᗩ⚪ᔓᔕ⚪◯⚪ᗝ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᗱᗴ⚪人⚪ИN⚪ᗩ⚪[⚪ᙏ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᙏ⚪]+⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ ⚪ⴵ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ⴵ⚪ ⚪ᗯ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᗯ⚪/(⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪-⚪ᙏ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᙏ⚪+1);⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪/=2,{⚪ᙏ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᙏ⚪,⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪}];⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪=⚪ᗯ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᗯ⚪-⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪;
If[Abs[⚪ᗯ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᗯ⚪]<Abs[⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪] ⚪ᗱᗴ⚪ᑐᑕ⚪ИN⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪ᙁ⚪Ⓞ⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪Ⓞ⚪ᙁ⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ИN⚪ᑐᑕ⚪ᗱᗴ⚪,Break[]]];SetPrecision[⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪ Abs[⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪],⚪ИN⚪Ⓞ⚪ꖴ⚪ᔓᔕ⚪ꖴ⚪ᑐᑕ⚪ᗱᗴ⚪ᴥ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᴥ⚪ᗱᗴ⚪ᑐᑕ⚪ꖴ⚪ᔓᔕ⚪ꖴ⚪Ⓞ⚪ИN⚪]];⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[Infinity]=Interval[{-1,1}];
⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪_?NumberQ]/;If[Im[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪]==0,TrueQ[Composition[BitAnd[#,#-1]&,Denominator][⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪]==0],False]:=⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◯⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪◯⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪];
Derivative[⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪_Integer][⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪]:=2^(⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ (⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪+1)/2) ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[2^⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ #]&;
SetAttributes[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪,{NumericFunction,Listable}];//Timing//AbsoluteTiming
ClearAll[⚪ᴥ⚪ᗱᗴ⚪ߦ⚪ᙁ⚪ᗱᗴ⚪옷⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◯⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪◯⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪옷⚪ᗱᗴ⚪ᙁ⚪ߦ⚪ᗱᗴ⚪ᴥ⚪,⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪]
⚪ᴥ⚪ᗱᗴ⚪ߦ⚪ᙁ⚪ᗱᗴ⚪옷⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◯⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪◯⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪옷⚪ᗱᗴ⚪ᙁ⚪ߦ⚪ᗱᗴ⚪ᴥ⚪[⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪_?(Head[#]=!=List&),{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪_,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪_,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪_},{{⚪ⵔ⚪◯⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪◯⚪ⵔ⚪_,⚪ⵔ⚪◯⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪◯⚪ⵔ⚪_},⚪ⵔ⚪◯⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪◯⚪ⵔ⚪_},⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪:OptionsPattern[]]:=Module[{⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪,⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪,⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪,⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪},⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪=NDSolve[{⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪'[⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪]==⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪,⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪'[⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪]==Cos[⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪[⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪]],⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪'[⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪]==Sin[⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪[⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪]],⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪[⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪]==⚪ⵔ⚪◯⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪◯⚪ⵔ⚪,⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪[⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪]==⚪ⵔ⚪◯⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪◯⚪ⵔ⚪,⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪[⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪]==⚪ⵔ⚪◯⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪◯⚪ⵔ⚪},{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪},{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪},⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪];
⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪={⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪[#],⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪[#]}&/.First[⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪];
⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪]
⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪[⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪_,{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪_,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪_,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪_},⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪:OptionsPattern[]]:=⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪[⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪,{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪},{{0,0},0},⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪]
⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪[⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪_,{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪_,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪_,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪_},⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪:{{⚪ⵔ⚪◯⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪◯⚪ⵔ⚪_,⚪ⵔ⚪◯⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪◯⚪ⵔ⚪_},⚪ⵔ⚪◯⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪◯⚪ⵔ⚪_},⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪:OptionsPattern[]]:=Module[{⚪\[Theta]⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪\[Theta]⚪,⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,⚪人⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪人⚪,⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪,⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪✤⚪ᗱᗴ⚪ᙏ⚪ᗩ⚪ᴥ⚪ᗩ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᗩ⚪ᴥ⚪ᗩ⚪ᙏ⚪ᗱᗴ⚪✤⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪,⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◯⚪ᙁ⚪ᗩ⚪ꖴ⚪✤⚪ИN⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ꗳ⚪ꖴ⚪ᗝ⚪◯⚪ᙁ⚪ᗩ⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪ᗱᗴ⚪ᙏ⚪ᑎ⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ᑎ⚪ᙏ⚪ᗱᗴ⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪ᗩ⚪ᙁ⚪◯⚪ᗝ⚪ꖴ⚪ꗳ⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ИN⚪✤⚪ꖴ⚪ᗩ⚪ᙁ⚪◯⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪,⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪,⚪ᔓᔕ⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪ᔓᔕ⚪},⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪✤⚪ᗱᗴ⚪ᙏ⚪ᗩ⚪ᴥ⚪ᗩ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᗩ⚪ᴥ⚪ᗩ⚪ᙏ⚪ᗱᗴ⚪✤⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪=FilterRules[{⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪},Options[ParametricPlot]];⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◯⚪ᙁ⚪ᗩ⚪ꖴ⚪✤⚪ИN⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ꗳ⚪ꖴ⚪ᗝ⚪◯⚪ᙁ⚪ᗩ⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪ᗱᗴ⚪ᙏ⚪ᑎ⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ᑎ⚪ᙏ⚪ᗱᗴ⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪ᗩ⚪ᙁ⚪◯⚪ᗝ⚪ꖴ⚪ꗳ⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ИN⚪✤⚪ꖴ⚪ᗩ⚪ᙁ⚪◯⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪=FilterRules[{⚪ᔓᔕ⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ߦ⚪Ⓞ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪Ⓞ⚪ߦ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪ᔓᔕ⚪},Options[NDSolve]];
If[Head[⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪]===List,⚪ᔓᔕ⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪ᔓᔕ⚪=⚪ᴥ⚪ᗱᗴ⚪ߦ⚪ᙁ⚪ᗱᗴ⚪옷⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◯⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪◯⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪옷⚪ᗱᗴ⚪ᙁ⚪ߦ⚪ᗱᗴ⚪ᴥ⚪[#,{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪},⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪,Evaluate@(Sequence@@⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◯⚪ᙁ⚪ᗩ⚪ꖴ⚪✤⚪ИN⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ꗳ⚪ꖴ⚪ᗝ⚪◯⚪ᙁ⚪ᗩ⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪ᗱᗴ⚪ᙏ⚪ᑎ⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ᑎ⚪ᙏ⚪ᗱᗴ⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪ᗩ⚪ᙁ⚪◯⚪ᗝ⚪ꖴ⚪ꗳ⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ИN⚪✤⚪ꖴ⚪ᗩ⚪ᙁ⚪◯⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪)]&/@⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪;
ParametricPlot[Evaluate[#[⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪]&/@⚪ᔓᔕ⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪ᔓᔕ⚪],{⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪},Evaluate@(Sequence@@⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪✤⚪ᗱᗴ⚪ᙏ⚪ᗩ⚪ᴥ⚪ᗩ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᗩ⚪ᴥ⚪ᗩ⚪ᙏ⚪ᗱᗴ⚪✤⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪)],⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪=⚪ᴥ⚪ᗱᗴ⚪ߦ⚪ᙁ⚪ᗱᗴ⚪옷⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◯⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪◯⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪옷⚪ᗱᗴ⚪ᙁ⚪ߦ⚪ᗱᗴ⚪ᴥ⚪[⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪,{⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪},⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪,Evaluate@(Sequence@@⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪ᗱᗴ⚪ᗯ⚪ᙁ⚪Ⓞ⚪ᔓᔕ⚪◯⚪ᙁ⚪ᗩ⚪ꖴ⚪✤⚪ИN⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ꗳ⚪ꖴ⚪ᗝ⚪◯⚪ᙁ⚪ᗩ⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪ᗱᗴ⚪ᙏ⚪ᑎ⚪ИN⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ИN⚪ᑎ⚪ᙏ⚪ᗱᗴ⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪ᗩ⚪ᙁ⚪◯⚪ᗝ⚪ꖴ⚪ꗳ⚪ᗱᗴ⚪ᴥ⚪ᗱᗴ⚪ИN⚪✤⚪ꖴ⚪ᗩ⚪ᙁ⚪◯⚪ᔓᔕ⚪Ⓞ⚪ᙁ⚪ᗯ⚪ᗱᗴ⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪)];
ParametricPlot[Evaluate[⚪ꗳ⚪ꖴ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꖴ⚪ꗳ⚪[⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪]],{⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ꖴ⚪ИN⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪,⚪ᙏ⚪ᑎ⚪ᙏ⚪ꖴ⚪ꕤ⚪ᗩ⚪ᙏ⚪◯⚪✤⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪✤⚪◯⚪ᙏ⚪ᗩ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᑎ⚪ᙏ⚪},Evaluate@(Sequence@@⚪ᔓᔕ⚪ᗱᗴ⚪ᙁ⚪ᑎ⚪ᴥ⚪◯⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᑐᑕ⚪ꖴ⚪ᴥ⚪✤⚪ᗱᗴ⚪ᙏ⚪ᗩ⚪ᴥ⚪ᗩ⚪ߦ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ߦ⚪ᗩ⚪ᴥ⚪ᗩ⚪ᙏ⚪ᗱᗴ⚪✤⚪ᴥ⚪ꖴ⚪ᑐᑕ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪◯⚪ᴥ⚪ᑎ⚪ᙁ⚪ᗱᗴ⚪ᔓᔕ⚪)]]];//Timing//AbsoluteTiming
⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᴥ⚪ᗩ⚪ᗱᗴ⚪ИN⚪ꖴ⚪ᙁ⚪◯⚪ᑐᑕ⚪人⚪ᴥ⚪✤⚪ᗱᗴ⚪ᙏ⚪人⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪人⚪ᙏ⚪ᗱᗴ⚪✤⚪ᴥ⚪人⚪ᑐᑕ⚪◯⚪ᙁ⚪ꖴ⚪ИN⚪ᗱᗴ⚪ᗩ⚪ᴥ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪=Show[
Plot[Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^19),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^19),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^19)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^25),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^19)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^25),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^19)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^25)+Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^32),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
Plot[(-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^4))-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^5)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^7)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^10)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^14)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^19)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪''''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^25)-Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪'''''''[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/Pi*2]]*(1/2^32),{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4*Pi},Axes->True,PlotRange->Full,AspectRatio->Automatic,MaxRecursion->0,PlotPoints->1+2^12,ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True]
,
PlotRange->Full,FrameTicks->{{0,1*\[Pi]/2,2*\[Pi]/2,3*\[Pi]/2,4*\[Pi]/2,5*\[Pi]/2,6*\[Pi]/2,7*\[Pi]/2,8*\[Pi]/2},{1}},ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],Frame->True,AxesStyle->GrayLevel[193/256]
];
⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᴥ⚪ᗩ⚪ᗱᗴ⚪ИN⚪ꖴ⚪ᙁ⚪◯⚪ᑐᑕ⚪人⚪ᴥ⚪✤⚪ᗱᗴ⚪ᙏ⚪人⚪ᔓᔕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᔓᔕ⚪人⚪ᙏ⚪ᗱᗴ⚪✤⚪ᴥ⚪人⚪ᑐᑕ⚪◯⚪ᙁ⚪ꖴ⚪ИN⚪ᗱᗴ⚪ᗩ⚪ᴥ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪
⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ᑎ⚪¤⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪¤⚪ᑎ⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪=Abs[⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ꗳ⚪ᑎ⚪ИN⚪ᑐᑕ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪[⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪/\[Pi]*2]];
GraphicsGrid[{{Plot[⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ᑎ⚪¤⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪¤⚪ᑎ⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪,{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4\[Pi]},Axes->True,AspectRatio->.5/\[Pi],Frame->True,FrameTicks->{{0,1*\[Pi]/2,2*\[Pi]/2,3*\[Pi]/2,4*\[Pi]/2,5*\[Pi]/2,6*\[Pi]/2,7*\[Pi]/2,8*\[Pi]/2},{1}},ImageSize->Automatic,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],MaxRecursion->0,PlotPoints->1+2^8],⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ߦ⚪ᙁ⚪Ⓞ⚪✤⚪[⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ᑎ⚪¤⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪¤⚪ᑎ⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪,{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4\[Pi]},Frame->True,Axes->{False,False},Ticks->{{\[Pi]},{\[Pi]}},FrameTicks->{{0,\[Pi]},{0,\[Pi]}},ImageSize->Full,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],MaxRecursion->0,PlotPoints->1+2^8],Plot[⚪ᗱᗴ⚪ᴥ⚪ᗩ⚪ᑎ⚪¤⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ᔓᔕ⚪¤⚪ᑎ⚪ᗩ⚪ᴥ⚪ᗱᗴ⚪,{⚪ꕤ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꕤ⚪,0,4\[Pi]},Axes->True,AspectRatio->.5/\[Pi],Frame->True,FrameTicks->{{0,1*\[Pi]/2,2*\[Pi]/2,3*\[Pi]/2,4*\[Pi]/2,5*\[Pi]/2,6*\[Pi]/2,7*\[Pi]/2,8*\[Pi]/2},{1}},ImageSize->Automatic,PlotStyle->GrayLevel[179/256],FrameStyle->GrayLevel[193/256],MaxRecursion->0,PlotPoints->1+2^8]}},ImageSize->Full]