π–£ βšͺα”“α”•α΄₯α—±α—΄Π˜Nα΄₯β“„α‘α‘•π–£“βœ€μ˜·α•€α•¦κ–΄α—©α΄₯βœ€α”“α”•π–£“β“„α΄₯α—©α”“α”•α—±α—΄α‘α‘•π–£“α”“α”•α‘Žκ–΄βš­α—©κ—³βšͺπ–£ βšͺπ–‘Όβšͺπ–£ βšͺπ–‘Όβšͺπ–£ βšͺπ–‘Όβšͺπ–£ βšͺπ–‘ΌβšͺπŸž‹βšͺπ–‘Όβšͺπ–£ βšͺπ–‘Όβšͺπ–£ βšͺπ–‘Όβšͺπ–£ βšͺπ–‘Όβšͺπ–£ βšͺκ—³α—©βš­κ–΄α‘Žα”“α”•π–£“α‘α‘•α—±α—΄α”“α”•α—©α΄₯β“„π–£“α”“α”•βœ€α΄₯α—©κ–΄α•€α•¦μ˜·βœ€π–£“α‘α‘•β“„α΄₯ИNα—±α—΄α΄₯α”“α”•βšͺπ–£  matlab 

                  βšͺα—©βšͺИ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]
View β €'s Profile