تبليغاتX
اتاق ریاضی -

 

عشق علیه سلام

+ نوشته شده توسط مژگان نیکدل در شنبه دهم آذر 1386 و ساعت 20:10 |

=

بهترين و جذابترين كدهاي جاوا اسكريپت

(* runtime: 1.3 minutes *) phi = 0.5(1 + Sqrt[5]); f[z_] := Module[{r = Log[Abs[z]]/(4Log[phi]) - Arg[z]/(2Pi)}, 18Abs[r - Round[r]]]; OrbitTrap[zc_] := Module[{z = 0, i =0}, While[i < 100 && Abs[z] < 100 && (i < 2 || f[z] > 1), z = z^2 + zc; i++]; Hue[Arg[z]/(2Pi), Min[1, 2 f[z]], Max[0, Min[1, 2(1 - f[z])]]]]; Show[Graphics[RasterArray[Table[OrbitTrap[xc + I yc], {yc, -1.5, 1.5, 3.0/275}, {xc, -2, 1, 3.0/275}]], AspectRatio -> 1]];