; Ultra Fractal formulas by Otto Magus. ; Second collection, started December 2017 Durand-Kerner(PartThereof) { ;https://en.wikipedia.org/wiki/Durand–Kerner_method init: z=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @JM=="J" if @Va=="none" z=z elseif @Va=="22" z=-1/abs(z) elseif @Va=="23" z=4.63/cotanh(z) elseif @Va=="24" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="25" z=3.5/tanh(z) elseif @Va=="26" if real(z)>imag(z) z=flip(z) endif elseif @Va=="27" z=-0.2535/sin(z) elseif @Va=="28" if |z|>1 z=z/|z| endif elseif @Va=="29" z=1.895/sin(z) elseif @Va=="30" if |z|<1 z=z/|z| endif elseif @Va=="30" z=0.5/tan(z) elseif @Va=="31" z=-10/z elseif @Va=="32" z=abs(z) elseif @Va=="33" z=-conj(z) elseif @Va=="34" z=0.6*z elseif @Va=="35" z=0.2*sqr(z) elseif @Va=="36" z=0.4*sqr(z) elseif @Va=="37" z=-1.3*sqr(z) elseif @Va=="38" z=-0.75*cosh(z) elseif @Va=="39" z=-1.5*cos(z) elseif @Va=="40" z=-1.9*cos(z) elseif @Va=="41" z=-3.4*cos(z) elseif @Va=="42" z=2.7*sin(z) elseif @Va=="43" z=z+1/z elseif @Va=="44" z=z-1/z elseif @Va=="45" z=z-1/sqr(z) elseif @Va=="46" z=z-1/cosh(z) elseif @Va=="47" z=z-1/sinh(z) elseif @Va=="48" z=z-1/sin(z) elseif @Va=="49" z=z+2.2/z elseif @Va=="50" z=z+0.05/flip(z) elseif @Va=="51" z=z-0.05/conj(z) elseif @Va=="52" z=z-0.05/cabs(z) elseif @Va=="53" z=z+0.05/cabs(z) elseif @Va=="54" z=z-0.083/exp(z) elseif @Va=="55" z=z-0.083/sqr(z) elseif @Va=="56" z=z+0.083/sqr(z) elseif @Va=="57" z=z+0.3/sqr(z) elseif @Va=="58" z=z+1/cotanh(z) elseif @Va=="59" z=z-0.85/cos(z) elseif @Va=="60" z=z-0.33*sqr(z) elseif @Va=="61" z=z+0.33*sqr(z) elseif @Va=="62" z=z+1.37*sqr(z) elseif @Va=="63" z=z-0.093*sqr(z) elseif @Va=="64" z=z+2.5*cotanh(z) elseif @Va=="65" z=z-2.5*cos(z) endif else if @Va=="none" z=z elseif @Va=="22" z=3.12/cotanh(z) elseif @Va=="23" z=1.5/cotan(z) elseif @Va=="24" z=-1.5/sinh(z) elseif @Va=="25" if real(z)@bail default: title="Durand-Kerner (Part Thereof)" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param p11 caption="J Parameter" default=(0,0) visible=@JM=="J" endparam func fn3 caption="M Function" default=ident() visible=@JM=="M" endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23""24""25""26""27"\ "28""29""30""31""32""33""34""35""36"\ "37""38""39""40""41""42""43""44""45"\ "46""47""48""49""50""51""52""53""54"\ "55""56""57""58""59""60""61""62""63"\ "64""65" endparam param p1 caption="DK Parameter 1" default=(1,0) endparam param p2 caption="DK Parameter 2" default=(1,0) endparam param p3 caption="DK Parameter 3" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(0.75,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } LabsEoseneFaspic { init: z=(fn1(pixel)) int i=0 loop: while i<@iter i=i+1 z=fn2(z) z=(z-p5)/(1-p5*z) z=z/(p6*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=1.7/conj(z) elseif @Va=="7" z=-2.7/sqr(z) elseif @Va=="8" z=-10/sqr(z) elseif @Va=="9" z=1/cotan(z) elseif @Va=="10" z=-1.9/abs(z) elseif @Va=="11" z=-1/tan(z) elseif @Va=="12" z=-2/cosh(z) elseif @Va=="13" z=-1/sinh(z) elseif @Va=="14" z=-1/sin(z) elseif @Va=="15" z=z+1/cabs(z) elseif @Va=="16" z=z+1/sqr(z) elseif @Va=="17" z=z+1/cos(z) elseif @Va=="18" z=z+1/sin(z) elseif @Va=="19" z=z-1/z elseif @Va=="20" z=z-1/abs(z) elseif @Va=="21" z=z-1/exp(z) elseif @Va=="22" z=z-1/sqr(z) elseif @Va=="23" z=z-1/tanh(z) elseif @Va=="24" z=z-1/tan(z) elseif @Va=="25" z=z-1/cosh(z) elseif @Va=="26" z=z-1/cos(z) elseif @Va=="27" z=z-1/sinh(z) elseif @Va=="28" z=z-1/sin(z) elseif @Va=="29" z=z+0.3/flip(z) elseif @Va=="30" z=z-0.3/flip(z) elseif @Va=="31" z=z-0.3/z elseif @Va=="32" z=z-0.3/exp(z) elseif @Va=="33" z=z+10/cos(z) elseif @Va=="34" z=z-10/exp(z) elseif @Va=="35" z=z-10/sqr(z) elseif @Va=="36" z=z-10/cosh(z) elseif @Va=="37" z=z-10/sinh(z) elseif @Va=="38" z=z-10/sin(z) elseif @Va=="39" z=z+5/cotan(z) elseif @Va=="40" z=z+5/cos(z) elseif @Va=="41" z=z-5/sqr(z) elseif @Va=="42" z=z-5/cosh(z) elseif @Va=="43" z=z-5/cos(z) elseif @Va=="44" z=z-2/cosh(z) elseif @Va=="45" z=z-0.55/z elseif @Va=="46" z=z-0.55/cosh(z) elseif @Va=="47" z=z+exp(z) elseif @Va=="48" z=z+sqr(z) elseif @Va=="49" z=z+cosh(z) elseif @Va=="50" z=z-cosh(z) elseif @Va=="51" z=z-cos(z) elseif @Va=="52" z=z+0.37*cabs(z) elseif @Va=="52" z=z-1.8*abs(z) elseif @Va=="53" z=z-0.26*exp(z) elseif @Va=="54" z=z+0.3*sqr(z) elseif @Va=="55" z=z-0.5*sqr(z) elseif @Va=="56" z=z-1.65*sqr(z) elseif @Va=="57" z=z-10*sin(z) elseif @Va=="58" z=1/sin(cotan(z)) elseif @Va=="59" z=1.18/sqr(cotanh(z)) elseif @Va=="60" z=-2.2/sqr(cosh(z)) elseif @Va=="61" z=-55/sqr(cos(z)) elseif @Va=="62" z=55/exp(sinh(z)) elseif @Va=="63" z=z-2/exp(sinh(z)) elseif @Va=="64" z=z-2/exp(sin(z)) elseif @Va=="65" z=z-2/abs(cosh(z)) elseif @Va=="66" z=z-2/abs(tanh(z)) elseif @Va=="67" z=z-2/abs(tan(z)) elseif @Va=="68" z=z-0.27/sqr(tan(z)) elseif @Va=="69" z=z-3.1/tan(cotanh(z)) endif else if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=1/cotan(z) elseif @Va=="7" z=1/tan(z) elseif @Va=="8" z=-1/abs(z) elseif @Va=="9" z=-1/sqr(z) elseif @Va=="10" z=-1/cotan(z) elseif @Va=="11" z=-1/tan(z) elseif @Va=="12" z=-15/sqr(z) elseif @Va=="13" z=15/sqr(z) elseif @Va=="14" z=-5/sqr(z) elseif @Va=="15" z=5/sqr(z) elseif @Va=="16" z=1/flip(cos(z)) elseif @Va=="17" z=1/flip(sin(z)) elseif @Va=="18" z=1/z^4 elseif @Va=="19" z=1/cotan(abs(z)) elseif @Va=="20" z=1/tan(cos(z)) elseif @Va=="21" z=1.9*abs(z) elseif @Va=="22" z=1.4*abs(z) elseif @Va=="23" z=3.7*sqr(z) elseif @Va=="24" z=-sinh(z) elseif @Va=="25" z=z+sqr(abs(z)) elseif @Va=="26" z=z^4 elseif @Va=="27" z=z-z^4 elseif @Va=="28" z=z+1/cabs(z) elseif @Va=="29" z=z+sqr(sin(z)) elseif @Va=="30" z=z+sqr(sinh(z)) elseif @Va=="31" z=z+1/cos(z) elseif @Va=="32" z=z+sqr(cos(z)) elseif @Va=="33" z=z+sqr(cosh(z)) elseif @Va=="34" z=z+z^4 elseif @Va=="35" z=z-0.3*sin(z) elseif @Va=="36" z=z-0.225*sin(z) elseif @Va=="37" z=z-2/sinh(z) elseif @Va=="38" z=z-4.4/abs(z) elseif @Va=="39" z=z+0.5/exp(z) elseif @Va=="40" z=z-12/sqr(z) elseif @Va=="41" z=z+12/sqr(z) elseif @Va=="42" z=z-2/tanh(z) elseif @Va=="43" z=z+17/cosh(z) elseif @Va=="44" z=z-10/sinh(z) elseif @Va=="45" z=z+1/sqr(cotan(z)) elseif @Va=="46" z=z+sqr(z) elseif @Va=="47" z=z+cosh(z) elseif @Va=="48" z=z-2.75*sinh(z) elseif @Va=="49" z=z-7.7*sqr(z) elseif @Va=="50" z=z-2*sqr(z) elseif @Va=="51" z=z+3.3*sqr(z) elseif @Va=="52" z=z+7.7*sqr(z) elseif @Va=="52" z=10/flip(sqr(z)) elseif @Va=="53" z=10/conj(sqr(z)) elseif @Va=="54" z=10/abs(sqr(z)) elseif @Va=="55" z=10/z^4 elseif @Va=="56" z=-10/z^4 elseif @Va=="57" z=-10/flip(sqr(z)) elseif @Va=="58" z=-10/conj(sqr(z)) elseif @Va=="59" z=-10/abs(sqr(z)) elseif @Va=="60" z=10/sqr(cos(z)) elseif @Va=="61" z=-10/sqr(cos(z)) elseif @Va=="62" z=10/sqr(abs(z)) elseif @Va=="63" z=-10/sqr(abs(z)) elseif @Va=="64" z=z-3/cotanh(cotan(z)) elseif @Va=="65" z=z-2.8/sqr(cotanh(z)) elseif @Va=="66" z=z-2.8*sqr(cotanh(z)) elseif @Va=="67" z=z-3^cotan(tanh(z)) elseif @Va=="68" z=z-3.5*tan(tan(z)) elseif @Va=="69" z=z-1.85*cotan(cotan(z)) endif endif float k=real(z) if k<0 z=z*p1-@p7 else z=z*conj(p1)+@p7 endif if @JM=="J" z=p2*log(abs(z))^@pow+p3 else z=p2*log(abs(z))^@pow+p3+fn3(pixel) endif endwhile z=p4*z/100 bailout: |z|<=@bail default: title="Labs Eosene Faspic" maxiter=1000 center=(0.001,0.001) periodicity=0 param JM enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23""24""25""26""27""28"\ "29""30""31""32""33""34""35""36""37""38"\ "39""40""41""42""43""44""45""46""47""48"\ "49""50""51""52""53""54""55""56""57""58"\ "59""60""61""62""63""64""65""66""67""68"\ "69""70""71""72""73""74""75""76""77""78" endparam param iter caption="Iterations" default=5 endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam param p7 caption="EF Parameter 1" default=1.0 endparam param p1 caption="EF Parameter 2" default=(0,-1) endparam param p2 caption="Labs Parameter 1" default=(1,0) endparam param p3 caption="Labs Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 default=ident() caption="M Function" visible=@JM=="M" endfunc param p4 caption="Adjustment" default=101.21145 endparam param bail caption="Bailout" default=1e10 endparam } LabsMöbiusSquared { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=fn2(fn3(z)) z=(z-p1)/(1-p1*z) z=z/(p2*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" z=2.5/flip(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z+0.4/z elseif @Va=="7" z=z+0.4/exp(z) elseif @Va=="8" z=z+0.5/sqr(z) elseif @Va=="9" z=z-0.5/cotan(z) elseif @Va=="10" z=2.5/conj(z) elseif @Va=="11" z=2.2/abs(z) elseif @Va=="12" z=z+0.5*sqr(z) elseif @Va=="13" z=2.8/sin(z) elseif @Va=="14" z=z-0.3*sqr(z) elseif @Va=="15" z=z+0.6*cosh(z) elseif @Va=="16" z=1/abs(z) elseif @Va=="17" z=2.75/sqr(z) elseif @Va=="18" z=3/cosh(z) elseif @Va=="19" z=3.5/cos(z) elseif @Va=="20" z=z-0.5*sin(z) elseif @Va=="21" z=-1.6/cosh(z) elseif @Va=="22" z=z-4/cosh(z) elseif @Va=="23" z=z-4.2/exp(z) elseif @Va=="24" z=z+1.1/exp(z) elseif @Va=="25" z=z-1.3/cos(z) elseif @Va=="26" z=z+0.35/sinh(z) elseif @Va=="27" z=z-0.35*abs(z) elseif @Va=="28" z=z-0.68*exp(z) elseif @Va=="29" z=z-0.3*exp(z) elseif @Va=="30" z=z-2.35*tan(z) elseif @Va=="31" z=z+5/cos(z) endif else if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" z=1.4/abs(z) elseif @Va=="4" z=4.5/sqr(z) elseif @Va=="5" z=-1.3/cotanh(z) elseif @Va=="6" z=z+0.15/sqr(z) elseif @Va=="7" z=z-0.2/sqr(z) elseif @Va=="8" z=z-2/cotanh(z) elseif @Va=="9" z=15.5/cosh(z) elseif @Va=="10" z=-4.5/cos(z) elseif @Va=="11" z=z-2.8/cos(z) elseif @Va=="12" z=3/sinh(z) elseif @Va=="13" z=z-0.3*sqr(z) elseif @Va=="14" z=z+0.5*cotan(z) elseif @Va=="15" z=3/sin(z) elseif @Va=="16" z=z+cos(z) elseif @Va=="17" z=z-cos(z) elseif @Va=="18" z=2.2/sin(z) elseif @Va=="19" z=z+0.3/z elseif @Va=="20" z=z-1.5/exp(z) elseif @Va=="21" z=z+1.1/exp(z) elseif @Va=="22" z=z-1.5/sqr(z) elseif @Va=="23" z=z+0.6/sqr(z) elseif @Va=="24" z=z+3.25/tan(z) elseif @Va=="25" z=z+0.7/cosh(z) elseif @Va=="26" z=z+3/cos(z) elseif @Va=="27" z=1.25*z elseif @Va=="28" z=z+0.25*flip(z) elseif @Va=="29" z=z+0.4*cosh(z) elseif @Va=="30" z=z+3*cos(z) elseif @Va=="31" z=z+1.8*cos(z) endif endif if @JM=="J" z=((-4*p3*z+p4)/(conj(p4)*z+conj(-4*p3)))^2+@p7 else z=((-4*p3*z+p4)/(conj(p4)*z+conj(-4*p3)))^2+@p7+fn4(pixel) endif z=p5*log(abs(z))^@pow2+p6 if @JM=="J" if @Va=="none" z=z elseif @Va=="32" if |z|<1 z=z/|z| endif elseif @Va=="33" if |z|>1 z=z/|z| endif elseif @Va=="34" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="35" if real(z)imag(z) z=flip(z) endif elseif @Va=="37" z=-0.3*z elseif @Va=="38" z=z+0.3/exp(z) elseif @Va=="39" z=z-0.7*sqr(z) elseif @Va=="40" z=z+0.65*sqr(z) elseif @Va=="41" z=z+0.2/exp(z) elseif @Va=="42" z=z-0.3*tanh(z) elseif @Va=="43" z=z-tanh(z) elseif @Va=="44" z=z-0.3*sin(z) elseif @Va=="45" z=1/flip(z) elseif @Va=="46" z=2.2/flip(z) elseif @Va=="47" z=-1/flip(z) elseif @Va=="48" z=1/abs(z) elseif @Va=="49" z=1.5/abs(z) elseif @Va=="50" z=2/sqr(z) elseif @Va=="51" z=4/cosh(z) elseif @Va=="52" z=1.5/sinh(z) elseif @Va=="53" z=z+0.25/conj(z) elseif @Va=="54" z=z+0.25/abs(z) elseif @Va=="55" z=z+0.85/exp(z) elseif @Va=="56" z=z+0.6/sqr(z) elseif @Va=="57" z=25/sqr(z) elseif @Va=="58" z=z-0.85/cotan(z) elseif @Va=="59" z=z-0.55/cotan(z) elseif @Va=="60" z=z-5/cosh(z) elseif @Va=="61" z=z-1/cosh(z) elseif @Va=="62" z=z-1/cos(z) elseif @Va=="63" z=z-0.2*conj(z) elseif @Va=="64" z=z+0.2*conj(z) elseif @Va=="65" z=z-0.2*abs(z) elseif @Va=="66" z=z+0.2*abs(z) elseif @Va=="67" z=z-0.38*exp(z) elseif @Va=="68" z=z-0.25*exp(z) elseif @Va=="69" z=z+0.2*exp(z) elseif @Va=="70" z=z+0.45*sqr(z) elseif @Va=="71" z=z+0.15*sqr(z) elseif @Va=="72" z=z+0.3*sqr(z) elseif @Va=="73" z=z-0.3*sqr(z) elseif @Va=="74" z=z-0.45*sqr(z) elseif @Va=="75" z=z-1.05*sqr(z) elseif @Va=="76" z=z-0.5*cosh(z) elseif @Va=="77" z=z+6*cos(z) elseif @Va=="78" z=z-1.1*cos(z) elseif @Va=="79" z=z-2*cos(z) elseif @Va=="80" z=z-0.75*sinh(z) elseif @Va=="81" z=z-0.53*sin(z) elseif @Va=="82" z=z-0.175*sin(z) endif else if @Va=="none" z=z elseif @Va=="32" if |z|<1 z=z/|z| endif elseif @Va=="33" if |z|>1 z=z/|z| endif elseif @Va=="34" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="35" if real(z)imag(z) z=flip(z) endif elseif @Va=="37" if |z|<1 z=z/|z| endif elseif @Va=="38" if |z|>1 z=z/|z| endif elseif @Va=="39" z=z-0.7*sqr(z) elseif @Va=="40" z=z+0.65*sqr(z) elseif @Va=="41" if real(z)1 z=z/|z| endif elseif @Va=="38" if real(z)imag(z) z=flip(z) endif elseif @Va=="3" z=-flip(z) elseif @Va=="4" z=-sqr(z) elseif @Va=="5" z=-cosh(z) elseif @Va=="6" z=-cos(z) elseif @Va=="7" z=-sinh(z) elseif @Va=="8" z=-sin(z) elseif @Va=="9" z=flip(z) elseif @Va=="10" z=sqr(z) elseif @Va=="11" z=cosh(z) elseif @Va=="12" z=cos(z) elseif @Va=="13" z=sinh(z) elseif @Va=="14" z=sin(z) elseif @Va=="15" z=z+0.3/z elseif @Va=="16" z=z+0.3/cabs(z) elseif @Va=="17" z=z+0.3/exp(z) elseif @Va=="18" z=z+0.3/tan(z) elseif @Va=="19" z=z+0.3/cosh(z) elseif @Va=="20" z=z+0.3/cos(z) elseif @Va=="21" z=z+0.3/sinh(z) elseif @Va=="22" z=z-0.3/cotanh(z) elseif @Va=="23" z=z-0.3/cotan(z) elseif @Va=="24" z=z-0.3/tanh(z) elseif @Va=="25" z=z-0.3/cosh(z) elseif @Va=="26" z=z-0.3/cos(z) endif if @V=="1" if imag(z)>real(z) z=z^2+fn2(pixel) else z=(cabs(real(z))+1i*cabs(imag(z)))^2+fn2(pixel) endif else if imag(z)0 z=z else z=conj(z) endif f=z^z-p1 f1=z^z*(log(z)+1) z=z-p2*(f1/(f*(z-f1/(2*f))))+p3 if @Va=="none" z=z elseif @Va=="1" z=1.2/z elseif @Va=="2" z=3.6/conj(z) elseif @Va=="3" z=0.47/log(z) elseif @Va=="4" z=2.1/sqr(z) elseif @Va=="5" z=2/cotanh(z) elseif @Va=="6" z=4.5/tanh(z) elseif @Va=="7" z=1.8/cosh(z) elseif @Va=="8" z=2.35/sinh(z) elseif @Va=="9" z=z-1.8/z elseif @Va=="10" if |z|>1 z=z/|z| endif elseif @Va=="11" z=z-1.2/z elseif @Va=="12" z=z+0.65/conj(z) elseif @Va=="13" z=z-1.2/abs(z) elseif @Va=="14" if real(z)>imag(z) z=flip(z) endif elseif @Va=="15" z=z-0.4/exp(z) elseif @Va=="16" z=z-0.5/log(z) elseif @Va=="17" z=z+2/cotanh(z) elseif @Va=="18" z=z+1/cotanh(z) elseif @Va=="19" z=z-2.7/cosh(z) elseif @Va=="20" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="21" z=z-2.7/sinh(z) elseif @Va=="22" z=z-1.75/sin(z) elseif @Va=="23" z=z+0.5*log(z) elseif @Va=="24" z=z+2.35*log(z) elseif @Va=="25" z=z+0.42*sinh(z) elseif @Va=="26" if real(z)@bail default: title="Nod Mi Pit 2" center=(0.001,0.001) magn=0.5 periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39"\ "40""41""42""43" endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Nod Mi Pit Parameter 1" default=(1,0) endparam param p2 caption="Nod Mi Pit Parameter 2" default=(1,0) endparam param p3 caption="Nod Mi Pit Parameter 3" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Flipper { init: z=fn1(pixel) loop: z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @V=="1" if real(z)imag(z) z=flip(z) endif endif if imag(z)>real(z) z=z^2+fn2(pixel) else z=(flip(real(z))+1i*flip(imag(z)))^2+fn2(pixel) endif bailout: |z|<@bail default: title="Flipper" center=(0.0001,0.001) periodicity=0 param V caption="Variant" enum="1""2" endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="C Function" default=cabs() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam param bail caption="Bailout" default=100.0 endparam } Erreugal { ; A modification of the Laguerre root finding algorithm init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="3" if real(z)@bail default: title="Erreugal" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54""55""56""57""58" endparam param p2 caption="Erreugal Parameter 1" default=(0.5,0) endparam param p1 caption="Erreugal Parameter 2" default=(1,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Erreugal2 { ; A modification of the Laguerre root finding algorithm init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @Va=="none" z=z elseif @Va=="1" if real(z)1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" z=1/sqr(tanh(z)) elseif @Va=="5" z=1/sqr(sin(z)) elseif @Va=="6" z=1/tanh(flip(z)) elseif @Va=="7" z=1/tan(flip(z)) elseif @Va=="8" z=1/cotanh(z) elseif @Va=="9" z=1/tanh(z) elseif @Va=="10" z=1/sinh(abs(z)) elseif @Va=="11" z=1/tanh(tan(z)) elseif @Va=="12" z=0.025/sqr(abs(z)) elseif @Va=="13" z=-1/abs(z) elseif @Va=="14" z=-1/sqr(tanh(z)) elseif @Va=="15" z=-1/tan(sqr(z)) elseif @Va=="16" z=tanh(tan(z)) elseif @Va=="17" z=tan(tanh(z)) elseif @Va=="18" z=tanh(tanh(z)) elseif @Va=="19" z=7.7*cotan(cotan(z)) elseif @Va=="20" z=z+1/z elseif @Va=="21" z=z+1/sqr(z) elseif @Va=="22" z=z+1/tanh(z) elseif @Va=="23" z=z+1/tan(z) elseif @Va=="24" z=z+1/sinh(z) elseif @Va=="25" z=z+1/sin(z) elseif @Va=="26" z=z-1/z elseif @Va=="27" z=z-1/sin(z) elseif @Va=="28" z=z+1/exp(exp(z)) elseif @Va=="29" z=z+1/sqr(sqr(z)) elseif @Va=="30" z=z+1/sqr(exp(z)) elseif @Va=="31" z=z+1/sqr(tanh(z)) elseif @Va=="32" z=z+1/sqr(sin(z)) elseif @Va=="33" z=z-1/sqr(sqr(z)) elseif @Va=="34" z=z-1/sqr(sinh(z)) elseif @Va=="35" z=z-1/sqr(cotanh(z)) elseif @Va=="36" z=z-1/sqr(cotan(z)) elseif @Va=="37" z=z-0.145/abs(z) elseif @Va=="38" z=z+0.22/sqr(z) elseif @Va=="39" z=z+0.175/z elseif @Va=="40" z=z+1.25/z elseif @Va=="41" z=z+0.3/tan(z) elseif @Va=="42" z=z+0.3/cosh(z) elseif @Va=="43" z=z-0.3/cosh(z) elseif @Va=="44" z=z-0.5/cotan(z) elseif @Va=="45" z=z-0.3/cotan(z) elseif @Va=="46" z=z-0.1/cotanh(z) elseif @Va=="47" z=z-exp(z) elseif @Va=="48" z=z+0.03*flip(z) elseif @Va=="49" z=z-0.08*cabs(z) elseif @Va=="50" z=z-0.045*abs(z) elseif @Va=="51" z=z-0.1*exp(z) elseif @Va=="52" z=z-0.065*z^4 elseif @Va=="53" z=z-0.3*z^4 elseif @Va=="54" z=z-4*z^4 endif f=z^@pow-p1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) g=f1/f h=g^2-f2/f a=@pow/(g+sqr((@pow-1)*(@pow*h-g^2))) z=z-a+p2 bailout: |zold-z|>@bail default: title="Erreugal 2" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54" endparam param p2 caption="Erreugal Parameter 1" default=(0.15,0) endparam param p1 caption="Erreugal Parameter 2" default=(1,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Steffensen { ; Steffensen root finding algorithm ; https://en.wikipedia.org/wiki/Steffensen%27s_method init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=1/sin(z) elseif @Va=="7" z=-1/z elseif @Va=="8" z=-1/abs(z) elseif @Va=="9" z=-1/exp(z) elseif @Va=="10" z=-0.3/sinh(z) elseif @Va=="11" z=z+1/sqr(z) elseif @Va=="12" z=z-1/cotanh(z) elseif @Va=="13" z=z-1/cotan(z) elseif @Va=="14" z=z-0.1/exp(z) elseif @Va=="15" z=z+0.6/exp(z) elseif @Va=="16" z=z-1.4/cotanh(z) elseif @Va=="17" z=z+0.1/tan(z) elseif @Va=="18" z=z+0.22/tan(z) elseif @Va=="19" z=z-1.75/cos(z) elseif @Va=="20" z=z-4.3/cos(z) elseif @Va=="21" z=z+0.3*sqr(z) elseif @Va=="22" z=z+0.3*cotan(z) elseif @Va=="23" z=z-0.3*cotanh(z) elseif @Va=="24" z=z-0.3*tan(z) elseif @Va=="25" z=z-0.4*z^4 endif f=z^@pow-p1 g=((z+z^@pow-p1)^@pow-p1)/f-1 z=z-p2*f/g+p5 if @Va=="26" if |z|<1 z=z/|z| endif elseif @Va=="27" if |z|>1 z=z/|z| endif elseif @Va=="28" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="29" if real(z)imag(z) z=flip(z) endif elseif @Va=="31" z=1/abs(z) elseif @Va=="32" z=-1/abs(z) elseif @Va=="33" z=-1/exp(z) elseif @Va=="34" z=4.3/conj(z) elseif @Va=="35" z=4.3/abs(z) elseif @Va=="36" z=1.065/sqr(z) elseif @Va=="37" z=1.5/cotanh(z) elseif @Va=="38" z=0.75/tanh(z) elseif @Va=="39" z=1.75/cosh(z) elseif @Va=="40" z=-3.3/cos(z) elseif @Va=="41" z=1/abs(sin(z)) elseif @Va=="42" z=0.575/sqr(tanh(z)) elseif @Va=="43" z=z-1/cos(z) elseif @Va=="44" z=z+0.175/z elseif @Va=="45" z=z+0.1/z elseif @Va=="46" z=z-0.2/cabs(z) elseif @Va=="47" z=z+0.25/tan(z) elseif @Va=="48" z=z+0.28/cosh(z) elseif @Va=="49" z=z-0.28/cos(z) elseif @Va=="50" z=z+0.43/sinh(z) elseif @Va=="51" z=z-0.275/sin(z) elseif @Va=="52" z=z+0.175/sqr(tan(z)) elseif @Va=="53" z=z-0.275/sqr(cotan(z)) elseif @Va=="54" z=z+0.155/sin(sin(z)) elseif @Va=="55" z=z+0.275/tan(tan(z)) elseif @Va=="56" z=z+0.114*conj(z) elseif @Va=="57" z=z-0.065*cabs(z) elseif @Va=="58" z=z-0.064*exp(z) elseif @Va=="59" z=z+0.4*sqr(z) elseif @Va=="60" z=z+0.275*sqr(z) elseif @Va=="61" z=z-0.6*sqr(z) elseif @Va=="62" z=z+0.25*cos(z) elseif @Va=="63" z=z+0.175*sinh(z) elseif @Va=="64" z=z+0.15*sin(z) elseif @Va=="65" z=z+1.88*sin(z) elseif @Va=="66" z=z+0.22*sqr(sin(z)) elseif @Va=="67" z=z+0.26*sqr(tan(z)) elseif @Va=="68" z=z+0.127*sqr(tanh(z)) elseif @Va=="69" z=z+0.127*z^4 elseif @Va=="70" z=z-0.117*sqr(cabs(z)) endif bailout: |zold-z|>@bail default: title="Steffensen" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54""55""56""57""58""59""60""61"\ "62""63""64""65""66""67""68""69""70" endparam param p1 caption="Steffensen Parameter 1" default=(1,0) endparam param p2 caption="Steffensen Parameter 2" default=(1,0) endparam param p5 caption="Steffensen Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(0.95,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Erreugal2M { ; A modification of the Laguerre root finding algorithm init: z=fn1(pixel) loop: zold=z z=p3*fn2(z) z=z*(1-p4*z) if @Va=="none" z=z elseif @Va=="1" z=z-4.5/sqr(z) elseif @Va=="2" z=0.04/sqr(z) elseif @Va=="3" z=z-0.25*cotan(cos(z)) elseif @Va=="4" z=z-0.25*cotan(cosh(z)) elseif @Va=="5" z=-0.05/sqr(sqr(z)) elseif @Va=="6" z=-0.25*z^4 elseif @Va=="7" z=z+0.22/sqr(cos(z)) elseif @Va=="8" z=z-1/flip(conj(z)) elseif @Va=="9" z=z+1/conj(z) elseif @Va=="10" z=z+4.5/sqr(z) elseif @Va=="11" z=-0.02/abs(z) elseif @Va=="12" z=0.025/sqr(abs(z)) elseif @Va=="13" z=z+2/z^4 elseif @Va=="14" z=z+2/sqr(cotanh(z)) elseif @Va=="15" z=z+0.4/sqr(cotan(z)) elseif @Va=="16" z=tanh(tan(z)) elseif @Va=="17" z=tan(tanh(z)) elseif @Va=="18" z=z+0.22/cotan(sqr(z)) elseif @Va=="19" z=z+0.3/cosh(sqr(z)) elseif @Va=="20" z=z+1/z elseif @Va=="21" z=z+1/sqr(z) elseif @Va=="22" z=z+0.3/cos(sqr(z)) elseif @Va=="23" z=z+0.3/sinh(sqr(z)) elseif @Va=="24" z=z+1/sinh(z) elseif @Va=="25" z=z+1/sin(z) elseif @Va=="26" z=z-1/z elseif @Va=="27" z=sqr(conj(z)) elseif @Va=="28" z=z+0.22/sin(cos(z)) elseif @Va=="29" z=z+1/sqr(sqr(z)) elseif @Va=="30" z=z+0.22/cotanh(sqr(z)) elseif @Va=="31" z=z+0.3/sin(sqr(z)) elseif @Va=="32" z=z+1/sqr(sin(z)) elseif @Va=="33" z=z-1/sqr(sqr(z)) elseif @Va=="34" z=z-1/sqr(sinh(z)) elseif @Va=="35" z=z-1/sqr(cotanh(z)) elseif @Va=="36" z=z-1/sqr(cotan(z)) elseif @Va=="37" z=z+0.3/sin(sin(z)) elseif @Va=="38" z=z+0.22/sqr(z) elseif @Va=="39" z=z+0.175/z elseif @Va=="40" z=z+sqr(z) elseif @Va=="41" z=z+0.3/tan(z) elseif @Va=="42" z=z+0.3/cosh(z) elseif @Va=="43" z=z-0.3/cosh(z) elseif @Va=="44" z=z-0.5/cotan(z) elseif @Va=="45" z=z-sqr(z) elseif @Va=="46" z=z-0.1/cotanh(z) elseif @Va=="47" z=z-0.5*cotan(z) elseif @Va=="48" z=z+0.3*cotan(recip(z)) elseif @Va=="49" z=z-0.08*cabs(z) elseif @Va=="50" z=z+0.3*tan(recip(z)) elseif @Va=="51" z=z+1.5*cotan(cotanh(z)) elseif @Va=="52" z=z+0.8*cotan(tanh(z)) elseif @Va=="53" z=z-0.3*z^4 elseif @Va=="54" z=z-0.3*cotan(tan(z)) endif f=z^@pow-20*p1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) g=f1/f h=g^2-f2/f a=@pow/(g+sqr((@pow-1)*(@pow*h-g^2))) z=z-p5*a/10+p2+fn3(pixel) bailout: |zold-z|>@bail default: title="Erreugal 2 M" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54" endparam param p1 caption="Erreugal Parameter 1" default=(0.05,0) endparam param p5 caption="Erreugal Parameter 2" default=(5,0) endparam param p2 caption="Erreugal Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter" default=(1,0) endparam param p4 caption="Quasi-Logistic Parameter" default=(0,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } ErreugalM { ; A modification of the Laguerre root finding algorithm init: z=fn1(pixel) loop: zold=z z=p3*fn2(z) z=z*(1-p4*z) if @Va=="none" z=z elseif @Va=="1" z=z+0.5/sinh(sqr(z)) elseif @Va=="2" z=z-0.5*sqr(cotanh(z)) elseif @Va=="3" z=z-0.01*cotanh(z)^4 elseif @Va=="4" z=z-0.035*cotan(z)^4 elseif @Va=="5" z=0.08/sqr(z) elseif @Va=="6" z=-0.1/sqr(z) elseif @Va=="7" z=0.04675/abs(sqr(z)) elseif @Va=="8" z=-0.6/tan(sqr(z)) elseif @Va=="9" z=-1.2/tan(tan(z)) elseif @Va=="10" z=z-0.75/exp(z) elseif @Va=="11" z=-0.3/z^4 elseif @Va=="12" z=-1/z elseif @Va=="13" z=0.085*cotanh(cotan(z)) elseif @Va=="14" z=z-1.8/tanh(z) elseif @Va=="15" z=z-1/z elseif @Va=="16" z=z-cotanh(z) elseif @Va=="17" z=z-0.42/sqr(tanh(z)) elseif @Va=="18" z=z+0.9/exp(recip(z)) elseif @Va=="19" z=z-1/sin(z) elseif @Va=="20" z=z+0.3*exp(z) elseif @Va=="21" z=z-0.5/sinh(sqr(z)) endif f=z^@pow-10*p1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) g=f1/f h=g^2-f2/f a=@pow/(g+(@pow-1)*(@pow*h-g^2)) z=z-p5*a/5+p2+fn3(pixel) if @Va=="22" z=0.11/z^3 elseif @Va=="23" z=-0.11/conj(z^3) elseif @Va=="24" z=z+1/exp(recip(z)) elseif @Va=="25" z=z+0.32*cotanh(recip(z)) elseif @Va=="26" z=-0.59/z elseif @Va=="27" z=-0.355/z elseif @Va=="28" z=-0.075/sqr(z) elseif @Va=="29" z=-0.1/sqr(z) elseif @Va=="30" z=z+0.25/cos(sqr(recip(z))) elseif @Va=="31" z=1.156/cotan(z) elseif @Va=="32" z=-1.3/tan(z) elseif @Va=="33" z=1.94/tanh(cotan(z)) elseif @Va=="34" z=0.3/abs(z^4) elseif @Va=="35" z=z+1/sqr(z) elseif @Va=="36" z=z-1/z elseif @Va=="37" z=-0.3/conj(z^4) elseif @Va=="38" z=z-1/cosh(z) elseif @Va=="39" z=0.3/flip(z^4) elseif @Va=="40" z=cotanh(z) elseif @Va=="41" z=0.07*cotanh(cotan(z)) elseif @Va=="42" z=0.13*cotanh(cotan(tan(z))) elseif @Va=="43" z=-0.06*cotanh(sqr(sinh(z))) elseif @Va=="44" z=z+1/z elseif @Va=="45" z=z-1/z elseif @Va=="46" z=z-0.7/cosh(z)^4 elseif @Va=="47" z=-1.93*cotan(z) elseif @Va=="48" z=z+1/z^4 elseif @Va=="49" z=z-0.6/z^4 elseif @Va=="50" z=-0.335/z^4 elseif @Va=="51" z=z-0.69*sqr(cos(z)) elseif @Va=="52" z=z-0.08/tan(z)^4 elseif @Va=="53" z=z-1.7*cotanh(z) elseif @Va=="54" z=z+cotan(z) elseif @Va=="55" z=z-cotan(z) elseif @Va=="56" z=z-0.025*cotanh(z)^4 elseif @Va=="57" z=z-0.1*cotan(z)^4 elseif @Va=="58" z=0.17*sin(z) endif bailout: |zold-z|>@bail default: title="Erreugal M" center=(0.001,0.001) periodicity=0 magn=1.5 param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54""55""56""57""58" endparam param p1 caption="Erreugal Parameter 1" default=(0.1,0) endparam param p5 caption="Erreugal Parameter 2" default=(5,0) endparam param p2 caption="Erreugal Parameter 3" default=(0.5,0) endparam param p3 caption="Loop Parameter" default=(1,0) endparam param p4 caption="Quasi-Logistic Parameter" default=(0,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Kreen { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=fn2(z) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif elseif @Va=="3" z=1/flip(conj(z)) elseif @Va=="4" z=1/flip(abs(z)) elseif @Va=="5" z=1/flip(tan(z)) elseif @Va=="6" z=1/flip(cosh(z)) elseif @Va=="7" z=1/flip(sinh(z)) elseif @Va=="8" z=1/sqr(exp(z)) elseif @Va=="9" z=1/cotan(sqr(z)) elseif @Va=="10" z=1/cosh(log(z)) elseif @Va=="11" z=z+0.7/flip(z) elseif @Va=="12" z=z+0.3/sqr(z) elseif @Va=="13" z=z+1/cotanh(z) elseif @Va=="14" z=z+1/cotan(z) elseif @Va=="15" z=z+1/flip(conj(z)) elseif @Va=="16" z=z+1/flip(abs(z)) elseif @Va=="17" z=z-0.2/flip(exp(z)) elseif @Va=="18" z=z-0.15/flip(cosh(z)) elseif @Va=="19" z=z+1/conj(flip(z)) elseif @Va=="20" z=z+1/abs(flip(z)) elseif @Va=="21" z=z+1/exp(exp(z)) elseif @Va=="22" z=z-0.2/exp(sqr(z)) elseif @Va=="23" z=z+1/exp(cotan(z)) elseif @Va=="24" z=z+1/exp(cosh(z)) elseif @Va=="25" z=z-0.35*sqr(z) elseif @Va=="26" z=z+cosh(z) elseif @Va=="27" z=z+0.18*flip(abs(z)) elseif @Va=="28" z=z-0.18*flip(abs(z)) elseif @Va=="29" z=z-0.04*flip(exp(z)) elseif @Va=="30" z=z+0.093*flip(sqr(z)) elseif @Va=="31" z=z+conj(flip(z)) elseif @Va=="32" z=z+0.5*conj(flip(z)) elseif @Va=="33" z=z+0.3*conj(abs(z)) elseif @Va=="34" z=z-0.1*sqr(abs(z)) elseif @Va=="35" z=z+sqr(exp(z)) elseif @Va=="36" z=z+0.05*z^4 endif else if @Va=="none" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif elseif @Va=="3" z=z+0.56/cosh(z) elseif @Va=="4" z=1/flip(abs(z)) elseif @Va=="5" z=1/flip(tan(z)) elseif @Va=="6" z=z+1/z elseif @Va=="7" z=1/flip(sinh(z)) elseif @Va=="8" z=1/sqr(exp(z)) elseif @Va=="9" z=z-1/sqr(z) elseif @Va=="10" z=1/cosh(log(z)) elseif @Va=="11" z=z+0.3/cotanh(z) elseif @Va=="12" z=z+0.3/cotan(z) elseif @Va=="13" z=z+1/cotanh(z) elseif @Va=="14" z=z+0.3/cosh(z) elseif @Va=="15" z=z+0.3/cos(z) elseif @Va=="16" z=z-0.3/sqr(z) elseif @Va=="17" z=z-0.2/flip(exp(z)) elseif @Va=="18" z=z-0.15/flip(cosh(z)) elseif @Va=="19" z=z+1/conj(flip(z)) elseif @Va=="20" z=z-2.7/cotanh(z) elseif @Va=="21" z=z+1/exp(exp(z)) elseif @Va=="22" z=z-0.2/exp(sqr(z)) elseif @Va=="23" z=z+1/exp(cotan(z)) elseif @Va=="24" z=z+1/exp(cosh(z)) elseif @Va=="25" z=z-0.35*sqr(z) elseif @Va=="26" z=z+cosh(z) elseif @Va=="27" z=z+0.18*flip(abs(z)) elseif @Va=="28" z=z-2.7/cotan(z) elseif @Va=="29" z=z-0.04*flip(exp(z)) elseif @Va=="30" z=z+0.093*flip(sqr(z)) elseif @Va=="31" z=z+conj(flip(z)) elseif @Va=="32" z=z+0.5*conj(flip(z)) elseif @Va=="33" z=z+0.3*conj(abs(z)) elseif @Va=="34" z=z-0.1*sqr(abs(z)) elseif @Va=="35" z=z+0.56/cos(z) elseif @Va=="36" z=z+0.05*z^4 endif endif if @JM=="J" z=(1-z^2)/(1-2*z*cos(p1)+z^2)+p2 else z=(1-z^2)/(1-2*z*cos(p1)+z^2)+p2+fn4(pixel) endif z=p3*fn3(log(abs(z)))^@pow+p4 if @JM=="J" if @Va=="37" z=z+1/z elseif @Va=="38" if |z|>1 z=z/|z| endif elseif @Va=="39" z=z+1/exp(z) elseif @Va=="40" if real(z)imag(z) z=flip(z) endif elseif @Va=="42" z=z+1/cotanh(z) elseif @Va=="43" z=z+1/cotanh(exp(z)) elseif @Va=="44" z=z+0.3/cabs(exp(z)) elseif @Va=="45" z=z+0.3/exp(flip(z)) elseif @Va=="46" z=z-0.3/flip(cos(z)) elseif @Va=="47" z=z-0.3795*exp(z) elseif @Va=="48" z=z-0.3795*abs(z) elseif @Va=="49" z=z-0.3795*z elseif @Va=="50" z=z-0.25*sqr(tanh(z)) elseif @Va=="51" z=z-0.3*sqr(exp(z)) elseif @Va=="52" z=-0.45/abs(z) elseif @Va=="53" z=1.5/abs(cotanh(z)) elseif @Va=="54" z=1/tanh(sinh(z)) elseif @Va=="55" z=1/tanh(sqr(z)) elseif @Va=="56" z=1.8/cotan(sqr(z)) elseif @Va=="57" z=flip(cotan(z)) endif else if @Va=="37" z=1/abs(z) elseif @Va=="38" if |z|>1 z=z/|z| endif elseif @Va=="39" z=1/exp(flip(z)) elseif @Va=="40" if real(z)imag(z) z=flip(z) endif elseif @Va=="42" z=z+1/cotanh(z) elseif @Va=="43" z=1.5/exp(abs(z)) elseif @Va=="44" z=0.8*exp(abs(z)) elseif @Va=="45" z=z+0.3/exp(flip(z)) elseif @Va=="46" z=z-0.3/flip(cos(z)) elseif @Va=="47" z=1.9*abs(sqr(z)) elseif @Va=="48" z=tanh(flip(z)) elseif @Va=="49" z=z-0.3795*z elseif @Va=="50" z=z-0.25*sqr(tanh(z)) elseif @Va=="51" z=z+1/cos(exp(z)) elseif @Va=="52" z=z+0.3/cos(sin(z)) elseif @Va=="53" z=1.5/abs(cotanh(z)) elseif @Va=="54" z=z-0.3/cos(tanh(z)) elseif @Va=="55" z=z-0.3*tan(tanh(z)) elseif @Va=="56" z=z++0.3*cabs(tanh(z)) elseif @Va=="57" z=0.25*cotanh(sqr(z)) endif endif endwhile z=@adj*z/100 bailout: |z|<@bail default: title="Kreen" center=(0.001,0.001) periodicity=0 maxiter=200 param JM caption="J/M" enum="J""M" endparam param iter caption="Iterations" default=4 endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39"\ "40""41""42""43""44""45""46""47""48""49"\ "50""51""52""53""54""55""56""57" endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Labs Function" default=ident() endfunc func fn4 caption="M Function" default=ident() visible=@JM=="M" endfunc param p1 caption="Kreen Parameter 1" default=(1,0) endparam param p2 caption="Kreen Parameter 2" default=(0,0) endparam param p3 caption="Labs Parameter 1" default=(1,0) endparam param p4 caption="Labs Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=(1,0) endparam param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=10.0 endparam } ModifiedSecantJ { init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @Va=="1" z=-0.2/cotan(cotanh(z)) elseif @Va=="2" z=-0.75/tanh(z) elseif @Va=="3" z=0.535/tan(z) elseif @Va=="4" z=-1.37/cos(z) elseif @Va=="5" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="6" z=1/sin(z) elseif @Va=="7" z=2.17/sin(z) elseif @Va=="8" z=0.2/z^4 elseif @Va=="9" z=0.5/sqr(cotan(z)) elseif @Va=="10" z=-0.75/sqr(tanh(z)) elseif @Va=="11" z=z+1/sqr(z) elseif @Va=="12" z=2.35/sqr(cosh(z)) elseif @Va=="13" z=z-1/cotan(z) elseif @Va=="14" z=2.4/cotanh(z) elseif @Va=="15" z=-0.418/cotanh(cotan(z)) elseif @Va=="16" z=0.735/cotanh(cotan(z)) elseif @Va=="17" z=z+1/tan(z) elseif @Va=="18" z=z-1/sqr(z) elseif @Va=="19" z=z-0.13/conj(z) elseif @Va=="20" z=z-0.675/cos(z) elseif @Va=="21" z=z-0.21/sqr(abs(z)) elseif @Va=="22" z=z+0.3*cotan(z) elseif @Va=="23" z=z-0.3*cotanh(z) elseif @Va=="24" z=z-0.3*tan(z) elseif @Va=="25" z=z-0.4*z^4 elseif @Va=="26" z=z+0.034/cos(tan(z)) elseif @Va=="27" z=z-0.12/tanh(tanh(z)) elseif @Va=="28" z=z-0.37/cotanh(recip(z)) elseif @Va=="29" z=z+sqr(z) elseif @Va=="30" z=z-sqr(z) elseif @Va=="31" z=z-sqr(sinh(z)) elseif @Va=="32" z=z+0.1*z^4 endif z=z-(z^@pow-p1)*(z-(z+p2))/((z^@pow-p1)-((z+p2)^@pow-p1))+p5 if @Va=="33" z=-sqr(z) elseif @Va=="34" z=0.75*conj(z) elseif @Va=="35" z=0.75*sqr(z) elseif @Va=="36" z=-1.333*sqr(z) elseif @Va=="37" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="38" z=z-1/cos(z) elseif @Va=="39" z=z-0.28/cos(z) elseif @Va=="40" z=z-0.275/sin(z) elseif @Va=="41" z=z+0.175/sqr(tan(z)) elseif @Va=="42" z=z-0.275/sqr(cotan(z)) elseif @Va=="43" z=z+0.275/tan(tan(z)) elseif @Va=="44" z=z+0.175*sinh(z) elseif @Va=="45" z=z+1.88*sin(z) elseif @Va=="46" z=0.2/z^4 elseif @Va=="47" z=0.33/sqr(cotan(z)) elseif @Va=="48" z=1.7/sqr(sin(z)) elseif @Va=="49" z=-3/abs(sin(z)) elseif @Va=="50" z=2.7/abs(sinh(z)) elseif @Va=="51" z=1.2/abs(tan(z)) elseif @Va=="52" z=z-0.26/cotan(cotan(z)) elseif @Va=="53" z=z-0.13/cotan(cotanh(z)) elseif @Va=="54" z=z-0.175/tanh(tan(z)) elseif @Va=="55" z=z+0.4/sin(tan(z)) elseif @Va=="56" z=z+0.6/sinh(tan(z)) elseif @Va=="57" z=z+0.17/cos(tan(z)) elseif @Va=="58" z=z-0.6/cos(cotanh(z)) elseif @Va=="59" z=z+3.389/cos(cotan(z)) elseif @Va=="60" z=z+1.75/cos(cotan(z)) elseif @Va=="61" z=0.53*cotan(z) elseif @Va=="62" z=0.93*sqr(z) elseif @Va=="63" z=0.91*z^4 elseif @Va=="64" z=z-0.375*cabs(z) elseif @Va=="65" z=z-1.17*sqr(z) endif bailout: |zold-z|>@bail default: title="Modified Secant J" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54""55""56""57""58""59""60""61"\ "62""63""64""65" endparam param p1 caption="Secant Parameter 1" default=(1,0) endparam param p2 caption="Secant Parameter 2" default=(1,0) endparam param p5 caption="Secant Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } ModifiedSecantM { init: z=fn1(pixel) loop: zold=z z=p3*fn2(z) if @Va=="1" z=z-1/cotan(z) elseif @Va=="2" z=-0.3*z^4 elseif @Va=="3" z=-abs(sqr(z)) elseif @Va=="4" z=sqr(abs(z)) elseif @Va=="5" z=-sqr(abs(z)) elseif @Va=="6" z=-(z^4) elseif @Va=="7" z=z^4 elseif @Va=="8" z=0.3*z^4 elseif @Va=="9" z=-conj(sqr(z)) elseif @Va=="10" z=-0.75/tanh(z) elseif @Va=="11" z=z+1/sqr(z) elseif @Va=="12" z=-4.8*cotanh(tan(z)) elseif @Va=="13" z=-1.8/sinh(z) elseif @Va=="14" z=z+0.37/z elseif @Va=="15" z=z+1/z elseif @Va=="16" z=z-0.3*z elseif @Va=="17" z=z+1/tan(z) elseif @Va=="18" z=z-1/sqr(z) elseif @Va=="19" z=z-0.13/conj(z) elseif @Va=="20" z=z-0.675/cos(z) elseif @Va=="21" z=z-0.21/sqr(abs(z)) elseif @Va=="22" z=z+0.3*cotan(z) elseif @Va=="23" z=z-0.3*cotanh(z) elseif @Va=="24" z=z-1/sqr(z) elseif @Va=="25" z=z-0.4*z^4 elseif @Va=="26" z=z+0.034/cos(tan(z)) elseif @Va=="27" z=z-0.12/tanh(tanh(z)) elseif @Va=="28" z=z-3/sqr(z) elseif @Va=="29" z=z+sqr(z) elseif @Va=="30" z=z-sqr(z) elseif @Va=="31" z=z-0.3/cosh(z) elseif @Va=="32" z=z+0.1*z^4 elseif @Va=="33" z=z-1/cosh(z) elseif @Va=="34" z=z+5/cosh(z) elseif @Va=="35" z=z+5/cos(z) elseif @Va=="36" z=z-0.5/cos(z) elseif @Va=="37" z=z-1.5/cos(z) elseif @Va=="38" z=z-1.8/cos(z) elseif @Va=="39" z=z-5/cos(z) elseif @Va=="40" z=z+1/sqr(cos(z)) elseif @Va=="41" z=z-1/sqr(cos(z)) elseif @Va=="42" z=z+1/sinh(z) elseif @Va=="43" z=z+1/sin(z) elseif @Va=="44" z=z+2/sin(z) elseif @Va=="45" z=z-1/sin(z) elseif @Va=="46" z=z-0.3/z^4 elseif @Va=="47" z=z+0.25/sqr(cotan(z)) elseif @Va=="48" z=z-0.25/sqr(cotan(z)) elseif @Va=="49" z=z-sqr(z) elseif @Va=="50" z=z+sqr(z) elseif @Va=="51" z=z+0.5*sqr(z) elseif @Va=="52" z=z-0.5*sqr(z) elseif @Va=="53" z=z-0.07*z^4 elseif @Va=="54" z=z+0.07*z^4 elseif @Va=="55" z=z+sqr(cotanh(z)) elseif @Va=="56" z=z-sqr(cotanh(z)) elseif @Va=="57" z=z+0.5*sqr(cotan(z)) elseif @Va=="58" z=z-sqr(cotan(z)) endif z=z-(z^@pow-p1)*(z-(z+p2))/((z^@pow-p1)-((z+p2)^@pow-p1))+p5+fn3(pixel) if @Va=="59" z=z-sqr(cotan(z)) elseif @Va=="60" z=z+0.1*z^4 elseif @Va=="61" z=z-0.1*z^4 elseif @Va=="62" z=z-0.05*z^4 elseif @Va=="63" z=z-1/cos(z) elseif @Va=="64" z=z-0.28/cos(z) elseif @Va=="65" z=z-0.275/sin(z) elseif @Va=="66" z=z+0.175/sqr(tan(z)) elseif @Va=="67" z=z-0.275/sqr(cotan(z)) elseif @Va=="68" z=-sqr(z) elseif @Va=="69" z=0.75*sqr(z) elseif @Va=="70" z=-1.333*sqr(z) elseif @Va=="71" z=1/cotan(z) elseif @Va=="72" z=-1/tan(z) elseif @Va=="73" z=1.65/cotanh(cotanh(z)) elseif @Va=="74" z=z-0.3/sqr(cotan(z)) elseif @Va=="75" z=z+0.3/sqr(cotan(z)) elseif @Va=="76" z=z-0.3/sqr(cotanh(z)) elseif @Va=="77" z=z-0.26/cotan(cotan(z)) elseif @Va=="78" z=z-0.13/cotan(cotanh(z)) elseif @Va=="79" z=z-0.175/tanh(tan(z)) elseif @Va=="80" z=z+0.4/sin(tan(z)) elseif @Va=="81" z=z+0.6/sinh(tan(z)) elseif @Va=="82" z=z+0.17/cos(tan(z)) elseif @Va=="83" z=z-0.6/cos(cotanh(z)) elseif @Va=="84" z=z+3.389/cos(cotan(z)) elseif @Va=="85" z=z+1.75/cos(cotan(z)) elseif @Va=="86" z=z+0.3/sqr(cotanh(z)) elseif @Va=="87" z=0.93*sqr(z) elseif @Va=="88" z=0.91*z^4 elseif @Va=="89" z=z+0.3/cotan(cotanh(z)) elseif @Va=="90" z=z-1.17*sqr(z) elseif @Va=="91" z=z-0.3/cotan(cotanh(z)) elseif @Va=="92" z=z+0.75/cotanh(cotan(z)) elseif @Va=="93" z=z-0.75/cotanh(cotan(z)) elseif @Va=="94" z=z+0.3*cotanh(cotan(z)) elseif @Va=="95" z=z+sqr(cotanh(z)) elseif @Va=="96" z=z-sqr(cotanh(z)) elseif @Va=="97" z=z+sqr(cotan(z)) endif bailout: |zold-z|>@bail default: title="Modified Secant M" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48""49""50""51""52"\ "53""54""55""56""57""58""59""60""61"\ "62""63""64""65""66""67""68""69""70"\ "71""72""73""74""75""76""77""78""79"\ "80""81""82""83""84""85""86""87""88"\ "89""90""91""92""93""94""95""96""97" endparam param p1 caption="Secant Parameter 1" default=(1,0) endparam param p2 caption="Secant Parameter 2" default=(1,0) endparam param p5 caption="Secant Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter" default=(1,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Duno { ; A Mandelbrot set variant init: z=fn1(pixel) loop: z=p3*fn2(z) if @Va=="none" z=z elseif @Va=="1" z=z+0.3/z elseif @Va=="2" z=z+0.3/tanh(z) elseif @Va=="3" z=z+0.3/tan(z) elseif @Va=="4" z=z+0.3/cosh(z) elseif @Va=="5" z=z+0.3/cos(z) elseif @Va=="6" z=z+0.3/sinh(z) elseif @Va=="7" z=z+0.3/sin(z) elseif @Va=="8" z=z-0.3/z elseif @Va=="9" z=z-0.3/tanh(z) elseif @Va=="10" z=z-0.3/tan(z) elseif @Va=="11" z=z-0.3/cosh(z) elseif @Va=="12" z=z-0.3/cos(z) elseif @Va=="13" z=z-0.3/sinh(z) elseif @Va=="14" z=z-0.3/sin(z) elseif @Va=="15" z=z+0.3*flip(z) elseif @Va=="16" z=z+0.3*cabs(z) elseif @Va=="17" z=z+0.3*abs(z) elseif @Va=="18" z=z+0.3*sqr(z) elseif @Va=="19" z=z+0.3*cosh(z) elseif @Va=="20" z=z-0.3*exp(z) elseif @Va=="21" z=z-0.3*sqr(z) elseif @Va=="22" z=z-0.3*tanh(z) elseif @Va=="23" z=z-0.3*tan(z) elseif @Va=="24" if real(z)imag(z) z=flip(z) endif endif z=z^2+p1*1i/(10*z^2)+p2+fn3(pixel) if @Va=="26" z=z+0.3/exp(z) elseif @Va=="27" z=z+0.3/tan(z) elseif @Va=="28" z=z+0.3/cosh(z) elseif @Va=="29" z=z+0.3/cos(z) elseif @Va=="30" z=z+0.3/sinh(z) elseif @Va=="31" z=z-0.3/exp(z) elseif @Va=="32" z=z-0.3/tanh(z) elseif @Va=="33" z=z-0.3/cosh(z) elseif @Va=="34" z=z-0.3/cos(z) elseif @Va=="35" z=z+0.3*flip(z) elseif @Va=="36" z=z+0.3*cabs(z) elseif @Va=="37" z=z+0.3*abs(z) elseif @Va=="38" z=z+0.3*exp(z) elseif @Va=="39" z=z+0.3*sqr(z) elseif @Va=="40" z=z+0.3*cosh(z) elseif @Va=="41" z=z+0.3*cos(z) elseif @Va=="42" z=z-0.3*cabs(z) elseif @Va=="43" z=z-0.3*abs(z) elseif @Va=="44" z=z-0.3*exp(z) elseif @Va=="45" z=z-0.3*sqr(z) elseif @Va=="46" z=z-0.3*cosh(z) elseif @Va=="47" z=z-0.3*cos(z) elseif @Va=="48" z=z-0.3*sin(z) endif bailout: |z|<@bail default: title="Duno" center=(0.001,0.001) param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30""31""32""33"\ "34""35""36""37""38""39""40""41""42""43""44""45""46""47""48" endparam param p1 caption="Duno Parameter 1" default=(0,0.1) endparam param p2 caption="Duno Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Duno Function" default=ident() endfunc param bail caption="Bailout" default=4.0 endparam } MöbiusMandelbrot { init: z=fn1(pixel) loop: z=fn2(z) if @Va=="none" z=z elseif @Va=="1" z=z+0.3/z elseif @Va=="2" z=z-0.2/z elseif @Va=="3" z=z+0.55/exp(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z+0.3/exp(z) elseif @Va=="7" z=z+0.3/sqr(z) elseif @Va=="8" z=z+0.05/sqr(z) elseif @Va=="9" z=z-0.3/sqr(z) elseif @Va=="10" z=z-0.05/sqr(z) elseif @Va=="11" z=z-0.3/cotanh(z) elseif @Va=="12" z=z-0.3/cotan(z) elseif @Va=="13" z=z-0.3/tanh(z) elseif @Va=="14" z=z+0.3/tan(z) elseif @Va=="15" z=z-0.05/tanh(z) elseif @Va=="16" z=z+0.05/tanh(z) elseif @Va=="17" z=z+1/tan(z) elseif @Va=="18" z=z-0.7/cosh(z) elseif @Va=="19" z=z-0.4/cosh(z) elseif @Va=="20" z=z-0.7/cos(z) elseif @Va=="21" z=z-0.4/cos(z) elseif @Va=="22" z=z-0.2/sinh(z) elseif @Va=="23" z=z+0.2/sinh(z) elseif @Va=="24" z=z-0.2/sin(z) endif z=(z-p1)/(1-p1*z) z=z/(p2*z+1) z=z^2+fn3(pixel) if @Va=="25" z=-0.6*z elseif @Va=="26" z=-1.4*cos(z) elseif @Va=="27" z=-1.17*cosh(z) elseif @Va=="28" z=0.4*sqr(z) elseif @Va=="29" z=-0.5*sqr(z) elseif @Va=="30" z=-0.65*sinh(z) elseif @Va=="31" z=-0.65*sin(z) elseif @Va=="32" z=z-0.085/z elseif @Va=="33" z=z-0.35/z elseif @Va=="34" z=z+0.2/z elseif @Va=="35" z=z-0.065/exp(z) elseif @Va=="36" z=z+0.55/exp(z) elseif @Va=="37" z=z+0.3/exp(z) elseif @Va=="38" z=z+0.211/sqr(z) elseif @Va=="39" z=z+0.3/sinh(z) elseif @Va=="40" z=z-0.34/sin(z) elseif @Va=="41" z=z-0.3/cos(z) elseif @Va=="42" z=z-0.3/cosh(z) elseif @Va=="43" z=z-0.3/tanh(z) elseif @Va=="44" z=z-1.475*exp(z) elseif @Va=="45" z=z-0.19*sqr(z) elseif @Va=="46" z=z+0.9*sqr(z) elseif @Va=="47" z=z-0.5*cotanh(z) elseif @Va=="48" z=z-0.5*cosh(z) elseif @Va=="49" z=z-0.5*cos(z) elseif @Va=="50" z=z-0.5*sin(z) elseif @Va=="51" z=z-1.7*sin(z) endif bailout: |z|<@bail default: title="Möbius Mandelbrot" center=(0.001,0.001) param p1 caption="Möbius Parameter 1" default=(-0.35,-0.25) endparam param p2 caption="Möbius Parameter 2" default=(-0.4,-0.1) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50""51" endparam param bail caption="Bailout" default=10.0 endparam } SteffensenM { ; Steffensen root finding algorithm. Mandelbrot version. ; https://en.wikipedia.org/wiki/Steffensen%27s_method init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @Va=="none" z=z elseif @Va=="1" z=z-0.7*sqr(z) elseif @Va=="2" z=z+0.05*sqr(cabs(z)) elseif @Va=="3" z=z-0.7/tanh(recip(z)) elseif @Va=="4" z=z-0.05*z^4 elseif @Va=="5" z=1.85/sin(z) elseif @Va=="6" z=z-0.05/flip(z) elseif @Va=="7" z=z+0.05*tan(z) elseif @Va=="8" z=z+0.05*sinh(z) elseif @Va=="9" z=z-sin(z) elseif @Va=="10" z=-0.3/sinh(z) elseif @Va=="11" z=1/sin(z) elseif @Va=="12" z=z-1/cotanh(z) elseif @Va=="13" z=z-1/cotan(z) elseif @Va=="14" z=z-0.1/exp(z) elseif @Va=="15" z=-1/z elseif @Va=="16" z=z+0.05*flip(z) elseif @Va=="17" z=z+0.1/tan(z) elseif @Va=="18" z=z-0.05*tan(z) elseif @Va=="19" z=z-1.75/cos(z) elseif @Va=="20" z=z-4.3/cos(z) elseif @Va=="21" z=z-0.5/sin(recip(z)) elseif @Va=="22" z=z-sinh(z) elseif @Va=="23" z=z-0.05*sinh(z) elseif @Va=="24" z=z+0.04*sqr(z) elseif @Va=="25" z=z-0.4*z^4 endif f=z^@pow-fn3(pixel) g=((z+z^@pow-fn3(pixel))^@pow-fn3(pixel))/f-1 z=z-p2*f/g+p5 if @Va=="26" z=4.3/conj(z) elseif @Va=="27" if |z|<1 z=z/|z| endif elseif @Va=="28" z=z-1/cos(z) elseif @Va=="29" z=1.5/cotanh(z) elseif @Va=="30" z=-0.5/sinh(z) elseif @Va=="31" z=z+0.175/z elseif @Va=="32" z=z-0.28/cos(z) elseif @Va=="33" z=z+0.127*z^4 elseif @Va=="34" z=1.5/sin(z) elseif @Va=="35" z=0.75/tanh(z) elseif @Va=="36" z=-0.7*conj(sqr(z)) elseif @Va=="37" z=z+1/z^4 elseif @Va=="38" z=z+1.18/exp(sin(z)) elseif @Va=="39" z=z+0.114*conj(z) elseif @Va=="40" z=z+0.01*z^4 elseif @Va=="41" z=z+0.05*flip(sqr(z)) elseif @Va=="42" z=z+0.4*sqr(z) elseif @Va=="43" z=z-0.065*cabs(z) elseif @Va=="44" z=z-0.6*sqr(z) elseif @Va=="45" z=z-0.05*conj(sqr(z)) elseif @Va=="46" z=z+0.175*sinh(z) elseif @Va=="47" z=z+1.88*sin(z) elseif @Va=="48" z=z-0.117*sqr(cabs(z)) endif bailout: |zold-z|>@bail default: title="Steffensen M" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16"\ "17""18""19""20""21""22""23""24""25"\ "26""27""28""29""30""31""32""33""34"\ "35""36""37""38""39""40""41""42""43"\ "44""45""46""47""48" endparam param p2 caption="Steffensen Parameter 1" default=(1,0) endparam param p5 caption="Steffensen Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(0.95,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param pow caption="Exponent" default=3 endparam param bail caption="Bailout" default=0.000000001 endparam } LelaWrof { ; This is a modificationof a formula given in this Fractal Forums thread ; https://fractalforums.org/fractal-image-gallery/18/mega-utra-fractal-hybrid/615/msg3054#new init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p5*fn2(z)+@p7 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" z=z-0.12*cosh(abs(z)) elseif @Va=="2" z=z+3.5/exp(exp(z)) elseif @Va=="3" z=-1.57/exp(flip(z)) elseif @Va=="4" z=z-0.01*sqr(exp(z)) elseif @Va=="5" z=z-1.19/exp(cosh(z)) elseif @Va=="6" z=z+0.4/exp(cos(z)) elseif @Va=="7" z=z-1/exp(tanh(z)) elseif @Va=="8" if real(z)>imag(z) z=flip(z) endif elseif @Va=="9" if real(z)imag(z) z=flip(z) endif endif z=z^2-0.1/z-p1+fn3(pixel) if @Va=="26" z=z-tan(cotanh(z)) elseif @Va=="27" z=z+0.3/tan(z) elseif @Va=="28" z=z+0.3/cosh(z) elseif @Va=="29" z=z+0.3/cabs(cotanh(z)) elseif @Va=="30" z=z+0.3/sinh(z) elseif @Va=="31" z=z+0.35/exp(cos(z)) elseif @Va=="32" z=z-0.82*cos(z) elseif @Va=="33" z=z-0.68*cos(z) elseif @Va=="34" z=z+0.5/cabs(log(z)) elseif @Va=="35" z=z-1.5*sinh(z)/sqr(z) elseif @Va=="36" z=z+0.3*cabs(z) elseif @Va=="37" z=z+0.3/tan(sin(z)) elseif @Va=="38" z=z+0.67*sqr(z) elseif @Va=="39" z=z-0.815*cotanh(sin(z)) elseif @Va=="40" z=z+1.5/cabs(log(z)) elseif @Va=="41" z=z-0.05*tanh(z)/conj(z) elseif @Va=="42" z=z+1.5*cotan(sinh(z)) elseif @Va=="43" z=z-0.6*tan(cos(z)) elseif @Va=="44" z=z+0.09*log(cabs(z)) elseif @Va=="45" z=z+0.3/sqrt(cabs(z)) elseif @Va=="46" z=z+2.9/exp(cos(z)) elseif @Va=="47" z=z-0.3*cos(z) endif z=p2*fn2(z)+p3 bailout: |z|<@bail default: title="Nooda" center=(0.001,0.001) param Va caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30""31""32""33"\ "34""35""36""37""38""39""40""41""42""43""44""45""46""47""48" endparam param p1 caption="Nooda Parameter" default=(1,0) endparam param p2 caption="Loop Parameter 1" default=(1,0) endparam param p3 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Nooda Function" default=ident() endfunc param bail caption="Bailout" default=4.0 endparam } LabsPuiseux { ; https://en.wikipedia.org/wiki/Puiseux_series init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p5*fn2(z)+@p7 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" z=z-0.4*cotanh(sqr(z)) elseif @Va=="2" z=z-sinh(z)/tan(z) elseif @Va=="3" z=z-0.245*abs(z)/cotan(z) elseif @Va=="4" z=z-2.8/cotan(z) elseif @Va=="5" z=z+0.35/z elseif @Va=="6" z=z-2.7/sqr(cotanh(z)) elseif @Va=="7" z=z-1/exp(tanh(z)) elseif @Va=="8" if real(z)>imag(z) z=flip(z) endif elseif @Va=="9" if real(z)imag(z) z=flip(z) endif elseif @Va=="9" if real(z)imag(z) z=flip(z) endif elseif @Va=="9" if real(z)1 z=z/|z| endif else z=z+1/sqr(z) endif elseif @Va=="3" if @JM=="J" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) else z=z+2*sqr(z)/tan(z) endif elseif @Va=="4" if @JM=="J" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z-0.3*sqr(z)/cotan(z) elseif @Va=="7" z=z-0.3/sqr(z) elseif @Va=="8" z=z+0.3*z*cabs(z) elseif @Va=="9" z=z+0.3*sqr(z)/cotanh(z) elseif @Va=="10" z=z-0.3*sqr(z) elseif @Va=="11" z=z+z^3 elseif @Va=="12" z=z+0.3/conj(z) elseif @Va=="13" if @JM=="J" z=z+0.3*sqr(z)/cotan(z) else z=z+2*sqr(abs(z)) endif elseif @Va=="14" z=z+sqr(z) elseif @Va=="15" z=z-0.3*cabs(z) elseif @Va=="16" z=z+1/z elseif @Va=="17" if @JM=="J" z=z+z*cabs(z) else z=z-2*sqr(z)/tan(z) endif elseif @Va=="18" z=z+0.3/z elseif @Va=="19" z=z+0.3/flip(z) elseif @Va=="20" z=z-sqr(z) elseif @Va=="21" z=z-0.3*abs(z) elseif @Va=="22" z=z+0.3*sqr(z) elseif @Va=="23" z=z+0.3*sqr(z)/tanh(z) elseif @Va=="24" z=z+sqr(z)/cotanh(z) elseif @Va=="25" z=z-sqr(z)/cotan(z) elseif @Va=="26" z=z+0.3*z*abs(z) elseif @Va=="27" z=z+sqr(z)/tanh(z) elseif @Va=="28" z=z+z*cos(z) elseif @Va=="29" z=z+sqr(z)/cotan(z) elseif @Va=="30" z=z+sqr(z)/tan(z) endif f=z^@pow-p3 f1=@pow*z^(@pow-1) a=z-f/f1 b=a-f*(a^@pow-p3)/(f1*(f-2*(a^@pow-p3))) c=(a^@pow-p3)/f d=1/(1-2*c) if @JM=="J" z=b-p1*d*(b^@pow-p3)/f1+p2 else z=b-p1*d*(b^@pow-p3)/f1+p2+fn3(pixel) endif if @Va=="31" z=z+sqr(z)/cotan(z) elseif @Va=="32" z=z-sqr(z)/cotan(z) elseif @Va=="33" z=z+0.3*sqr(z) elseif @Va=="34" z=z+0.3*sqr(abs(z)) elseif @Va=="35" z=z+sqr(z)/tan(z) elseif @Va=="36" z=z-0.3*conj(z)/z elseif @Va=="37" if @JM=="J" z=z+z^4 else z=z-1/sqr(z) endif elseif @Va=="38" z=z-sqr(z)*cosh(z) elseif @Va=="39" z=z+0.3/flip(z) elseif @Va=="40" z=z+sqr(z) elseif @Va=="41" z=z+z^3 elseif @Va=="42" z=z-0.3*sqr(z)/cotan(z) elseif @Va=="43" z=z+sqr(z)/cotanh(z) elseif @Va=="44" z=z+sqr(z)/tanh(z) elseif @Va=="45" if @JM=="J" z=z-0.3*sqr(abs(z)) else z=z-1/z endif elseif @Va=="46" if @JM=="J" z=z+z*cabs(z) else z=z-2*sqr(z)/tanh(z) endif elseif @Va=="47" z=z-z^3 elseif @Va=="48" z=z+1/z elseif @Va=="49" z=z-0.3*sqr(z) elseif @Va=="50" if @JM=="J" z=z+cabs(z)/z else z=z+2*sqr(z)/tanh(z) endif elseif @Va=="51" z=z-0.3/sqr(z) elseif @Va=="52" z=z+1/cabs(z) elseif @Va=="53" z=z-sqr(z) endif bailout: |zold-z|>@bail default: title="Chun-Ham" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43""44"\ "45""46""47""48""49""50""51""52""53" endparam param p1 caption="Chun-Ham Parameter 1" default=(1,0) endparam param p2 caption="Chun-Ham Parameter 2" default=(0,0) endparam param p3 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="M Function" default=ident() visible=@JM=="M" endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Traub-Ostrowski { ; Traub-Ostrowski method ; https://tinyurl.com/yd95gaoq ; p230 init: z=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 if @JM=="J" if @Va=="none" z=z elseif @Va=="1" z=z+1.21/sin(z) elseif @Va=="2" z=z+0.3/z elseif @Va=="3" z=z-0.67/cosh(z) elseif @Va=="4" z=z+0.91968*sqr(z)/tan(z) elseif @Va=="5" z=z+1/cotanh(z) elseif @Va=="6" z=z+0.9/cotan(z) elseif @Va=="7" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="8" z=z+0.57*sqr(z) elseif @Va=="9" z=z+1/sqr(z) elseif @Va=="10" z=z-2.81439*sqr(z)/tan(z) elseif @Va=="11" z=z+0.55/z elseif @Va=="12" z=z-1.45/cos(z) elseif @Va=="13" if real(z)>imag(z) z=flip(z) endif elseif @Va=="14" z=z-0.4/sqr(z) elseif @Va=="15" z=z+3.63214*z*cotan(z) elseif @Va=="16" z=z-0.648*sqr(z) elseif @Va=="17" z=z-0.32959*sqr(z)/cotanh(z) elseif @Va=="18" z=z-1/z elseif @Va=="19" z=z+0.46316*sqr(abs(z)) elseif @Va=="20" z=z+1.133*sqr(z)/cotanh(z) elseif @Va=="21" z=z-1.3518*sqr(z)/tanh(z) elseif @Va=="22" z=z+z^3 elseif @Va=="23" z=z+1.32965*sqr(z)/tan(z) elseif @Va=="24" z=z+0.5236*sqr(z)/cotanh(z) elseif @Va=="25" z=z+0.73407*tan(z)/sqr(z) elseif @Va=="26" z=z-1.06059/sinh(z) elseif @Va=="27" if |z|>1 z=z/|z| endif elseif @Va=="28" z=z+0.75347*sqr(z)/tanh(z) elseif @Va=="29" z=z+2.684*z/cotan(z) elseif @Va=="30" z=z+0.92854*z*abs(z) elseif @Va=="31" z=z-1.37673*sqr(z)/cotan(z) elseif @Va=="32" z=z-3.25*z/tan(z) elseif @Va=="33" z=z+0.65*z^4 elseif @Va=="34" z=z+3.51248*sqr(z)/tan(z) elseif @Va=="35" z=z+2.51525*sqr(z)/tan(z) elseif @Va=="36" z=z+0.72909*z*cabs(z) elseif @Va=="37" z=z-0.65374*sqr(z)/tanh(z) elseif @Va=="38" z=z-0.35/tanh(z) elseif @Va=="39" z=z+2.556*z/cosh(z) elseif @Va=="40" z=z-0.8*z^3 elseif @Va=="41" z=z+0.54*z/cos(z) elseif @Va=="42" z=z-0.5/cotan(z) elseif @Va=="43" z=z+0.46814*sqr(z)/cotan(z) elseif @Va=="44" z=z+0.679*cotanh(z) elseif @Va=="45" z=z+1.643/sinh(z) elseif @Va=="46" z=z-0.5409/cos(z) elseif @Va=="47" z=z-0.42*z^4 elseif @Va=="48" z=z+1.82*sqr(z)/cotanh(z) elseif @Va=="49" z=z-1.8/cotanh(z) elseif @Va=="50" z=z+sqr(z) elseif @Va=="51" z=z+0.46*sqr(z) elseif @Va=="52" z=z+0.6/cosh(z) elseif @Va=="53" z=z+1.532/z elseif @Va=="54" z=z-2.534/sin(z) elseif @Va=="55" z=z-1.9*sqr(z) elseif @Va=="56" z=z+0.4685/sinh(z) elseif @Va=="57" z=z+1/tanh(z) elseif @Va=="58" z=z-0.41*tan(z) elseif @Va=="59" z=z+1/tan(z) elseif @Va=="60" z=z-1/tan(z) elseif @Va=="61" z=z+0.4/tan(z) elseif @Va=="62" z=z+2*sqr(z) elseif @Va=="63" z=z-sqr(z)/cotan(z) elseif @Va=="64" z=z+0.412/cos(z) elseif @Va=="65" z=z-0.277*sqr(z)/tanh(z) elseif @Va=="66" z=z+0.91*z/sinh(z) elseif @Va=="67" z=z+2.37396*tanh(z)/sqr(z) elseif @Va=="68" z=z-0.697/tan(z) elseif @Va=="69" z=z+2.41552*sqr(z)/tanh(z) elseif @Va=="70" z=z-4*sqr(z)/tanh(z) elseif @Va=="71" z=z+0.84488*tanh(z)/z endif else if @Va=="none" z=z elseif @Va=="1" z=z+cotanh(cotan(z)) elseif @Va=="2" z=z+0.45*tan(z)*tanh(z) elseif @Va=="3" z=z+0.55*cotanh(z)/cotan(z) elseif @Va=="4" z=z-0.5*cotan(z)*cotanh(z) elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif elseif @Va=="6" z=z-6.758/sqr(z) elseif @Va=="7" z=z-0.3/sqr(z) elseif @Va=="8" z=z-0.3*sqr(z)/sinh(z) elseif @Va=="9" z=z+0.4*sqr(z)/cosh(z) elseif @Va=="10" z=z-0.6*sqr(z)/tanh(z) elseif @Va=="11" z=z-0.5*z^3 elseif @Va=="12" z=z+0.2*sqr(z)/cos(z) elseif @Va=="13" z=z+0.46*sqr(z)/tan(z) elseif @Va=="14" z=z+2.8*z*cotan(z) elseif @Va=="15" z=z-0.5/cotanh(z) elseif @Va=="16" z=z+2*sqr(z)/sin(z) elseif @Va=="17" z=z+0.4*sqr(z)/tanh(z) elseif @Va=="18" z=z-1/cos(z) elseif @Va=="19" z=z-sqr(z)/cotanh(z) elseif @Va=="20" z=z-0.3*sqr(z)/cotan(z) elseif @Va=="21" z=z+0.5*sqr(z)/cotanh(z) elseif @Va=="22" z=z+1/z elseif @Va=="23" z=z+0.3*z*tan(z) elseif @Va=="24" z=z+0.9/sinh(z) elseif @Va=="25" z=z+0.8*z*cotanh(z) elseif @Va=="26" z=z+0.3/z elseif @Va=="27" z=z-z^3 elseif @Va=="28" z=z+0.5*z^3 elseif @Va=="29" z=z+sqr(z) elseif @Va=="30" z=z+0.47729/z elseif @Va=="31" z=z-sqr(z) elseif @Va=="32" z=z+z^3 elseif @Va=="33" z=z+4.8/sqr(z) elseif @Va=="34" z=z-0.3*z^4 elseif @Va=="35" z=z+1/sqr(z) elseif @Va=="36" z=z+3.3/sin(z) elseif @Va=="37" z=z-2/cos(z) elseif @Va=="38" z=z+0.3*z^4 elseif @Va=="39" z=z-0.2*sqr(z)/cos(z) elseif @Va=="40" z=z-0.05/sqr(z) elseif @Va=="41" z=z+0.15*tan(z)/cotan(z) elseif @Va=="42" z=z+0.3/cos(z) elseif @Va=="43" z=z+cotanh(tan(z)) elseif @Va=="44" z=z+0.4*cotan(z) elseif @Va=="45" z=z-0.3*sqr(z)/sin(z) elseif @Va=="46" z=z-0.75/sqr(z) elseif @Va=="47" z=z+cotan(z) elseif @Va=="48" z=z+0.7*sqr(z)/sinh(z) elseif @Va=="49" z=z-0.3*tanh(z) elseif @Va=="50" z=z-0.5*cotan(z)/tan(z) elseif @Va=="51" z=z-0.3*tan(z) elseif @Va=="52" z=z-0.5*sqr(z)/cosh(z) elseif @Va=="53" z=z+0.5/cotan(z) elseif @Va=="54" z=z+0.8*sqr(z)/cotanh(z) elseif @Va=="55" z=z+sqr(z)/tan(z) elseif @Va=="56" z=z-2.88/sqr(z) elseif @Va=="57" z=z+0.3*sqr(z)/cotanh(z) elseif @Va=="58" z=z+1/cos(z) elseif @Va=="59" z=z-0.3/cosh(z) elseif @Va=="60" z=z-1.5*sqr(z)/cotanh(z) elseif @Va=="61" z=z+0.75/tan(z) elseif @Va=="62" z=z-0.6*sqr(z)/cotan(z) elseif @Va=="63" z=z+0.2*sqr(z)/cotan(z) elseif @Va=="64" z=z-1/cosh(z) elseif @Va=="65" z=z+sqr(z)/cotan(z) elseif @Va=="66" z=z-0.3/cos(z) elseif @Va=="67" z=z+sqr(z)/tanh(z) elseif @Va=="68" z=z-2*sqr(z)/tanh(z) elseif @Va=="69" z=z+0.275/tan(z) elseif @Va=="70" z=z-0.6*sqr(z)/tan(z) elseif @Va=="71" z=z-2*sqr(z)/tan(z) endif endif f=z^@pow-p3 f1=@pow*z^(@pow-1) a=f/f1 if @JM=="J" z=z-p1*a*(((z-a)^@pow-p3)-f)/((2*((z-a)^@pow-p3))-f)+p2 else z=z-p1*a*(((z-a)^@pow-p3)-f)/((2*((z-a)^@pow-p3))-f)+p2+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Traub-Ostrowski" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43""44"\ "45""46""47""48""49""50""51""52""53"\ "54""55""56""57""58""59""60""61""62"\ "63""64""65""66""67""68""69""70""71" endparam param p1 caption="Traub-Ostrowski Parameter 1" default=(1,0) endparam param p2 caption="Traub-Ostrowski Parameter 2" default=(0,0) endparam param p3 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="M Function" default=ident() visible=@JM=="M" endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Kou { ; Iterative method of Kou ; http://pefmath.etf.rs/vol5num1/AADM-Vol5-No1-93-109.pdf ; p105 init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z+0.5*sqr(z)/cotanh(z) elseif @Va=="7" z=z+2.5*sqr(z) elseif @Va=="8" z=z+0.5*sqr(z) elseif @Va=="9" z=z+2*sqr(z)/tan(z) elseif @Va=="10" z=z+2.5*sqr(z)/tan(z) elseif @Va=="11" z=z+2.5*sqr(z)/tanh(z) elseif @Va=="12" z=z+0.5*sqr(z)/tanh(z) elseif @Va=="13" z=z+2*z^3 elseif @Va=="14" z=z-0.5*sqr(z)/cotan(z) elseif @Va=="15" z=z+1.5*sqr(z)/tanh(z) elseif @Va=="16" z=z-0.5*sqr(z) elseif @Va=="17" z=z-2.5*sqr(z)/tanh(z) elseif @Va=="18" z=z+2.5*sqr(z)*tanh(z) elseif @Va=="19" z=z-1.5*sqr(z)/tan(z) elseif @Va=="20" z=z+sqr(z)*tanh(z) elseif @Va=="21" z=z+2*sqr(z)*tanh(z) elseif @Va=="22" z=z-3*sqr(z)/tanh(z) elseif @Va=="23" z=z-2*sqr(z)/tanh(z) elseif @Va=="24" z=z-0.5*sqr(z)/cotanh(z) elseif @Va=="25" z=z-0.5*z^4 elseif @Va=="26" z=z+3*sqr(z) elseif @Va=="27" z=z+1.5*sqr(z) elseif @Va=="28" z=z+0.5/z elseif @Va=="29" z=z+1.5*sqr(z)/cotanh(z) elseif @Va=="30" z=z-0.5*sqr(z)/tanh(z) elseif @Va=="31" z=z-sqr(z) elseif @Va=="32" z=z+2.5*z^3 elseif @Va=="33" z=z-sqr(z)/tanh(z) elseif @Va=="34" z=z+1.5*sqr(z)/tan(z) elseif @Va=="35" z=z-3.5*sqr(z)/tan(z) elseif @Va=="36" z=z+z^3 elseif @Va=="37" z=z+sqr(z)/tanh(z) elseif @Va=="38" z=z-2*sqr(z)/tan(z) elseif @Va=="39" z=z-2.5*sqr(z) elseif @Va=="40" z=z+1/z elseif @Va=="41" z=z-sqr(z)/cotan(z) elseif @Va=="42" z=z+2*sqr(z)*tan(z) elseif @Va=="43" z=z-2.5*sqr(z)/tan(z) elseif @Va=="44" z=z+sqr(z)*tan(z) elseif @Va=="45" z=z-3*sqr(z)/tan(z) elseif @Va=="46" z=z+0.5*z^3 elseif @Va=="47" z=z+2*sqr(z)/tanh(z) elseif @Va=="48" z=z+z^4 elseif @Va=="49" z=z-1.5*sqr(z) elseif @Va=="50" z=z-0.5/z elseif @Va=="51" z=z+1.5*z^4 elseif @Va=="52" z=z+1.5*sqr(z)*tan(z) elseif @Va=="53" z=z-3*sqr(z) elseif @Va=="54" z=z+1.5*z^3 elseif @Va=="55" z=z+3*sqr(z)/tanh(z) elseif @Va=="56" z=z+sqr(z) elseif @Va=="57" z=z+2/z elseif @Va=="58" z=z-1.5*sqr(z)+1/sqr(z) elseif @Va=="59" z=z+0.2*sqr(z)-0.42/cotan(z) elseif @Va=="60" z=z-1.05*sqr(z)+1/tan(z) elseif @Va=="61" z=z+2.15*sqr(z)-0.15/sqr(z) elseif @Va=="62" z=z+2*sqr(z)+1/z elseif @Va=="63" z=z-1.5*sqr(z)+1/tan(z) elseif @Va=="64" z=z+2*sqr(z)+0.5/z elseif @Va=="65" z=z+sqr(z)+1/z elseif @Va=="66" z=z-sqr(z)+1/z elseif @Va=="67" z=z-2*sqr(z)+2/z elseif @Va=="68" z=z-2*sqr(z)+1/z elseif @Va=="69" z=z+1.1*sqr(z)+1.12/cotanh(z) endif else if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" z=z+1/z elseif @Va=="5" z=z+0.5/sqr(z) elseif @Va=="6" z=z-sqr(z)/cotan(z) elseif @Va=="7" z=z-0.5*sqr(z)*tan(z) elseif @Va=="8" z=z+sqr(z)*cotanh(z) elseif @Va=="9" z=z-1.5*sqr(z)+0.5/z elseif @Va=="10" z=z+0.5/z elseif @Va=="11" z=z-sqr(z)/tanh(z) elseif @Va=="12" z=z+0.5*sqr(z)*tan(z) elseif @Va=="13" z=z-sqr(z)/cotanh(z) elseif @Va=="14" z=z-sqr(z)/tan(z) elseif @Va=="15" z=z-0.5*sqr(z)*tanh(z) elseif @Va=="16" z=z-1/z^4 elseif @Va=="17" z=z+0.5*z^3 elseif @Va=="18" z=z+0.5*sqr(z)+1/z elseif @Va=="19" z=z+1.5/sqr(z) elseif @Va=="20" z=z+0.5*sqr(z)*cotan(z) elseif @Va=="21" z=z-0.5/sqr(z) elseif @Va=="22" z=z-3*sqr(z)*cotanh(z) elseif @Va=="23" z=z-z^3 elseif @Va=="24" z=z+0.5*sqr(z)*tanh(z) elseif @Va=="25" z=z+0.1*z^5 elseif @Va=="26" z=z-0.5*sqr(z) elseif @Va=="27" z=z+sqr(z) elseif @Va=="28" z=z-2.5*sqr(z)*cotanh(z) elseif @Va=="29" z=z+z^3 elseif @Va=="30" z=z-1/sqr(z) elseif @Va=="31" z=z-1.5*sqr(z)-0.5/z elseif @Va=="32" z=z+sqr(z)*tan(z) elseif @Va=="33" z=z+sqr(z)+1/z elseif @Va=="34" z=z-sqr(z) elseif @Va=="35" z=z+1/z^4 elseif @Va=="36" z=z+1.5*sqr(z)*cotan(z) elseif @Va=="37" z=z-0.5*sqr(z)*cotanh(z) elseif @Va=="38" z=z+0.2*sqr(z)+1/sqr(z) elseif @Va=="39" z=0.3*z+1/sqr(z) elseif @Va=="40" z=z-sqr(z)+0.5/z elseif @Va=="41" z=z-0.75*z^4 elseif @Va=="42" z=z-sqr(z)-0.5/z elseif @Va=="43" z=z-0.3*z^4 elseif @Va=="44" z=z-2*sqr(z)*cotan(z) elseif @Va=="45" z=z+0.1*z^4 elseif @Va=="46" z=z-0.5*z^3 elseif @Va=="47" z=z+1.5*sqr(z) elseif @Va=="48" z=z-2*sqr(z) elseif @Va=="49" z=z-0.5*sqr(z)-1/z elseif @Va=="50" z=z-0.1*z^5 elseif @Va=="51" z=z-2.5*sqr(z)*cotan(z) elseif @Va=="52" z=z-1.5*sqr(z) elseif @Va=="53" z=z-sqr(z)+0.5/z elseif @Va=="54" z=z+0.5*sqr(z) elseif @Va=="55" z=z-2*sqr(z)*cotanh(z) elseif @Va=="56" z=z+0.5*sqr(z)-1/z elseif @Va=="57" z=z-0.5*sqr(z)/tan(z) elseif @Va=="58" z=z-sqr(z)+1/z elseif @Va=="59" z=z+sqr(z)/cotanh(z) elseif @Va=="60" z=z+sqr(z)-1/z elseif @Va=="61" z=z+0.5*sqr(z)*cotanh(z) elseif @Va=="62" z=z-2*sqr(z)-0.5/z elseif @Va=="63" z=z-0.5*sqr(z)+1/z elseif @Va=="64" z=z+sqr(z)/tan(z) elseif @Va=="65" z=z+sqr(z)+0.5/z elseif @Va=="66" z=z-2*sqr(z)+0.5/z elseif @Va=="67" z=z-3.5*sqr(z)*cotanh(z) elseif @Va=="68" z=z+sqr(z)-0.5/z elseif @Va=="69" z=z-sqr(z)-1/z endif endif f=z^@pow-p1 f1=@pow*z^(@pow-1) a=z-f/f1 b=(a^@pow-p1)/(f-2*(a^@pow-p1)) c=a-b*(z-a) d=(c^@pow-p1)/((a^@pow-p1)-p2*(c^@pow-p1)) if @JM=="J" z=c-p3*(c^@pow-p1)*((1+b)^2+d)/f1+p4 else z=c-p3*(c^@pow-p1)*((1+b)^2+d)/f1+p4+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Kou" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43""44"\ "45""46""47""48""49""50""51""52""53"\ "54""55""56""57""58""59""60""61""62"\ "63""64""65""66""67""68""69" endparam param p2 caption="Kou Parameter 1" default=(1,0) endparam param p3 caption="Kou Parameter 2" default=(1,0) endparam param p4 caption="Kou Parameter 3" default=(0,0) endparam param p1 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="M Function" default=ident() visible=@JM=="M" endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam param p11 default=1.0 endparam param p12 default=1.0 endparam func fn11 default=ident() endfunc func fn12 default=ident() endfunc func fn13 default=ident() endfunc } LabsKou { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" z=z+0.4/z elseif @Va=="2" z=z+sqr(z)/tan(z) elseif @Va=="3" z=z+0.9/tanh(z) elseif @Va=="4" z=z-19*tanh(z)/sqr(z) elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif elseif @Va=="6" z=z+1/z elseif @Va=="7" z=z-0.5*sqr(z)/cotanh(z) elseif @Va=="8" z=z-2.5*sqr(z)/tanh(z) elseif @Va=="9" z=z+0.3*sqr(z)*cabs(z) elseif @Va=="10" z=z-0.67035*sqr(z)*sinh(z) elseif @Va=="11" z=z+0.3*sqr(z)/cos(z) elseif @Va=="12" z=z-2.834*sqr(z)/tan(z) elseif @Va=="13" z=z-0.27/sqr(z) elseif @Va=="14" z=z+0.5*tan(z)/sqr(z) elseif @Va=="15" z=z+tanh(z)/sqr(z) elseif @Va=="16" z=z-0.49306*sqr(z)*sin(z) elseif @Va=="17" z=z-0.44136*sqr(z) elseif @Va=="18" z=z-1/z elseif @Va=="19" z=z-0.535*sqr(z)/cotan(z) elseif @Va=="20" z=z-0.44*sqr(z)/tanh(z) elseif @Va=="21" z=z+0.45/tanh(z) elseif @Va=="22" z=z+0.58/cosh(z) elseif @Va=="23" if |z|<1 z=z/|z| endif elseif @Va=="24" z=z+0.75/cotan(z) elseif @Va=="25" z=z+0.35*sqr(z)/cotanh(z) elseif @Va=="26" z=z+0.65*sqr(z)/tanh(z) elseif @Va=="27" z=z+0.3/z elseif @Va=="28" z=z+1.41275*sqr(z)*cos(z) elseif @Va=="29" z=z-0.45296*sqr(z)*cotanh(z) elseif @Va=="30" z=z-2.3615*sqr(z)/tanh(z) elseif @Va=="31" z=z-0.8615*z*cotanh(z) elseif @Va=="32" z=z+0.63075*sqr(z)/sin(z) elseif @Va=="33" z=z-0.3/z elseif @Va=="34" z=z-0.3*sqr(z)/cos(z) elseif @Va=="35" z=z-3.12*z*cotan(z) elseif @Va=="36" z=z+0.8*sqr(z)/tan(z) elseif @Va=="37" z=z-2.63*z*cotan(z) elseif @Va=="38" z=z+0.57064*sqr(z)*cosh(z) elseif @Va=="39" z=z+0.92854*z*abs(z) elseif @Va=="40" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="41" z=z-0.7*sqr(z)/cotanh(z) elseif @Va=="42" z=z-0.7*sqr(z)/cotan(z) elseif @Va=="43" z=z+0.3*sqr(z)/tan(z) elseif @Va=="44" z=z-0.53*sqr(z) elseif @Va=="45" if |z|>1 z=z/|z| endif elseif @Va=="46" z=z-0.5*tan(z)/sqr(z) elseif @Va=="47" z=z+3.2*tanh(z)/sqr(z) elseif @Va=="48" z=z-2.9*sqr(z)*cotanh(z) elseif @Va=="49" z=z+0.46316*z*abs(z) elseif @Va=="50" z=z+0.5*z^4 elseif @Va=="51" z=z-1.26*z*cotanh(z) elseif @Va=="52" z=z-0.32*z^4 elseif @Va=="53" z=z+0.32*sqr(z) elseif @Va=="54" z=z+1.885/sin(z) elseif @Va=="55" if real(z)imag(z) z=flip(z) endif elseif @Va=="15" z=z-0.25/sqr(z)+1.43/z elseif @Va=="16" z=z+2/z elseif @Va=="17" z=z-0.44136*sqr(z) elseif @Va=="18" z=z-1/z elseif @Va=="19" z=z+0.1*sqr(z) elseif @Va=="20" z=z-0.44*sqr(z)/tanh(z) elseif @Va=="21" z=z+3/z elseif @Va=="22" z=z-0.45*sqr(z)/tan(z) elseif @Va=="23" z=z-0.01*sqr(z)/cotan(z) elseif @Va=="24" z=z-0.125*sqr(z)/flip(z) elseif @Va=="25" z=z-0.125*z/conj(z) elseif @Va=="26" z=z-0.125*sqr(z)/conj(z) elseif @Va=="27" z=z+0.3/z elseif @Va=="28" z=z+0.5*sqr(z)/cotan(z) elseif @Va=="29" z=z-0.05*sqr(z)/tanh(z) elseif @Va=="30" z=z+0.047*sqr(z)*flip(z) elseif @Va=="31" z=z+0.2*sqr(z)/cotanh(z) elseif @Va=="32" z=z+0.4*sqr(z)+1/z elseif @Va=="33" z=z-0.3/z elseif @Va=="34" z=z-0.135*sqr(z)+1/sqr(z) elseif @Va=="35" z=z-3.12*z*cotan(z) elseif @Va=="36" z=z+0.1/sqr(z)+0.5/z elseif @Va=="37" z=z-2.63*z*cotan(z) elseif @Va=="38" z=z+1/sqr(z) elseif @Va=="39" z=z+0.115*sqr(z)+1/z elseif @Va=="40" z=z-0.225*sqr(z)+1/sqr(z) elseif @Va=="41" z=z-z/cotanh(z) elseif @Va=="42" z=z-0.285*sqr(z)+1/z elseif @Va=="43" z=z-0.04*z+1.9/z elseif @Va=="44" z=z+0.1*sqr(z)/cotanh(z) elseif @Va=="45" z=z+z/cotanh(z) elseif @Va=="46" z=z-0.108*z+1/z elseif @Va=="47" z=z+3.2*tanh(z)/sqr(z) elseif @Va=="48" z=z^2*(z-4.4)/(1-4.4*z) elseif @Va=="49" z=z-0.06*sqr(z)*cabs(z) elseif @Va=="50" z=z+5.8/sqr(z)+4.8/z elseif @Va=="51" z=z-1.26*z*cotanh(z) elseif @Va=="52" z=z^2*(z+3.2)/(1+3.2*z) elseif @Va=="53" z=z+0.32*sqr(z) elseif @Va=="54" z=z+0.037*z^3 elseif @Va=="55" if real(z)@bail default: title="Cnuh" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43""44"\ "45""46""47""48""49""50""51""52""53"\ "54""55""56""57""58""59""60""61""62"\ "63""64""65""66""67""68""69""70""71"\ "72""73""74" endparam param p2 caption="Cnuh Parameter 1" default=(1,0) endparam param p3 caption="Cnuh Parameter 2" default=(1,0) endparam param p4 caption="Cnuh Parameter 3" default=(0,0) endparam param p1 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="M Function" default=ident() visible=@JM=="M" endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } HugaMarash { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="1" z=z^2*(z-11.2)/(1-11.2*z) elseif @Va=="2" z=z+0.003*sqr(z)/cotanh(z) elseif @Va=="3" z=-0.11*sqr(z)+3/conj(z) elseif @Va=="4" z=0.08*sqr(z)-3.7/conj(z) elseif @Va=="5" z=z+0.07*sqr(z) elseif @Va=="6" z=0.185*sqr(z)+4/z elseif @Va=="7" z=z+1000/sqr(z) elseif @Va=="8" z=0.11*sqr(z)-3/conj(z) elseif @Va=="9" z=z+1/z elseif @Va=="10" z=z^2*(z+9.7)/(1+9.7*z) elseif @Va=="11" z=z^2*(z+26.7)/(1+26.7*z) elseif @Va=="12" z=z-1/sqr(z) elseif @Va=="13" z=z-0.27/sqr(z) elseif @Va=="14" if real(z)>imag(z) z=flip(z) endif elseif @Va=="15" z=z+225/sqr(z) elseif @Va=="16" z=z-0.16*sqr(z)+4/z elseif @Va=="17" z=z+0.08*sqr(z)/cotan(z) elseif @Va=="18" z=z-1/z elseif @Va=="19" z=-0.15*sqr(z)-14.9/cotanh(z) elseif @Va=="20" z=0.08*sqr(z)-3.7/flip(z) elseif @Va=="21" z=0.16*sqr(z)+4/z elseif @Va=="22" z=0.165*sqr(z)+1/sqr(z)+1 elseif @Va=="23" if |z|<1 z=z/|z| endif elseif @Va=="24" z=z+0.08*sqr(z)/cotanh(z) elseif @Va=="25" z=-0.11*sqr(z)+3/abs(z) elseif @Va=="26" z=z+0.11*sqr(z)-10/z elseif @Va=="27" z=z+0.3/z elseif @Va=="28" z=0.16*sqr(z)+4.6/tan(z) elseif @Va=="29" z=z^2*(z-81.8)/(1-81.8*z) elseif @Va=="30" z=z-0.065*sqr(z) elseif @Va=="31" z=z+0.11*sqr(z)-1/z elseif @Va=="32" z=z+0.3/sqr(z) elseif @Va=="33" z=z-0.3/z elseif @Va=="34" z=0.16*sqr(z)+1/z elseif @Va=="35" z=z-0.077*sqr(z)+33/cotan(z) elseif @Va=="36" z=-0.15*sqr(z)-10.4/cotanh(z) elseif @Va=="37" z=0.185*sqr(z)+4/sqr(z) elseif @Va=="38" z=z+1/z^4 elseif @Va=="39" z=z-12/sqr(z) elseif @Va=="40" z=z+0.0745*sqr(z)/tanh(z) elseif @Va=="41" z=z+21/sqr(z) elseif @Va=="42" z=-0.15*sqr(z)-5.8/cotanh(z) elseif @Va=="43" z=z-1/z^4 elseif @Va=="44" z=z-0.1*sqr(z)-32/z elseif @Va=="45" z=-0.11*sqr(z)-3/conj(z) elseif @Va=="46" z=z+0.11*sqr(z)-5.5/z elseif @Va=="47" z=-0.125*sqr(z)+4/z elseif @Va=="48" z=z-0.08*sqr(z)-33/tanh(z) elseif @Va=="49" z=-0.125*sqr(z)+4/sqr(z) elseif @Va=="50" z=z+0.07*sqr(z)+5/z elseif @Va=="51" z=0.11*sqr(z)-3/abs(z) elseif @Va=="52" z=-0.11*sqr(z)-3/abs(z) elseif @Va=="53" z=z-0.000385*z^4 elseif @Va=="54" z=0.11*sqr(z)-3/abs(z) elseif @Va=="55" if real(z)@bail default: title="Huga Marash" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43""44"\ "45""46""47""48""49""50""51""52""53"\ "54""55""56""57""58""59""60""61""62"\ "63""64""65""66""67""68""69" endparam param p2 caption="Huga Marash Parameter 1" default=(-1,0) endparam param p3 caption="Huga Marash Parameter 2" default=(1,0) endparam param p4 caption="Huga Marash Parameter 3" default=(0,0) endparam param p1 caption="Huga Marash Parameter 4" default=(1,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } ModifiedSchröder { ; http://shodhganga.inflibnet.ac.in/bitstream/10603/5708/13/13_chapter%206.pdf ; P 164 init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" z=z^2*(z-11.2)/(1-11.2*z) elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" z=z+0.4/tanh(sqr(z)) elseif @Va=="4" z=(z+0.4)/(0.4*z+1) elseif @Va=="5" z=z+4.675/sqr(z) elseif @Va=="6" z=z+z^4 elseif @Va=="7" z=z-0.011*sqr(z)/tan(z) elseif @Va=="8" z=z-0.2*sqr(z) elseif @Va=="9" z=0.02*sqr(z)-7.06/z elseif @Va=="10" z=z^2*(z+9.7)/(1+9.7*z) elseif @Va=="11" z=z^2*(z+26.7)/(1+26.7*z) elseif @Va=="12" z=0.884*z-1.421/z elseif @Va=="13" z=z-0.4/sqr(sin(z)) elseif @Va=="14" if real(z)>imag(z) z=flip(z) endif elseif @Va=="15" z=z-0.5*z^3 elseif @Va=="16" z=0.3526*z+0.086/sqr(z) elseif @Va=="17" z=z+0.08*sqr(z)/cotan(z) elseif @Va=="18" z=z-z^4 elseif @Va=="19" z=0.012*sqr(z)-10/tan(z) elseif @Va=="20" z=z-0.02/sqr(cotan(z)) elseif @Va=="21" z=z-0.0195/z elseif @Va=="22" z=z+0.09*sqr(z) elseif @Va=="23" if |z|<1 z=z/|z| endif elseif @Va=="24" z=z+0.08*sqr(z)/cotanh(z) elseif @Va=="25" z=z+z^2 elseif @Va=="26" z=z-z^3 elseif @Va=="27" z=z+0.001/tanh(sqr(z)) elseif @Va=="28" z=-0.013241*sqr(z)-7.06/z elseif @Va=="29" z=1.239*z+0.086/sqr(z) elseif @Va=="30" z=0.1*sqr(z)-3.7/z elseif @Va=="31" z=1.133*z+1/z elseif @Va=="32" z=0.012*sqr(z)+7.6/tan(z) elseif @Va=="33" z=z-0.5*z^2 elseif @Va=="34" z=0.16*sqr(z)+1/z elseif @Va=="35" z=0.463*z+3.132/sqr(z) elseif @Va=="36" z=z+z^3 elseif @Va=="37" z=z-4.63/sqr(z) elseif @Va=="38" z=z+1/z^4 elseif @Va=="39" z=z+0.4/sqr(sin(z)) elseif @Va=="40" z=z+0.0745*sqr(z)/tanh(z) elseif @Va=="41" z=z+0.0195/z elseif @Va=="42" if real(z)@bail default: title="Modified Schröder" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M1""M2" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43" endparam param p2 caption="ModSchröd Parameter 1" default=(1,0) endparam param p3 caption="ModSchröd Parameter 2" default=(-1,0) endparam param p4 caption="ModSchröd Parameter 3" default=(0,0) endparam param p1 caption="ModSchröd Parameter 4" default=(1,0) visible=@JM!="M2" endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="M Function" default=ident() visible=@JM=="M1" || @JM=="M2" endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Li-Mu-Ma-WangMod { ; Modification of a method given here: ; http://www.kurims.kyoto-u.ac.jp/EMIS/journals/GMN/yahoo_site_admin/assets/docs/6_GMN-982-V6N2.160175930.pdf ; P 64 init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="1" z=z+5*sqr(z)-1/z elseif @Va=="2" z=z+5*sqr(z)+1/z elseif @Va=="3" z=z+3*sqr(z)+1.5/sqr(z)-13.5 elseif @Va=="4" z=z-7*sqr(z)+1/z+6 elseif @Va=="5" z=z-3*sqr(z)+3.5/cotan(z) elseif @Va=="6" z=z+5*cotanh(z)+1/sqr(z) elseif @Va=="7" z=5*sqr(z)+2/sqr(z)-1 elseif @Va=="8" z=z+4*z^4-1 elseif @Va=="9" z=z+5*sqr(z)-10/sqr(z) elseif @Va=="10" z=z+5*sqr(z)+1/sqr(z) elseif @Va=="11" z=z+7.5*sqr(z)/cotanh(z)-1 elseif @Va=="12" z=z+3*sqr(z)-1/tan(z)-6 elseif @Va=="13" z=z-11*sqr(z)*cotanh(z)-1 elseif @Va=="14" z=z-3*sqr(z)+9.5/cotan(z) elseif @Va=="15" z=z+3*sqr(z)-1/z-6 elseif @Va=="16" z=7.5*z-2/sqr(z)-1 elseif @Va=="17" z=z-5*sqr(z)*cotan(z)-8.5 elseif @Va=="18" z=6*z-2/sqr(z) elseif @Va=="19" z=z+5*sqr(z)-9/tan(z) elseif @Va=="20" z=5*sqr(z)+2/sqr(z)+1 elseif @Va=="21" z=z+3.5*sqr(z)*tan(z)-18 elseif @Va=="22" z=7.5*z-2/sqr(z)+1 elseif @Va=="23" z=z+7*sqr(z)/tan(z)+1 elseif @Va=="24" z=z-3*sqr(z)-13/cotan(z) elseif @Va=="25" z=z-2*z^3-4.5 elseif @Va=="26" z=z-sqr(z)*cos(z)+25 elseif @Va=="27" z=z-2*z^3 elseif @Va=="28" z=6.5*sqr(z)+2/sqr(z)-1 elseif @Va=="29" z=z+4.5*z^4+0.5 elseif @Va=="30" z=z+11*sqr(z)*cotanh(z)-1 elseif @Va=="31" z=z+5*sqr(z)*cotan(z)-8.5 elseif @Va=="32" z=z-3*sqr(z)-10/sqr(z) elseif @Va=="33" z=z+5*sqr(z)*tanh(z)-6 elseif @Va=="34" z=z-11*sqr(z)*cotanh(z)+1 elseif @Va=="35" z=-5*sqr(z)+2/sqr(z)-1 elseif @Va=="36" z=z-3*sqr(z)*cos(z)-18 elseif @Va=="37" z=z+sqr(z)*cos(z)-25 elseif @Va=="38" z=-5*sqr(z)+2/cosh(z)-1 elseif @Va=="39" z=z+3.5*sqr(z)*tan(z)+18 elseif @Va=="40" z=z-6*sqr(z)*tanh(z)-10 endif f=z^@pow-p1 f1=@pow*z^(@pow-p1) a=z-f/f1 fa=a^@pow-p1 b=a-fa*(2*f-fa)/(f1*(2*f-5*fa)) fb=b^@pow-p1 fb1=@pow*b^(@pow-1) c=b-fb/fb1 fc=c^@pow-p1 z=b-p2*(p3*fb/fb1+p4*fc*(2*fb-fc)/(fb1*(2*fb-5*fc)))+p5 bailout: |zold-z|>@bail default: title="Li-Mu-Ma-Wang Mod" center=(0.001,0.001) periodicity=0 param Va caption="Variant" enum="1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40" endparam param p1 caption="Constant" default=1.0 endparam param p2 caption="Limod Parameter 1" default=(1,0) endparam param p3 caption="Limod Parameter 2" default=(1,0) endparam param p4 caption="Limod Parameter 3" default=(1,0) endparam param p5 caption="Limod Parameter 4" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Wammuling { init: z=fn1(pixel) int i=0 loop: While i<@iter i=i+1 z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="1" z=z+3*sqr(z)-1/z-6 elseif @Va=="2" z=2*z+1/z elseif @Va=="3" z=-5.5/abs(z) elseif @Va=="4" z=z-1.25*z*cotanh(z) elseif @Va=="5" z=z+z*cabs(z)-2 elseif @Va=="6" z=z+1.5*sqr(z)+1.5/cos(z) elseif @Va=="7" z=z+z*cos(z)-1 elseif @Va=="8" z=z+4*z^4-1 elseif @Va=="9" z=3.5/sin(z) elseif @Va=="10" z=z-7*sqr(z)+1/z+6 elseif @Va=="11" z=z+sqr(z)*cabs(z)+1 elseif @Va=="12" z=z-0.5*sqr(z)+1.125/z elseif @Va=="13" z=z-11*sqr(z)*cotanh(z)-1 elseif @Va=="14" z=z-3.5*sqr(z)+10/exp(z) elseif @Va=="15" z=z+5*sqr(z)-1/z elseif @Va=="16" z=1.5/exp(z) elseif @Va=="17" z=z+sqr(z)*cosh(z)-2 elseif @Va=="18" z=z-0.25*sqr(z)*abs(z)-2.75 elseif @Va=="19" z=z+z^2 elseif @Va=="20" z=7.5/sqr(z) elseif @Va=="21" z=z+z^3 elseif @Va=="22" z=z+z^4-1 elseif @Va=="23" z=z+7*sqr(z)/tan(z)+1 elseif @Va=="24" z=z+z*exp(z) elseif @Va=="25" z=z-2*z^3-4.5 elseif @Va=="26" z=z+z*cosh(z)+1 elseif @Va=="27" z=z-2*z^3 elseif @Va=="28" z=z+sqr(z)*cos(z)+2 elseif @Va=="29" z=z+4.5*z^4+0.5 elseif @Va=="30" z=0.5/abs(z) elseif @Va=="31" z=z+5*sqr(z)*cotan(z)-8.5 elseif @Va=="32" z=z-3*sqr(z)-10/sqr(z) elseif @Va=="33" z=z+5*sqr(z)*tanh(z)-6 elseif @Va=="34" z=z+0.5*sqr(z)-1.125/z elseif @Va=="35" z=-5*sqr(z)+2/sqr(z)-1 elseif @Va=="36" z=sqr(flip(z))+1 elseif @Va=="37" z=z-3/tan(z) elseif @Va=="38" z=-5*sqr(z)+2/cosh(z)-1 elseif @Va=="39" z=z-0.25*sqr(z)*exp(z)-2.75 elseif @Va=="40" z=z+z^4-2 elseif @Va=="41" z=z+z^4 elseif @Va=="42" z=z^2*(z+5)/(1+5*z)-2.5 elseif @Va=="43" z=z+sqr(z)*tanh(z)-1 elseif @Va=="44" z=z+z*exp(z)-3 elseif @Va=="45" z=z+3*sqr(z)+1.5/cotanh(z) elseif @Va=="46" z=z-z*sinh(z) elseif @Va=="47" z=z+1.5*z-1/sqr(z) elseif @Va=="48" z=z+z^3-3 elseif @Va=="49" z=z+z*cabs(z) elseif @Va=="50" z=z-2.5*z*tanh(z) elseif @Va=="51" z=z+z^4+1 elseif @Va=="52" z=-7.5/sqr(z) elseif @Va=="53" z=-0.25*sqr(flip(z))-1.5 elseif @Va=="54" z=z+9*sqr(z)*cotanh(z)-1.75 elseif @Va=="55" z=z-3*abs(z)-0.5/sqr(z) elseif @Va=="56" z=z^2*(z-1.5)/(1-1.5*z)-2.5 elseif @Va=="57" z=z-11*sqr(z)*cotanh(z)+1 elseif @Va=="58" z=1.5/flip(z) elseif @Va=="59" z=z+z^3-3 elseif @Va=="60" z=z-3.5/cosh(z) elseif @Va=="61" z=z-sqr(z)*cabs(z)+1 elseif @Va=="62" z=z+0.5*sqr(z)+1.125/z elseif @Va=="63" z=-3.5/sin(z) elseif @Va=="64" z=sqr(exp(z))-1 elseif @Va=="65" z=z-3.5/z elseif @Va=="66" z=-3/tanh(z) elseif @Va=="67" z=z-3*sqr(z)+9.5/cotan(z) elseif @Va=="68" z=z+16.5*sqr(z)*cotan(z)-9.5 elseif @Va=="69" z=z+z*abs(z)-2 elseif @Va=="70" z=z+0.5*sqr(z)-0.5/exp(z) elseif @Va=="71" z=-0.5/abs(z) elseif @Va=="72" z=z^4-3.5 elseif @Va=="73" z=z-3*sqr(z)+5.5/sqr(z) elseif @Va=="74" z=z-11.5/sqr(z) elseif @Va=="75" z=z+sqr(z)*cos(z) elseif @Va=="76" z=-1/sqr(z) elseif @Va=="77" z=z-4.25*z*cosh(z)+1 elseif @Va=="78" z=z-3*sqr(z)+3.5/cotan(z) elseif @Va=="79" z=z-4/sin(z) elseif @Va=="80" z=5.5/abs(z) elseif @Va=="81" z=z-2*sqr(z)*cotanh(z)+1 elseif @Va=="82" z=z+sqr(z)/exp(z) elseif @Va=="83" z=-z^4-3.5 elseif @Va=="84" z=z+sqr(z)*flip(z)-2 elseif @Va=="85" z=z^2*(z+2.125)/(1+2.125*z)-2.75 elseif @Va=="86" z=-0.25*sqr(cotanh(z))-1.25 elseif @Va=="87" z=z+z*cotanh(z) endif f=z^@pow-p1 f1=@pow*z^(@pow-p1) a=z-f/f1 fa=a^@pow-p1 b=a-fa*(2*f-fa)/(f1*(2*f-5*fa)) fb=b^@pow-p1 fb1=@pow*b^(@pow-1) c=b-fb/fb1 fc=c^@pow-p1 if @JM=="M1" z=b+p2*fb1*(2*fb-5*fc)/(fb/fb1+fc*(2*fb-fc))+p3+fn4(pixel) else z=b+p2*fb1*(2*fb-5*fc)/(fb/fb1+fc*(2*fb-fc))+p3 endif if @JM=="M2" z=@p11*fn3(log(abs(z)))^@pow2+@p12+fn4(pixel) else z=@p11*fn3(log(abs(z)))^@pow2+@p12 endif endwhile z=@adj*z/100 bailout: |z|<@bail default: title="Wammuling" center=(0.001,0.001) periodicity=0 maxiter=500 param JM caption="J/M" enum="J""M1""M2" endparam param Va caption="Variant" enum="1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42""43""44"\ "45""46""47""48""49""50""51""52""53"\ "54""55""56""57""58""59""60""61""62"\ "63""64""65""66""67""68""69""70""71"\ "72""73""74""75""76""77""78""79""80"\ "81""82""83""84""85""86""87" endparam param iter caption="Iterations" default=3 endparam param p1 caption="Wammuling Parameter 1" default=1.0 endparam param p2 caption="Wammuling Parameter 2" default=1.0 endparam param p3 caption="Wammuling Parameter 3" default=0.0 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p11 caption="Labs Parameter 1" default=(1,0) endparam param p12 caption="Labs Parameter 2" default=(0,0) endparam param pow caption="Wammuling Exponent" default=3 endparam param pow2 caption="Labs Exponent" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Labs Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM!="J" endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=100000.0 endparam } LabsMandelbrotVariant { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p1*fn2(z)+p2 z=(((z^2+fn3(pixel))^2-fn3(pixel))^2+fn3(pixel))^2-fn3(pixel) z=p3*fn4(log(abs(z)))+p4 endwhile z=@adj*z/100 bailout: |z|<@bail default: title="Labs Mandelbrot Variant" center=(0.001,0.001) periodicity=0 maxiter=500 param iter caption="Iterations" default=3 endparam param p3 caption="Labs Parameter 1" default=(1,0) endparam param p4 caption="Labs Parameter 2" default=(0,0) endparam param p1 caption="Loop Parameter 1" default=(0.5,0) endparam param p2 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=1000000.0 endparam } ModifiedMandelbrot { init: z=fn1(pixel) loop: z=p1*fn2(z)+p2 z=(z-p3)/(1-p3*z) z=z/(p4*z+1) if @Va=="none" z=z elseif @Va=="1" z=z*cotanh(z) elseif @Va=="2" z=z*cotan(z) elseif @Va=="3" z=z*cosh(z) elseif @Va=="4" z=z*cos(z) elseif @Va=="5" z=z+1/cos(z) elseif @Va=="6" z=z*sinh(z)+1 elseif @Va=="7" z=z-1/z elseif @Va=="8" z=z*sin(z)+1 elseif @Va=="9" z=z+sqr(z) elseif @Va=="10" z=z-1/cosh(z) elseif @Va=="11" z=z-1/cos(z) elseif @Va=="12" z=z-0.3*z^3 elseif @Va=="13" z=z+0.3*z^3 elseif @Va=="14" z=z-exp(z) elseif @Va=="15" z=z+0.3*z^3-1 elseif @Va=="16" z=z-cos(z) elseif @Va=="17" z=z+cotan(z)+1/z elseif @Va=="18" z=z-cotanh(z)+1/z elseif @Va=="19" z=z-0.3*z*cotan(z) elseif @Va=="20" z=z+0.3*z*tan(z) elseif @Va=="21" z=z+0.3*z*sinh(z) elseif @Va=="22" z=z+0.3*z*sin(z) elseif @Va=="23" z=z+sqr(z)+1/cotanh(z) elseif @Va=="24" z=z+sqr(z)+1/cotan(z) elseif @Va=="25" z=z+sqr(z)-1/cosh(z) elseif @Va=="26" z=z+0.3*z*sin(z)-1 elseif @Va=="27" z=z+0.3*z*cos(z)-1 elseif @Va=="28" z=z+0.3*z*cosh(z)-1 elseif @Va=="29" z=z+0.3*z*cotanh(z)-1 elseif @Va=="30" z=z-z*cotan(z) elseif @Va=="31" z=z+sin(z)/z elseif @Va=="32" z=z+sin(z)/z-1 elseif @Va=="33" z=z-sin(z)/z elseif @Va=="34" z=z-sin(z)/z+1 endif z=(z^2+fn3(pixel))/(fn3(pixel)*z^2+1) bailout: |z|<@bail default: title="Modified Mandelbrot" center=(0.001,0.001) periodicity=0 param p1 caption="Loop Parameter 1" default=(1,0) endparam param p2 caption="Loop Parameter 2" default=(0,0) endparam param p3 caption="Möbius Parameter 1" default=(0,0) endparam param p4 caption="Möbius Parameter 2" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34" endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=4.0 endparam } ModifiedNewton { init: z=fn1(pixel) loop: zold=z z=p2*fn2(z)+p3 z=(z-p5)/(1-p5*z) z=z/(p6*z+1) z=z-p1*(z^@pow-p4)/(@pow*z^(@pow-1))+0.45 z=z-p1*(z^@pow-p4)/(@pow*z^(@pow-1))+0.45 bailout: |zold-z|>@bail default: title="Modified Newton" center=(0.001,0.001) periodicity=0 param p1 caption="ModNewt Parameter" default=(1,0) endparam param p4 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p2 caption="Loop Parameter 1" default=(1,0) endparam param p3 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } NewtonMandelbrot { init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @Va=="None" z=z elseif @Va=="1" z=z+1/z elseif @Va=="2" z=z+1/exp(z) elseif @Va=="3" z=z+1/tan(z) elseif @Va=="4" z=z+1/cosh(z) elseif @Va=="5" z=z+1/cos(z) elseif @Va=="6" z=z+1/sinh(z) elseif @Va=="7" z=z-1/z elseif @Va=="8" z=z-1/sqr(z) elseif @Va=="9" z=z-1/tanh(z) elseif @Va=="10" z=z-1/cosh(z) elseif @Va=="11" z=z-1/cos(z) elseif @Va=="12" z=z-1/sin(z) elseif @Va=="13" z=z+cos(z) elseif @Va=="14" z=z-exp(z) elseif @Va=="15" z=z-cosh(z) elseif @Va=="16" z=z-cos(z) elseif @Va=="17" z=z+cotan(z)+1/z elseif @Va=="18" z=z-cotanh(z)+1/z elseif @Va=="19" z=z-tanh(z)+1/z elseif @Va=="20" z=z-tan(z)+1/z elseif @Va=="21" z=z-sinh(z)+1/z elseif @Va=="22" z=z-sin(z)+1/z elseif @Va=="23" z=z+sqr(z)+1/cotanh(z) elseif @Va=="24" z=z+sqr(z)+1/cotan(z) elseif @Va=="25" z=z+sqr(z)-1/cosh(z) elseif @Va=="26" z=z+sqr(z)-1/cos(z) elseif @Va=="27" z=z+z*exp(z) elseif @Va=="28" z=z+z*cotan(z) elseif @Va=="29" z=z-z*exp(z) elseif @Va=="30" z=z-z*cotan(z) elseif @Va=="31" if |z|<1 z=z/|z| endif elseif @Va=="32" if |z|>1 z=z/|z| endif elseif @Va=="33" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="34" if real(z)imag(z) z=flip(z) endif endif f=z^@powN-p1 f1=3*z^2 z=(z-p2*f/f1)^@powM+fn3(pixel) bailout: (@BT=="Convergent" && |zold-z|>@bailcon) ||(@BT=="Divergent" && |z|<@baildiv) default: title="Newton Mandelbrot" center=(0.001,0.001) periodicity=0 param p1 caption="Newton Parameter 1" default=(1,0) endparam param p2 caption="Newton Parameter 2" default=(1,0) endparam param powN caption="Newton Exponent" default=3 endparam param powM caption="Mandelbrot Exponent" default=2 endparam func fn3 caption="Mandelbrot C Function" default=ident() endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35" endparam param BT caption="Bailout Type" enum="Convergent""Divergent" endparam param baildiv caption="Bailout Value" visible=@BT=="Divergent" default=10.0 endparam param bailcon caption="Bailout Value" default=0.000000001 visible=@BT=="Convergent" endparam } ModifiedMandelbrot2 { init: z=fn1(pixel) loop: z=p2*z+p3 if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|<1 z=z/|z| endif z=flip(z) elseif @Va=="3" if |z|<1 z=z/|z| endif z=abs(z) elseif @Va=="4" if |z|<1 z=z/|z| endif z=exp(z) elseif @Va=="5" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=cosh(z) elseif @Va=="7" if |z|<1 z=z/|z| endif z=cos(z) elseif @Va=="8" if |z|<1 z=z/|z| endif z=sinh(z) elseif @Va=="9" if |z|<1 z=z/|z| endif z=sin(z) elseif @Va=="10" z=z+0.3/z elseif @Va=="11" z=z-0.3/z elseif @Va=="12" z=z+0.3/sqr(z) elseif @Va=="13" z=z-0.3/sqr(z) elseif @Va=="14" z=z+0.3/cotanh(z) elseif @Va=="15" z=z-0.3/cotanh(z) elseif @Va=="16" z=z+0.3/cotan(z) elseif @Va=="17" z=z-0.3/cotan(z) elseif @Va=="18" z=z+0.3/tanh(z) elseif @Va=="19" z=z-0.3/tanh(z) elseif @Va=="20" z=z+0.3/tan(z) elseif @Va=="21" z=z-0.3/tan(z) elseif @Va=="22" z=z+0.3/cosh(z) elseif @Va=="23" z=z-0.3/cosh(z) elseif @Va=="24" z=z+0.3/cos(z) elseif @Va=="25" z=z-0.3/cos(z) elseif @Va=="26" z=z+0.3/sin(z) elseif @Va=="27" z=z-0.3/sin(z) endif z=((z+p1)^2+fn3(pixel))-((z-p1)^2+fn3(pixel))/2 bailout: |z|<@bail default: title="Modified Mandelbrot 2" center=(0.001,0.001) magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23""24""25""26""27" endparam param p1 caption="ModMand Parameter" default=(-0.5,0) endparam param p2 caption="Loop Parameter 1" default=(1,0) endparam param p3 caption="Loop Parameter 2" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=100.0 endparam } ModifiedMandelbrot3 { init: z=fn1(pixel) loop: z=p2*z+p3 if @Va=="none" z=z elseif @Va=="1" z=z+1/z elseif @Va=="2" z=z+1/sqr(z) elseif @Va=="3" z=z+1/cotanh(z) elseif @Va=="4" z=z+1/tanh(z) elseif @Va=="5" z=z+1/cos(z) elseif @Va=="6" z=z+1/sin(z) elseif @Va=="7" z=z-1/z elseif @Va=="8" z=z-1/sqr(z) elseif @Va=="9" z=z-1/cotan(z) elseif @Va=="10" z=z-1/tan(z) elseif @Va=="11" z=z-1/cos(z) elseif @Va=="12" z=z-1/sinh(z) elseif @Va=="13" z=z+sqr(z) elseif @Va=="14" z=z+cosh(z) elseif @Va=="15" z=z+sin(z) elseif @Va=="16" z=z+2/z elseif @Va=="17" z=z+2/sinh(z) elseif @Va=="18" z=z+2/sin(z) elseif @Va=="19" z=z-2/z elseif @Va=="20" z=z-2/sqr(z) elseif @Va=="21" z=z-2/sin(z) elseif @Va=="22" z=z+2*cos(z) elseif @Va=="23" z=z-2*sqr(z) elseif @Va=="24" z=z-2*sinh(z) endif z=(fn3(pixel)^2+z)^2+z bailout: |z|<@bail default: title="Modified Mandelbrot 3" center=(0.001,0.001) magn=0.8 angle=270 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23""24" endparam param p2 caption="Loop Parameter 1" default=(-0.35,0) endparam param p3 caption="Loop Parameter 2" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=1000.0 endparam } Ginok { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=flip(z) elseif @Va=="2" if |z|<1 z=z/|z| endif z=0.1*sqr(z) elseif @Va=="3" if |z|>1 z=z/|z| endif z=1.2*sqr(z) elseif @Va=="4" if |z|>1 z=z/|z| endif z=cotanh(z) elseif @Va=="5" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=sinh(z) elseif @Va=="6" if real(z)@bail default: title="Ginok" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19" endparam param p1 caption="Ginok Parameter 1" default=(1,0) endparam param p2 caption="Ginok Parameter 2" default=(1,0) endparam param p3 caption="Ginok Parameter 3" default=(0,0) endparam param p4 caption="Ginok Parameter 4" default=1.2 endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Thomford { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif z=0.6/cotan(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=0.575*abs(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=z-0.5*sqr(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=z+0.3*cotanh(z) elseif @Va=="7" z=flip(z) z=z+z^2*(z+10)/(1+10*z) elseif @Va=="8" z=z+0.7*sqr(z)+1/sqr(z) elseif @Va=="9" z=z+sqr(z)*tan(z)+1.75 elseif @Va=="10" z=z+0.3/z elseif @Va=="11" z=z+0.9*exp(z)^2-0.1*z^3 elseif @Va=="12" z=sqr(z)+1.85*z^2/(z^3-1)-2.135 elseif @Va=="13" z=z-0.9*z^2/(z^3-1)-1.83 elseif @Va=="14" z=sqr(z)+1.85*z^2/(z^3-1)+2 elseif @Va=="15" z=z+4.2*z^2/(z^3-1)+0.7845 elseif @Va=="16" z=z-0.35*(z^3-1)/(3*z^2)+1.3 elseif @Va=="17" z=abs(z)-0.35*(z^3-1)/(3*z^2)+1.3 elseif @Va=="18" z=cosh(z)-z^2+1 elseif @Va=="19" z=cos(z)+z^2*(z+2)/(1+2*z)+1 elseif @Va=="20" z=cos(z)+z^2*(1+0.6*z)/(z+0.6)+0.6 elseif @Va=="21" z=cos(z)+z^2+0.6 elseif @Va=="22" z=cos(z)+z^2*cos((z-1.16)/(1-1.16*z))+1 endif f=z^@pow-p1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) f3=(@pow-2)*(@pow-1)*@pow*z^(@pow-3) z=z-p2*(f^2*f3+6*f1^3-6*f*f1*f2)/(6*f*f1^2-3*f^2*f2)+p3 bailout: |zold-z|>@bail default: title="Thomford" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21""22" endparam param p2 caption="Thomford Parameter 1" default=(1,0) endparam param p3 caption="Thomford Parameter 2" default=(0,0) endparam param p1 caption="Thomford Parameter 3" default=(1,0) endparam param pow caption="Exponent" default=4 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(0.65,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } ModifiedJarratt { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif if @JM=="J" z=3*cosh(z) else z=-cotanh(z) endif elseif @Va=="3" if |z|>1 z=z/|z| endif if @JM=="J" z=3*cos(z) else z=-cotan(z) endif elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z+1/z elseif @Va=="7" z=z+1/sqr(z) elseif @Va=="8" z=z-1/z elseif @Va=="9" z=z-1/sqr(z) elseif @Va=="10" z=z+0.3/z elseif @Va=="11" z=z+0.3/sqr(z) elseif @Va=="12" z=z-0.3*sqr(z) elseif @Va=="13" z=z+0.5*sqr(z) endif f=z^@pow-p1 f1=@pow*z^(@pow-1) a=f/f1 d=@pow*(z-2*a/3)^(@pow-1) z=z-p2*((2/a)-((f1-3*d)/f))+p3 if @JM=="M" z=z+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Modified Jarratt" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13" endparam param p1 caption="Jarratt Mod Parameter 1" default=(1,0) endparam param p2 caption="Jarratt Mod Parameter 2" default=(1,0) endparam param p3 caption="Jarratt Mod Parameter 3" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(0.5,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Twennum { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|<1 z=z/|z| endif z=z-0.93*tan(z) elseif @Va=="3" if |z|>1 z=z/|z| endif z=z+0.16*cotan(z) elseif @Va=="4" if |z|<1 z=z/|z| endif z=z+0.26*sqr(z) elseif @Va=="5" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="6" if |z|>1 z=z/|z| endif z=z+0.4*cotan(z) elseif @Va=="7" if |z|>1 z=z/|z| endif z=z+0.47*cotanh(z) elseif @Va=="8" if |z|>1 z=z/|z| endif z=z+0.0955*cotanh(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=z-0.5*exp(z) elseif @Va=="10" if |z|>1 z=z/|z| endif z=z-1.32*tanh(z) elseif @Va=="11" if |z|<1 z=z/|z| endif z=z-0.8*recip(z) elseif @Va=="12" z=sqr(z)+z^2*(z-1.36 )/(1-1.36*z) elseif @Va=="13" z=cosh(z)+z^2*(z-1.65)/(1-1.65*z)-1.61 elseif @Va=="14" z=cos(z)+z^2*(z+1.2)/(1+1.2*z)-0.5 elseif @Va=="15" z=z^2*(z-0.37)/(1-0.37*z)-0.575 elseif @Va=="16" z=z^2*(z+3)/(1+3*z)+0.2435 elseif @Va=="17" z=z^2*(z+8.5)/(1+8.5*z) -0.175 elseif @Va=="18" if |z|<1 z=z/|z| endif z=z-0.137 *sqr(z) elseif @Va=="19" if real(z)>imag(z) z=flip(z) endif z=conj(z) elseif @Va=="20" if real(z)>imag(z) z=flip(z) endif z=0.25*sqr(z) elseif @Va=="21" if real(z)>imag(z) z=flip(z) endif z=-abs(z) elseif @Va=="22" if real(z)imag(z) z=flip(z) endif z=0.48*z+0.45/z elseif @Va=="35" if |z|>1 z=z/|z| endif z=-1.25*z^3 elseif @Va=="36" if |z|>1 z=z/|z| endif z=0.67*flip(z)*conj(z) elseif @Va=="37" if |z|>1 z=z/|z| endif z=0.4*flip(z)*conj(z) elseif @Va=="38" if |z|>1 z=z/|z| endif z=0.5*exp(z)*sqr(z) elseif @Va=="39" if |z|>1 z=z/|z| endif z=-0.395*exp(z)*sqr(z) elseif @Va=="40" if |z|>1 z=z/|z| endif z=0.45*cotan(z)*sqr(z) elseif @Va=="41" if |z|>1 z=z/|z| endif z=0.45*cos(z)*sqr(z) elseif @Va=="42" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=sqr(z)+z^2*(z-5)/(1-5*z)+0.85 elseif @Va=="43" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z+4.15)/(1+4.15*z) elseif @Va=="44" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2 elseif @Va=="45" z=z-0.38*(z^3-1)/(3*z^2) z=+z^2*(z-7)/(1-7*z) elseif @Va=="46" z=z-5.02*(z^3-1)/(3*z^2) z=z^2*(z-13)/(1-13*z) endif f=z^@pow-p1 f1=@pow*z^(@pow-1) z=fn4(z)+p2*z^2*(f/f1)+p3 bailout: |zold-z|>@bail default: title="Twennum" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21"\ "22""23""24""25""26""27""28"\ "29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42"\ "43""44""45""46" endparam param p2 caption="Twennum Parameter 1" default=(1,0) endparam param p3 caption="Twennum Parameter 2" default=(0,0) endparam param p1 caption="Twennum Parameter 3" default=(1,0) endparam param pow caption="Exponent" default=4 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Twennum Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } LabsNewtonMunster { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="Munster" z=z^2*(z-@mun)/(1-@mun*z) elseif @Va=="Newton" z=z-@new*(z^3-1)/(3*z^2) elseif @Va=="Möbius 1" z=(z-@mob1)/(1-@mob1*z) elseif @Va=="Möbius 2" z=z/(@mob2*z+1) elseif @Va=="Julia" z=z^2+@jul elseif @Va=="Add Recip" z=z+@ar/z elseif @Va=="Add Sqr" z=z+@as*sqr(z) elseif @Va=="Mandelbrot" z=z^2+@mf(pixel) endif f=z=z^2*(z-p4)/(1-p4*z)-p1 f1=z*(p4^2*z-2*p4*(z^2+1)+3*z)/(1-p4*z)^2 z=z-p2*f/f1+p3 if @JM=="M" z=z+fn3(pixel) endif z=@lapa1*@lafun(log(abs(z)))^@pow+@lapa2 endwhile z=z*@adj/100 bailout: |z|<@bail default: title="Labs Newton Munster" center=(0.001,0.001) periodicity=0 magn=0.5 maxiter=500 heading caption="Start" endheading func fn1 caption="Start Function" default=ident() endfunc heading caption="Loop (general)" endheading param JM caption="J/M" enum="J""M" endparam param iter caption="Iterations" default=3 endparam param Va caption="Modification" enum="None""Munster""Newton""Möbius 1""Möbius 2""Julia""Add Recip"\ "Add Sqr""Mandelbrot" endparam param mun caption="Mod Parameter" default=(-2,0) visible=@Va=="Munster" endparam param new caption="Mod Parameter" default=(0.5,0) visible=@Va=="Newton" endparam param mob1 caption="Mod Parameter" default=(0.2,0) visible=@Va=="Möbius 1" endparam param mob2 caption="Mod Parameter" default=(-0.3,0) visible=@Va=="Möbius 2" endparam param jul caption="Mod Parameter" default=(0.5,0) visible=@Va=="Julia" endparam param ar caption="Mod Parameter" default=(-0.3,0) visible=@Va=="Add Recip" endparam param as caption="Mod Parameter" default=(-0.3,0) visible=@Va=="Add Sqr" endparam func mf caption="Mod Function" default=ident() visible=@Va=="Mandelbrot" endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param adj caption="Adjustment" default=102.0 endparam heading caption="Newton" endheading param p2 caption="Newton Parameter 1" default=(1,0) endparam param p3 caption="Newton Parameter 2" default=(0,0) endparam param p1 caption="Constant" default=(1,0) endparam func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc heading caption="Munster" endheading param p4 caption="Munster Parameter" default=(0.5,0) endparam heading caption="Labs" endheading param lapa1 caption="Labs Parameter 1" default=(1,0) endparam param lapa2 caption="Labs Parameter 2" default=(0,0) endparam func lafun caption="Labs Function" default=ident() endfunc param pow caption="Labs Exponent" default=(1,0) endparam heading caption="Bailout" endheading param bail caption="Bailout Value" default=100000.0 endparam } ModifiedMunster { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|<1 z=z/|z| endif z=z+sin(z) elseif @Va=="3" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="4" if |z|<1 z=z/|z| endif z=z-0.3*cotan(z) elseif @Va=="5" z=z+0.5*sqr(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=z^2*(z+7.3)/(1+7.3*z) elseif @Va=="7" if |z|>1 z=z/|z| endif z=z^2*(z-1.2)/(1-1.2*z) elseif @Va=="8" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z-1.35)/(1-1.35*z) elseif @Va=="9" if real(z)imag(z) z=flip(z) endif z=z^2*(z+9.8)/(1+9.8*z) elseif @Va=="11" if |z|<1 z=z/|z| endif z=z^2*(z-2.954)/(1-2.954*z) elseif @Va=="12" if |z|>1 z=z/|z| endif z=z^2*(z-28)/(1-28*z) elseif @Va=="13" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z-2.55)/(1-2.55*z) elseif @Va=="14" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z-8.4)/(1-8.4*z) elseif @Va=="15" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z-18.5)/(1-18.5*z) elseif @Va=="16" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z+3)/(1+3*z) elseif @Va=="17" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z^2*(z+100)/(1+100*z) elseif @Va=="18" z=z^2*(z-2.95)/(1-2.95*z) elseif @Va=="19" z=z+z^2*(z+0.75)/(1+0.75*z) elseif @Va=="20" z=z^2*(z+2.384)/(1+2.384*z) elseif @Va=="21" z=z^2*(z+4.6)/(1+4.6*z) elseif @Va=="22" z=z^2*(z+9.5)/(1+9.5*z) endif else if @Va=="none" z=z elseif @Va=="1" z=z+cotan(z)-1 elseif @Va=="2" z=z+cotanh(z)-0.5 elseif @Va=="3" z=z+cotan(z)+1 elseif @Va=="4" z=z+1/z+1 elseif @Va=="5" z=z+0.5*sqr(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=z^2*(z+7.3)/(1+7.3*z) elseif @Va=="7" z=z-0.5*sin(z)-1 elseif @Va=="8" z=z-0.2*tan(z)+2 elseif @Va=="9" z=2.5*(z^3-1)/(3*z^2)+1.25 elseif @Va=="10" if real(z)>imag(z) z=flip(z) endif z=z^2*(z+9.8)/(1+9.8*z) elseif @Va=="11" if |z|<1 z=z/|z| endif z=z^2*(z-2.954)/(1-2.954*z) elseif @Va=="12" z=2.15*(z^3-1)/(3*z^2)+1.84 elseif @Va=="13" z=z-1/z+2 elseif @Va=="14" z=z+cos(z)-1 elseif @Va=="15" z=z+cos(z)+1 elseif @Va=="16" z=z-cotanh(z)+1.8 elseif @Va=="17" z=z+0.1*sqr(z) elseif @Va=="18" z=z^2*(z-2.95)/(1-2.95*z) elseif @Va=="19" z=z+z^2*(z+0.75)/(1+0.75*z) elseif @Va=="20" z=z^2*(z+2.384)/(1+2.384*z) elseif @Va=="21" z=z^2*(z+4.6)/(1+4.6*z) elseif @Va=="22" z=z^2*(z-3)/(1+3*z) endif endif z=fn4(z)+p2*z^2*@fn5((z-p4)/(1-p4*z))+p3 if @JM=="M" z=z+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Modified Munster" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21""22" endparam param p4 caption="MM Parameter 1" default=(2,0) endparam param p2 caption="MM Parameter 2" default=(1,0) endparam param p3 caption="MM Parameter 3" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn4 caption="MM Function 1" default=ident() endfunc func fn5 caption="MM Function 2" default=ident() endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Theg { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 if @Va=="none" z=z elseif @Va=="Munster" z=z^2*(z-@mun)/(1-@mun*z) elseif @Va=="Newton" z=z-@new*(z^3-1)/(3*z^2) elseif @Va=="Möbius 1" z=(z-@mob1)/(1-@mob1*z) elseif @Va=="Möbius 2" z=z/(@mob2*z+1) elseif @Va=="Julia" z=z^2+@jul elseif @Va=="Add Recip" z=z+@ar/z elseif @Va=="Add Sqr" z=z+@as*sqr(z) elseif @Va=="Mandelbrot" z=z^2+@mf(pixel) endif z=(p1*z^3+p2)/(p2*z+p1) bailout: |zold-z|>@bail default: title="Theg" center=(0.001,0.001) periodicity=0 magn=0.5 param p1 caption="Theg Parameter 1" default=(0.5,0) endparam param p2 caption="Theg Parameter 2" default=(1.5,0) endparam param Va caption="Modification" enum="None""Munster""Newton""Möbius 1""Möbius 2""Julia""Add Recip"\ "Add Sqr""Mandelbrot" endparam param mun caption="Munster Parameter" default=(-2,0) visible=@Va=="Munster" endparam param new caption="Newton Parameter" default=(0.5,0) visible=@Va=="Newton" endparam param mob1 caption="Möbius 1 Parameter" default=(0.2,0) visible=@Va=="Möbius 1" endparam param mob2 caption="Möbius 2 Parameter" default=(0.1,0) visible=@Va=="Möbius 2" endparam param jul caption="Julia Parameter" default=(0.5,0) visible=@Va=="Julia" endparam param ar caption="Add Recip Parameter" default=(-0.3,0) visible=@Va=="Add Recip" endparam param as caption="Add Sqr Parameter" default=(-0.3,0) visible=@Va=="Add Sqr" endparam func mf caption="Mandelbrot Function" default=ident() visible=@Va=="Mandelbrot" endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } SneabW { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="1" z=z+0.45*sqr(z) elseif @Va=="2" z=z+1.5*cos(z) elseif @Va=="3" z=z^2*(z-8)/(1-8*z) elseif @Va=="4" z=z^2*(sqr(z)-3)/(1-3*z) elseif @Va=="5" z=z^2*(sqr(z)-2.5)/(1-2.5*tanh(z)) elseif @Va=="6" z=z-0.35*abs(z) elseif @Va=="7" z=-z elseif @Va=="8" z=z+sqr(tan(z)) elseif @Va=="9" z=z+1.8*sqr(cos(z)) elseif @Va=="10" z=z+sqr(sin(z)) elseif @Va=="11" z=z^2*(sqr(z)-3)/(1-3*sqr(z)) elseif @Va=="12" z=z^2*(sqr(z)-3)/(1-3*tan(z)) elseif @Va=="13" z=z-5.9*(z^6-1)/(3*exp(z)^2) elseif @Va=="14" z=z-2.85*(z^6-1)/(3*cotanh(z)^2) elseif @Va=="15" z=sin(z)^2-0.2 elseif @Va=="16" z=sin(z)^2-0.73 elseif @Va=="17" z=-0.365*log(abs(z))^2-0.5 elseif @Va=="18" z=0.4*log(abs(z))^2+1.65 elseif @Va=="19" z=1.25*sqr(z)/tan(z)+1.25 elseif @Va=="20" z=-0.1*sqr(z)/cotan(z)+1.9 elseif @Va=="21" z=z-0.53*sqr(z)/cotan(z)+1.28 elseif @Va=="22" z=-0.25*sqr(z)/cotanh(z)+2 elseif @Va=="23" z=z-2*sqr(z)/tanh(z)+0.2 elseif @Va=="24" if @JM=="J" z=0.35*cotan(z)/cotanh(z)-0.62 else z=0.35*cos(z)/cotanh(z)-0.62 endif elseif @Va=="25" z=z-0.55*sqr(z)/tanh(z)+1.65 elseif @Va=="26" z=z-2*sqr(z)/tan(z)+0.17 elseif @Va=="27" z=z-0.2*sqr(z)/cotanh(z)+1.28 elseif @Va=="28" z=0.1*sqr(z)/cotan(z)-0.77 elseif @Va=="29" z=0.25*sqr(z)/tan(z)+1.95 endif if @JM=="J" z=z*(p1-z)^2+p2 else z=z*(p1-z)^2+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Sneab W" center=(0.001,0.001) periodicity=0 param JM enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29" endparam param p1 caption="Sneab Parameter 1" default=(1.1,0) endparam param p2 caption="Sneab Parameter 2" default=(0,0) endparam param p3 caption="Sneab Parameter 3" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Inverse-FreeJarrattforz-(z^3-1)/(3*z^2)-c=0 { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="1" z=z+1/cosh(z)-1 elseif @Va=="2" z=z^2*(z+13)/(1+13*z) elseif @Va=="3" z=z-0.285/cotanh(z) elseif @Va=="4" z=(z+0.135)/(1+0.135*z) elseif @Va=="5" z=(z-0.3)/(1-0.3*z) elseif @Va=="6" z=z/(-0.3*z+1) elseif @Va=="7" z=z/(0.3*z+1) elseif @Va=="8" z=z^2-0.95 elseif @Va=="9" z=z^2+0.3 elseif @Va=="10" z=z+sqr(z) elseif @Va=="11" z=z+0.3*sqr(z) elseif @Va=="12" z=z-0.95*sqr(z) elseif @Va=="13" z=z-2.235/cotanh(z)-3.5 elseif @Va=="14" z=z-0.6/cotan(z)-1.1 elseif @Va=="15" z=z-0.6/cotanh(z)-1.1 elseif @Va=="16" z=z^2*(z-13)/(1-13*z) elseif @Va=="17" if real(z)>imag(z) z=flip(z) endif elseif @Va=="18" z=z+0.4*sqr(z)-0.6 elseif @Va=="19" z=-0.8-7.75*(z+0.8)/(z+7.75) elseif @Va=="20" z=-1.5-6*(z+1.5)/(z+6) elseif @Va=="21" z=z+0.4*z^4-0.3 elseif @Va=="22" z=z+z^3 elseif @Va=="23" z=z^3+0.376 elseif @Va=="24" z=z-0.3*z^3 elseif @Va=="25" z=z-0.3*z^3-0.6 endif f=z-(z^3-1)/(3*z^2)-p1 f1=2/3-2/(3*z^3) a=f/f1 b=@pow*(z-2*a/3)^(@pow-1) c=(b-f1)/f1 z=z-p2*(a-3*a*c*(1-3*c/2)/4)+p3 if @JM=="M" z=z+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Erratum 12" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param p2 caption="Jarratt Parameter 1" default=(1,0) endparam param p3 caption="Jarratt Parameter 2" default=(0,0) endparam param p1 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(0.5,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Mojar { ;Modification of inverse-free Jarratt's Iterative map, as given here: ; www.mat.utfsm.cl/scientia/archivos/vol10/part_2.pdf ; P 17 init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" z=z^2*(z-1.75)/(1-1.75*z) elseif @Va=="2" z=z+0.125*(z^3-1)/(3*z^2) elseif @Va=="3" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="4" z=z+0.5*sqr(z) elseif @Va=="5" z=z+0.3*exp(z) elseif @Va=="6" z=z+0.2*z^4 elseif @Va=="7" z=z+z^2*(z+6)/(1+6*sqr(z)) elseif @Va=="8" z=sqr(z)+z^2*(sqr(z)-2.33)/(1-2.33*sqr(z))+0.175 elseif @Va=="9" z=z+z^2*(sqr(z)-1.5)/(1-1.5*sqr(z)) elseif @Va=="10" z=z+z^2*(cotan(z)+1.3)/(1+1.3*sqr(z)) elseif @Va=="11" z=z+z^2*(cos(z)+1.5)/(1+1.5*sqr(z))+0.1 elseif @Va=="12" z=z+0.5*(cotan(z)^3-1)/(3*cotan(z)^2)+1.687 elseif @Va=="13" z=z+z^2*(sin(z)-1.6)/(1-1.6*sqr(z)) elseif @Va=="14" z=z+z^2*(cosh(z)-1.6)/(1-1.6*cotanh(z)) elseif @Va=="15" z=z+0.5*(cotanh(z)^3-1)/(3*cotanh(z)^2)+1.687 elseif @Va=="16" z=sqr(z)+0.1*(cos(z)^3-1)/(3*cos(z)^2)-0.8 elseif @Va=="17" z=0.25*sqr(z)+0.25*cotanh(z) elseif @Va=="18" z=-0.68*sqr(z)-0.15*cotanh(z) elseif @Va=="19" z=-0.81*z-0.33*recip(z) elseif @Va=="20" z=-0.4*sqr(z)+0.2*recip(z) elseif @Va=="21" if |z|<1 z=z/|z| endif z=0.3*z-0.075 elseif @Va=="22" if |z|<1 z=z/|z| endif z=z-0.5*cotanh(sqr(z))+1.44 elseif @Va=="23" if |z|<1 z=z/|z| endif z=z-0.5*cotanh(cotanh(z))+1.8 elseif @Va=="24" if |z|<1 z=z/|z| endif z=z-0.68*cotan(cotanh(z))+1.64 elseif @Va=="25" z=z^2*(z+4.25)/(1+4.25*z)+0.05 elseif @Va=="26" z=z-2*(z^3-1)/(3*z^2)+3.85 elseif @Va=="27" z=z-0.5*(z^3-1)/(3*z^2)+1.687 elseif @Va=="28" z=sqr(z)+0.24*(cosh(z)^3-1)/(3*cosh(z)^2)+0.4 elseif @Va=="29" z=z+0.5*(cotan(z)^3-1)/(3*cotanh(z)^2)+1.687 elseif @Va=="30" z=sqr(z)+z^2*(z-1.93)/(1-1.93*z)+0.22 elseif @Va=="31" z=z+0.225*(cotanh(z)^3-1)/(3*cotan(z)^2)+1 endif else if @Va=="none" z=z elseif @Va=="1" z=z^2*(z-1.25)/(1-1.25*z) elseif @Va=="2" z=z+(cos(z)^3-1)/(3*z^2)+1 elseif @Va=="3" if |z|<1 z=z/|z| endif z=z+2.55*cotan(z)-0.9 elseif @Va=="4" z=z+0.1*sqr(z)+0.2 elseif @Va=="5" z=-0.35*z-1.7 elseif @Va=="6" z=z+0.2*z^4 elseif @Va=="7" z=z+z^2*(z+6)/(1+6*sqr(z)) elseif @Va=="8" z=sqr(z)+z^2*(sqr(z)-1.88)/(1-1.88*sqr(z))-0.975 elseif @Va=="9" z=z+z^2*(sqr(z)+4.4)/(1+4.4*sqr(z))-0.975 elseif @Va=="10" z=z+z^2*(cotan(z)-4.4)/(1-4.4*sqr(z))-0.05 elseif @Va=="11" z=z+z^2*(cos(z)+1.5)/(1+1.5*sqr(z))+0.1 elseif @Va=="12" z=z+0.5*(cotan(z)^3-1)/(3*cotan(z)^2)+1.687 elseif @Va=="13" z=z+z^2*(sin(z)-3.55)/(1-3.55*sqr(z))+0.13 elseif @Va=="14" z=z+z^2*(cosh(z)-0.935)/(1-0.935*cotanh(z))+0.13 elseif @Va=="15" z=z+0.5*(cotanh(z)^3-1)/(3*cotanh(z)^2)+1.687 elseif @Va=="16" z=sqr(z)+2.33*(cos(z)^3-1)/(3*cos(z)^2)+2.83657 elseif @Va=="17" z=-0.285*sqr(z)+cotanh(z) elseif @Va=="18" z=0.152*sqr(z)+2.08*cotanh(z) elseif @Va=="19" z=-0.81*z-0.33*recip(z) elseif @Va=="20" z=-0.4*sqr(z)+0.2*recip(z) elseif @Va=="21" if |z|<1 z=z/|z| endif z=0.845*abs(z)+1.15235 elseif @Va=="22" z=z-0.225*(z^3-1)/(3*cotanh(z)^2)+1.57 elseif @Va=="23" z=z-0.225*(z^3-1)/(3*sqr(z)^2)+1.57 elseif @Va=="24" z=z-0.115*(sqr(z)^3-1)/(3*exp(z)^2)+1 elseif @Va=="25" z=z^2*(z+4.25)/(1+4.25*z)+0.05 elseif @Va=="26" z=z-2*(z^3-1)/(3*z^2)+3.85 elseif @Va=="27" z=z-0.5*(z^3-1)/(3*z^2)+1.687 elseif @Va=="28" z=sqr(z)+0.24*(cosh(z)^3-1)/(3*cosh(z)^2)+0.4 elseif @Va=="29" z=z+0.5*(cotan(z)^3-1)/(3*cotanh(z)^2)+1.687 elseif @Va=="30" z=sqr(z)+z^2*(z+5)/(1+5*z)+1.463 elseif @Va=="31" z=z+0.5*(cotanh(z)^3-1)/(3*cotan(z)^2)+0.3352 endif endif f=z-(z^3-1)/(3*z^2)-p1 f1=2/3-2/(3*z^3) a=f/f1 b=@pow*(z-2*a/3)^(@pow-1) c=(b-f1)/f1 z=z-p2*(sqr(a)-3*a*c*recip(1-3*c/2)/4)+p3 if @JM=="M" z=z+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Mojar" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21"\ "22""23""24""25""26""27""28""29""30""31" endparam param p2 caption="Mojar Parameter 1" default=(1,0) endparam param p3 caption="Mojar Parameter 2" default=(0,0) endparam param p1 caption="Constant" default=(1,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" visible=@JM=="M" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } Yoluhur { init: z=fn1(pixel) loop: zold=z z=@p7*z+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Jm=="J" if @Va=="None" z=z elseif @Va=="1" z=z-0.125*z^2*(z-0.27)/(1-0.27*z) elseif @Va=="2" z=sqr(z)+0.3*z^2*(z-1.5)/(1-z^2) elseif @Va=="3" z=cotan(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="4" z=sqr(z)+0.465*z^2*(recip(z)-8.75)/(1-8.75*recip(z)) elseif @Va=="5" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=z+0.3*cotanh(z) elseif @Va=="7" if |z|<1 z=z/|z| endif z=z-0.3*sqr(z) elseif @Va=="8" z=z+0.1*z^2*(z-0.27)/(1-0.27*z) elseif @Va=="9" z=z-1.35*z^2*(z-2)/(1-2*z) elseif @Va=="10" z=z+1/z-0.3 elseif @Va=="11" z=sin(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="12" z=z+0.5*sqr(z) elseif @Va=="13" z=sinh(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="14" z=z+2.75/z-0.75 elseif @Va=="15" z=cotanh(z)+0.31*z^2 elseif @Va=="16" z=z+0.3*sqr(z) elseif @Va=="17" z=z-(z^3-1)/(3*z^2) elseif @Va=="18" z=z+2/z-3.7 elseif @Va=="19" z=z+7.5*(z^3-1)/(3*z^4)-2.8 elseif @Va=="20" z=-1.19*(z^6-1)/(3*z^2)+0.13 elseif @Va=="21" z=z+2/z-1.8 elseif @Va=="22" z=z+0.1*(z^6-1)/(3*abs(z)^2)+0.51 elseif @Va=="23" z=0.51*(recip(z)^3-1)/(3*recip(z)^2)-0.08 elseif @Va=="24" z=z-0.224*(z^6-1)/(3*z^2)-0.022 elseif @Va=="25" z=1.035*(recip(z)^3-1)/(3*recip(z)^2)-0.08 elseif @Va=="26" z=z-1.15/sqr(cosh(z))+0.45 elseif @Va=="27" z=z-0.3*sqr(z)*cotanh(z)-6 elseif @Va=="28" z=-1.19*(z^6-1)/(3*z^4)+0.13 elseif @Va=="29" z=z-0.3*z^2-6 elseif @Va=="30" z=z+0.15*z^3-0.37 elseif @Va=="31" z=z+0.3*sqr(z)*sin(z)+0.3 elseif @Va=="32" z=z-0.15*(z^6-1)/(3*z^2)-0.565 elseif @Va=="33" z=z+2.85/z^4+0.125 elseif @Va=="34" z=z-0.3*sqr(z)*cotan(z)-6 elseif @Va=="35" z=z-0.224*(z^3-1)/(3*z^2)-0.022 elseif @Va=="36" z=z-0.75/z^4-0.1 elseif @Va=="37" z=z+0.3*sqr(z)*cotan(z) elseif @Va=="38" z=z+0.15*z^4+0.2 elseif @Va=="39" z=z-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="40" z=z+0.3*sqr(z)*cos(z)-0.125 elseif @Va=="41" z=z-0.3*z^3-6.3 elseif @Va=="42" z=z+0.33*(z^6-1)/(3*z^4)-1.685 elseif @Va=="43" z=z-0.3*z^2-0.75 elseif @Va=="44" z=(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="45" z=z-0.15*z^3 endif else if @Va=="None" z=z elseif @Va=="1" z=z-0.125*z^2*(z-0.27)/(1-0.27*z) elseif @Va=="2" z=sqr(z)+0.3*z^2*(z-1.5)/(1-z^2) elseif @Va=="3" z=sqr(z)+z^2*(z-0.75)/(1-0.75*z)-2.5 elseif @Va=="4" z=sqr(z)+0.465*z^2*(recip(z)-8.75)/(1-8.75*recip(z)) elseif @Va=="5" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="6" z=z+z^2*(z+2.5)/(1+2.5*z) elseif @Va=="7" z=z+0.885*(z^6-1)/(3*z^4)-1.11 elseif @Va=="8" z=cos(z)+1.92*(z^6-1)/(3*z^4)-1.56 elseif @Va=="9" z=z-1.35*z^2*(z-2)/(1-2*z) elseif @Va=="10" z=sqr(z)+z^2*(tan(z)-1.3)/(1-1.3*tan(z))-2.5 elseif @Va=="11" z=z+0.156*z^2*(tan(z)+3.45)/(1+3.45*tan(z)) elseif @Va=="12" z=z+z^2*(z+4.5)/(1+4.5*z) elseif @Va=="13" z=sinh(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="14" z=z+2.75/z-0.75 elseif @Va=="15" z=cotanh(z)+0.31*z^2 elseif @Va=="16" z=sqr(z)+z^2*(exp(z)-0.75)/(1-0.75*exp(z))-5.07 elseif @Va=="17" z=z+0.5*z^2*(z+3.35)/(1+3.35*z) elseif @Va=="18" z=z+2/z-3.7 elseif @Va=="19" z=z+7.5*(z^3-1)/(3*z^4)-2.8 elseif @Va=="20" z=z+0.1*z^2*(sqr(z)-0.24)/(1-0.24*sqr(z)) elseif @Va=="21" z=z+2/z-1.8 elseif @Va=="22" z=sqr(z)-2.16*(z^6-1)/(3*z^4)-1.59 elseif @Va=="23" z=z+0.885*(z^6-1)/(3*z^4)-2.44 elseif @Va=="24" z=z-0.23*z^2*(cotan(z)-0.41)/(1-0.41*sqr(z)) elseif @Va=="25" z=z+0.115*z^2*(tanh(z)+0.95)/(1+0.95*tanh(z)) elseif @Va=="26" z=z-1.15/sqr(cosh(z))+0.45 elseif @Va=="27" z=z+0.7*(z^6-1)/(3*z^4)-3.15 elseif @Va=="28" z=-1.19*(z^6-1)/(3*z^4)+0.13 elseif @Va=="29" z=z-0.3*z^2-6 elseif @Va=="30" z=sqr(z)-4.3*(z^6-1)/(3*z^4)+1 elseif @Va=="31" z=sqr(z)+z^2*(cotan(z)-1.3)/(1-1.3*cotan(z))-2.5 elseif @Va=="32" z=z-0.23*z^2*(cotan(z)-0.2)/(1-0.2*sqr(z)) elseif @Va=="33" z=z-0.1*(z^6-1)/(3*z^2)+1.17 elseif @Va=="34" z=sqr(z)+z^2*(exp(z)-0.75)/(1-0.75*exp(z))-2.5 elseif @Va=="35" z=z+0.3*z^2*(tan(z)-0.41)/(1-0.41*sqr(z)) elseif @Va=="36" z=cosh(z)+0.21*(z^6-1)/(3*z^4)-1.59 elseif @Va=="37" z=sqr(z)+z^2*(exp(z)-1.3)/(1-1.3*exp(z))-2.5 elseif @Va=="38" z=z+0.15*z^4+0.2 elseif @Va=="39" z=sqr(z)-0.2*(z^3-1)/(3*z^2)+1 elseif @Va=="40" z=z-0.95*z^2*(cotan(z)-0.98)/(1-0.98*cotan(z)) elseif @Va=="41" z=sqr(z)-4*(z^6-1)/(3*z^4)+2 elseif @Va=="42" z=z+0.33*(z^6-1)/(3*z^4)-1.685 elseif @Va=="43" z=z+0.115*z^2*(tanh(z)-0.98)/(1-0.98*tanh(z)) elseif @Va=="44" z=cosh(z)-0.32*(z^6-1)/(3*z^4)-2 elseif @Va=="45" z=z-0.15*z^3 endif endif f=z^@pow-p1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) z=z-p2*f/(2*f2+f1)+p3 if @JM=="M" z=z+fn2(pixel) endif bailout: |zold-z|>@bail default: title="Yoluhur" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21"\ "22""23""24""25""26""27""28"\ "29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42"\ "43""44""45" endparam param p1 caption="Yoluhur Parameter 1" default=(1,0) endparam param p2 caption="Yoluhur Parameter 2" default=(1,0) endparam param p3 caption="Yoluhur Parameter 3" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.000000001 endparam } Hokaraka { init: z=fn1(pixel) loop: zold=z z=fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=sqr(z)-z^2*(z-p1)/(p1*z) f=z^@pow-1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) if @V=="1" z=fn3(z)-p2*sqr(f/(f1+f2))+p3 elseif @V=="2" z=fn3(z)-p2*sqr(f/(f1-f2))+p3 elseif @V=="3" z=z-p2*sqr(f1/(f+f2))+p3 elseif @V=="4" z=fn3(z)-p2*sqr(f1/(f-f2))+p3 elseif @V=="5" z=fn3(z)-p2*sqr(f2/(f+f1))+p3 else z=fn3(z)-p2*sqr(f2/(f-f1))+p3 endif if @JM=="M" z=z+fn4(pixel) endif bailout: |zold-z|>@bail default: title="Hokaraka" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param V caption="Variant" enum="1""2""3""4""5""6" endparam param p1 caption="Hokaraka Parameter 1" default=(1.5,0) endparam param p2 caption="Hokaraka Parameter 2" default=(1,0) endparam param p3 caption="Hokaraka Parameter 3" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Hokaraka Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.000000001 endparam } LabsHokaraka { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=sqr(z)-z^2*(z-p1)/(p1*z) if @Va=="None" z=z elseif @Va=="1" z=z-0.125*z^2*(z-0.27)/(1-0.27*z) elseif @Va=="2" z=sqr(z)+0.3*z^2*(z-1.5)/(1-z^2) elseif @Va=="3" z=cotan(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="4" z=sqr(z)+0.465*z^2*(recip(z)-8.75)/(1-8.75*recip(z)) elseif @Va=="5" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=z+0.3*cotanh(z) elseif @Va=="7" if |z|<1 z=z/|z| endif z=z-0.3*sqr(z) elseif @Va=="8" z=z+0.1*z^2*(z-0.27)/(1-0.27*z) elseif @Va=="9" z=z-1.35*z^2*(z-2)/(1-2*z) elseif @Va=="10" z=z+1/z-0.3 elseif @Va=="11" z=z-0.15*z^3 elseif @Va=="12" z=z+0.5*sqr(z) elseif @Va=="13" z=sinh(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="14" z=z+2.75/z-0.75 elseif @Va=="15" z=cotanh(z)+0.31*z^2 elseif @Va=="16" z=z+0.3*sqr(z) elseif @Va=="17" z=z-(z^3-1)/(3*z^2) elseif @Va=="18" z=z+2/z-3.7 elseif @Va=="19" z=z+7.5*(z^3-1)/(3*z^4)-2.8 elseif @Va=="20" z=-1.19*(z^6-1)/(3*z^2)+0.13 elseif @Va=="21" z=z+2/z-1.8 elseif @Va=="22" z=z+0.1*(z^6-1)/(3*abs(z)^2)+0.51 elseif @Va=="23" z=0.51*(recip(z)^3-1)/(3*recip(z)^2)-0.08 elseif @Va=="24" z=z-0.224*(z^6-1)/(3*z^2)-0.022 elseif @Va=="25" z=1.035*(recip(z)^3-1)/(3*recip(z)^2)-0.08 elseif @Va=="26" z=z-1.15/sqr(cosh(z))+0.45 elseif @Va=="27" z=z-0.3*sqr(z)*cotanh(z)-6 elseif @Va=="28" z=-1.19*(z^6-1)/(3*z^4)+0.13 elseif @Va=="29" z=(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="30" z=z+0.15*z^3-0.37 elseif @Va=="31" z=z-0.3*z^2-0.75 elseif @Va=="32" z=z-0.15*(z^6-1)/(3*z^2)-0.565 elseif @Va=="33" z=z+2.85/z^4+0.125 elseif @Va=="34" z=z-0.3*sqr(z)*cotan(z)-6 elseif @Va=="35" z=z-0.224*(z^3-1)/(3*z^2)-0.022 elseif @Va=="36" z=z-0.75/z^4-0.1 elseif @Va=="37" z=z+0.3*sqr(z)*cotan(z) elseif @Va=="38" z=z+0.15*z^4+0.2 elseif @Va=="39" z=z-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="40" z=z+0.33*(z^6-1)/(3*z^4)-1.685 elseif @Va=="41" z=z-0.3*z^3-6.3 endif f=z^@pow-1 f1=@pow*z^(@pow-1) f2=(@pow-1)*@pow*z^(@pow-2) if @V=="1" z=fn3(z)-p2*sqr(f/(f1+f2))+p3 elseif @V=="2" z=fn3(z)-p2*sqr(f/(f1-f2))+p3 elseif @V=="3" z=fn3(z)-p2*sqr(f1/(f+f2))+p3 elseif @V=="4" z=fn3(z)-p2*sqr(f1/(f-f2))+p3 elseif @V=="5" z=fn3(z)-p2*sqr(f2/(f+f1))+p3 else z=fn3(z)-p2*sqr(f2/(f-f1))+p3 endif if @JM=="M1" z=z+fn4(pixel) endif if @JM=="M2" z=p4*@fn5(log(abs(z)))^@pow2+p5+fn4(pixel) else z=p4*@fn5(log(abs(z)))^@pow2+p5 endif endwhile z=z*@adj/100 bailout: |z|<@bail default: title="Labs Hokaraka" center=(0.001,0.001) periodicity=0 magn=0.5 maxiter=500 param JM caption="J/M" enum="J""M1""M2" endparam param V caption="Variant" enum="1""2""3""4""5""6" endparam param iter caption="Iterations" default=3 endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21"\ "22""23""24""25""26""27""28"\ "29""30""31""32""33""34""35"\ "36""37""38""39""40""41" default=4 endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p1 caption="Hokaraka Parameter 1" default=(0.5,0) endparam param p2 caption="Hokaraka Parameter 2" default=(1,0) endparam param p3 caption="Hokaraka Parameter 3" default=(0,0) endparam param pow caption="Hokaraka Exponent" default=3 endparam func fn3 caption="Hokaraka Function" default=ident() endfunc param p4 caption="Labs Parameter 1" default=(1,0) endparam param p5 caption="Labs Parameter 2" default=(0,0) endparam param pow2 caption="Labs Exponent" default=(1,0) endparam func fn5 caption="Labs Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn1 caption="Start Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM!="J" endfunc param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=1000000.0 endparam } LabsBarnsley { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=@p7*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="None" z=z elseif @Va=="1" z=z-3*(z^3-1)/(3*z^2) elseif @Va=="2" z=z+z^2*(sqr(z)-0.5)/(1-0.5*abs(z)) elseif @Va=="3" z=z+z^2*(sqr(z)+0.5)/(1+0.5*sqr(z)) elseif @Va=="4" z=z-sqr(z)*cosh(z) elseif @Va=="5" z=z+sqr(z)*cotan(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=z+0.3*cotanh(z) elseif @Va=="7" z=z-2.75*(sin(z)^3-6.5)/(3*sqr(z)^2) elseif @Va=="8" z=z+0.3*(sqr(z)^3-9.5)/(3*cotan(z)^2) elseif @Va=="9" z=z-1.35*z^2*(z-2)/(1-2*z) elseif @Va=="10" z=z+1/z-0.3 elseif @Va=="11" z=z+z^4 elseif @Va=="12" z=sqr(z)+0.465*z^2*(recip(z)-8.75)/(1-8.75*recip(z)) elseif @Va=="13" if |z|<1 z=z/|z| endif z=z+0.3*sqr(z) elseif @Va=="14" z=z+2.75/z-0.75 elseif @Va=="15" z=(tanh(z)-1i)/(sqr(z)+1i) elseif @Va=="16" z=z+0.3*sqr(z) elseif @Va=="17" z=(z-1i)/(sqr(z)+1i) elseif @Va=="18" z=(sqr(z)-1i)/(cotan(z)+1i) elseif @Va=="19" z=z^2*(abs(z)+3.25)/(1+3.25*z) elseif @Va=="20" z=-1.19*(z^6-1)/(3*z^2)+0.13 elseif @Va=="21" z=z+2/z-1.8 elseif @Va=="22" z=z+z^2*(cosh(z)+0.5)/(1+0.5*cosh(z)) elseif @Va=="23" z=z+z^2*(flip(z)+2)/(1+2*z) elseif @Va=="24" z=z-0.224*(z^6-1)/(3*z^2)-0.022 elseif @Va=="25" z=(sqr(z)-1i)/(cotanh(z)+1i) elseif @Va=="26" z=z-1.15/sqr(cosh(z))+0.45 elseif @Va=="27" z=(sin(z)-1i)/(sqr(z)+1i) elseif @Va=="28" z=-1.19*(z^6-1)/(3*z^4)+0.13 elseif @Va=="29" z=z+z^2 elseif @Va=="30" z=z+0.15*z^3-0.37 elseif @Va=="31" z=z-0.3*sqr(z)*cabs(z) elseif @Va=="32" z=z+z^2*(cos(z)-0.5)/(1-0.5*abs(z)) elseif @Va=="33" z=z-sqr(z)*sinh(z) elseif @Va=="34" z=z+z^2*(sinh(z)-0.5)/(1-0.5*abs(z)) elseif @Va=="35" z=z-0.224*(z^3-1)/(3*z^2)-0.022 elseif @Va=="36" z=z-0.75/z^4-0.1 elseif @Va=="37" z=(sqr(z)-1i)/(tanh(z)+1i) elseif @Va=="38" z=z+0.15*z^4+0.2 elseif @Va=="39" z=z-sqr(z)*cos(z) elseif @Va=="40" z=z+0.3*sqr(z)*cos(z)-0.125 elseif @Va=="41" z=z-3*(z^3-5.6)/(3*z^2) elseif @Va=="42" z=z+0.33*(z^6-1)/(3*z^4)-1.685 elseif @Va=="43" z=z-0.3*z^2-0.75 elseif @Va=="44" z=(sqr(z)-1i)/(cos(z)+1i) elseif @Va=="45" z=z-0.15*z^3 elseif @Va=="46" z=z-sqr(z)*sin(z) elseif @Va=="47" z=z-3*(exp(z)^3-5.6)/(3*z^2) elseif @Va=="48" z=z-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="49" z=(exp(z)-1i)/(sqr(z)+1i) elseif @Va=="50" z=z-1.5*(sqr(z)^3+1)/(3*z^2) elseif @Va=="51" z=(sqr(z)-1i)/(sinh(z)+1i) elseif @Va=="52" z=z-3*(exp(z)^3+1)/(3*z^2) elseif @Va=="53" z=z+0.625*(sqr(z)^3+1)/(3*exp(z)^2) elseif @Va=="54" z=z+7.5*(z^3-1)/(3*z^4)-2.8 elseif @Va=="55" z=(sqr(z)-1i)/(recip(z)+1i) elseif @Va=="56" z=z+8.25*(sqr(z)^3+1)/(3*exp(z)^2) elseif @Va=="57" z=(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="58" z=(cotan(z)-1i)/(sqr(z)+1i) elseif @Va=="59" z=z+0.3*sqr(z)*sin(z)+0.3 elseif @Va=="60" z=(sqr(z)-1i)/(exp(z)+1i) elseif @Va=="61" z=z+(sqr(z)^3+6.5)/(3*sqr(z)^2) elseif @Va=="62" z=(tan(z)-1i)/(sqr(z)+1i) elseif @Va=="63" z=z^2*(z+3.25)/(1+3.25*z) elseif @Va=="64" z=z-0.3*(sqr(z)^3+6.5)/(3*exp(z)^2) elseif @Va=="65" z=(cosh(z)-1i)/(sqr(z)+1i) elseif @Va=="66" z=z-z^4 elseif @Va=="67" z=sqr(z)+0.3*z^2*(z-1.5)/(1-z^2) elseif @Va=="68" z=z-0.75*(sqr(z)^3+6.5)/(3*cotanh(z)^2) elseif @Va=="69" z=z^2*(sinh(z)+3.25)/(1+3.25*z) elseif @Va=="70" z=(sqr(z)-1i)/(cosh(z)+1i) elseif @Va=="71" z=z^2*(sin(z)+3.25)/(1+3.25*z) elseif @Va=="72" z=z+z^2*(cosh(z)-2)/(1-2*z) elseif @Va=="73" z=z+0.3*sqr(z)*cotan(z) elseif @Va=="74" z=z-z^3 elseif @Va=="75" z=z+z^2*(cos(z)-2)/(1-2*z) elseif @Va=="76" z=z-0.75*(sqr(z)^3-9.5)/(3*cotanh(z)^2) elseif @Va=="77" z=(cos(z)-1i)/(sqr(z)+1i) elseif @Va=="78" z=z+z^2*(sqr(z)+2)/(1+2*z) elseif @Va=="79" z=z+z^2*(cos(z)+2)/(1+2*z) elseif @Va=="80" z=z+0.6*(sqr(z)^3-1)/(3*tan(z)^2) elseif @Va=="81" z=z+0.3*sqr(z)*conj(z) elseif @Va=="82" z=z+z^2*(sinh(z)+2)/(1+2*z) elseif @Va=="83" z=z+z^2*(sin(z)+2)/(1+2*z) elseif @Va=="84" z=sin(z)-0.355*z^2*(sqr(z)-1.25)/(1-1.25*sqr(z)) elseif @Va=="85" z=z+0.3*sqr(z)*flip(z) elseif @Va=="86" z=z+z^2*(z+2)/(1+2*sqr(z)) elseif @Va=="87" z=(sqr(z)-1i)/(sin(z)+1i) elseif @Va=="88" z=z+z^2*(sqr(z)+2)/(1+2*sqr(z)) elseif @Va=="89" z=z+z^2*(sqr(z)-2)/(1-2*sqr(z)) elseif @Va=="90" z=z+0.6*(sqr(z)^3-1)/(3*cosh(z)^2) elseif @Va=="91" z=z+sqr(z)*cotanh(z) elseif @Va=="92" z=z+sqr(z)*tan(z) elseif @Va=="93" z=z+z^2*(tan(z)+0.5)/(1+0.5*tan(z)) elseif @Va=="94" z=z+1.5*(sqr(z)^3+2.2)/(3*cosh(z)^2) elseif @Va=="95" z=z+sqr(z)*cosh(z) elseif @Va=="96" z=z+z^2*(sin(z)+0.5)/(1+0.5*sinh(z)) elseif @Va=="97" z=z+z^2*(sin(z)+0.5)/(1+0.5*abs(z)) elseif @Va=="98" z=z+sqr(z)*cos(z) elseif @Va=="99" z=z+z^2*(sinh(z)+0.5)/(1+0.5*cotanh(z)) elseif @Va=="100" z=z+2.2*(sqr(z)^3+2.2)/(3*cos(z)^2) elseif @Va=="101" z=z-0.125*z^2*(z-0.27)/(1-0.27*z) elseif @Va=="102" z=z+z^2*(sinh(z)+0.5)/(1+0.5*abs(z)) elseif @Va=="103" z=(sqr(z)-1i)/(z+1i) elseif @Va=="104" z=(sqr(z)-1i)/(tan(z)+1i) elseif @Va=="105" z=z+2.2*(sqr(z)^3-0.45)/(3*cos(z)^2) elseif @Va=="106" z=z-3.5*(sqr(z)^3-2.95)/(3*recip(z)^2) elseif @Va=="107" z=z+z^2*(cos(z)+0.5)/(1+0.5*cosh(z)) elseif @Va=="108" z=(recip(z)-1i)/(sqr(z)+1i) elseif @Va=="109" z=z-1.7*(sqr(z)^3-0.45)/(3*sinh(z)^2) elseif @Va=="110" z=z-3.5*(sqr(z)^3+0.25)/(3*recip(z)^2) elseif @Va=="111" z=z+0.225*(sqr(z)^3-0.1)/(3*recip(z)^2) elseif @Va=="112" z=z+sqr(z)*sinh(z) elseif @Va=="113" z=z+sqr(z)*exp(z) elseif @Va=="114" z=z-sqr(z)*tanh(z) elseif @Va=="115" z=z-25*(exp(z)^3+30)/(3*sqr(z)^2) elseif @Va=="116" z=z-sqr(z)*tan(z) elseif @Va=="117" z=z-sqr(z)*exp(z) elseif @Va=="118" z=z+z^3 elseif @Va=="119" z=z-31.5*(cosh(z)^3-6.5)/(3*sqr(z)^2) elseif @Va=="120" z=(sinh(z)-1i)/(sqr(z)+1i) elseif @Va=="121" z=z-z^2 elseif @Va=="122" z=z+z^2*(sqr(z)+1.2)/(1+1.2*abs(z)) elseif @Va=="123" z=z+z^2*(sinh(z)+0.5)/(1+0.5*cotan(z)) elseif @Va=="124" z=z+z^2*(z+2)/(1+2*exp(z)) elseif @Va=="125" z=z+z^2*(abs(z)-2)/(1-2*z) elseif @Va=="126" z=z-sqr(z)*cotanh(z) elseif @Va=="127" z=z+sqr(z)*tanh(z) elseif @Va=="128" z=z+z^2*(sqr(z)-0.5)/(1-0.5*sqr(z)) elseif @Va=="129" z=z+z^2*(z+2)/(1+2*z) elseif @Va=="130" z=z+z^2*(sqr(z)-2)/(1-2*z) elseif @Va=="131" z=(cotanh(z)-1i)/(sqr(z)+1i) endif z=abs(z) if real(z)*imag(p1)+real(p1)*imag(z)>=0 z=(z^@powB-1)*p1 else z=(z^@powB+1)*p1 endif z=p2*fn4(log(abs(z)))^@powL+p3 if @JM=="M" z=z+fn3(pixel) endif endwhile z=z*@adj/100 bailout: |z|<@bail default: title="Labs Barnsley" center=(0.001,0.001) periodicity=0 maxiter=500 param JM caption="J/M" enum="J""M" endparam param iter caption="iterations" default=3 endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21"\ "22""23""24""25""26""27""28"\ "29""30""31""32""33""34""35"\ "36""37""38""39""40""41""42"\ "43""44""45""46""47""48""49"\ "50""51""52""53""54""55""56"\ "57""58""59""60""61""62""63"\ "64""65""66""67""68""69""70"\ "71""72""73""74""75""76""77"\ "78""79""80""81""82""83""84"\ "85""86""87""88""89""90""91"\ "92""93""94""95""96""97""98"\ "99""100""101""102""103""104"\ "105""106""107""108""109""110"\ "111""112""113""114""115""116"\ "117""118""119""120""121""122"\ "123""124""125""126""127""128"\ "129""130""131" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p2 caption="Labs Parameter 1" default=(1,1) endparam param p3 caption="Labs Parameter 2" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Barnsley Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param powL caption="Labs Exponent" default=(1,0) endparam param powB caption="Barnsley Exponent" default=(1,0) endparam param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=1000000.0 endparam } NewtonMandelbrot2 { init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 z=(z-p5)/(1-p5*z) z=z/(@p6*z+1) if @M=="None" z=z elseif @M=="Cayley" z=z+@cp1*(z-1i)/(z+1i)+@cp2 elseif @M=="Munster" z=z+@mp1*z^2*(z-@mp2)/(1-@mp2*z)+@mp3 elseif @M=="Newton" z=2*z-@np1*(z^3-1)/(3*z^2)+@np2 elseif @M=="Recip" z=z+@rp1/z+@rp2 elseif @M=="Sqr" z=z+@sp1*sqr(z)+@sp2 endif f=z^3/3+z*fn3(pixel)+fn3(pixel) f1=z^2+fn3(pixel) z=z-p1*f/f1+p2 bailout: |zold-z|>@bail default: title="Newton Mandelbrot 2" center=(0.001,0.001) periodicity=0 magn=0.5 param M caption="Modification" enum="None""Cayley""Munster""Newton""Recip""Sqr" endparam param cp1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Cayley" endparam param cp2 caption="Mod Parameter 2" default=(0,0) visible=@M=="Cayley" endparam param mp1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Munster" endparam param mp2 caption="Mod Parameter 2" default=(2,0) visible=@M=="Munster" endparam param mp3 caption="Mod Parameter 3" default=(0,0) visible=@M=="Munster" endparam param np1 caption="Mod Parameter 1" default=(2.5,0) visible=@M=="Newton" endparam param np2 caption="Mod Parameter 2" default=(0,0) visible=@M=="Newton" endparam param rp1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Recip" endparam param rp2 caption="Mod Parameter 2" default=(0,0) visible=@M=="Recip" endparam param sp1 caption="Mod Parameter 1" default=(-0.5,0) visible=@M=="Sqr" endparam param sp2 caption="Mod Parameter 2" default=(0,0) visible=@M=="Sqr" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Newton Parameter 1" default=(1,0) endparam param p2 caption="Newton Parameter 2" default=(0,0) endparam func fn3 caption="Mandelbrot C Function" default=ident() endfunc param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.0000001 endparam } ModifiedSatan { ; This is a modification of the formula 'Satan', which I found on the Fractint mailing list: ; https://mailman.xmission.com/lurker/message/20180108.064418.2e3ca120.en.html ; Authorship of 'Satan' is not clear to me. Perhaps Sebastien Helie, perhaps Rick Ostidish, perhaps someone else. init: z=fn1(pixel) int i=0 loop: while i=0 z=(fn3(z)-p2)*p1 else z=(fn3(z)+p2)*p1 endif bailout: |z|<@bail default: title="Barnsley 8" center=(0.001,0.001) magn=0.5 periodicity=0 func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Barnsley Function 1" default=ident() endfunc func fn3 caption="Barnsley Function 2" default=ident() endfunc param p1 caption="Barnsley Parameter 1" default=(1,1) endparam param p2 caption="Barnsley Parameter 2" default=(0.65,1) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param p7 caption="Add Munster Parameter 1" default=(0,0) endparam param p8 caption="Add Munster Parameter 2" default=(2,0) endparam param bail caption="Bailout" default=100.0 endparam } Krombann { init: z=fn1(pixel) y=0.0 loop: if @M=="None" z=z elseif @M=="Cayley" z=@cp1*(z-1i)/(z+1i)+@cp2 elseif @M=="Sqr" z=@sqp1*z^2+@sqp2 elseif @M=="Munster" z=z^2*(z-@mp1)/(1-@mp1*z)+@mp2 elseif @M=="Newton" z=z-@np1*(z^3-1)/(3*z^2)+@np2 elseif @M=="Abs" z=@ap1*abs(z)+@ap2 elseif @M=="Halley" f=z^3-1 f1=3*z^2 f2=6*z z=z-@hp1*2*f*f1/(2*f1^2-f*f2)+@hp2 elseif @M=="Sinc" z=@sp1*sin(z)/z+@sp2 endif y=p1*fn2(2*z*y+1)+p2 z=p3*fn3(z)*y+fn4(pixel) bailout: |z|<@bail default: title="Krombann" center=(0.001,0.001) periodicity=0 param M caption="Modification" enum="None""Cayley""Sqr""Munster""Newton""Abs""Halley""Sinc" endparam param cp1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Cayley" endparam param cp2 caption="Mod Parameter 2" default=(0,0) visible=@M=="Cayley" endparam param sqp1 caption="Mod Parameter 1" default=(0.5,0) visible=@M=="Sqr" endparam param sqp2 caption="Mod Parameter 2" default=(0.5,0) visible=@M=="Sqr" endparam param mp1 caption="Mod Parameter 1" default=(0.5,0) visible=@M=="Munster" endparam param mp2 caption="Mod Parameter 2" default=(0.5,0) visible=@M=="Munster" endparam param np1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Newton" endparam param np2 caption="Mod Parameter 2" default=(-0.5,0) visible=@M=="Newton" endparam param ap1 caption="Mod Parameter 1" default=(0.5,0) visible=@M=="Abs" endparam param ap2 caption="Mod Parameter 2" default=(-0.5,0) visible=@M=="Abs" endparam param hp1 caption="Mod Parameter 1" default=(0.5,0) visible=@M=="Halley" endparam param hp2 caption="Mod Parameter 2" default=(-0.5,0) visible=@M=="Halley" endparam param sp1 caption="Mod Parameter 1" default=(0.75,0) visible=@M=="Sinc" endparam param sp2 caption="Mod Parameter 2" default=(-1.5,0) visible=@M=="Sinc" endparam param p1 caption="Krombann Parameter 1" default=(0.75,0) endparam param p2 caption="Krombann Parameter 2" default=(0,0) endparam param p3 caption="Krombann Parameter 3" default=(-1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Krombann Function 1" default=ident() endfunc func fn3 caption="Krombann Function 2" default=ident() endfunc func fn4 caption="Krombann Function 3" default=ident() endfunc param bail caption="Bailout" default=100000.0 endparam } ModifiedBarnsley { init: z=fn1(pixel) loop: z=p3*fn2(z)+p4 z=(z-@p9)/(1-@p9*z) z=z/(@p10*z+1) z=z+p6*sqr(z) if @M=="None" z=z elseif @M=="1" z=z+(0.28,0.12)/z elseif @M=="2" z=z+1.3/exp(z) elseif @M=="3" z=z+(1.33,-0.19)/exp(z)+(0.1,-0.14) elseif @M=="4" z=z-0.25/cotanh(z)+0.25 elseif @M=="5" z=z+(0.3,-0.07)/cotanh(z)+(-0.16,-0.28) elseif @M=="6" z=z-0.2*(z^3-1)/(3*z^2) elseif @M=="7" z=z+(0.25,0.18)/cosh(z)+(-0.6,-0.06) elseif @M=="8" z=z+0.335/exp(z) elseif @M=="9" z=z+0.335/z elseif @M=="10" z=1/z+1 elseif @M=="11" z=z+0.3/sqr(z) elseif @M=="12" z=z+0.3/z+(0.1,-0.14) elseif @M=="13" if |z|<1 z=z/|z| endif z=0.9/z+0.89 elseif @M=="14" if |z|<1 z=z/|z| endif z=z+1.27/z-0.75 elseif @M=="15" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @M=="16" if real(z)imag(z) z=flip(z) endif z=z+0.66/exp(z)+0.42 elseif @M=="18" if |z|<1 z=z/|z| endif z=0.9/cosh(z)+0.89 elseif @M=="19" if |z|<1 z=z/|z| endif z=z+1.27/sinh(z)-0.51 endif if real(z)>0 z=abs(fn3((real(z)^2-imag(z)^2-1)+1i*(2*real(z)*imag(z)))) else z=abs(fn3((real(z)^2-imag(z)^2-1)+real(pixel)*real(z)+1i*(2*real(z)*imag(z)+imag(pixel)*real(z)))) endif bailout: |z|<@bail default: title="Modified Barnsley" center=(0.001,0.001) periodicity=0 param M caption="Modification" enum="None""1""2""3""4""5""6""7"\ "8""9""10""11""12""13""14""15"\ "16""17""18""19" endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Barnsley Function" default=ident() endfunc param bail caption="Bailout" default=4.0 endparam } Newmunbrot { init: z=fn1(pixel) loop: zold=z b=z-p1*(z^3-1)/(3*z^2)+p2 c=z^2*(z-p3)/(1-p3*z) z=b*c+fn2(pixel) bailout: (|zold-z|>@bailcon && @bt==0) || (|z|<@baildiv && @bt==1) default: title="Newmunbrot" center=(0.001,0.001) periodicity=0 param p1 caption="Newton Parameter 1" default=(1,0) endparam param p2 caption="Newton Parameter 2" default=(0,0) endparam param p3 caption="Munster Parameter" default=(0.5,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Mandelbrot C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout Value" default=0.00000001 visible=@bt==0 endparam param baildiv caption="Bailout Value" default=4.0 visible=@bt==1 endparam } Atinog { init: z=fn1(pixel) loop: zold=z z=fn2(z) if @M=="None" z=z elseif @M=="z+Cayley" z=z+@cp1*(z-1i)/(z+1i)+@cp2 elseif @M=="Munster" z=z^2*(z-@mp1)/(1-@mp1*z)+@mp2 elseif @M=="Newton" z=z-@np1*(z^3-1)/(3*z^2)+@np2 elseif @M=="Mandelbrot" z=@map1*z^2+pixel+@map2 elseif @M=="z+recip" z=z+@arp1/z+@arp2 elseif @M=="z+sqr" z=z+@sp1*sqr(z)+@sp2 elseif @M=="Julia" z=@jp1*z^2+@jp2 endif f=z^3-1 f1=3*z^2 f2=6*z z=z^2-p1*f/f1/f2+p2 bailout: |zold-z|>@bail default: title="Atinog" center=(0.001,0.001) periodicity=0 param p1 caption="Atinog Parameter 1" default=(1,0) endparam param p2 caption="Atinog Parameter 2" default=(0,0) endparam param M caption="Modification" enum="None""z+Cayley""Munster""Newton""Mandelbrot""z+recip""z+sqr""Julia" endparam param cp1 caption="Mod Parameter 1" default=(0.75,0) visible=@M=="z+Cayley" endparam param cp2 caption="Mod Parameter 2" visible=@M=="z+Cayley" default=(1,0) endparam param mp1 caption="Mod Parameter 1" default=(-4,0) visible=@M=="Munster" endparam param mp2 caption="Mod Parameter 2" visible=@M=="Munster" default=(0,0) endparam param np1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Newton" endparam param np2 caption="Mod Parameter 2" visible=@M=="Newton" default=(0,0) endparam param map1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Mandelbrot" endparam param map2 caption="Mod Parameter 2" visible=@M=="Mandelbrot" default=(0,0) endparam param arp1 caption="Mod Parameter 1" default=(-0.3,0) visible=@M=="z+recip" endparam param arp2 caption="Mod Parameter 2" visible=@M=="z+recip" default=(0,0) endparam param sp1 caption="Mod Parameter 1" default=(-0.5,0) visible=@M=="z+Sqr" endparam param sp2 caption="Mod Parameter 2" visible=@M=="z+Sqr" default=(0,0) endparam param jp1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Julia" endparam param jp2 caption="Mod Parameter 2" visible=@M=="Julia" default=(-0.75,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } Atinog2 { init: z=fn1(pixel) loop: zold=z z=fn2(z) if @M=="None" z=z elseif @M=="z+Cayley" z=z+@cp1*(z-1i)/(z+1i)+@cp2 elseif @M=="Munster" z=z^2*(z-@mp1)/(1-@mp1*z)+@mp2 elseif @M=="Newton" z=z-@np1*(z^3-1)/(3*z^2)+@np2 elseif @M=="Mandelbrot" z=@map1*z^2+pixel+@map2 elseif @M=="z+recip" z=z+@arp1/z+@arp2 elseif @M=="z+sqr" z=z+@sp1*sqr(z)+@sp2 elseif @M=="Julia" z=@jp1*z^2+@jp2 endif f=z^3-1 f1=3*z^2 f2=6*z z=z^2+p1*0.125*f2/f1/f+p2 bailout: |zold-z|>@bail default: title="Atinog 2" center=(0.001,0.001) periodicity=0 param p1 caption="Atinog Parameter 1" default=(1,0) endparam param p2 caption="Atinog Parameter 2" default=(0,0) endparam param M caption="Modification" enum="None""z+Cayley""Munster""Newton""Mandelbrot""z+recip""z+sqr""Julia" endparam param cp1 caption="Mod Parameter 1" default=(0.75,0) visible=@M=="z+Cayley" endparam param cp2 caption="Mod Parameter 2" visible=@M=="z+Cayley" default=(1,0) endparam param mp1 caption="Mod Parameter 1" default=(-4,0) visible=@M=="Munster" endparam param mp2 caption="Mod Parameter 2" visible=@M=="Munster" default=(0,0) endparam param np1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Newton" endparam param np2 caption="Mod Parameter 2" visible=@M=="Newton" default=(0,0) endparam param map1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Mandelbrot" endparam param map2 caption="Mod Parameter 2" visible=@M=="Mandelbrot" default=(0,0) endparam param arp1 caption="Mod Parameter 1" default=(-0.3,0) visible=@M=="z+recip" endparam param arp2 caption="Mod Parameter 2" visible=@M=="z+recip" default=(0,0) endparam param sp1 caption="Mod Parameter 1" default=(-0.5,0) visible=@M=="z+Sqr" endparam param sp2 caption="Mod Parameter 2" visible=@M=="z+Sqr" default=(0,0) endparam param jp1 caption="Mod Parameter 1" default=(1,0) visible=@M=="Julia" endparam param jp2 caption="Mod Parameter 2" visible=@M=="Julia" default=(-0.75,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } Ognati { init: z=fn1(pixel) loop: zold=z z=p4*fn2(z) z=z+p3*sqr(z) if @Va=="none" z=z elseif @Va=="1" z=-z+2*sqr(z) elseif @Va=="2" z=2*z-2*sqr(z) elseif @Va=="3" z=-z+sqr(z) elseif @Va=="4" z=-z-sqr(cabs(z)) elseif @Va=="5" z=-z-2*sqr(z) elseif @Va=="6" z=0.5*z+0.5*sqr(z) elseif @Va=="7" z=-2*z+sqr(z) elseif @Va=="8" if imag(z)>0 z=z else z=conj(z) endif elseif @Va=="9" z=2*z-2*sqr(flip(z)) elseif @Va=="10" z=-2*z-sqr(z) elseif @Va=="11" z=0.5*z-sqr(z) elseif @Va=="12" if real(z)>imag(z) z=flip(z) endif elseif @Va=="13" z=z+sqr(z) elseif @Va=="14" z=-0.5*z+sqr(z) elseif @Va=="15" z=-z-sqr(flip(z)) elseif @Va=="16" z=-z-sqr(z) elseif @Va=="17" z=-0.5*z+0.5*sqr(z) elseif @Va=="18" z=z+2*sqr(z) elseif @Va=="19" if imag(z)<0 z=z else z=conj(z) endif elseif @Va=="20" z=-z+sqr(cabs(z)) elseif @Va=="21" z=z-sqr(z) elseif @Va=="22" z=z+sqr(flip(z)) elseif @Va=="23" z=0.5*z+sqr(z) elseif @Va=="24" z=z+2*sqr(z) elseif @Va=="25" z=2*z+2*sqr(z) elseif @Va=="26" z=-0.5*z-0.5*sqr(z) elseif @Va=="27" z=-z+sqr(flip(z)) elseif @Va=="28" z=z-2*sqr(z) elseif @Va=="29" z=z-sqr(cabs(z)) elseif @Va=="30" if real(z)@bail default: title="Ognati" center=(0.001,0.001) periodicity=0 magn=8 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35""36" endparam param p1 caption="Ognati Parameter 1" default=(-0.4,0.2) endparam param p2 caption="Ognati Parameter 2" default=(1,0) endparam param p3 caption="Add Sqr Parameter" default=(0,0) endparam param p4 caption="Loop Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function 1" default=ident() endfunc func fn3 caption="Loop Function 2" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } LabsBarnsleyMod { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=(z-p5)/(1-p5*z) z=z/(p6*z+1) f=z^3-1 f1=3*z^2 f2=6*z a=f/f1 b=f*f2/sqr(f1) c=(z-a)^3-1 d=3*(z-2*a/3)^2 g=3*(z-f)^2 h=((z+f)^3-1-f)/f j=(d-f1)/f1 if @M=="Munster 1" z=z^2*(z-0.5)/(1-0.5*z) elseif @M=="Munster 2" z=z^2*(z-2)/(1-2*z) elseif @M=="Newton" z=z-f/f1 elseif @M=="Halley" z=z-2*f*f1/(2*f1^2-f*f2) elseif @M=="Chebyshev" z=z-a*(1+b/2) elseif @M=="Jarratt 1" z=z-((a/2)-(f/(f1-3*d))) elseif @M=="Jarratt 2" z=z-(a-3*a*j*(1-3*j/2)) elseif @M=="Jarratt 3" z=z-a+(3*a*j/4)*(1+j)/(1+5*j/2) elseif @M=="King" z=(z-a)-(c/f1)*((f+c)/(-c)) elseif @M=="king 2" z=z-(a+(c/f1)*((f+2*c)/f)) elseif @M=="Midpoint" z=z-(f/(f1*(z-a/2))) elseif @M=="Schröder" z=z-f*f1/(f1^2-f*f2) elseif @M=="Steffensen 1" z=z-(f/h) elseif @M=="Steffensen 2" z=z-z-((f^2)/((z+f)^3-1-f)) elseif @M=="Stirling" z=z-f/g elseif @M=="Super-Halley" z=z-a*(1+(b/(2*(1-b)))) elseif @M=="Whittaker 1" z=z-(a/2)*(2-b) elseif @M=="Whittaker 2" z=z-(a/4)*( 2-b+((4+2*b)/(2-b*(2-b)))) endif if real(z)<0 z=(z-@bp1)*@bp2 else z=(z+@bp1)*@bp2 endif z=p3*fn3(log(abs(z)))^@pow+p4 endwhile z=51*z/50 bailout: |z|<@bail default: title="Labs Barnsley Mod" center=(0.001,0.001) maxiter=500 periodicity=0 param iter caption="Iterations" default=4 endparam param M caption="Modification" enum="Munster 1""Munster 2""Newton""Halley""Chebyshev"\ "Jarratt 1""Jarratt 2""Jarratt 3""King""King 2""Midpoint"\ "Schröder""Steffensen 1""Steffensen 2""Stirling""Super-Halley"\ "Whittaker 1""Whittaker 2" endparam func fn1 caption="Start Function" default=ident() endfunc param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam param bp1 caption="Barnsley Parameter 1" default=0.5 endparam param bp2 caption="Barnsley Parameter 2" default=1.0 endparam param p3 caption="Labs Parameter 1" default=(1,0) endparam param p4 caption="Labs Parameter 2" default=(0,0) endparam param pow caption="Labs Exponent" default=(1,0) endparam func fn3 caption="Labs Function" default=ident() endfunc param bail caption="Bailout" default=1000000.0 endparam } Temorof { init: z=fn1(pixel) loop: zold=z z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=@p7*fn2(z)+@p8 z=(z-0.2*1i)/(1-0.2*1i*z) if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=z+0.38*sqr(z)+1 elseif @Va=="2" if |z|<1 z=z/|z| endif z=z+sqr(z) elseif @Va=="3" if |z|<1 z=z/|z| endif z=z+recip(z)+0.44 elseif @Va=="4" z=z+0.62327*(z-1i)/(z+1i)-0.26593 elseif @Va=="5" z=z-0.15235*(cotanh(z)-1i)/(cotanh(z)+1i)-0.26593 elseif @Va=="6" f=z^3-1 f1=3*z^2 a=f/f1 c=(z-a)^3-1 z=(z-a)-0.35734*(c/f1)*((f+c)/(-c))+2.54848 elseif @Va=="7" f=z^3-1 f1=3*z^2 a=f/f1 c=(z-a)^3-1 z=(z-a)-0.35734*(c/f1)*((f+c)/(-c)) elseif @Va=="8" z=z+0.2687*z*cotanh(z) elseif @Va=="9" z=z+0.8*sqr(z) elseif @Va=="10" z=z+0.3*z^3 elseif @Va=="11" z=z+0.3*z^3+0.575 elseif @Va=="12" z=z-0.25568*z^4+0.37673 elseif @Va=="13" z=z+0.2687*z*cotanh(z)+1.55125 elseif @Va=="14" z=z-0.15235*sqr(z)*cos(z)-0.13296 elseif @Va=="15" if real(z)imag(z) z=flip(z) endif z=z-1.7*cotanh(z) elseif @Va=="18" if real(z)>imag(z) z=flip(z) endif z=z-0.48*tanh(z) elseif @Va=="19" x=real(z) y=imag(z) x=x/|z|+0.13573 y=y/|z| z=x+flip(y) elseif @Va=="20" x=real(z) y=imag(z) x=x/|z|+1.06648 y=y/|z| z=flip(x+flip(y))-0.81994 elseif @Va=="21" x=real(z) y=imag(z) x=x/|z|+1.903047 y=y/|z| z=cotan(x+flip(y)) elseif @Va=="22" x=real(z) y=imag(z) x=x/|z|+1.14958 y=y/|z| z=exp(x+flip(y))-2.26039 elseif @Va=="23" x=real(z) y=imag(z) x=x/|z|+1.035893 y=y/|z|+0.185446 z=acos(x+flip(y)) elseif @Va=="24" x=real(z) y=imag(z) x=x/|z|+1.436697 y=y/|z|-0.131608 z=recip(x+flip(y))+(-0.807589,0.041875) elseif @Va=="25" z=((z^2+(1.77,-2.39)-1)/(2*z+(1.77,-2.39)-2))^2 elseif @Va=="26" z=((z^2+(0.04714,-6.12286)-1)/(2*z+(0.04714,-6.12286)-2))^2+(-1.10071,-0.81357) elseif @Va=="27" z=((cos(z)^2+(2.69424,-0.72397)-1)/(2*cos(z)+(2.69424,-0.72397)-2))^2+(0.01497,-0.46062) endif z=abs(z) z=p1*(z-real(z)/cabs(real(z)))^2-p2 bailout: |zold-z|>@bail default: title="Temorof" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12""13""14"\ "15""16""17""18""19""20""21""22""23""24""25""26""27" endparam param p1 caption="Temorof Parameter 1" default=(-1,0.7) endparam param p2 caption="Temorof Parameter 2" default=(1,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.000000001 endparam } MethodX { ;https://eclicksbd.wordpress.com/2011/07/15/numerical-analysis-numerical-differentiation-using-newton’s-and-stirling’s-formulae/ init: z=fn1(pixel) loop: zold=z z=fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=z-(z^3-1)/(3*z^2)+0.5 elseif @Va=="2" if |z|<1 z=z/|z| endif z=z-0.5*(recip(z)^3-1)/(3*recip(z)^2)+0.5 elseif @Va=="3" if |z|<1 z=z/|z| endif z=z-0.5*(z^3-1)/(3*z^2)+0.5 elseif @Va=="4" if |z|<1 z=z/|z| endif z=z-(z^3-1)/(3*z^2)-1.25 elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif endif f=z^3-1 f1=3*z^2 f2=6*z h=((z+f)^3-1-f)/f if @Va=="6" z=z^2*(z-0.5)/(1-0.5*z) elseif @Va=="7" z=z^2*(z-2)/(1-2*z) elseif @Va=="8" z=z-f/f1 elseif @Va=="9" z=z+0.5*f*f1/(2*f1^2-f*f2) elseif @Va=="10" z=z-(f/h) elseif @Va=="11" z=z-sqr(z) elseif @Va=="12" z=z+sqr(z)-1.5 elseif @Va=="13" z=z-z^3 elseif @Va=="14" z=z+z^3-1.25 elseif @Va=="15" z=z+z^4 elseif @Va=="16" z=z+0.5*z*abs(z) elseif @Va=="17" z=z+0.5*z*abs(z)+1 elseif @Va=="18" z=z+z*cotan(z) elseif @Va=="19" z=z-z*cotan(z) elseif @Va=="20" z=z+0.3*(recip(z)^3-1)/(3*recip(z)^2+1) elseif @Va=="21" z=z+(0.3,0.3)*(z-1i)/(z+1i) elseif @Va=="22" z=z+(0.43,-0.15)*(z-1i)/(z+1i)+(-0.13,-0.89) elseif @Va=="23" z=((flip(z)^2+(-1.34,0.65)-1)/(2*flip(z)+(-1.34,0.65)-2))^2+(-1.75,0.38) elseif @Va=="24" z=((conj(z)^2+(-0.98,2.42)-1)/(2*conj(z)+(-0.98,2.42)-2))^2+(-0.72107,0.11679) elseif @Va=="25" z=((abs(z)^2+(-0.98,2.42)-1)/(2*abs(z)+(-0.98,2.42)-2))^2+(-1.96,0.4) elseif @Va=="26" z=((sqr(z)^2+(-0.98,2.42)-1)/(2*sqr(z)+(-0.98,2.42)-2))^2+(0.05,0.5675) endif z=p2*((z^2-2)^2+z)+p3 if @JM=="M" z=z+fn4(pixel) endif bailout: |zold-z|>@bail default: title="Method X" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10""11"\ "12""13""14""15""16""17""18""19""20""21""22""23"\ "24""25""26" endparam param p2 caption="Method X Parameter 1" default=(-0.25,0) endparam param p3 caption="Method X Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.000000001 endparam } Weerakoon-FernandoMunster { ; The Weerakoon-Fernando formula is from here: ; https://www.sciencedirect.com/science/article/pii/S0893965907000389 ; The Munster formulas are formulas for Herman rings init: z=fn1(pixel) loop: zold=z z=fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p11*sqr(z) z=z+@p12/z f=z^@pow-p1 f1=@pow*z^(@pow-1) b=z-f/f1 z=z-p2*2*f/(f1+@pow*b^(@pow-1))+p3 if @JM=="M" z=z+fn4(pixel) endif if @V=="1" z=@p7*z^2*(z-p4)/(1-p4*z)+p5 else z=@p7*z^2*(1+p4*z)/(z+p4)+p5 endif z=fn3(z) bailout: |zold-z|>@bail default: title="Weerakoon-Fernando Munster" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param p2 caption="W-F Parameter 1" default=(0.5,0) endparam param p3 caption="W-F Parameter 2" default=(0,0) endparam param p1 caption="W-F Constant" default=(1,0) endparam param pow caption="W-F Exponent" default=3 endparam param V caption="Munster Variant" enum="1""2" endparam param p7 caption="Munster Parameter 1" default=(1,0) endparam param p4 caption="Munster Parameter 2" default=(2,0) endparam param p5 caption="Munster Parameter 3" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p11 caption="Add Sqr Parameter" default=(0,0) endparam param p12 caption="Add Recip Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function 1" default=ident() endfunc func fn3 caption="Loop Function 2" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.000000001 endparam } Hasanov-Ivanov-Nedjibov { ; http://api.shu.bg/teachers/storage/201.pdf ; P3 init: z=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p11*sqr(z) z=z+@p12/z f=z^@pow-p1 f1=@pow*z^(@pow-1) a=z-f/f1 b=z-f/(2*f1) z=p2*6*f/(@pow*a^(@pow-1)+4*@pow*b^(@pow-1)+f1)+p3 if @JM=="M" z=z+fn4(pixel) endif z=fn3(z) bailout: |zold-z|>@bail default: title="Hasanov-Ivanov-Nedjibov" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param p2 caption="H-I-N Parameter 1" default=(1,0) endparam param p3 caption="H-I-N Parameter 2" default=(0,0) endparam param p1 caption="H-I-N Constant" default=(1,0) endparam param pow caption="H-I-N Exponent" default=3 endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p11 caption="Add Sqr Parameter" default=(0,0) endparam param p12 caption="Add Recip Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function 1" default=ident() endfunc func fn3 caption="Loop Function 2" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.000000001 endparam } Frontini-SormaniMunster { ; The Frontini-Sormani formula is from here: ; https://www.sciencedirect.com/science/article/pii/S0893965907000389 ; The Munster formulas are formulas for Herman rings init: z=fn1(pixel) loop: zold=z z=fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p11*sqr(z) z=z+@p12/z f=z^@pow-p1 f1=@pow*z^(@pow-1) a=z-f/(2*f1) z=z-p2*f/(@pow*a^(@pow-1))+p3 if @JM=="M" z=z+fn4(pixel) endif if @V=="1" z=@p7*z^2*(z-p4)/(1-p4*z)+p5 else z=@p7*z^2*(1+p4*z)/(z+p4)+p5 endif z=fn3(z) bailout: |zold-z|>@bail default: title="Frontini-Sormani Munster" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param p2 caption="F-S Parameter 1" default=(1,0) endparam param p3 caption="F-S Parameter 2" default=(0,0) endparam param p1 caption="F-S Constant" default=(1,0) endparam param pow caption="F-S Exponent" default=3 endparam param V caption="Munster Variant" enum="1""2" endparam param p7 caption="Munster Parameter 1" default=(1,0) endparam param p4 caption="Munster Parameter 2" default=(2,0) endparam param p5 caption="Munster Parameter 3" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p11 caption="Add Sqr Parameter" default=(0,0) endparam param p12 caption="Add Recip Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function 1" default=ident() endfunc func fn3 caption="Loop Function 2" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.000000001 endparam } MunsterMagnetJ { init: z=fn1(pixel) loop: zold=z z=fn2(z) z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) if @o=="Magnet first" if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif else if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif endif bailout: |z|<@baildiv && |z-zold|>@bailcon default: title="Munster Magnet J" center=(0.001,0.001) periodicity=0 magn=0.5 param muv caption="Munster Variant" enum="1""2" endparam param mav caption="Magnet Variant" enum="1""2" endparam param o caption="Order" enum="Magnet first""Munster first" default=1 endparam param p2 caption="Munster Parameter 1" default=(2,0) endparam param p1 caption="Munster Parameter 2" default=(1,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam param p5 caption="Magnet Parameter 1" default=(0,0) endparam param p4 caption="Magnet Parameter 2" default=(1,0) endparam param p6 caption="Magnet Parameter 3" default=(0,0) endparam param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param baildiv caption="Divergent Bailout" default=100.0 endparam param bailcon caption="Convergent Bailout" default=0.000001 endparam } MunsterMagnetM { init: z=fn1(pixel) loop: zold=z z=fn2(z) z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) if @manv=="1" if @o=="Magnet first" if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif else if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif endif z=z+fn3(pixel) elseif @manv=="2" if @o=="Magnet first" if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif z=z+fn3(pixel) if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif else if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif z=z+fn3(pixel) if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif endif elseif @manv=="3" if @o=="Magnet first" if @mav=="1" z=p4*((z^2+@fn3(pixel)-1)/(2*z+@fn3(pixel)-2))^2+p6 else z=p4*((z^3+3*(@fn3(pixel)-1)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2))/(3*z^2+3*(@fn3(pixel)-2)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2)+1))^2+p6 endif if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif else if @muv=="1" z=p1*z^2*(z-p2)/(1-p2*z)+p3 else z=p1*z^2*(1+p2*z)/(z+p2)+p3 endif if @mav=="1" z=p4*((z^2+@fn3(pixel)-1)/(2*z+@fn3(pixel)-2))^2+p6 else z=p4*((z^3+3*(@fn3(pixel)-1)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2))/(3*z^2+3*(@fn3(pixel)-2)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2)+1))^2+p6 endif endif elseif @manv=="4" if @o=="Magnet first" if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif if @muv=="1" z=p1*z^2*(z-fn3(pixel))/(1-fn3(pixel)*z)+p3 else z=p1*z^2*(1+fn3(pixel)*z)/(z+fn3(pixel))+p3 endif else if @muv=="1" z=p1*z^2*(z-fn3(pixel))/(1-fn3(pixel)*z)+p3 else z=p1*z^2*(1+fn3(pixel)*z)/(z+fn3(pixel))+p3 endif if @mav=="1" z=p4*((z^2+p5-1)/(2*z+p5-2))^2+p6 else z=p4*((z^3+3*(p5-1)*z+(p5-1)*(p5-2))/(3*z^2+3*(p5-2)*z+(p5-1)*(p5-2)+1))^2+p6 endif endif elseif @manv=="5" if @o=="Magnet first" if @mav=="1" z=p4*((z^2+@fn3(pixel)-1)/(2*z+@fn3(pixel)-2))^2+p6 else z=p4*((z^3+3*(@fn3(pixel)-1)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2))/(3*z^2+3*(@fn3(pixel)-2)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2)+1))^2+p6 endif if @muv=="1" z=p1*z^2*(z-@fn3(pixel))/(1-@fn3(pixel)*z)+p3 else z=p1*z^2*(1+@fn3(pixel)*z)/(z+@fn3(pixel))+p3 endif else if @muv=="1" z=p1*z^2*(z-@fn3(pixel))/(1-@fn3(pixel)*z)+p3 else z=p1*z^2*(1+@fn3(pixel)*z)/(z+@fn3(pixel))+p3 endif if @mav=="1" z=p4*((z^2+@fn3(pixel)-1)/(2*z+@fn3(pixel)-2))^2+p6 else z=p4*((z^3+3*(@fn3(pixel)-1)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2))/(3*z^2+3*(@fn3(pixel)-2)*z+(@fn3(pixel)-1)*(@fn3(pixel)-2)+1))^2+p6 endif endif endif bailout: |z|<@baildiv && |z-zold|>@bailcon default: title="Munster Magnet M" center=(0.001,0.001) periodicity=0 magn=0.5 param manv caption="Mandelbrot Variant" enum="1""2""3""4""5" endparam param muv caption="Munster Variant" enum="1""2" endparam param mav caption="Magnet Variant" enum="1""2" endparam param o caption="Order" enum="Magnet first""Munster first" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p3 caption="Munster Parameter 2" default=(0,0) endparam param p2 caption="Munster Parameter 3" default=(2,0) visible=@manv!="4" && @manv!="5" endparam param p4 caption="Magnet Parameter 1" default=(1,0) endparam param p6 caption="Magnet Parameter 2" default=(0,0) endparam param p5 caption="Magnet Parameter 3" default=(0,0) visible=@manv!="3" && @manv!="5" endparam param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param baildiv caption="Divergent Bailout" default=100.0 endparam param bailcon caption="Convergent Bailout" default=0.000001 endparam } SeigelJulia { ; Based on a formula from here: ; http://www.scholarpedia.org/article/Siegel_disks/Quadratic_Siegel_disks init: z=fn1(pixel) loop: z=p6*fn2(z)+@p7 z=(z-p4)/(1-p4*z) z=z/(@p5*z+1) if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif z=cotanh(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" if |z|>1 z=z/|z| endif z=cotan(z) elseif @Va=="7" if imag(z)>0 z=z else z=conj(z) endif elseif @Va=="8" if imag(z)<0 z=z else z=conj(z) endif elseif @Va=="9" if real(z)<0 z=-real(z)+flip(imag(z)) endif endif z=exp(p1*1i)*z^2*(z-p2)/(1-p2*z)+p3 bailout: |z|<@bail default: title="Seigel Julia" center=(0.001,0.001) periodicity=0 magn=0.5 param p1 caption="Seigel Parameter 1" default=(1,0) endparam param p2 caption="Seigel Parameter 2" default=(3,0) endparam param p3 caption="Seigel Parameter 3" default=(-0.1,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9" endparam param p4 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=100.0 endparam } Chun { ;https://www.sciencedirect.com/science/article/pii/S0893965907000389 init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-p4)/(1-p4*z) z=z/(p5*z+1) if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="7" if real(z)<0 z=-real(z)+flip(imag(z)) endif elseif @Va=="8" z=z-sqr(z) elseif @Va=="9" z=z+sqr(z) endif f=z^@pow-p1 f1=@pow*z^(@pow-1) z=z-p2*f/(f+f1)+p3 bailout: |zold-z|>@bail default: title="Chun" center=(0.001,0.001) periodicity=0 param p1 caption="Chun Parameter 1" default=(1,0) endparam param p2 caption="Chun Parameter 2" default=(1,0) endparam param p3 caption="Chun Parameter 3" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9" endparam param p4 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.000000001 endparam } Potra-Pták { ;https://www.sciencedirect.com/science/article/pii/S0893965907000389 init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-p4)/(1-p4*z) z=z/(p5*z+1) if @JM=="J" if @Va=="none" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="7" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=recip(z) elseif @Va=="8" z=z-sqr(z) elseif @Va=="9" z=z+sqr(z) elseif @Va=="10" if real(z)1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="7" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=recip(z) elseif @Va=="8" z=z-sqr(z) elseif @Va=="9" z=z+sqr(z) elseif @Va=="10" if real(z)1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=recip(z) elseif @Va=="6" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="7" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=recip(z) elseif @Va=="8" z=z-sqr(z) elseif @Va=="9" z=z+sqr(z) elseif @Va=="10" if real(z)@bail default: title="Potra-Pták" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M1""M2" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29" endparam param p2 caption="Potra-Pták Parameter 1" default=(1,0) endparam param p3 caption="Potra-Pták Parameter 2" default=(0,0) endparam param p1 caption="Potra-Pták Parameter 3" default=(1,0) visible=@JM!="M1" endparam param pow caption="Exponent" default=3 endparam param p4 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM!="J" endfunc param bail caption="Bailout" default=0.000000001 endparam } Thukral { ; Jarratt-type iterative method from R.Thukral: ; https://www.hindawi.com/journals/ana/2012/493707/ init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-p4)/(1-p4*z) z=z/(p5*z+1) if @JM=="J" if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=recip(z) elseif @Va=="2" if |z|>1 z=z/|z| endif z=-1.5*flip(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-1.5*flip(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=-1/z elseif @Va=="6" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1/abs(z) elseif @Va=="7" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="8" z=z-(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="9" if |z|>1 z=z/|z| endif elseif @Va=="10" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="11" if real(z)imag(z) z=flip(z) endif elseif @Va=="13" if real(z)<0 z=-real(z)+flip(imag(z)) endif elseif @Va=="14" if |z|<1 z=z/|z| endif z=1.5*recip(z) elseif @Va=="15" if |z|<1 z=z/|z| endif z=2*recip(z) elseif @Va=="16" if |z|<1 z=z/|z| endif z=0.5*abs(z) elseif @Va=="17" if |z|<1 z=z/|z| endif z=0.7*abs(z) elseif @Va=="18" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="19" if |z|<1 z=z/|z| endif z=-sqr(z) elseif @Va=="20" if |z|<1 z=z/|z| endif z=0.7*sqr(z) elseif @Va=="21" if |z|<1 z=z/|z| endif z=-0.6*sqr(z) elseif @Va=="22" if real(z)>imag(z) z=flip(z) endif z=-1/flip(z) elseif @Va=="23" if real(z)>imag(z) z=flip(z) endif z=1/conj(z) elseif @Va=="24" if real(z)>imag(z) z=flip(z) endif z=1/sqr(z) endif else if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=1.5*recip(z) elseif @Va=="2" if |z|>1 z=z/|z| endif z=-1.5*flip(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-1.5*flip(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=1/abs(z) elseif @Va=="6" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1/abs(z) elseif @Va=="7" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="8" z=z-(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="9" if |z|>1 z=z/|z| endif elseif @Va=="10" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="11" if real(z)imag(z) z=flip(z) endif z=z+sqr(z) elseif @Va=="13" if real(z)<0 z=-real(z)+flip(imag(z)) endif elseif @Va=="14" if |z|<1 z=z/|z| endif z=recip(z) elseif @Va=="15" if |z|<1 z=z/|z| endif z=2*recip(z) elseif @Va=="16" if |z|<1 z=z/|z| endif z=0.5*abs(z) elseif @Va=="17" if |z|<1 z=z/|z| endif z=z+1/sqr(z) elseif @Va=="18" if |z|<1 z=z/|z| endif z=sqr(z) elseif @Va=="19" if |z|<1 z=z/|z| endif z=z+0.5*sqr(z) elseif @Va=="20" if |z|<1 z=z/|z| endif z=0.7*sqr(z) elseif @Va=="21" if |z|<1 z=z/|z| endif z=-0.6*sqr(z) elseif @Va=="22" if real(z)>imag(z) z=flip(z) endif z=-1/flip(z) elseif @Va=="23" if real(z)>imag(z) z=flip(z) endif z=1/conj(z) elseif @Va=="24" if real(z)>imag(z) z=flip(z) endif z=1/sqr(z) endif endif if @JM=="J" f=z^@pow-p1 f1=@pow*z^(@pow-1) a=z-2*(f/f1)/3 b=(3*@pow*a^(@pow-1)+f1)/(6*@pow*a^(@pow-1)+2*f1) c=z-b*f/f1 z=c-p2*b^2*(c^3-p1)/f1+p3 else f=z^@pow-fn4(pixel) f1=@pow*z^(@pow-1) a=z-2*(f/f1)/3 b=(3*@pow*a^(@pow-1)+f1)/(6*@pow*a^(@pow-1)+2*f1) c=z-b*f/f1 z=c-p2*b^2*(c^3-fn4(pixel))/f1+p3 endif bailout: |zold-z|>@bail default: title="Thukral" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24" endparam param p2 caption="Thukral Parameter 1" default=(1,0) endparam param p3 caption="Thukral Parameter 2" default=(0,0) endparam param p1 caption="Constant" default=(1,0) visible=@JM=="J" endparam param pow caption="Exponent" default=3 endparam param p4 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.00000001 endparam } 2 { ; Jarratt-type iterative method from R.Thukral: ; https://www.hindawi.com/journals/ana/2012/493707/ init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-@p8)/(1-@p8*z) z=z/(p5*z+1) if @JM=="J" if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if real(z)1 z=z/|z| endif z=z+0.82271/sqr(z) elseif @Va=="7" if |z|>1 z=z/|z| endif z=z-0.82271/sqr(z) elseif @Va=="8" if |z|>1 z=z/|z| endif z=z+0.7/cotanh(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=z+1.25/cotan(z) elseif @Va=="10" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z+1/sqr(z) elseif @Va=="11" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z-1/sqr(z) elseif @Va=="12" z=z-1/z elseif @Va=="13" z=z+1.5*(z^3-1)/(3*z^2) elseif @Va=="14" z=z-1.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="15" z=z+1.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="16" z=z+3.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="17" z=z-3.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="18" z=((z^2)/(2*z-1))^2 elseif @Va=="19" z=((z^2-2)/(2*z-3))^2 elseif @Va=="20" z=((flip(z)^2)/(2*flip(z)-1))^2 elseif @Va=="21" z=((flip(z)^2-2)/(2*flip(z)-3))^2 elseif @Va=="22" z=((flip(z)^2-9.2)/(2*flip(z)-10.2))^2 elseif @Va=="23" z=((flip(z)^2+11.9867)/(2*flip(z)+10.9867))^2 elseif @Va=="24" z=((abs(z)^2)/(2*abs(z)-1))^2 elseif @Va=="25" z=((abs(z)^2-2)/(2*abs(z)-3))^2 elseif @Va=="26" z=((recip(z)^2+0.91136)/(2*recip(z)-0.08864))^2 elseif @Va=="27" z=(z-1)/(z+1) elseif @Va=="28" z=-0.9*(z-1)/(z+1) elseif @Va=="29" z=(z-1)*(z+1) elseif @Va=="30" z=(flip(z)-1)*(flip(z)+1) elseif @Va=="31" z=-0.82*(flip(z)-1)*(flip(z)+1) elseif @Va=="32" z=-0.3*(flip(z)-1)*(flip(z)+1) elseif @Va=="33" z=z^2*(z-4)/(1-4*z) elseif @Va=="34" z=z^2*(z+4)/(1+4*z) elseif @Va=="35" z=z^2*(exp(z)-0.5)/(1-0.5*exp(z)) elseif @Va=="36" z=z^2*(sin(z)+3.2)/(1+3.2*sin(z)) elseif @Va=="37" z=z^2*(abs(z)+3.2)/(1+3.2*abs(z)) elseif @Va=="38" z=z^2*(cabs(z)+3.2)/(1+3.2*cabs(z)) elseif @Va=="39" z=z-z^2 elseif @Va=="40" z=z-0.3795*z^3 elseif @Va=="41" z=z+0.2*z*cabs(z) endif else if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if real(z)1 z=z/|z| endif z=z+0.82271/sqr(z) elseif @Va=="6" if |z|>1 z=z/|z| endif z=z+3/cotanh(z) elseif @Va=="7" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=z+1/sqr(z) elseif @Va=="8" z=z+1/z elseif @Va=="9" z=z+1.5*(z^3-1)/(3*z^2) elseif @Va=="10" z=z+1.5*(sqr(z)^3-1)/(3*sqr(z)^2) elseif @Va=="11" z=z+(sqr(z)^3-1)/(3*sqr(z)^2) elseif @Va=="12" z=z+1.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="13" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="14" z=z-(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="15" z=z+3.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="16" z=z-3.5*(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="17" z=((z^2)/(2*z-1))^2 elseif @Va=="18" z=((z^2-2)/(2*z-3))^2 elseif @Va=="19" z=((flip(z)^2)/(2*flip(z)-1))^2 elseif @Va=="20" z=((flip(z)^2-2)/(2*flip(z)-3))^2 elseif @Va=="21" z=((flip(z)^2+2.35)/(2*flip(z)+1.35))^2 elseif @Va=="22" z=((conj(z)^2-2)/(2*conj(z)-3))^2 elseif @Va=="23" z=((conj(z)^2+1)/(2*conj(z)))^2 elseif @Va=="24" z=((abs(z)^2-1.8615)/(2*abs(z)-2.8615))^2 elseif @Va=="25" z=((abs(z)^2-2.8615)/(2*abs(z)-3.8615))^2 elseif @Va=="26" z=((recip(z)^2+0.97507)/(2*recip(z)-0.02493))^2 elseif @Va=="27" z=(z-1)*(z+1) elseif @Va=="28" z=z^2*(z-2)/(1-2*z) elseif @Va=="29" z=z^2*(z-3)/(1-3*z) elseif @Va=="30" z=z^2*(z-6.5)/(1-6.5*z) elseif @Va=="31" z=z^2*(sqr(z)-2)/(1-2*sqr(z)) elseif @Va=="32" z=z^2*(sqr(z)+2)/(1+2*sqr(z)) elseif @Va=="33" z=z^2*(abs(z)+2)/(1+2*abs(z)) elseif @Va=="34" z=z^2*(cabs(z)+2)/(1+2*cabs(z)) elseif @Va=="35" z=z^2*(cos(z)+1.5)/(1+1.5*cos(z)) elseif @Va=="36" z=z^2*(cosh(z)+1.5)/(1+1.5*cosh(z)) elseif @Va=="37" z=z+z^2 elseif @Va=="38" z=z-0.3*z^3 elseif @Va=="39" z=z+0.3*z^3 elseif @Va=="40" z=z+0.2*z*abs(z) elseif @Va=="41" z=z+0.333*z*cabs(z) endif endif if @JM=="J" f=z^@pow-p1 f1=@pow*z^(@pow-1) a=z-2*(f/f1)/3 b=z-(f/f1)*(3*@pow*a^(@pow-1)+f1)/(6*@pow*a^(@pow-1)-2*f1) z=b-p2*((p3*(@pow*a^(@pow-1))^2+(4-p3)*f1^2)/((p3+3)*(@pow*a^(@pow-1))^2+(1-p3)*f1^2))*((b^@pow-p1)/f1)+p4 else f=z^@pow-fn4(pixel) f1=@pow*z^(@pow-1) a=z-2*(f/f1)/3 b=z-(f/f1)*(3*@pow*a^(@pow-1)+f1)/(6*@pow*a^(@pow-1)-2*f1) z=b-p2*((p3*(@pow*a^(@pow-1))^2+(4-p3)*f1^2)/((p3+3)*(@pow*a^(@pow-1))^2+(1-p3)*f1^2))*((b^@pow-fn4(pixel))/f1)+p4 endif bailout: |zold-z|>@bail default: title="Thukral 2" center=(0.001,0.001) periodicity=0 magn=0.5 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30""31""32""33""34""35"\ "36""37""38""39""40""41" endparam param p2 caption="Thukral Parameter 1" default=(-3,0) endparam param p3 caption="Thukral Parameter 2" default=(0.5,0) endparam param p4 caption="Thukral Parameter 3" default=(0,0) endparam param p1 caption="Constant" default=(1,0) visible=@JM=="J" endparam param pow caption="Exponent" default=3 endparam param p8 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.00000001 endparam } SunifMivei { init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-p4)/(1-p4*z) z=z/(p5*z+1) if @JM=="J" if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif z=-1.5*flip(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-1.5*flip(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=1/abs(z) elseif @Va=="6" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1/abs(z) elseif @Va=="7" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="8" z=z-(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="9" z=z+0.3*sqr(z) elseif @Va=="10" z=z+0.3*recip(z) elseif @Va=="11" z=z-0.3*cotanh(z) elseif @Va=="12" z=(z+1i)^2-2.2 endif else if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=1.5*recip(z) elseif @Va=="2" if |z|>1 z=z/|z| endif z=-1.5*flip(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-1.5*flip(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=1/abs(z) elseif @Va=="6" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1/abs(z) elseif @Va=="7" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="8" z=z-(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="9" z=z+0.3*sqr(z) elseif @Va=="10" z=z+(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="11" z=z-(exp(z)-1i)/(exp(z)+1i) elseif @Va=="12" z=(sqr(z)+1i)^2+2.32 endif endif f=z^@pow-5*1i f1=@pow*z^(@pow-1) a=z-2*(f/f1)/3 b=(3*@pow*a^(@pow-1)+f1)/(6*@pow*a^(@pow-1)+2*f1) c=z-b*f/f1 z=c-p2*f1/f+p3 if @JM=="M" z=z+fn3(pixel) endif bailout: |zold-z|>@bail default: title="Sunif Mivei" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10""11""12" endparam param p2 caption="Sunif Mivei Parameter 1" default=(1,0) endparam param p3 caption="Sunif Mivei Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p4 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.00000001 endparam } Swique1 { init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-@p8)/(1-@p8*z) z=z/(p5*z+1) if @Va=="None" z=z elseif @Va=="1" z=z^2*(cotanh(z)-2)/(1-2*cotanh(z)) elseif @Va=="2" z=z+cotanh(z)/z elseif @Va=="3" z=z+0.3*cotanh(z)/z elseif @Va=="4" z=z+tanh(z)/z elseif @Va=="5" z=z-1/sqr(z) elseif @Va=="6" z=z+0.55*sqr(z)*tanh(z) elseif @Va=="7" z=z-0.5/cotanh(z) elseif @Va=="8" z=z-3.65/tan(z) elseif @Va=="9" z=z+((z^2)/(2*z-1))^2 elseif @Va=="10" z=z+((z^2-2)/(2*z-3))^2 elseif @Va=="11" z=z+(z-1i)/(z+1i) elseif @Va=="12" z=z+((sqr(z)^2-17)/(2*sqr(z)-18))^2 elseif @Va=="13" z=z-(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="14" z=z+((sqr(z)^2+15)/(2*sqr(z)+14))^2 elseif @Va=="15" z=z^2*(tanh(z)-2)/(1-2*tanh(z)) elseif @Va=="16" z=z^2*(exp(z)-0.5)/(1-0.5*exp(z)) elseif @Va=="17" z=z^2*(sin(z)+0.5)/(1+0.5*sin(z)) elseif @Va=="18" z=z^2*(cos(z)-0.85)/(1-0.85*cos(z)) elseif @Va=="19" z=z^2*(recip(z)-0.85)/(1-0.85*recip(z)) elseif @Va=="20" z=z+z^2*(exp(z)-0.5)/(1-0.5*exp(z)) elseif @Va=="21" z=z+z^2*(exp(z)+2)/(1+2*exp(z)) elseif @Va=="22" z=z+z^2*(sqr(z)+2)/(1+2*sqr(z)) elseif @Va=="23" z=z+z^2*(recip(z)-0.3)/(1-0.3*recip(z)) elseif @Va=="24" z=z^2*(cabs(z)+2)/(1+2*cabs(z)) endif f=z^@pow-fn4(pixel) f1=@pow*z^(@pow-1) z=p2*f/f1+p3*f1/f+p4 bailout: |zold-z|>@bail default: title="Swique 1" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24" endparam param p2 caption="Swique Parameter 1" default=(1,0) endparam param p3 caption="Swique Parameter 2" default=(1,0) endparam param p4 caption="Swique Parameter 3" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p8 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } Swique2 { init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-@p8)/(1-@p8*z) z=z/(p5*z+1) if @Va=="None" z=z elseif @Va=="1" z=z-sin(z)/z elseif @Va=="2" z=z-2/z elseif @Va=="3" z=z-0.5/cotanh(z) elseif @Va=="4" z=z-3.65/tan(z) elseif @Va=="5" z=z-0.3/cos(z) elseif @Va=="6" z=z-0.3*(z^3-1)/(3*z^2) elseif @Va=="7" z=z-0.3*(cotan(z)^3-1)/(3*cotan(z)^2) elseif @Va=="8" z=z+(z-1i)/(z+1i) elseif @Va=="9" z=z-(z-1i)/(z+1i) endif f=z^@pow-fn4(pixel) f1=@pow*z^(@pow-1) z=(p2*f/f1+p3*f1/f)^2+p4 bailout: |zold-z|>@bail default: title="Swique 2" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9" endparam param p2 caption="Swique Parameter 1" default=(1,0) endparam param p3 caption="Swique Parameter 2" default=(1,0) endparam param p4 caption="Swique Parameter 3" default=(0,0) endparam param pow caption="Exponent" default=3 endparam param p8 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } Newtonforz^c1+c2/z-c3=0 { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=(z-p5)/(1-p5*z) z=z/(p6*z+1) if @M=="None" z=z elseif @M=="1" z=sqr(z)-0.5/cos(z)+1 elseif @M=="2" z=z^2-1/z elseif @M=="3" z=z^2-0.5/z+1 elseif @M=="4" z=z+0.15/z-0.5 elseif @M=="5" z=z+0.5/z elseif @M=="6" z=z^3-1 elseif @M=="7" z=z^3+1/cotanh(z)-1 elseif @M=="8" z=z^3-0.3795*z+1 elseif @M=="9" z=z^2-0.45*z+1 elseif @M=="10" z=-0.3/sqr(z)+0.67 endif if @JM=="J" f=z^@pow+p1/z-p4 else f=z^@pow+p1/z-fn3(pixel) endif f1=@pow*z^(@pow-1)-p1/sqr(z) z=z-p2*f/f1+p3 bailout: |zold-z|>@bail default: title="Newton for z^c1+c2/z-c3=0" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param M caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10" endparam param p1 caption="Newton Parameter 1" default=(1,0) endparam param p2 caption="Newton Parameter 2" default=(1,0) endparam param p3 caption="Newton Parameter 3" default=(0,0) endparam param p4 caption="Newton Parameter 4" default=(1,0) visible=@JM=="J" endparam param pow caption="Exponent" default=3 endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.0000001 endparam } Swique3 { init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-@p8)/(1-@p8*z) z=z/(p5*z+1) if @Va=="None" z=z elseif @Va=="1" z=z^2*(z-2)/(1-2*z) elseif @Va=="2" z=z-0.5*sqr(z) elseif @Va=="3" z=z+0.5*sqr(z) elseif @Va=="4" z=z+0.5/z elseif @Va=="5" z=z-2.5/cos(z) elseif @Va=="6" z=z+0.55*sqr(z)*tanh(z) elseif @Va=="7" z=z+1.5*cotanh(z)*cotanh(z) elseif @Va=="8" z=z+0.5*cotan(z)*cotan(z) elseif @Va=="9" z=z+((z^2)/(2*z-1))^2 elseif @Va=="10" z=z+((z^2-2)/(2*z-3))^2 elseif @Va=="11" z=z+(z-1i)/(z+1i) elseif @Va=="12" z=z+((sqr(z)^2+9.5)/(2*sqr(z)+8.5))^2 elseif @Va=="13" z=z-(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="14" z=z+((z^2-1)/(2*z-2))^2 elseif @Va=="15" z=z^2*(recip(z)-0.85)/(1-0.85*recip(z)) elseif @Va=="16" z=z+z^2*(sqr(z)+2)/(1+2*sqr(z)) elseif @Va=="17" z=z^2*(cabs(z)+2)/(1+2*cabs(z)) elseif @Va=="18" z=z^2*(recip(z)-0.5)/(1-0.5*tan(z)) elseif @Va=="19" z=z^2*(recip(z))/(1-1.5*recip(z)) elseif @Va=="20" z=z+z^2*(exp(z)-0.5)/(1-2*exp(z)) elseif @Va=="21" z=z+z^2*(exp(z)+1.5)/(1-exp(z)) elseif @Va=="22" z=z=(z^3-1)/(3*tanh(z)^2)+1.5 elseif @Va=="23" z=4.7*(z^3-1)/(3*z^2) elseif @Va=="24" z=7.5*(z^3-1)/(3*z^4) elseif @Va=="25" z=z-(z^3-1)/(3*z^2) elseif @Va=="26" z=z-(recip(z)^3-1)/(3*z^2) elseif @Va=="27" z=z+0.3*(sqr(z)^3-1)/(3*z^2)-3.5 elseif @Va=="28" z=z-(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="29" z=z-2*(sqr(z)^3-1)/(3*sqr(z)^2) elseif @Va=="30" z=z+1.8*(z^3-1)/(3*z^2) endif f=z^@pow+p1/z-fn3(pixel) f1=@pow*z^(@pow-1)-p1/sqr(z) f2=(@pow-1)*@pow*z^(@pow-2)+2*p1/z^3 z=p2*f/f1+p3*f2/f+p4 bailout: |zold-z|>@bail default: title="Swique 3" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14""15""16""17"\ "18""19""20""21""22""23""24""25""26"\ "27""28""29""30" endparam param p1 caption="Swique Parameter 1" default=(1,0) endparam param p2 caption="Swique Parameter 2" default=(1,0) endparam param p3 caption="Swique Parameter 3" default=(1,0) endparam param p4 caption="Swique Parameter 4" default=(0,0) endparam param pow caption="Exponent" default=2 endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam param p8 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } Swique4 { init: z=fn1(pixel) loop: zold=z z=p6*fn2(z)+@p7 z=(z-@p8)/(1-@p8*z) z=z/(p5*z+1) if @Va=="None" z=z elseif @Va=="1" z=z+0.5/z elseif @Va=="2" z=z-2.5/cos(z) elseif @Va=="3" z=z+(z-1i)/(z+1i) elseif @Va=="4" z=z-(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="5" z=z-(z^3-1)/(3*z^2) elseif @Va=="6" z=z-(recip(z)^3-1)/(3*z^2) elseif @Va=="7" z=z+0.3*recip((z^2)/(2*z-1))^2 elseif @Va=="8" z=z-0.3*recip((z^2)/(2*z-1))^2 elseif @Va=="9" z=z+0.5*cotanh((recip(z)^2+1)/(2*recip(z)))^2 elseif @Va=="10" z=z+0.5*cotan((recip(z)^2-1.75)/(2*recip(z)-2.75))^2 elseif @Va=="11" z=0.5*(sqr(z)-1i)/(z+1i)+1 elseif @Va=="12" z=(z-1i)/(recip(z)+1i)-1 elseif @Va=="13" z=z+tan(1/(z+2))-2 elseif @Va=="14" z=z+cotan(1/(recip(z)+2))-2 endif f=z^@pow+p1/z-fn3(pixel) f1=@pow*z^(@pow-1)-p1/sqr(z) f2=(@pow-1)*@pow*z^(@pow-2)+2*p1/z^3 z=(p2*f/f1+p3*f2/f)^2+p4 bailout: |zold-z|>@bail default: title="Swique 4" center=(0.001,0.001) periodicity=0 magn=0.5 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8"\ "9""10""11""12""13""14" endparam param p1 caption="Swique Parameter 1" default=(1,0) endparam param p2 caption="Swique Parameter 2" default=(1,0) endparam param p3 caption="Swique Parameter 3" default=(1,0) endparam param p4 caption="Swique Parameter 4" default=(0,0) endparam param pow caption="Exponent" default=2 endparam param p6 caption="Loop Parameter 1" default=(1,0) endparam param p7 caption="Loop Parameter 2" default=(0,0) endparam param p8 caption="Möbius Parameter 1" default=(0,0) endparam param p5 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } ModifiedMagnet { init: z=fn1(pixel) loop: zold=z z=z+p6*sqr(z)+@p7 z=z+p4*(z-1i)/(1+1i)+p5 z=z+@p8/z+@p9 if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=((2*z-1.5)/(z^2-0.5))^2 elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=((2*z-1.5)/(z^2-0.5))^2 elseif @Va=="4" if real(z)@bailcon default: title="Modified Magnet" center=(0.001,0.001) periodicity=0 magn=0.25 param p1 caption="MM Parameter 1" default=(0.5,0) endparam param p2 caption="MM Parameter 2" default=(1,0) endparam param p3 caption="MM Parameter 3" default=(0,0) endparam param p4 caption="Add Cayley Parameter 1" default=(0,0) endparam param p5 caption="Add Cayley Parameter 2" default=(0,0) visible=@p4!=0 endparam param p6 caption="Add Sqr Parameter 1" default=(0,0) endparam param p7 caption="Add Sqr Parameter 2" default=(0,0) visible=@p6!=0 endparam param p8 caption="Add Recip Parameter 1" default=(0,0) endparam param p9 caption="Add Recip Parameter 2" default=(0,0) visible=@p8!=0 endparam param Va caption="Modification" enum="None""1""2""3""4""5""6"\ "7""8""9""10""11""12" endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param baildiv caption="Divergent Bailout" default=10000000.0 endparam param bailcon caption="Convergent Bailout" default=0.00000001 endparam } ElkinJulia { init: z=fn1(pixel) loop: z=p4*fn4(z)+p5 z=p3*fn2(flip(p3/(fn3(recip(sqr(z)))+p1)))+p1 z=z^2+p2 bailout: |z|<@bail default: title="Elkin Julia" param p1 caption="Elkin Parameter 1" default=(-0.5,0.75) endparam param p3 caption="Elkin Parameter 2" default=(1,0) endparam param p2 caption="Julia Seed" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Elkin Function 1" default=ident() endfunc func fn3 caption="Elkin Function 2" default=ident() endfunc func fn4 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=4.0 endparam } Frevof { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=z+@p9*sqr(z)+@p10 z=z+p5/z+p6 if @JM=="J" if @M=="None" z=z elseif @M=="1" if |z|<1 z=z/|z| endif elseif @M=="2" if |z|>1 z=z/|z| endif z=z+0.3*z^3 elseif @M=="3" z=((z^2-4.6)/(2*z-5.6))^2 elseif @M=="4" if real(z)imag(z) z=flip(z) endif z=((z^2-5.5)/(2*z-6.5))^2 elseif @M=="6" z=z+((z^2)/(2*z-1))^2-5.15 elseif @M=="7" z=z-2/sqr(z) elseif @M=="8" z=z-tan(z)-2/z elseif @M=="9" z=1.2*(1.2/(recip(z)-0.2))-0.2 elseif @M=="10" z=cotanh(0.68*tan(0.68/(z-0.25))-0.25) endif else if @M=="None" z=z elseif @M=="1" if |z|<1 z=z/|z| endif elseif @M=="2" z=z+((z^2-4)/(2*z-5))^2-0.5 elseif @M=="3" z=((z^2)/(2*z-1))^2 elseif @M=="4" if real(z)imag(z) z=flip(z) endif z=((recip(z)^2+0.911)/(2*recip(z)-0.089))^2+5 elseif @M=="6" z=z+((sqr(z)^2)/(2*sqr(z)-1))^2-0.9 elseif @M=="7" z=z-2/sqr(z) elseif @M=="8" z=1.2*(1.2/(recip(z)-0.2))-0.2 elseif @M=="9" z=cotanh(0.68*tan(0.68/(z-0.25))-0.25) elseif @M=="10" z=z-0.2*(z+1)/(z-1) endif endif if @JM=="J" f=z^@pow+p1/z-p4 else f=z^@pow+p1/z-fn3(pixel) endif f1=@pow*z^(@pow-1)-p1/sqr(z) z=z-p2*((f-f1)/(f+f1))+p3 bailout: |zold-z|>@bail default: title="Frevof" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param M caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10" endparam param p1 caption="Frevof Parameter 1" default=(1,0) endparam param p2 caption="Frevof Parameter 2" default=(1,0) endparam param p3 caption="Frevof Parameter 3" default=(0,0) endparam param p4 caption="Frevof Parameter 4" default=(1,0) visible=@JM=="J" endparam param pow caption="Exponent" default=3 endparam param p9 caption="Add Sqr Parameter 1" default=(0,0) endparam param p10 caption="Add Sqr Parameter 2" default=(0,0) visible=@p9!=0 endparam param p5 caption="Add Recip Parameter 1" default=(0,0) endparam param p6 caption="Add Recip Parameter 2" default=(0,0) visible=p5!=0 endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=0.0000001 endparam } DoubleMunsterJ { init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @V=="1" z=(z^2*(z-p1)/(1-p1*z))^2*(z-p2)/(1-p2*z) elseif @V=="2" z=(z^2*(z-p1)/(1-p1*z))^2*(z+p2)/(1+p2*z) elseif @V=="3" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z+p2)/(1+p2*z) elseif @V=="4" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z-p2)/(1-p2*z) endif bailout: |zold-z|>@bail default: title="Double Munster J" center=(0.001,0.001) periodicity=0 param V caption="Variant" enum="1""2""3""4" endparam param p1 caption="Munster Parameter 1" default=(2,0) endparam param p2 caption="Munster Parameter 2" default=(2,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } DoubleMunsterM { init: z=fn1(pixel) loop: zold=z z=p3*fn2(z)+p4 if @V=="1" z=z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z) z=z^2*(z+p2)/(1+p2*z) elseif @V=="2" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z+p2*fn3(pixel))/(1+p2*fn3(pixel)*z) elseif @V=="3" z=z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z) z=z^2*(z+p2*fn3(pixel))/(1+p2*fn3(pixel)*z) elseif @V=="4" z=z^2*(z-p1)/(1-p1*z)+fn3(pixel) z=z^2*(z+p2)/(1+p2*z) elseif @V=="5" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z+p2)/(1+p2*z)+fn3(pixel) elseif @V=="6" z=z^2*(z-p1)/(1-p1*z)+fn3(pixel) z=z^2*(z+p2)/(1+p2*z)+fn3(pixel) elseif @V=="7" z=z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z) z=z^2*(z-p2)/(1-p2*z) elseif @V=="8" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z-p2*fn3(pixel))/(1-p2*fn3(pixel)*z) elseif @V=="9" z=z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z) z=z^2*(z-p2*fn3(pixel))/(1-p2*fn3(pixel)*z) elseif @V=="10" z=z^2*(z-p1)/(1-p1*z)+fn3(pixel) z=z^2*(z-p2)/(1-p2*z) elseif @V=="11" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z-p2)/(1-p2*z)+fn3(pixel) elseif @V=="12" z=z^2*(z-p1)/(1-p1*z)+fn3(pixel) z=z^2*(z-p2)/(1-p2*z)+fn3(pixel) elseif @V=="13" z=z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z) z=z^2*(z+p2)/(1+p2*z) elseif @V=="14" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z+(p2+fn3(pixel)))/(1+(p2+fn3(pixel))*z) elseif @V=="15" z=z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z) z=z^2*(z+(p2+fn3(pixel)))/(1+(p2+fn3(pixel))*z) elseif @V=="16" z=z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z) z=z^2*(z-p2)/(1-p2*z) elseif @V=="17" z=z^2*(z-p1)/(1-p1*z) z=z^2*(z-(p2+fn3(pixel)))/(1-(p2+fn3(pixel))*z) elseif @V=="18" z=z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z) z=z^2*(z-(p2+fn3(pixel)))/(1-(p2+fn3(pixel))*z) elseif @V=="19" z=(z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z))^2*(z-p2)/(1-p2*z) elseif @V=="20" z=(z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z))^2*(z+p2)/(1+p2*z) elseif @V=="21" z=(z^2*(z-p1)/(1-p1*z))^2*(z-p2*fn3(pixel))/(1-p2*fn3(pixel)*z) elseif @V=="22" z=(z^2*(z-p1)/(1-p1*z))^2*(z+p2*fn3(pixel))/(1+p2*fn3(pixel)*z) elseif @V=="23" z=(z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z))^2*(z-p2*fn3(pixel))/(1-p2*fn3(pixel)*z) elseif @V=="24" z=(z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*z))^2*(z+p2*fn3(pixel))/(1+p2*fn3(pixel)*z) elseif @V=="25" z=(z^2*(z-p1)/(1-p1*z))^2*(z-p2)/(1-p2*z)+fn3(pixel) elseif @V=="26" z=(z^2*(z-p1)/(1-p1*z))^2*(z+p2)/(1+p2*z)+fn3(pixel) elseif @V=="27" z=(z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z))^2*(z-p2)/(1-p2*z) elseif @V=="28" z=(z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z))^2*(z+p2)/(1+p2*z) elseif @V=="29" z=(z^2*(z-p1)/(1-p1*z))^2*(z-(p2+fn3(pixel)))/(1-(p2+fn3(pixel))*z) elseif @V=="30" z=(z^2*(z-p1)/(1-p1*z))^2*(z+(p2+fn3(pixel)))/(1+(p2+fn3(pixel))*z) elseif @V=="31" z=(z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z))^2*(z-(p2+fn3(pixel)))/(1-(p2+fn3(pixel))*z) elseif @V=="32" z=(z^2*(z-(p1+fn3(pixel)))/(1-(p1+fn3(pixel))*z))^2*(z+(p2+fn3(pixel)))/(1+(p2+fn3(pixel))*z) endif bailout: |zold-z|>@bail default: title="Double Munster M" center=(0.001,0.001) periodicity=0 param V caption="Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30""31""32" endparam param p1 caption="Munster Parameter 1" default=(2,0) endparam param p2 caption="Munster Parameter 2" default=(2,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="M Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } LabsCayley { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=((z-1i)/(z+1i))^@pow1+p1 z=((z-1i)/(z+1i))^@pow1+p2 z=p5*fn4(log(abs(z)))^@pow2+p6 if @JM=="M" z=z+fn3(pixel) endif endwhile z=@adj*z/100 bailout: |z|<@bail default: title="Labs Cayley" center=(0.001,0.001) periodicity=0 maxiter=500 param JM caption="J/M" enum="J""M" default=1 endparam param iter caption="Iterations" default=3 endparam param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Labs Parameter 1" default=(1,0) endparam param p6 caption="Labs Parameter 2" default=(0,0) endparam param p1 caption="Cayley Parameter 1" default=(0,0) endparam param p2 caption="Cayley Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param pow2 caption="Labs Exponent" default=(1,0) endparam param pow1 caption="Cayley Exponent" default=2 endparam param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=10000000.0 endparam } MsetVariant { init: z=fn1(pixel) loop: zold=z z=fn2(z) z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z z=(z^@pow+p1*fn3(pixel))*z/(p2*fn4(pixel))+p3 bailout: |zold-z|>@bail default: title="Mset Variant" center=(0.001,0.001) periodicity=0 param p3 caption="M Parameter" default=(0,0) endparam param p1 caption="C1 Parameter" default=(1,0) endparam param p2 caption="C2 Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Z Function" default=ident() endfunc func fn3 caption="C1 Function" default=ident() endfunc func fn4 caption="C2 Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param pow caption="Exponent" default=2 endparam param bail caption="Bailout" default=0.00000001 endparam } Munster6 { ; Based on two formulas given by Roger Bagula ;https://plus.google.com/u/0/110803890168343196795/posts/VhHPyNRXDAy ;https://plus.google.com/u/0/110803890168343196795/posts/M5F7HSyDnep init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif endif if @V=="1" z=exp(2*pi*1i*p1)*z^2*(p2*3/2-z^2)/(1-p2*3*z^2/2)+p3 else z=exp(2/(pi*1i*p1))*z^2*((p2*3/2-z^2)/(1-p2*3*z^2/2))^0.5+p3 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 6" center=(0.001,0.001) periodicity=0 param V caption="Variant" enum="1""2" endparam param Va caption="Modification" enum="None""1""2" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout Value" default=0.00000001 visible=@bt==0 endparam param baildiv caption="Bailout Value" default=4.0 visible=@bt==1 endparam } Munster7 { ;http://www.wikiwand.com/en/Herman_ring init: z=fn1(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z z=exp(2*pi*1i*p1)*z^3*((1-conj(p2)*z)/(z-p2))*((1-conj(p3)*z)/(z-p3))+@p7 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 7" center=(0.001,0.001) periodicity=0 param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(0.5,0) endparam param p3 caption="Munster Parameter 3" default=(1,0) endparam param p7 caption="Munster Parameter 4" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout Value" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout Value" default=4.0 visible=@bt==1 endparam } Deebee { init: z=fn1(pixel) loop: z=@p7*fn2(z)+@p8 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if @JM=="J" if real(z)imag(z) z=flip(z) endif else z=z-z^3 endif elseif @Va=="3" z=z+z*cotan(z) elseif @Va=="4" z=z-z*cotan(z) endif if @JM=="J" z=z*(p1*z^3+p1+1)/((p2-1)*z^3+p2)+fn3(p3) else z=z*(p1*z^3+p1+1)/((p2-1)*z^3+p2)+p3+fn3(pixel) endif bailout: |z|<@bail default: title="Deebee" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param p1 caption="Deebee Parameter 1" default=(-0.8,0) endparam param p2 caption="Deebee Parameter 2" default=(0.4,0) endparam param p3 caption="Deebee Parameter 3" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4" endparam param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } Domret { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif if @JM=="M" z=-cotanh(z) endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif else z=z-2.855*z^3 endif elseif @Va=="6" if @JM=="J" if |z|>1 z=z/|z| endif z=cotan(z) else z=z-0.45*z*cotan(z) endif endif z=p3/z z=(z-1)*(z+2.75*p1/(2+2.75*p1))/z^2 if @JM=="J" z=(z^7-z^5-fn3(p2))/(z^7+z^5-fn3(p2)) else z=(z^7-z^5-fn3(pixel))/(z^7+z^5-fn3(pixel))+p2-1 endif bailout: |zold-z|>@bail default: title="Domret" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6" endparam param p1 caption="Domret Parameter 1" default=(1,0) endparam param p2 caption="Domret Parameter 2" default=(1,0) endparam param p3 caption="Domret Parameter 3" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.00000001 endparam } GRJulia { ; Based on a formula from Roger Bagula ; https://plus.google.com/u/0/110803890168343196795/posts/E1v4rMM4zZU init: z=fn1(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif endif z=z^2*(z+3*z^2-2*z^3-3*z^4)/(1-8*z^2+9*z^4)+p1 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="GR Julia" center=(0.001,0.001) periodicity=0 magn=0.5 param p1 caption="Julia Seed" default=(-1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5" endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout Value" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout Value" default=10.0 visible=@bt==1 endparam } Munster8 { init: z=fn1(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) endif z=p1*z^2*(-p2+p3*z)/(p3-p2*z)+@p7 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 8" center=(0.001,0.001) periodicity=0 magn=0.8 param p1 caption="Munster Parameter 1" default=(0.75,0.6) endparam param p2 caption="Munster Parameter 2" default=(1.5,0) endparam param p3 caption="Munster Parameter 3" default=(1,0) endparam param p7 caption="Munster Parameter 4" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3" endparam param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } Munster9 { init: z=fn1(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" z=z^2*(z-5)/(1-5*z) elseif @Va=="2" z=z^2*(z-10)/(1-10*z) elseif @Va=="3" z=z^2*(sqr(z)-5)/(1-5*sqr(z)) elseif @Va=="4" z=z^2*(sqr(z)+5)/(1+5*sqr(z)) elseif @Va=="5" z=z^2*(recip(z)-0.3)/(1-0.3*recip(z)) elseif @Va=="6" z=z^2*(z+5.5)/(1-5.5*z) elseif @Va=="7" z=z*(exp(z)+0.75)/(1+0.75*exp(z)) elseif @Va=="8" z=z*(sqr(z)+0.75)/(1+0.75*sqr(z)) elseif @Va=="9" z=z^3*(sqr(z)-15)/(1-15*sqr(z)) elseif @Va=="10" z=z^3*(sqr(z)+15)/(1+15*sqr(z)) elseif @Va=="11" z=z^3*(sqr(z)-30)/(1-30*sqr(z)) elseif @Va=="12" z=z^3*(sqr(z)+30)/(1+30*sqr(z)) endif z=p1*(z^2*(z-p2*fn3(pixel))/(-p2*fn3(pixel)*z+1))+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 9" center=(0.001,0.001) periodicity=0 magn=0.5 param p1 caption="Munster Parameter 1" default=(-1.5,0) endparam param p2 caption="Munster Parameter 2" default=(1.5,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10""11""12" endparam param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Hanemeer { init: z=fn1(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10)/(1-@p10*z) z=z/(@p11*z+1) z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif if @JM!="J" z=1/z endif elseif @Va=="3" if real(z)<0 z=-real(z)+flip(imag(z)) endif if @JM=="J" z=0.7*sqr(z) else z=-z endif elseif @Va=="4" z=z^2*(z+9.5)/(1+9.5*z) endif if @JM=="J" z=p1*z^2*(z^2-z-fn3(p2))/(-z^2-z+fn3(p2))+@p13 z=p3*z^2*(z^3-z-fn3(@p12))/(-z^3-z^2+fn3(@p12))+@p14 elseif @JM=="M1" z=p1*z^2*(z^2-z-fn3(p2))/(-z^2-z+fn3(p2))+@p13 z=p3*z^2*(z^3-z-@p12*fn3(pixel))/(-z^3-z^2+@p12*fn3(pixel))+@p14 elseif @JM=="M2" z=p1*z^2*(z^2-z-fn3(p2))/(-z^2-z+fn3(p2))+@p13 z=p3*z^2*(z^3-z-fn3(@p12))/(-z^3-z^2+@p12*fn3(pixel))+@p14 elseif @JM=="M3" z=p1*z^2*(z^2-z-fn3(p2))/(-z^2-z+p2*fn3(pixel))+@p13 z=p3*z^2*(z^3-z-fn3(@p12))/(-z^3-z^2+fn3(@p12))+@p14 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Hanemeer" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M1""M2""M3" endparam param Va caption="Modification" enum="None""1""2""3""4" endparam param p1 caption="Hanemeer Parameter 1" default=(1,0) endparam param p2 caption="Hanemeer Parameter 2" default=(1,0) endparam param p3 caption="Hanemeer Parameter 3" default=(0.4,0) endparam param p12 caption="Hanemeer Parameter 4" default=(1,0) endparam param p13 caption="Hanemeer Parameter 5" default=(1,0) endparam param p14 caption="Hanemeer Parameter 6" default=(-1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Cozyk { init: z=fn1(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10)/(1-@p10*z) z=z/(@p11*z+1) z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif if @JM=="J" z=0.6*flip(z) else z=-0.6*z endif elseif @Va=="2" if |z|>1 z=z/|z| endif if @JM=="J" z=0.5*sqr(z) else z=-0.86/abs(z) endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) if @JM=="J" z=0.2*sqr(z) else z=-2*sqr(z) endif elseif @Va=="4" if @JM=="J" if real(z)>imag(z) z=flip(z) endif else if real(z)@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Cozyk" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9" endparam param p1 caption="Cozyk Parameter 1" default=(-0.15,0) endparam param p2 caption="Cozyk Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Flega { init: a=pixel if @S=="1" z=a elseif @S=="2" z=a-(sqr(a)-1i)/(2*a) elseif @S=="3" z=a-(a^3-1i)/(3*sqr(a)) elseif @S=="4" z=a-(a^4-1i)/(4*a^3) elseif @S=="5" z=a-(2*a)/(sqr(a)-1i) elseif @S=="6" z=a-(3*sqr(a))/(a^3-1i) elseif @S=="7" z=a-(4*a^3)/(a^4-1i) elseif @S=="8" z=a-(2*a)/(sqr(a)-1) elseif @S=="9" z=a-(3*sqr(a))/(a^3-1) elseif @S=="10" z=a-(4*a^3)/(a^4-1) elseif @S=="11" z=(a-1i)/(a+1i) elseif @S=="12" z=a+(a-1i)/(a+1i) elseif @S=="13" z=sqr(a)*(a-2)/(1-2*a) elseif @S=="14" z=sqr(a)*(a-0.5)/(1-0.5*a) elseif @S=="15" z=sqr(a)*(a-2)/(1i-2*a) elseif @S=="16" z=sqr(a)*(a-0.5)/(1i-0.5*a) elseif @S=="17" z=a+((a^2-2)/(2*a-3))^2 elseif @S=="18" z=a+((a^2+2)/(2*a+1))^2 elseif @S=="19" z=((a^2-1-1i)/(2*a-1-2*1i))^2 elseif @S=="20" z=((a^2+3-1i)/(2*a+3-2*1i))^2 elseif @S=="21" z=a+(sqr(a)-1)/(2*a) elseif @S=="22" z=a+(a^3-1)/(3*sqr(a)) elseif @S=="23" z=a+(a^4-1)/(4*a^3) elseif @S=="24" z=a+sqr(a)+1i elseif @S=="25" z=a+a^3+1i elseif @S=="26" z=a-sqr(a)+1i elseif @S=="27" z=a-a^3+1i endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10)/(1-@p10*z) z=z/(@p11*z+1) z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z z=z^2*(z+p2)/(1+p2*z) z=2*z*(z^2+p1*fn3(pixel))/(z^2-p1*fn3(pixel))+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Flega" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Flega Parameter 1" default=(1,0) endparam param p2 caption="Flega Parameter 2" default=(9.5,0) endparam param p3 caption="Flega Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=10.0 visible=@bt==1 endparam } Flega2 { init: a=pixel if @S=="1" z=a elseif @S=="2" z=a-(sqr(a)-1i)/(2*a) elseif @S=="3" z=a-(a^3-1i)/(3*sqr(a)) elseif @S=="4" z=a-(a^4-1i)/(4*a^3) elseif @S=="5" z=a-(2*a)/(sqr(a)-1i) elseif @S=="6" z=a-(3*sqr(a))/(a^3-1i) elseif @S=="7" z=a-(4*a^3)/(a^4-1i) elseif @S=="8" z=a-(2*a)/(sqr(a)-1) elseif @S=="9" z=a-(3*sqr(a))/(a^3-1) elseif @S=="10" z=a-(4*a^3)/(a^4-1) elseif @S=="11" z=(a-1i)/(a+1i) elseif @S=="12" z=a+(a-1i)/(a+1i) elseif @S=="13" z=sqr(a)*(a-2)/(1-2*a) elseif @S=="14" z=sqr(a)*(a-0.5)/(1-0.5*a) elseif @S=="15" z=sqr(a)*(a-2)/(1i-2*a) elseif @S=="16" z=sqr(a)*(a-0.5)/(1i-0.5*a) elseif @S=="17" z=a+((a^2-2)/(2*a-3))^2 elseif @S=="18" z=a+((a^2+2)/(2*a+1))^2 elseif @S=="19" z=((a^2-1-1i)/(2*a-1-2*1i))^2 elseif @S=="20" z=((a^2+3-1i)/(2*a+3-2*1i))^2 elseif @S=="21" z=a+(sqr(a)-1)/(2*a) elseif @S=="22" z=a+(a^3-1)/(3*sqr(a)) elseif @S=="23" z=a+(a^4-1)/(4*a^3) elseif @S=="24" z=a+sqr(a)+1i elseif @S=="25" z=a+a^3+1i elseif @S=="26" z=a-sqr(a)+1i elseif @S=="27" z=a-a^3+1i endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10)/(1-@p10*z) z=z/(@p11*z+1) z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z z=z^2*(z+p2)/(1+p2*z) if @JM=="J" z=(z^2+fn3(p1))/(z+sqrt(fn3(p1)))+(z^2+fn3(p1))/(z-sqrt(fn3(p1)))+p3 else z=(z^2+fn3(pixel))/(z+sqrt(fn3(p1)))+(z^2+fn3(pixel))/(z-sqrt(fn3(p1)))+p3 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Flega 2" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Flega Parameter 1" default=(1,0) endparam param p2 caption="Flega Parameter 2" default=(9.5,0) endparam param p3 caption="Flega Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } FME { ; Based on a formula from Roger Bagula ; http://www.archivum.info/sci.fractals/2006-09/00067/I-get-a-strange-nearly-linear-cut-off.html init: a=pixel if @S=="1" z=a elseif @S=="2" z=a-(sqr(a)-1i)/(2*a) elseif @S=="3" z=a-(a^3-1i)/(3*sqr(a)) elseif @S=="4" z=a-(a^4-1i)/(4*a^3) elseif @S=="5" z=a-(2*a)/(sqr(a)-1i) elseif @S=="6" z=a-(3*sqr(a))/(a^3-1i) elseif @S=="7" z=a-(4*a^3)/(a^4-1i) elseif @S=="8" z=a-(2*a)/(sqr(a)-1) elseif @S=="9" z=a-(3*sqr(a))/(a^3-1) elseif @S=="10" z=a-(4*a^3)/(a^4-1) elseif @S=="11" z=(a-1i)/(a+1i) elseif @S=="12" z=a+(a-1i)/(a+1i) elseif @S=="13" z=sqr(a)*(a-2)/(1-2*a) elseif @S=="14" z=sqr(a)*(a-0.5)/(1-0.5*a) elseif @S=="15" z=sqr(a)*(a-2)/(1i-2*a) elseif @S=="16" z=sqr(a)*(a-0.5)/(1i-0.5*a) elseif @S=="17" z=a+((a^2-2)/(2*a-3))^2 elseif @S=="18" z=a+((a^2+2)/(2*a+1))^2 elseif @S=="19" z=((a^2-1-1i)/(2*a-1-2*1i))^2 elseif @S=="20" z=((a^2+3-1i)/(2*a+3-2*1i))^2 elseif @S=="21" z=a+(sqr(a)-1)/(2*a) elseif @S=="22" z=a+(a^3-1)/(3*sqr(a)) elseif @S=="23" z=a+(a^4-1)/(4*a^3) elseif @S=="24" z=a+sqr(a)+1i elseif @S=="25" z=a+a^3+1i elseif @S=="26" z=a-sqr(a)+1i elseif @S=="27" z=a-a^3+1i endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10)/(1-@p10*z) z=z/(@p11*z+1) z=z+p6/z z=fn3(p1)*z*(z^2-2*z+1)/(z^3-z^2-2*z+1)+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="FME" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="FME Parameter 1" default=(2.25,0) endparam param p2 caption="FME Parameter 2" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Benka { init: if @S=="1" z=pixel elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=pixel-(pixel^4-1i)/(4*pixel^3) elseif @S=="4" z=pixel-(pixel^3-1)/(3*pixel^2) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="9" z=sqr((sqr(pixel)+2)/(2*pixel+1)) elseif @S=="10" z=sqr((pixel-1i)/(pixel+1i)) elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=pixel+pixel^2+pixel^3 elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=pixel-(pixel^4-1)/(4*pixel^3) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=pixel-(pixel^3-1i)/(3*pixel^2) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10)/(1-@p10*z) z=z/(@p11*z+1) z=z+p5*z*(1-z) z=z+p6/z if @JM=="J" if @Va=="None" z=z elseif @Va=="1" z=z^2*(sin(z)+4.4)/(1+4.4*sin(z)) elseif @Va=="2" z=z^2*(z-18.21)/(1-18.21*z) elseif @Va=="3" z=z^2*(z-14.665)/(1-14.665*z) elseif @Va=="4" z=(sqr(z)-0.55)/(1-0.55*sqr(z)) elseif @Va=="5" z=z+0.4/cotanh(z) elseif @Va=="6" z=z-0.1/exp(z) endif else if @Va=="None" z=z elseif @Va=="1" z=z+z^2*(exp(z)-1.24)/(1-1.24*exp(z)) elseif @Va=="2" z=z+z^2*(sqr(z)-0.84)/(1-0.84*sqr(z)) elseif @Va=="3" z=z+(sqr(z)-0.8)/(1-0.8*sqr(z)) elseif @Va=="4" z=(z+0.3)/(1+0.3*z) elseif @Va=="5" z=z+0.25/z elseif @Va=="6" z=z-0.9/cosh(z) endif endif if @JM=="J" a=z^2+fn3(p1) z=a+p2*(a^2+fn3(p1)-2*a+z)+p3 else a=z^2+p1*fn3(pixel) z=a+p2*(a^2+p1*fn3(pixel)-2*a+z)+p3 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Benka" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6" default=3 endparam param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam func fn1 caption="Start Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p1 caption="Benka Parameter 1" default=(-1,0) endparam param p2 caption="Benka Parameter 2" default=(0.5,0) endparam param p3 caption="Benka Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Knubin { init: if @S=="1" z=pixel elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=pixel-(pixel^4-1i)/(4*pixel^3) elseif @S=="4" z=pixel-(pixel^3-1)/(3*pixel^2) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="9" z=sqr((sqr(pixel)+2)/(2*pixel+1)) elseif @S=="10" z=sqr((pixel-1i)/(pixel+1i)) elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=pixel+pixel^2+pixel^3 elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=pixel-(pixel^4-1)/(4*pixel^3) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=pixel-(pixel^3-1i)/(3*pixel^2) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-@p10/20)/(1-@p10*z/20) z=z/(@p11*z/20+1) z=z+p5*z*(1-z)/10 z=z+p6/z if @Va=="None" z=z elseif @Va=="1" z=z-(z^3-1)/(3*z^2) elseif @Va=="2" z=z+0.4/cotanh(z) elseif @Va=="3" if real(z)imag(z) z=flip(z) endif elseif @Va=="5" z=z+(recip(z)-1i)/(recip(z)+1i) elseif @Va=="6" z=z-0.5*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="7" z=z^2*(z-14.665)/(1-14.665*z) elseif @Va=="8" z=z-(cabs(z)^3-1)/(3*cabs(z)^2) elseif @Va=="9" z=z+z^2*(z-22)/(1-22*z) elseif @Va=="10" if |z|<1 z=z/|z| endif z=0.65*abs(z) elseif @Va=="11" if |z|<1 z=z/|z| endif z=0.55*z elseif @Va=="12" if |z|<1 z=z/|z| endif z=-5.92*abs(z) elseif @Va=="13" if |z|<1 z=z/|z| endif z=-5.5*recip(z) elseif @Va=="14" z=z+z^2*(abs(z)-8.65)/(1-8.65*abs(z)) elseif @Va=="15" z=z^2*(sqr(z)-56)/(1-56*sqr(z)) elseif @Va=="16" z=z^2*(sqr(z)-78)/(1-78*sqr(z)) endif z=((fn3(p1)^3-z^3)/(z*fn3(p1)^2-fn3(p1)*z^2))^2+p2 bailout: |zold-z|>@bail default: title="Knubin" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10""11""12""13""14""15""16" endparam param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" default=10 endparam func fn1 caption="Start Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p1 caption="Knubin Parameter 1" default=(5.5,0) endparam param p2 caption="Knubin Parameter 2" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p10 caption="Möbius Parameter 1" default=(0,0) endparam param p11 caption="Möbius Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.00000000000001 endparam } Descakka { init: if @S=="1" z=pixel elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=pixel-(pixel^4-1i)/(4*pixel^3) elseif @S=="4" z=pixel-(tan(pixel)^4-1i)/(4*tan(pixel)^3) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr((sqr(pixel)+2)/(2*pixel+1)) elseif @S=="10" z=sqr((pixel-1i)/(pixel+1i)) elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=pixel-2.2*(cos(pixel)^4-1i)/(4*cos(pixel)^3) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=pixel-(pixel^4-1)/(4*pixel^3) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=pixel-(pixel^3-1i)/(3*pixel^2) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @s=="29" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @s=="30" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @s=="31" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @s=="32" z=sqr(pixel)*(sinh(pixel)+1)/(1i+sinh(pixel)) elseif @s=="33" z=pixel+pixel^2+pixel^3 elseif @s=="34" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @s=="35" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @s=="36" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @s=="37" z=pixel-(cotan(pixel)^4-1i)/(4*cotan(pixel)^3) elseif @s=="38" z=pixel-(pixel^3-1)/(3*pixel^2) elseif @s=="39" z=pixel-(cos(pixel)^4-1i)/(4*cos(pixel)^3) elseif @s=="40" z=pixel-4.6*(pixel^4-1i)/(4*pixel^3) elseif @s=="41" z=pixel-4.6*(tan(pixel)^4-1i)/(4*tan(pixel)^3) endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p5*z*(1-z)/10 z=z+p6/z z=z-(z^3-1)/(3*z^2) if @JM=="J" z=exp(1i*fn3(p1))*z^2*(z^5-z^4-z^3+z^2-p2)/(-z^5+z^3-z^2-z+p2)+p3 else z=exp(1i*p1*fn3(pixel))*z^2*(z^5-z^4-z^3+z^2-p2)/(-z^5+z^3-z^2-z+p2)+p3 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Descakka" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40""41" endparam func fn1 caption="Start Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p1 caption="Descakka Parameter 1" default=(0,1) endparam param p2 caption="Descakka Parameter 2" default=(1,0) endparam param p3 caption="Descakka Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=10.0 visible=@bt==1 endparam } EnowuJ { init: if @S=="1" z=pixel elseif @S=="2" z=pixel if |z|>1 z=z/|z| endif elseif @S=="3" z=((sqr(pixel)+1-1i)/(2*pixel+1-2i))^2 elseif @S=="4" z=pixel if real(z)imag(z) z=flip(z) endif elseif @s=="64" z=pixel-(exp(pixel)^3-1)/(3*exp(pixel)^2) elseif @s=="65" z=pixel+pixel^2*(exp(pixel)-2*1i)/(1i-2*exp(pixel)) elseif @s=="66" z=(sqr(cotanh(pixel))/(2*cotanh(pixel)-1))^2 endif z=fn1(z) c=fn3(p3) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p5*z*(1-z)/10 z=z+p6/z c=p1*c*(c^2-p2) z=p1*z*(p2-z^2)+c bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Enowu J" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62""63""64""65""66" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Enowu Parameter 1" default=(1,0) endparam param p2 caption="Enowu Parameter 2" default=(1.3,0) endparam param p3 caption="Enowu Parameter 3" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } EnowuM { init: if @S=="1" z=pixel elseif @S=="2" z=pixel-0.3*pixel*(1i-recip(pixel)) elseif @S=="3" z=((sqr(pixel)+1-1i)/(2*pixel+1-2i))^2 elseif @S=="4" z=pixel-0.65*exp(pixel) elseif @S=="5" z=((sqr(exp(pixel))-0.3-1i)/(2*exp(pixel)-0.3-2i))^2 elseif @S=="6" z=-0.3*(pixel-1i)/(pixel+1i) elseif @S=="7" z=(abs(pixel)-1i)/(abs(pixel)+1i) elseif @S=="8" z=pixel+((sqr(cotan(pixel))-0.3-1i)/(2*cotan(pixel)-0.3-2i))^2 elseif @S=="9" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="10" z=pixel+0.3*(pixel-1i)/(pixel+1i) elseif @S=="11" z=pixel if |z|>1 z=z/|z| endif elseif @S=="12" z=pixel+((sqr(pixel)+1-1i)/(2*pixel+1-2i))^2 elseif @S=="13" z=pixel-0.5*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="14" z=pixel+0.3*(cotanh(pixel)-1i)/(cotanh(pixel)+1i) elseif @S=="15" z=pixel+0.5/exp(pixel) elseif @S=="16" z=pixel-(cosh(pixel)^3-1)/(3*cosh(pixel)^2) elseif @S=="17" z=((sqr(cotan(pixel))-0.3-1i)/(2*cotan(pixel)-0.3-2i))^2 elseif @S=="18" z=pixel+0.35*pixel*(1i-cosh(pixel)) elseif @S=="19" z=pixel-(exp(pixel)^3-1i)/(3*exp(pixel)^2) elseif @S=="20" z=((sqr(sinh(pixel))+1-1i)/(2*sinh(pixel)+1-2i))^2 elseif @S=="21" z=pixel-(cos(pixel)^3-1i)/(3*cos(pixel)^2) elseif @S=="22" z=pixel+((sqr(sinh(pixel))-0.3-1i)/(2*sinh(pixel)-0.3-2i))^2 elseif @S=="23" z=pixel+pixel^2*(recip(pixel)-2*1i)/(1i-2*recip(pixel)) elseif @S=="24" z=pixel+pixel^2*(pixel-2*1i)/(1i-2*pixel) elseif @S=="25" z=((sqr(exp(pixel))+1-1i)/(2*exp(pixel)+1-2i))^2 elseif @s=="26" z=pixel+pixel^2*(sqr(pixel)-2*1i)/(1i-2*sqr(pixel)) elseif @s=="27" z=pixel+pixel^2*(exp(pixel)+0.5*1i)/(1i+0.5*exp(pixel)) elseif @s=="28" z=pixel+pixel^2*(sqr(pixel)+0.5*1i)/(1i+0.5*sqr(pixel)) elseif @s=="29" z=pixel+0.3*pixel*(1i-cotan(pixel)) elseif @s=="30" z=pixel-0.5*tanh(pixel) elseif @s=="31" z=pixel-0.5*tan(pixel) elseif @s=="32" z=pixel+1i*tanh(pixel) elseif @s=="33" z=-2.5*(cosh(pixel)^2-1)/(2*cosh(pixel)) elseif @s=="34" z=(sqr(abs(pixel))/(2*abs(pixel)-1))^2 elseif @s=="35" z=(sqr(exp(pixel))/(2*exp(pixel)-1))^2 elseif @s=="36" z=((sqr(sinh(pixel))-0.3-1i)/(2*sinh(pixel)-0.3-2i))^2 elseif @s=="37" z=(sqr(sin(pixel))/(2*sin(pixel)-1))^2 elseif @s=="38" z=pixel+0.3i elseif @s=="39" z=1i*sqr(pixel) elseif @s=="40" z=-0.3*pixel*(1i-pixel) elseif @s=="41" z=pixel+((sqr(recip(pixel))-2)/(2*recip(pixel)-3))^2 elseif @s=="42" z=pixel+((sqr(cos(pixel))-0.3-1i)/(2*cos(pixel)-0.3-2i))^2 elseif @s=="43" z=-0.3*pixel*(1i-1/pixel) elseif @s=="44" z=pixel-(cosh(pixel)^3-1i)/(3*cosh(pixel)^2) elseif @s=="45" z=((sqr(pixel)-0.3-1i)/(2*pixel-0.3-2i))^2 elseif @s=="46" z=pixel-0.35*(exp(pixel)-1i)/(exp(pixel)+1i) elseif @s=="47" z=pixel+((sqr(pixel)-0.3-1i)/(2*pixel-0.3-2i))^2 elseif @s=="48" z=pixel+((sqr(sqr(pixel))-0.3-1i)/(2*sqr(pixel)-0.3-2i))^2 elseif @s=="49" z=pixel+0.5*cotan(pixel) elseif @s=="50" z=((sqr(sqr(pixel))+1-1i)/(2*sqr(pixel)+1-2i))^2 elseif @s=="51" z=(sqr(pixel)/(2*pixel-1))^2 elseif @s=="52" z=((sqr(cos(pixel))-0.3-1i)/(2*cos(pixel)-0.3-2i))^2 elseif @s=="53" z=-0.55*pixel*(1i-cos(pixel)) elseif @s=="54" z=pixel+((sqr(cos(pixel))+1-1i)/(2*cos(pixel)+1-2i))^2 elseif @s=="55" z=((sqr(cos(pixel))+1-1i)/(2*cos(pixel)+1-2i))^2 elseif @s=="56" z=pixel^2*(exp(pixel)-2*1i)/(1i-2*exp(pixel)) elseif @s=="57" z=pixel+((sqr(sqr(pixel))+1-1i)/(2*sqr(pixel)+1-2i))^2 elseif @s=="58" z=0.5*pixel*(1i-sin(pixel)) elseif @s=="59" z=pixel+0.3*pixel*(1i-exp(pixel)) elseif @s=="60" z=((sqr(sqr(pixel))-0.3-1i)/(2*sqr(pixel)-0.3-2i))^2 elseif @s=="61" z=((sqr(exp(pixel))+1)/(2*exp(pixel)))^2 elseif @s=="62" z=((sqr(recip(pixel))+1-1i)/(2*recip(pixel)+1-2i))^2 elseif @s=="63" z=pixel if real(z)>imag(z) z=flip(z) endif elseif @s=="64" z=pixel-(exp(pixel)^3-1)/(3*exp(pixel)^2) elseif @s=="65" z=pixel+pixel^2*(exp(pixel)-2*1i)/(1i-2*exp(pixel)) endif z=fn1(z) c=p3*@fn3(pixel) loop: zold=z z=@p8*fn2(z)+@p9 z=z+p5*z*(1-z)/10 z=z+p6/z c=p1*c*(c^2-p2) z=p1*z*(p2-z^2)+c bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Enowu M" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62""63""64""65" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Enowu Parameter 1" default=(1,0) endparam param p2 caption="Enowu Parameter 2" default=(1.3,0) endparam param p3 caption="Enowu Parameter 3" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } Sterlan { init: if @S=="1" z=pixel elseif @S=="2" z=(pixel-1i)/(pixel+1i) elseif @S=="3" z=(1/pixel-1i)/(1/pixel+1i) elseif @S=="4" z=(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="5" z=pixel+(pixel-1i)/(pixel+1i) elseif @S=="6" z=pixel+(1/pixel-1i)/(1/pixel+1i) elseif @S=="7" z=pixel+(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="8" z=-(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="9" z=-1.5*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="10" z=-2*(sqr(pixel)-1i)/(sqr(pixel)+1i)+sin(pixel) elseif @S=="11" z=pixel-(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="12" z=pixel-2*(sqr(pixel)-1i)/(sqr(pixel)+1i)+0.3*cotanh(pixel) elseif @S=="13" z=-(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="14" z=-2*(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="15" z=pixel-(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="16" z=pixel-2*(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="17" z=pixel-(recip(pixel)^3-1)/(3*recip(pixel)^2) elseif @S=="18" z=pixel-(cotanh(pixel)^3-1)/(3*cotanh(pixel)^2) elseif @S=="19" z=pixel-(pixel^3-1i)/(3*pixel^2) elseif @S=="20" z=pixel-(cos(pixel)^3-1i)/(3*cos(pixel)^2) elseif @S=="21" z=pixel-(sin(pixel)^3-1i)/(3*sin(pixel)^2) elseif @S=="22" z=pixel-(sinh(pixel)^3-1i)/(3*sinh(pixel)^2) elseif @S=="23" z=pixel-(recip(pixel)^3-1i)/(3*recip(pixel)^2) elseif @S=="24" z=pixel-2*(cotanh(pixel)^3-1i)/(3*cotanh(pixel)^2) elseif @S=="25" z=pixel-2*(tan(pixel)^3-1i)/(3*tan(pixel)^2) endif z=fn1(z) loop: zold=z z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) z=z+@p7/z if @Va=="None" z=z elseif @Va=="1" z=z-(cosh(z)^3-1)/(3*cosh(z)^2) if @JM=="M" z=z+0.4*sqr(z) endif elseif @Va=="2" z=z-0.3*sqr(z) elseif @Va=="3" z=z+0.3*sqr(z) elseif @Va=="4" z=z-0.3*tanh(z) elseif @Va=="5" z=z-0.3*tan(z) elseif @Va=="6" z=z-0.3*cos(z) elseif @Va=="7" z=z+0.3*cos(z) if @JM=="M" z=0.8*z endif elseif @Va=="8" z=z-0.3*cosh(z) elseif @Va=="9" z=z+0.3*cosh(z) elseif @Va=="10" z=z-0.3*sin(z) elseif @Va=="11" z=z-0.3*sinh(z) elseif @Va=="12" z=z-0.3*exp(z) elseif @Va=="13" z=1.115*recip(z+1/z) elseif @Va=="14" z=0.56*(z+1/z) elseif @Va=="15" z=(z^2+0.3)/(z+1) elseif @Va=="16" z=(flip(z)^2+0.3)/(flip(z)+1) elseif @Va=="17" z=z+(cotan(z)+1)/(cotan(z)^2+30) elseif @Va=="18" z=z+(cotan(z)+1)/(cotan(z)^2-30) elseif @Va=="19" z=z+(sin(z)+1)/(sin(z)^2-3) elseif @Va=="20" z=z+(cosh(z)^2-1.25)/(cosh(z)+1.25) elseif @Va=="21" if |z|>1 z=z/|z| endif if @JM=="M" z=0.75*flip(z) endif elseif @Va=="22" if real(z)>imag(z) z=flip(z) endif elseif @Va=="23" z=((z^2-2.75)/(2*z-3.75))^2 elseif @Va=="24" z=((conj(z)^2-2)/(2*conj(z)-3))^2 elseif @Va=="25" z=((sqr(z)^2-1.3)/(2*sqr(z)-2.3))^2 elseif @Va=="26" z=sqr(flip(z)^2-0.385)/(2*flip(z)+0.385) elseif @Va=="27" z=z+sqr(cos(z)^2-0.65)/(2*cos(z)+0.65) elseif @Va=="28" z=z+sqr(cosh(z)^2-1.3)/(2*cosh(z)+1.3) elseif @Va=="29" z=z+sqr(exp(z)^2-0.85)/(2*exp(z)+0.85) endif if @JM=="J" z=exp(p1)*z^2*(sin(z)^2+1/z-fn3(p2))/(sin(z)^2-1/z+fn3(p2))+p3 else z=exp(p1)*z^2*(sin(z)^2+1/z-p2*fn3(pixel))/(sin(z)^2-1/z+p2*fn3(pixel))+p3 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Sterlan" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Sterlan Parameter 1" default=(1,0) endparam param p2 caption="Sterlan Parameter 2" default=(1,0) endparam param p3 caption="Sterlan Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam param p7 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } Wreno { init: if @S=="1" z=pixel elseif @S=="2" z=(pixel-1i)/(pixel+1i) elseif @S=="3" z=(1/pixel-1i)/(1/pixel+1i) elseif @S=="4" z=(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="5" z=pixel+(pixel-1i)/(pixel+1i) elseif @S=="6" z=pixel+(1/pixel-1i)/(1/pixel+1i) elseif @S=="7" z=pixel+(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="8" z=-(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="9" z=-1.5*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="10" z=-2*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="11" z=pixel-(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="12" z=pixel-2*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=-(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="14" z=-2*(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="15" z=pixel-(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="16" z=pixel-2*(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="17" z=pixel-(recip(pixel)^3-1)/(3*recip(pixel)^2) elseif @S=="18" z=pixel-(cotanh(pixel)^3-1)/(3*cotanh(pixel)^2) elseif @S=="19" z=pixel-(pixel^3-1i)/(3*pixel^2) elseif @S=="20" z=pixel-(cos(pixel)^3-1i)/(3*cos(pixel)^2) elseif @S=="21" z=pixel-(sin(pixel)^3-1i)/(3*sin(pixel)^2) elseif @S=="22" z=pixel-(sinh(pixel)^3-1i)/(3*sinh(pixel)^2) elseif @S=="23" z=pixel-(recip(pixel)^3-1i)/(3*recip(pixel)^2) elseif @S=="24" z=pixel-2*(cotanh(pixel)^3-1i)/(3*cotanh(pixel)^2) elseif @S=="25" z=pixel-2*(tan(pixel)^3-1i)/(3*tan(pixel)^2) endif z=fn1(z) loop: zold=z z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) z=z+@p7/z if @Va=="None" z=z elseif @Va=="1" z=(z-1i)/(z+1i) elseif @Va=="2" z=2*cotanh((z-1i)/(z+1i)) elseif @Va=="3" z=1.5*(z-1i)/(z+1i) elseif @Va=="4" z=-0.465*flip((z-1i)/(z+1i)) elseif @Va=="5" z=z-0.3*tan(z) elseif @Va=="6" z=-0.75*(recip(z)-1i)/(recip(z)+1i) elseif @Va=="7" z=0.5*(z-1i)/(z+1i) elseif @Va=="8" z=2*cotan((z-1i)/(z+1i)) elseif @Va=="9" z=1i*z-0.3*1i/z elseif @Va=="10" z=0.4*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="11" z=z-0.3*sinh(z) elseif @Va=="12" z=(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="13" z=1.115*recip(z+1/z) elseif @Va=="14" z=2*(z-1i)/(z+1i) elseif @Va=="15" z=0.75*(z-1i)/(z+1i) elseif @Va=="16" z=1.75*(z-1i)/(z+1i) elseif @Va=="17" if |z|>1 z=z/|z| endif elseif @Va=="18" z=-1.35*z*(recip(z)+1i)*(recip(z)^2+1i) elseif @Va=="19" z=z-1i/sqr(z) elseif @Va=="20" z=-0.3*1i*sqr(z)+1i/z elseif @Va=="21" z=2*1i/z elseif @Va=="22" z=z+1i/sqr(z) elseif @Va=="23" z=1i*z+0.3*1i/z elseif @Va=="24" z=z+1i*z endif z=p2*(z+1/z) if real(z)>imag(z) z=flip(z) endif if real(z)>imag(z) z=(z-1)^2/fn3(p1) else z=(z+1)^2/conj(fn3(p1)) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Wreno" center=(0.001,0.001) periodicity=0 magn=0.5 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Wreno Parameter 1" default=(1,0) endparam param p2 caption="Wreno Parameter 2" default=(0.5,0) endparam func fn3 caption="C Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam param p7 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Vurgulsnat { init: if @S=="1" z=pixel elseif @s=="2" z=-2.2*(exp(pixel)-1i)/(exp(pixel)+1i) elseif @s=="3" z=exp(pixel) if |z|<1 z=z/|z| endif elseif @s=="4" if real(pixel)>imag(pixel) z=flip(pixel) else z=pixel endif z=cos(z) elseif @s=="5" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-5*z elseif @s=="6" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=2.75*exp(z) elseif @s=="7" z=pixel-(sin(pixel)-1i)/(sin(pixel)+1i) elseif @s=="8" z=-2.25*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @s=="9" z=pixel+(tan(pixel)-1i)/(tan(pixel)+1i) elseif @s=="10" z=pixel+(cotanh(pixel)-1i)/(cotanh(pixel)+1i) elseif @s=="11" z=pixel+3.35*(cotanh(pixel)-1i)/(cotanh(pixel)+1i) elseif @s=="12" z=pixel-(tan(pixel)-1i)/(tan(pixel)+1i) elseif @s=="13" z=2.25*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @s=="14" z=sqr(pixel) if |z|<1 z=z/|z| endif elseif @s=="15" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-2.75*exp(z) elseif @s=="16" z=pixel-4.45*(cos(pixel)-1i)/(cos(pixel)+1i) elseif @s=="17" z=pixel-(tanh(pixel)-1i)/(tanh(pixel)+1i) elseif @s=="18" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=5*tan(z) elseif @s=="19" z=pixel+(cotan(pixel)-1i)/(cotan(pixel)+1i) elseif @s=="20" z=1.5*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @s=="21" z=pixel-(cotan(pixel)-1i)/(cotan(pixel)+1i) elseif @s=="22" z=-3*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @s=="23" z=9*(pixel-1i)/(pixel+1i) elseif @s=="24" z=cos(pixel) if |z|<1 z=z/|z| endif elseif @s=="25" z=pixel+(cos(pixel)-1i)/(cos(pixel)+1i) elseif @s=="26" z=3*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @s=="27" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-4*abs(z) elseif @s=="28" z=pixel+(pixel-1i)/(pixel+1i) elseif @s=="29" z=3.65*(pixel-1i)/(pixel+1i) elseif @s=="30" z=pixel+(sinh(pixel)-1i)/(sinh(pixel)+1i) elseif @s=="31" z=sinh(pixel) if |z|<1 z=z/|z| endif elseif @s=="32" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=4*exp(z) elseif @s=="33" z=pixel+(tanh(pixel)-1i)/(tanh(pixel)+1i) elseif @s=="34" z=3.1275*tan(pixel) if |z|<1 z=z/|z| endif elseif @s=="35" z=pixel+(exp(pixel)-1i)/(exp(pixel)+1i) elseif @s=="36" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-6*sqr(z) elseif @s=="37" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=5*tanh(z) elseif @s=="38" z=-1.5*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @s=="39" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=3.9*cos(z) elseif @s=="40" z=pixel-4.45*(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @s=="41" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=5*abs(z) elseif @s=="42" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-3.25*z elseif @s=="43" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=z-0.595*exp(z) elseif @s=="44" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-1.5*(z+1/z) elseif @s=="45" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=6*recip(z+1/z) elseif @s=="46" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-3.785*cotanh(z+1/z) elseif @s=="47" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-3.25*cotan(z+1/z) elseif @s=="48" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=sqr(z+1i/z) elseif @s=="49" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=8.5*recip(z+1i/z) elseif @s=="50" if |pixel|>1 z=pixel/|pixel| else z=pixel endif z=-4*cotanh((z-1i)/(z+1i)) endif z=fn1(z) loop: zold=z z=p3*z+p4 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @Va=="none" z=z elseif @Va=="1" if real(z)>imag(z) z=flip(z) endif elseif @Va=="2" z=-sqr(z) elseif @Va=="3" z=sinh(z) elseif @Va=="4" z=-1*z^2*(recip(z)-1i)/(1-1i*recip(z)) elseif @Va=="5" z=conj(z) elseif @Va=="6" z=z-1i*exp(z) elseif @Va=="7" z=z+0.5*1i*sqr(z) elseif @Va=="8" z=z+0.5*1i*cos(z) elseif @Va=="9" z=z+exp(z) elseif @Va=="10" z=z-sqr(z) elseif @Va=="11" z=z-0.5*sqr(z) elseif @Va=="12" z=z^2*(z-1i)/(1-1i*z) elseif @Va=="13" z=-1*z^2*(z-1i)/(1-1i*z) elseif @Va=="14" if |z|>1 z=z/|z| endif z=1/z elseif @Va=="15" if |z|>1 z=z/|z| endif z=1/tan(z) elseif @Va=="16" if |z|>1 z=z/|z| endif z=1/sinh(z) elseif @Va=="17" if |z|>1 z=z/|z| endif z=1/sin(z) elseif @Va=="18" if real(z)>imag(z) z=flip(z) endif z=z+0.5/z elseif @Va=="19" if real(z)>imag(z) z=flip(z) endif z=z+0.3/cosh(z) elseif @Va=="20" if real(z)>imag(z) z=flip(z) endif z=z+0.3/sin(z) elseif @Va=="21" if |z|<1 z=z/|z| endif z=z+exp(z) elseif @Va=="22" if |z|<1 z=z/|z| endif z=z+cos(z) elseif @Va=="23" if |z|<1 z=z/|z| endif z=z+0.5*cos(z) elseif @Va=="24" if |z|<1 z=z/|z| endif z=0.7*z elseif @Va=="25" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=flip(z) elseif @Va=="26" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=cotanh(z) elseif @Va=="27" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-sqr(z) elseif @Va=="28" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-1.75*z elseif @Va=="29" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-3.8/z elseif @Va=="30" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=1.5/z elseif @Va=="31" if |z|>1 z=z/|z| endif z=-1/sqr(z) elseif @Va=="32" if |z|>1 z=z/|z| endif z=-1.5/sqr(z) endif z=p5*fn3((z-p1*1i)/(1i-p1*1i*z))^2+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Vurgulsnat" center=(0.001,0.001) periodicity=0 magn=0.5 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23""24""25""26""27"\ "28""29""30""31""32" endparam param p1 caption="Vurgul Parameter 1" default=(-1,0) endparam param p2 caption="Vurgul Parameter 2" default=(0,0) endparam param p5 caption="Vurgul Parameter 3" default=(1,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn3 caption="Vurgul Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Amrang { init: if @S=="Pixel" z=pixel elseif @S=="Amrang" z=pixel^2*((1+p4^2)*pixel+2*p4)/(2*p4*pixel+(1+p4^2)) elseif @S=="Newton" z=pixel-p4*(pixel^3-1)/(3*pixel^2) elseif @S=="Flipper" if real(pixel)>imag(pixel) z=flip(pixel) else z=pixel endif z=p4*z elseif @S=="Cayley" z=p4*(pixel-1i)/(pixel+1i) elseif @S=="Magnet" z=((sqr(pixel)+p4-1)/(2*pixel+p4-2))^2 elseif @S=="Magnet Mod" z=((sqr(pixel)+p4-1i)/(2*pixel+p4-2i))^2 elseif @S=="Add Recip" z=pixel+p4*recip(pixel) endif z=fn1(z) loop: zold=z z=fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @Va=="None" z=z elseif @Va=="Newton" z=z-p5*(z^3-1)/(3*z^2) elseif @Va=="Newton 2" z=z-p5*(z^4-1i)/(4*z^3) elseif @Va=="Newton 3" z=z-p5*(z^5-1i-1)/(5*z^4) elseif @Va=="Magnet" z=((sqr(z)+(p5+0.5)-1)/(2*z+(p5+0.5)-2))^2 elseif @Va=="Magnet 2" z=((z^3+3*((p5+1.3)-1)*z+((p5+1.3)-1)*((p5+1.3)-2))/(3*z^2+3*((p5+1.3)-2)*z+((p5+1.3)-1)*((p5+1.3)-2)+1))^2 elseif @Va=="Munster" z=z^2*(z-(p5+1))/(1-(p5+1)*z) elseif @Va=="Munster Mod" z=z^2*(z-(p5+9))/(1i-(p5+9)*z) elseif @Va=="Add Cotan" z=z+p5*cotan(z) endif z=p2*z^2*((1+p1^2)*z+2*p1)/(2*p1*z+(1+p1^2))+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Amrang" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="Pixel""Amrang""Newton""Flipper""Cayley""Magnet""Magnet Mod""Add Recip" endparam param p4 caption="Start Param" default=(1,0) visible=@S!="Pixel" endparam func fn1 caption="Start Func" default=ident() endfunc param p1 caption="Amrang Param 1" default=(1,1) endparam param p2 caption="Amrang Param 2" default=(1,0) endparam param p3 caption="Amrang Param 3" default=(0,0) endparam param Va caption="Mod" enum="None""Newton""Newton 2""Newton 3""Magnet""Magnet 2""Munster""Munster Mod""Add Cotan" endparam param p5 caption="Mod Param" default=(1,0) visible=@Va!="None" endparam param p6 caption="Möbius 1" default=(0,0) endparam param p10 caption="Möbius 2" default=(0,0) endparam param p8 caption="Quasi-Logistic" default=(0,0) endparam func fn2 caption="Loop Func" default=ident() endfunc param bt caption="Bail Type" enum="Convergent""Divergent" endparam param bailcon caption="Bail" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bail" default=100.0 visible=@bt==1 endparam } Cymado { init: if @S=="1" z=pixel elseif @S=="2" z=z+4.67313*(pixel^3-1i)/(3*pixel^2) elseif @S=="3" z=z-3.2*1i*(pixel^3-1)/(3*pixel^2) elseif @S=="4" z=z-3*1i*(pixel^3-1i)/(3*pixel^2) elseif @S=="5" z=z+4.4*1i*(pixel^3-1i)/(3*pixel^2-1i) elseif @S=="6" z=z-4.4*(pixel^3-1)/(3*pixel^2-1i) elseif @S=="7" z=z+4*(pixel^3-1)/(3*pixel^2) elseif @S=="8" z=z-(recip(pixel)^3-1)/(3*recip(pixel)^2) elseif @S=="9" z=-(pixel-1i)/(pixel+1i) elseif @S=="10" z=-2.5 *(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="11" z=2.5 *(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="12" z=pixel+(pixel-1i)/(pixel+1i) elseif @S=="13" z=pixel-(pixel-1i)/(pixel+1i) elseif @S=="14" z=pixel+0.5*(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="15" z=pixel-0.5*(exp(pixel)-1i)/(exp(pixel)+1i) elseif @S=="16" z=pixel+1.7*(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="17" z=pixel+(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="18" z=pixel-0.5*(cosh(pixel)-1i)/(cosh(pixel)+1i) elseif @S=="19" z=pixel-0.5*(cos(pixel)-1i)/(cos(pixel)+1i) elseif @S=="20" z=pixel-0.5*(sin(pixel)-1i)/(sin(pixel)+1i) elseif @S=="21" z=pixel-(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="22" z=((pixel^2+1-1i)/(2*pixel+1-2i))^2 elseif @S=="23" z=((pixel^2+5-1i)/(2*recip(pixel)+5-2i))^2 elseif @S=="24" z=((pixel^2+1-1i)/(2*cotan(pixel)+1-2i))^2 elseif @S=="25" z=((pixel^2-1-1i)/(2*cotan(pixel)-1-2i))^2 elseif @S=="26" z=((pixel^2+1-1i)/(2*cos(pixel)+1-2i))^2 elseif @S=="27" z=((pixel^2-1-1i)/(2*cos(pixel)-1-2i))^2 elseif @S=="28" z=((pixel^2+15-1i)/(2*sin(pixel)+15-2i))^2 elseif @S=="29" z=((sqr(pixel)^2+14-1i)/(2*pixel+14-2i))^2 elseif @S=="30" z=((cos(pixel)^2+16-1i)/(2*pixel+16-2i))^2 elseif @S=="31" z=((conj(pixel)^2+1-1i)/(2*cabs(pixel)+1-2i))^2 elseif @S=="32" z=((sqr(pixel)^2+8-1i)/(2*tanh(pixel)+8-2i))^2 elseif @S=="33" z=((sqr(pixel)^2+8-1i)/(2*tan(pixel)+8-2i))^2 elseif @S=="34" z=((sqr(pixel)^2-8-1i)/(2*tan(pixel)-8-2i))^2 elseif @S=="35" z=((sqr(pixel)^2-15-1i)/(2*cos(pixel)-15-2i))^2 elseif @S=="36" z=((sqr(pixel)^2+15-1i)/(2*cos(pixel)+15-2i))^2 elseif @S=="37" z=((cosh(pixel)^2+8-1i)/(2*sqr(pixel)+8-2i))^2 elseif@S=="38" if real(pixel)imag(z) z=flip(z) endif elseif @Va=="11" z=-sqr(z) elseif @Va=="12" z=cos(z) elseif @Va=="13" z=sinh(z) elseif @Va=="14" z=sin(z) elseif @Va=="15" z=z+0.3/z elseif @Va=="16" z=z-0.3/cotanh(z) elseif @Va=="17" z=z-0.3/cotan(z) elseif @Va=="18" z=z+0.8*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="19" if |z|<1 z=z/|z| endif z=z-1.75/z elseif @Va=="20" if |z|<1 z=z/|z| endif z=z+1/z elseif @Va=="21" if |z|<1 z=z/|z| endif z=z-1/sqr(z) elseif @Va=="22" if |z|<1 z=z/|z| endif z=z+0.5/tanh(z) elseif @Va=="23" if |z|<1 z=z/|z| endif z=z-1/tan(z) endif f=fn3(z)^3-p2 f1=3*z^2 z=(z+f*z^2)/(p1-z*f1)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Cymado" center=(0.001,0.001) periodicity=0 magn=0.5 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54" endparam func fn1 caption="Start Func" default=ident() endfunc param Va caption="Mod" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18"\ "19""20""21""22""23" endparam param p1 caption="Cymado Param 1" default=(1,0) endparam param p2 caption="Cymado Param 2" default=(1,0) endparam param p3 caption="Cymado Param 3" default=(0,0) endparam func fn3 caption="Cymado Func" default=ident() endfunc param p6 caption="Möbius 1" default=(0,0) endparam param p10 caption="Möbius 2" default=(0,0) endparam param p8 caption="Quasi-Logistic" default=(0,0) endparam func fn2 caption="Loop Func" default=ident() endfunc param bt caption="Bail Type" enum="Convergent""Divergent" endparam param bailcon caption="Bail" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bail" default=100.0 visible=@bt==1 endparam } Thryghifid { init: if @S=="Pixel" z=pixel elseif @S=="Munster Mod" z=pixel+pixel^2*(fn2(pixel)-p4)/(1i-p4*fn3(pixel)) elseif @S=="Cayley" z=p4*(pixel-1i)/(pixel+1i) elseif @S=="Magnet" z=((sqr(pixel)+p4-1)/(2*pixel+p4-2))^2 elseif @S=="Magnet Mod" z=((sqr(pixel)+p4-1i)/(2*pixel+p4-2i))^2 endif z=fn1(z) loop: zold=z z=@lp1*fn2(z)+@lp2 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @Va=="None" z=z elseif @Va=="1" z=((sqr(z)+13)/(2*z+12))^2 elseif @Va=="2" z=((z^3+12*z+12)/(3*z^2+9*z+13))^2 elseif @Va=="3" z=((sqr(z)+15-1i)/(2*z+15-2i))^2 elseif @Va=="4" z=((sqr(z)+20-1i)/(2*z+20-2i))^2 elseif @Va=="5" z=((z^3+3*(0.55-1i)*z+(0.55-1i)*(0.55-2i))/(3*z^2+3*(0.55-2i)*z+(0.55-1i)*(0.55-2i)+1))^2 elseif @Va=="6" z=((z^3+3*(6.3-1i)*z+(6.3-1i)*(6.3-2i))/(3*z^2+3*(6.3-2i)*z+(6.3-1i)*(6.3-2i)+1))^2 elseif @Va=="7" z=z^2*(z-2.8)/(1-2.8*z) elseif @Va=="8" z=z^2*(z+4)/(1+4*z) elseif @Va=="9" z=z^2*(z+7)/(1i+7*z) elseif @Va=="10" z=z-0.25/z elseif @Va=="11" z=z+0.47i*cos(z) elseif @Va=="12" z=z-0.52i*cos(z) elseif @Va=="13" z=z+0.69/exp(z) elseif @Va=="14" z=z-0.53/cotanh(z) elseif @Va=="15" z=z-2.923/cotanh(z) elseif @Va=="16" z=z-0.335*(z^2-1i)/(2*z) elseif @Va=="17" z=z-0.335*(sqr(z)^2-1i)/(2*z) elseif @Va=="18" z=z+z^2*(z-2)/(1i+2*z) elseif @Va=="19" z=z+z^2*(sin(z)+2)/(1i-2*sin(z)) elseif @Va=="20" z=z+z^2*(tanh(z)+1.115)/(1i-1.115*tanh(z)) elseif @Va=="21" z=z+((z^3+3*(-2.5-1i)*z+(-2.5-1i)*(-2.5-2i))/(3*z^2+3*(-2.5-2i)*z+(-2.5-1i)*(-2.5-2i)+1))^2 elseif @Va=="22" z=cotanh(z)+((z^3+3*(-1-1i)*z+(-1-1i)*(-1-2i))/(3*z^2+3*(-1-2i)*z+(-1-1i)*(-1-2i)+1))^2 elseif @Va=="23" z=cotan(z)+((z^3+3*(-8.5-1i)*z+(-8.5-1i)*(-8.5-2i))/(3*z^2+3*(-8.5-2i)*z+(-8.5-1i)*(-8.5-2i)+1))^2 elseif @Va=="24" z=sin(z)+((z^3+3*(6.3-1i)*z+(6.3-1i)*(6.3-2i))/(3*z^2+3*(6.3-2i)*z+(6.3-1i)*(6.3-2i)+1))^2 elseif @Va=="25" z=z+((sqr(z)+12-1i)/(2*z+12-2i))^2 elseif @Va=="26" z=sqr(z)+((sqr(z)+1.1773-1i)/(2*z+1.1773-2i))^2 elseif @Va=="27" z=recip(z)+((sqr(z)-1.66-1i)/(2*z-1.66-2i))^2 elseif @Va=="28" z=tanh(z)+((sqr(z)-1.66-1i)/(2*z-1.66-2i))^2 elseif @Va=="29" z=cos(z)+((sqr(z)+0.553-1i)/(2*z+0.553-2i))^2 elseif @Va=="30" z=sin(z)+((sqr(z)-5.3-1i)/(2*z-5.3-2i))^2 endif z=p1*z^2+p2 z=(z-real(z)+abs(real(z)))^2+fn3(p3) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Thryghifid" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="Pixel""Munster Mod""Cayley""Magnet""Magnet Mod" endparam param p4 caption="Start Param" default=(1,0) visible=@S!="Pixel" endparam param p1 caption="Thryghifid Param 1" default=(1,0) endparam param p2 caption="Thryghifid Param 2" default=(0,0) endparam param p3 caption="Thryghifid Param 3" default=(-1.2,0) endparam param lp1 caption="Loop Param 1" default=(1,0) endparam param lp2 caption="Loop Param 2" default=(0,0) endparam param Va caption="Mod" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30" endparam func fn1 caption="Start Func" default=ident() endfunc func fn2 caption="Loop Func" default=ident() endfunc func fn3 caption="C Func" default=ident() endfunc param p6 caption="Möbius 1" default=(0,0) endparam param p10 caption="Möbius 2" default=(0,0) endparam param p8 caption="Quasi-Logistic" default=(0,0) endparam param bt caption="Bail Type" enum="Convergent""Divergent" endparam param bailcon caption="Bail" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bail" default=100.0 visible=@bt==1 endparam } Tamarap { init: z=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @Va=="None" z=z elseif @Va=="1" z=z+0.3*1i*exp(1i*z) elseif @Va=="2" z=z+0.3*1i*sqr(1i*z) elseif @Va=="3" z=z+0.3*1i*tanh(1i*z) elseif @Va=="4" z=z+1i*tanh(1i*z) elseif @Va=="5" z=z+2*1i*tanh(1i*z) elseif @Va=="6" z=z+0.3*1i*tan(1i*z) elseif @Va=="7" z=z+1i*tan(1i*z) elseif @Va=="8" z=z+2*1i*tan(1i*z) elseif @Va=="9" z=z+0.3*1i*cosh(1i*z) elseif @Va=="10" z=z+1i*cosh(1i*z) elseif @Va=="11" z=z+0.3*1i*sinh(1i*z) elseif @Va=="12" z=z+1i*sinh(1i*z) elseif @Va=="13" z=z+2*1i*sinh(1i*z) elseif @Va=="14" z=z+0.3*1i*sin(1i*z) elseif @Va=="15" z=z+1i*sin(1i*z) elseif @Va=="16" z=z+2*1i*sin(1i*z) elseif @Va=="17" z=z+0.3*1i/cosh(1i*z) elseif @Va=="18" z=z+0.3*1i/cos(1i*z) endif z=p1*(z^3-z/3+1i*z-p2)+p3*fn3(pixel) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Tamarap" center=(0.001,0.001) periodicity=0 func fn1 caption="Start Func" default=ident() endfunc param p1 caption="Tam Param 1" default=(1,0) endparam param p2 caption="Tam Param 2" default=(0,0) endparam param p3 caption="Tam Param 3" default=(1,0) endparam func fn3 caption="C Func" default=ident() endfunc param Va caption="Mod" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param p6 caption="Möbius 1" default=(0,0) endparam param p10 caption="Möbius 2" default=(0,0) endparam param p8 caption="Quasi-Logistic" default=(0,0) endparam func fn2 caption="Loop Func" default=ident() endfunc param p4 caption="Loop Param 1" default=(1,0) endparam param p5 caption="Loop Param 2" default=(0,0) endparam param bt caption="Bail Type" enum="Convergent""Divergent" default=1 endparam param bailcon caption="Bail" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bail" default=100.0 visible=@bt==1 endparam } ModifiedMagnet2 { init: z=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @Va=="None" z=z elseif @Va=="1" z=z-0.3*1i*exp(1i*z) elseif @Va=="2" z=z+0.3*1i*sqr(1i*z) elseif @Va=="3" z=z+0.3*1i*tanh(1i*z) elseif @Va=="4" z=z+1i*tanh(1i*z) elseif @Va=="5" z=z+2*1i*tanh(1i*z) elseif @Va=="6" z=z+0.3*1i*cotanh(1i*z) elseif @Va=="7" z=z+1i*tan(1i*z) elseif @Va=="8" z=z+2*1i*tan(1i*z) elseif @Va=="9" z=z+1i*cotanh(1i*z) elseif @Va=="10" z=z+1/sinh(1i*z) elseif @Va=="11" z=z+0.3*1i*sinh(1i*z) elseif @Va=="12" z=z-0.3*1i*tan(1i*z) elseif @Va=="13" z=z-0.3*1i*cosh(1i*z) elseif @Va=="14" z=z+0.3*1i*sin(1i*z) elseif @Va=="15" z=z-0.3*1i*cos(1i*z) elseif @Va=="16" z=z-0.3*1i*sinh(1i*z) elseif @Va=="17" z=z-0.3*1i*sin(1i*z) elseif @Va=="18" z=z-1/z elseif @Va=="19" z=z-2/z elseif @Va=="20" z=z+1/z elseif @Va=="21" z=z+2/z elseif @Va=="22" z=z+0.3/z elseif @Va=="23" z=z+2i/z elseif @Va=="24" z=z+0.3i/z elseif @Va=="25" z=z-1i/z elseif @Va=="26" z=z-2i/z elseif @Va=="27" z=z+1i/cotanh(z) elseif @Va=="28" z=z-0.3i/cotanh(z) elseif @Va=="29" z=z-1i/cotanh(z) elseif @Va=="30" z=z-0.3i/cotan(z) elseif @Va=="31" z=z+0.3i/tanh(z) elseif @Va=="32" z=z-1i/tanh(z) elseif @Va=="33" z=z-0.3i/cosh(z) elseif @Va=="34" z=z-1i/cos(z) elseif @Va=="35" z=z-1i/sinh(z) elseif @Va=="36" z=z+0.3i/sin(z) elseif @Va=="37" z=z+2i/sqr(1i*z) elseif @Va=="38" z=z+3i/sqr(1i*z) elseif @Va=="39" z=z+5i/sqr(1i*z) elseif @Va=="40" z=z-0.3i/cosh(1i*z) elseif @Va=="41" z=z-2i/cos(1i*z) elseif @Va=="42" z=z+0.3i/sinh(1i*z) elseif @Va=="43" z=z+1i/sin(1i*z) elseif @Va=="44" z=z-1/exp(1i*z) elseif @Va=="45" z=z-0.3/cotanh(1i*z) elseif @Va=="46" z=z+1/tan(1i*z) elseif @Va=="47" z=z-1/cos(1i*z) endif z=((z^2+p1-1i)/(2*z+p2-2i))^2+fn3(p3) bailout: |z|<@baildiv && |z-zold|>@bailcon default: title="Modified Magnet 2" center=(0.001,0.001) periodicity=0 magn=0.25 func fn1 caption="Start Func" default=ident() endfunc param p1 caption="Magmod Param 1" default=(1,0) endparam param p2 caption="Magmod Param 2" default=(0,0) endparam param p3 caption="Magmod Param 3" default=(0,0) endparam func fn3 caption="C Func" default=ident() endfunc param Va caption="Mod" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47" endparam param p6 caption="Möbius 1" default=(0,0) endparam param p10 caption="Möbius 2" default=(0,0) endparam param p8 caption="Quasi-Logistic" default=(0,0) endparam func fn2 caption="Loop Func" default=ident() endfunc param p4 caption="Loop Param 1" default=(1,0) endparam param p5 caption="Loop Param 2" default=(0,0) endparam param baildiv caption="Div Bail" default=100.0 endparam param bailcon caption="Conv Bail" default=0.00000001 endparam } ModifiedNewton2 { init: if @S=="1" z=pixel elseif @S=="2" z=pixel+1i*exp(1i*pixel) elseif @S=="3" z=pixel+2i*exp(1i*pixel) elseif @S=="4" z=pixel+3i*exp(1i*pixel) elseif @S=="5" z=pixel+0.3i*sqr(1i*pixel) elseif @S=="6" z=pixel-0.3i*sqr(1i*pixel) elseif @S=="7" z=pixel+1i*sqr(1i*pixel) elseif @S=="8" z=pixel-1i*sqr(1i*pixel) elseif @S=="9" z=pixel+1i*cotanh(1i*pixel) elseif @S=="10" z=pixel+2i*cotanh(1i*pixel) elseif @S=="11" z=pixel+3i*cotanh(1i*pixel) elseif @S=="12" z=pixel-1i*cotanh(1i*pixel) elseif @S=="13" z=pixel-2i*cotanh(1i*pixel) elseif @S=="14" z=pixel-1i*cotan(1i*pixel) elseif @S=="15" z=pixel-2i*cotan(1i*pixel) elseif @S=="16" z=pixel+1i*cotan(1i*pixel) elseif @S=="17" z=pixel+2i*cotan(1i*pixel) elseif @S=="18" z=pixel-2i*tanh(1i*pixel) elseif @S=="19" z=pixel-1i*tanh(1i*pixel) elseif @S=="20" z=pixel+1i*tanh(1i*pixel) elseif @S=="21" z=pixel+2i*tanh(1i*pixel) elseif @S=="22" z=pixel+3i*tanh(1i*pixel) elseif @S=="23" z=pixel+4i*tanh(1i*pixel) elseif @S=="24" z=pixel+5i*tanh(1i*pixel) elseif @S=="25" z=pixel-2i*tan(1i*pixel) elseif @S=="26" z=pixel-1i*tan(1i*pixel) elseif @S=="27" z=pixel+1i*tan(1i*pixel) elseif @S=="28" z=pixel+2i*tan(1i*pixel) elseif @S=="29" z=pixel+3i*tan(1i*pixel) elseif @S=="30" z=pixel-3i*cosh(1i*pixel) elseif @S=="31" z=pixel-1i*cosh(1i*pixel) elseif @S=="32" z=pixel+1i*cosh(1i*pixel) elseif @S=="33" z=pixel+2i*cosh(1i*pixel) elseif @S=="34" z=pixel+3i*cosh(1i*pixel) elseif @S=="35" z=pixel+1i*cos(1i*pixel) elseif @S=="36" z=pixel+2i*cos(1i*pixel) elseif @S=="37" z=pixel+3i*cos(1i*pixel) elseif @S=="38" z=pixel-1i*cos(1i*pixel) elseif @S=="39" z=pixel-2i*cos(1i*pixel) elseif @S=="40" z=pixel-3i*cos(1i*pixel) elseif @S=="41" z=pixel-1i*sinh(1i*pixel) elseif @S=="42" z=pixel-2i*sinh(1i*pixel) elseif @S=="43" z=pixel+1i*sinh(1i*pixel) elseif @S=="44" z=pixel+2i*sinh(1i*pixel) elseif @S=="45" z=pixel+3i*sinh(1i*pixel) elseif @S=="46" z=pixel+4i*sinh(1i*pixel) elseif @S=="47" z=pixel-1i*sin(1i*pixel) elseif @S=="48" z=pixel+1i*sin(1i*pixel) elseif @S=="49" z=pixel+2i*sin(1i*pixel) elseif @S=="50" z=pixel+3i*sin(1i*pixel) elseif @S=="51" z=pixel+4i*sin(1i*pixel) endif z=fn1(z) loop: zold=z z=p4*fn2(recip(z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @Va=="None" z=z elseif @Va=="1" z=z+1/z elseif @Va=="2" z=z+1i/exp(1i*z) elseif @Va=="3" z=z+4i/cotanh(1i*z) elseif @Va=="4" z=z+2.11i/cotan(1i*z) elseif @Va=="5" z=z+1i/tanh(1i*z) elseif @Va=="6" z=z-1i/tan(1i*z) elseif @Va=="7" z=z+0.151i/cosh(1i*z) elseif @Va=="8" z=z+0.151i/cos(1i*z) elseif @Va=="9" z=z+0.31i/sqr(1i/z) elseif @Va=="10" z=z-1i*sinh(1i*z) elseif @Va=="11" z=z+3.51i*sin(1i*z) elseif @Va=="12" z=z+0.3/sqr(z) elseif @Va=="13" z=z+1/cotanh(z) elseif @Va=="14" z=z+0.3/cotanh(z) elseif @Va=="15" z=z+0.3*exp(z) elseif @Va=="16" z=z+0.3*sqr(z) elseif @Va=="17" z=z-2.6*tan(z) endif z=z+0.3*1i*sqr(1i*z) z=z-p1*(z^3-1i)/(3i*z^2)+p2 bailout: |z-zold|>@bail default: title="Modified Newton 2" center=(0.001,0.001) periodicity=0 magn=0.5 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Newmod Parameter 1" default=(1,0) endparam param p2 caption="Newmod Parameter 2" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17" endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=0.00000001 endparam } ModifiedHalleyJ { init: z=fn1(pixel) a=z^4-1i a1=4*z^3 a2=12*z^2 z=z-p3*2i*a*a1/(2i*a1^2-a*a2)+@p7 loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) f=z^4-1i f1=4*z^3 f2=12*z^2 z=z-p1*2i*f*f1/(2i*f1^2-f*f2)+fn3(p2) bailout: |z-zold|>@bail default: title="Modified Halley J" center=(0.001,0.001) periodicity=0 func fn1 caption="Start Function" default=ident() endfunc param p3 caption="Start Parameter 1" default=(0,0) endparam param @p7 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="Halleymod Parameter 1" default=(1,0) endparam param p2 caption="Halleymod Parameter 2" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.00000001 endparam } ModifiedHalleyM { init: z=fn1(pixel) a=z^4-1i a1=4*z^3 a2=12*z^2 z=z-p3*2i*a*a1/(2i*a1^2-a*a2)+@p7 loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z*(1-@p8*z) if @V=="M2" f=z^4-1i else f=z^4-p2*fn3(pixel) endif f1=4*z^3 f2=12*z^2 if @V=="M2" z=z-p1*2i*f*f1/(2i*f1^2-f*f2)+p2*fn3(pixel) else z=z-p1*2i*f*f1/(2i*f1^2-f*f2) endif bailout: |z-zold|>@bail default: title="Modified Halley M" center=(0.001,0.001) periodicity=0 param V caption="Variant" enum="M1""M2" endparam func fn1 caption="Start Function" default=ident() endfunc param p3 caption="Start Parameter 1" default=(0,0) endparam param @p7 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="Halleymod Parameter 1" default=(1,0) endparam param p2 caption="Halleymod Parameter 2" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Quasi-Logistic Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=0.00000001 endparam } JeenyJ { init: a=(0,0) b=(0,0) z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=z-0.3*exp(z) elseif @S=="3" z=z-0.55*exp(z) elseif @S=="4" z=z-sqr(z) elseif @S=="5" z=z+sqr(z) elseif @S=="6" z=z-0.3*cotanh(z) elseif @S=="7" z=z+0.3*cotanh(z) elseif @S=="8" z=z-0.3*tan(z) elseif @S=="9" z=z-tan(z) elseif @S=="10" z=z-2*tan(z) elseif @S=="11" z=z-0.55*sin(z) elseif @S=="12" z=z+0.85*cosh(z) elseif @S=="13" z=z-0.55*sinh(z) elseif @S=="14" z=z+1.5i*sinh(1i*z) elseif @S=="15" z=z+0.3i*exp(1i*z) elseif @S=="16" z=z+1i*exp(1i*z) elseif @S=="17" z=z-1i*sqr(1i*z) elseif @S=="18" z=z+2i*tan(1i*z) elseif @S=="19" z=z+1.5i*tan(1i*z) elseif @S=="20" z=z+1i*tan(1i*z) elseif @S=="21" z=z+0.3i*tan(1i*z) elseif @S=="22" z=z+1.5i*tanh(1i*z) elseif @S=="23" z=z+1.5i*cosh(1i*z) elseif @S=="24" z=z+1i*cosh(1i*z) elseif @S=="25" z=z+1i*cos(1i*z) elseif @S=="26" z=0.3*z*(1i-sin(z)) elseif @S=="27" z=z*(1i+sqr(z)) elseif @S=="28" z=z*(1i-sqr(z)) elseif @S=="29" z=z*(1i-cotan(z)) elseif @S=="30" z=z*(1i-0.5*tanh(z)) elseif @S=="31" z=z*(1i+0.5*tanh(z)) elseif @S=="32" z=z*(1i+tan(z)) elseif @S=="33" z=z*(1i+0.9*cos(z)) elseif @S=="34" z=z*(1i-0.9*cos(z)) elseif @S=="35" z=z*(1i+sinh(z)) elseif @S=="36" z=0.3*z*(1i-exp(z)) elseif @S=="37" z=-0.3*z*(1i-exp(z)) elseif @S=="38" z=z*(1i-exp(z)) elseif @S=="39" z=-z*(1i-exp(z)) elseif @S=="40" z=0.3*z*(1i-sqr(z)) elseif @S=="41" z=z*(1i-sqr(z)) elseif @S=="42" z=0.3*z*(1i-cotan(z)) elseif @S=="43" z=-0.3*z*(1i-cotan(z)) elseif @S=="44" z=0.3*z*(1i-tanh(z)) elseif @S=="45" z=-0.3*z*(1i-tanh(z)) elseif @S=="46" z=0.3*z*(1i-cosh(z)) elseif @S=="47" z=0.3*z*(1i-cos(z)) elseif @S=="48" z=0.3*z*(1i-sinh(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)>imag(z) z=flip(z) endif elseif @Va=="2" z=z+0.75/exp(z) elseif @Va=="3" z=z-0.75/cotanh(z) elseif @Va=="4" z=z-0.3*exp(z) elseif @Va=="5" z=z+0.3*cosh(z) elseif @Va=="6" z=z-1.25*sin(z) elseif @Va=="7" z=z+0.3i/cos(z) elseif @Va=="8" z=z-0.3i*exp(z) elseif @Va=="9" z=z+1i*sqr(z) elseif @Va=="10" z=z-0.3i*cosh(z) elseif @Va=="11" z=z+0.3i*cosh(z) elseif @Va=="12" z=z+0.75i*cosh(z) elseif @Va=="13" z=z-0.3i*sinh(z) elseif @Va=="14" z=z^2*(cos(z)-2.75)/(1-2.75*cos(z)) elseif @Va=="15" z=z^2*(cos(z)-1.5)/(1-1.5*cos(z)) elseif @Va=="16" z=z^2*(cosh(z)-0.55)/(1-0.55*cosh(z)) elseif @Va=="17" z=z^2*(cotanh(z)-0.3)/(1-0.3*cotanh(z)) elseif @Va=="18" z=z^2*(tanh(z)-3.5)/(1i-3.5*tanh(z)) elseif @Va=="19" z=z^2*(tanh(z)+1.3)/(1i+1.3*tanh(z)) elseif @Va=="20" z=z^2*(cosh(z)+0.3)/(1i+0.3*cosh(z)) elseif @Va=="21" z=z^2*(cosh(z)-1.4)/(1i-1.4*cosh(z)) elseif @Va=="22" z=z^2*(sin(z)-3.8)/(1i-3.8*sin(z)) elseif @Va=="23" z=z^2*(sin(z)+2.5)/(1i+2.5*sin(z)) endif z=z*(1i-p1*z) b=z^2+1i+p2*a+fn3(p3) a=z z=b bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Jeeny J" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Jeeny Parameter 1" default=(1,0) endparam param p2 caption="Jeeny Parameter 2" default=(1,0) endparam param p3 caption="Jeeny Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } JeenyM { init: a=(0,0) b=(0,0) z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=z-0.3*exp(z) elseif @S=="3" z=z-0.55*exp(z) elseif @S=="4" z=z-sqr(z) elseif @S=="5" z=z+sqr(z) elseif @S=="6" z=z-0.3*cotanh(z) elseif @S=="7" z=z+0.3*cotanh(z) elseif @S=="8" z=z-0.3*tan(z) elseif @S=="9" z=z-tan(z) elseif @S=="10" z=z-2*tan(z) elseif @S=="11" z=z-0.55*sin(z) elseif @S=="12" z=z+0.85*cosh(z) elseif @S=="13" z=z-0.55*sinh(z) elseif @S=="14" z=z+1.5i*sinh(1i*z) elseif @S=="15" z=z+0.3i*exp(1i*z) elseif @S=="16" z=z+1i*exp(1i*z) elseif @S=="17" z=z-1i*sqr(1i*z) elseif @S=="18" z=z+2i*tan(1i*z) elseif @S=="19" z=z+1.5i*tan(1i*z) elseif @S=="20" z=z+1i*tan(1i*z) elseif @S=="21" z=z+0.3i*tan(1i*z) elseif @S=="22" z=z+1.5i*tanh(1i*z) elseif @S=="23" z=z+1.5i*cosh(1i*z) elseif @S=="24" z=z+1i*cosh(1i*z) elseif @S=="25" z=z+1i*cos(1i*z) elseif @S=="26" z=0.3*z*(1i-sin(z)) elseif @S=="27" z=z*(1i+sqr(z)) elseif @S=="28" z=z*(1i-sqr(z)) elseif @S=="29" z=z*(1i-cotan(z)) elseif @S=="30" z=z*(1i-0.5*tanh(z)) elseif @S=="31" z=z*(1i+0.5*tanh(z)) elseif @S=="32" z=z*(1i+tan(z)) elseif @S=="33" z=z*(1i+0.9*cos(z)) elseif @S=="34" z=z*(1i-0.9*cos(z)) elseif @S=="35" z=z*(1i+sinh(z)) elseif @S=="36" z=0.3*z*(1i-exp(z)) elseif @S=="37" z=-0.3*z*(1i-exp(z)) elseif @S=="38" z=z*(1i-exp(z)) elseif @S=="39" z=-z*(1i-exp(z)) elseif @S=="40" z=0.3*z*(1i-sqr(z)) elseif @S=="41" z=z*(1i-sqr(z)) elseif @S=="42" z=0.3*z*(1i-cotan(z)) elseif @S=="43" z=-0.3*z*(1i-cotan(z)) elseif @S=="44" z=0.3*z*(1i-tanh(z)) elseif @S=="45" z=-0.3*z*(1i-tanh(z)) elseif @S=="46" z=0.3*z*(1i-cosh(z)) elseif @S=="47" z=0.3*z*(1i-cos(z)) elseif @S=="48" z=0.3*z*(1i-sinh(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z-0.3i*sqr(1i*z) elseif @Va=="2" z=z+0.75/exp(z) elseif @Va=="3" z=z-0.75/cotanh(z) elseif @Va=="4" z=z-0.3*exp(z) elseif @Va=="5" z=((sqr(z)^2+16-1i)/(2*sqr(z)+16-2i)) elseif @Va=="6" z=z-1.25*sin(z) elseif @Va=="7" z=((exp(z)^2+4.5)/(2*exp(z)+3.5)) elseif @Va=="8" z=((cos(z)^2-10)/(2*cos(z)-11)) elseif @Va=="9" z=((cosh(z)^2+27)/(2*cosh(z)+26))^2 elseif @Va=="10" z=((exp(z)^2+1-1i)/(2*exp(z)+1-2i))^2 elseif @Va=="11" z=((cos(z)^2-21-1i)/(2*cos(z)-21-2i))^2 elseif @Va=="12" z=z+0.75i*cosh(z) elseif @Va=="13" z=((cosh(z)^2+1-1i)/(2*cosh(z)+1-2i))^2 elseif @Va=="14" z=z^2*(cos(z)-2.75)/(1-2.75*cos(z)) elseif @Va=="15" z=z^2*(cos(z)-1.5)/(1-1.5*cos(z)) elseif @Va=="16" z=z^2*(cosh(z)-0.55)/(1-0.55*cosh(z)) elseif @Va=="17" z=((sinh(z)^2-29)/(2*sinh(z)-30))^2 elseif @Va=="18" z=z^2*(tanh(z)-3.5)/(1i-3.5*tanh(z)) elseif @Va=="19" z=z^2*(tanh(z)+1.3)/(1i+1.3*tanh(z)) elseif @Va=="20" z=z^2*(cosh(z)+0.3)/(1i+0.3*cosh(z)) elseif @Va=="21" z=z^2*(cosh(z)-1.4)/(1i-1.4*cosh(z)) elseif @Va=="22" z=z^2*(sin(z)-3.8)/(1i-3.8*sin(z)) elseif @Va=="23" z=z^2*(sin(z)+2.5)/(1i+2.5*sin(z)) elseif @Va=="24" z=((cos(z)^2+1-1i)/(2*cos(z)+1-2i)) elseif @Va=="25" z=((sin(z)^2-31-1i)/(2*sin(z)-31-2i))^2 elseif @Va=="26" z=((cosh(z)^2+21-1i)/(2*cosh(z)+21-2i))^2 elseif @Va=="27" z=((cos(z)^2+1-1i)/(2*cos(z)+1-2i))^2 elseif @Va=="28" z=((sqr(z)^2-2)/(2*sqr(z)-3))^2 elseif @Va=="29" z=((z^2-16)/(2*z-17))^2 elseif @Va=="30" z=((sin(z)^2+1-1i)/(2*sin(z)+1-2i)) elseif @Va=="31" z=((z^2-2)/(2*z-3)) elseif @Va=="32" z=((z^2-1-1i)/(2*z-1-2i)) elseif @Va=="33" z=z+0.3i*cos(1i*z) elseif @Va=="34" z=z+1i*tan(1i*z) elseif @Va=="35" z=((sqr(z)^2-1)/(2*sqr(z)-2)) elseif @Va=="36" z=((cos(z)^2+27)/(2*cos(z)+26))^2 elseif @Va=="37" z=((cosh(z)^2-29)/(2*cosh(z)-30))^2 elseif @Va=="38" z=((sqr(z)^2-1-1i)/(2*sqr(z)-1-2i))^2 elseif @Va=="39" z=((sinh(z)^2+31-1i)/(2*sinh(z)+31-2i))^2 elseif @Va=="40" z=((sin(z)^2-1-1i)/(2*sin(z)-1-2i))^2 elseif @Va=="41" z=((sin(z)^2+0.75)/(2*sin(z)-0.25))^2 elseif @Va=="42" z=((cosh(z)^2-1-1i)/(2*cosh(z)-1-2i)) elseif @Va=="43" z=z-(exp(z)-1i)/(exp(z)+1i) elseif @Va=="44" z=z+0.3i*sin(1i*z) elseif @Va=="45" z=((sin(z)^2+31-1i)/(2*sin(z)+31-2i))^2 elseif @Va=="46" z=((cosh(z)^2-21-1i)/(2*cosh(z)-21-2i))^2 elseif @Va=="47" z=((sqr(z)^2+1-1i)/(2*sqr(z)+1-2i))^2 elseif @Va=="48" z=((z^2+28)/(2*z+27))^2 elseif @Va=="49" z=((z^2)/(2*z-1))^2 elseif @Va=="50" z=((sinh(z)^2-1)/(2*sinh(z)-2)) elseif @Va=="51" z=((cosh(z)^2+8)/(2*cosh(z)+7)) elseif @Va=="52" z=((sinh(z)^2+1-1i)/(2*sinh(z)+1-2i)) elseif @Va=="53" z=((z^2+8-1i)/(2*z+8-2i)) elseif @Va=="54" z=z+1i*sinh(1i*z) elseif @Va=="55" z=z+1i*exp(1i*z) elseif @Va=="56" z=((z^2-13)/(2*z-14)) elseif @Va=="57" z=((z^2-1-1i)/(2*z-1-2i))^2 elseif @Va=="58" z=((cos(z)^2+21-1i)/(2*cos(z)+21-2i))^2 elseif @Va=="59" z=((sinh(z)^2+1-1i)/(2*sinh(z)+1-2i))^2 elseif @Va=="60" z=((sin(z)^2+1-1i)/(2*sin(z)+1-2i))^2 elseif @Va=="61" z=((z^2-2)/(2*z-3))^2 elseif @Va=="62" z=((recip(z)^2+0.75)/(2*recip(z)-0.25))^2 elseif @Va=="63" z=((z^2)/(2*z-1)) elseif @Va=="64" z=((z^2+1-1i)/(2*z+1-2i)) elseif @Va=="65" z=((z^2-8-1i)/(2*z-8-2i)) elseif @Va=="66" z=z+1i*tanh(1i*z) elseif @Va=="67" z=z+0.3i*sinh(1i*z) elseif @Va=="68" z=((z^2+11)/(2*z+10)) elseif @Va=="69" z=((sin(z)^2-1)/(2*sin(z)-2)) elseif @Va=="70" z=((sinh(z)^2+27)/(2*sinh(z)+26))^2 elseif @Va=="71" z=((cosh(z)^2-1-1i)/(2*cosh(z)-1-2i))^2 elseif @Va=="72" z=((sinh(z)^2-31-1i)/(2*sinh(z)-31-2i))^2 elseif @Va=="73" z=((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="74" z=((sqr(z)^2)/(2*sqr(z)-1))^2 elseif @Va=="75" z=((cosh(z)^2-0.3-1i)/(2*cosh(z)-0.3-2i)) elseif @Va=="76" z=z-0.3i/exp(1i*z) elseif @Va=="77" z=((sinh(z)^2-1-1i)/(2*sinh(z)-1-2i))^2 elseif @Va=="78" z=((cos(z)^2-1-1i)/(2*cos(z)-1-2i))^2 elseif @Va=="79" z=((sqr(z)^2+14-1i)/(2*sqr(z)+14-2i))^2 elseif @Va=="80" z=((sinh(z)^2-4.5)/(2*sinh(z)-5.5))^2 elseif @Va=="81" z=((cos(z)^2-29)/(2*cos(z)-30))^2 elseif @Va=="82" z=((sqr(z)^2+9-1i)/(2*sqr(z)+9-2i)) elseif @Va=="83" z=((sin(z)^2-1-1i)/(2*sin(z)-1-2i)) elseif @Va=="84" z=z+1i*sin(1i*z) elseif @Va=="85" z=((cosh(z)^2+1-1i)/(2*cosh(z)+1-2i)) elseif @Va=="86" z=((sqr(z)^2+0.25)/(2*sqr(z)-0.75)) elseif @Va=="87" z=((cosh(z)^2-10)/(2*cosh(z)-11)) elseif @Va=="88" z=z-0.3i*cosh(1i*z) elseif @Va=="89" z=z+1i*cos(1i*z) elseif @Va=="90" z=z-0.3*(z-1i)/(z+1i) elseif @Va=="91" z=((cos(z)^2-1-1i)/(2*cos(z)-1-2i)) endif z=z*(1i-p1*z) b=z^2+1i+p2*a+p3*fn3(pixel) a=z z=b bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Jeeny M" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Jeeny Parameter 1" default=(1,0) endparam param p2 caption="Jeeny Parameter 2" default=(1,0) endparam param p3 caption="Jeeny Parameter 3" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62""63""64""65""66""67""68""69""70"\ "71""72""73""74""75""76""77""78""79""80"\ "81""82""83""84""85""86""87""88""89""90"\ "91" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Gloggam { init: z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=0.3*z*(1i-sinh(z)) elseif @S=="3" z=z-0.55*exp(z) elseif @S=="4" z=z-sqr(z) elseif @S=="5" z=z+sqr(z) elseif @S=="6" z=z-0.3*cotanh(z) elseif @S=="7" z=z+0.3*cotanh(z) elseif @S=="8" z=z-0.3*tan(z) elseif @S=="9" z=z-tan(z) elseif @S=="10" z=z-2*tan(z) elseif @S=="11" z=z-0.55*sin(z) elseif @S=="12" z=z+0.85*cosh(z) elseif @S=="13" z=z-0.55*sinh(z) elseif @S=="14" z=z+1.5i*sinh(1i*z) elseif @S=="15" z=z+0.3i*exp(1i*z) elseif @S=="16" z=z+1i*exp(1i*z) elseif @S=="17" z=z-1i*sqr(1i*z) elseif @S=="18" z=z+2i*tan(1i*z) elseif @S=="19" z=z+1.5i*tan(1i*z) elseif @S=="20" z=z+1i*tan(1i*z) elseif @S=="21" z=z+0.3i*tan(1i*z) elseif @S=="22" z=z+1.5i*tanh(1i*z) elseif @S=="23" z=z+1.5i*cosh(1i*z) elseif @S=="24" z=z+1i*cosh(1i*z) elseif @S=="25" z=z+1i*cos(1i*z) elseif @S=="26" z=0.3*z*(1i-sin(z)) elseif @S=="27" z=z*(1i+sqr(z)) elseif @S=="28" z=z*(1i-sqr(z)) elseif @S=="29" z=z*(1i-cotan(z)) elseif @S=="30" z=z*(1i-0.5*tanh(z)) elseif @S=="31" z=z*(1i+0.5*tanh(z)) elseif @S=="32" z=z*(1i+tan(z)) elseif @S=="33" z=z*(1i+0.9*cos(z)) elseif @S=="34" z=z*(1i-0.9*cos(z)) elseif @S=="35" z=z*(1i+sinh(z)) elseif @S=="36" z=0.3*z*(1i-exp(z)) elseif @S=="37" z=-0.3*z*(1i-exp(z)) elseif @S=="38" z=z*(1i-exp(z)) elseif @S=="39" z=-z*(1i-exp(z)) elseif @S=="40" z=0.3*z*(1i-sqr(z)) elseif @S=="41" z=z*(1i-sqr(z)) elseif @S=="42" z=0.3*z*(1i-cotan(z)) elseif @S=="43" z=-0.3*z*(1i-cotan(z)) elseif @S=="44" z=0.3*z*(1i-tanh(z)) elseif @S=="45" z=-0.3*z*(1i-tanh(z)) elseif @S=="46" z=0.3*z*(1i-cosh(z)) elseif @S=="47" z=0.3*z*(1i-cos(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=((sqr(z)^2-1-1i)/(2*sqr(z)-1-2i))^2 elseif @Va=="2" z=z+0.75/exp(z) elseif @Va=="3" z=z-0.3*(exp(z)^3-1i)/(3*exp(z)^2) elseif @Va=="4" z=z-0.3*(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @Va=="5" z=z+0.3*cosh(z) elseif @Va=="6" z=z+((exp(z)^2+1-1i)/(2*exp(z)+1-2i))^2 elseif @Va=="7" z=z+0.3i/cos(z) elseif @Va=="8" z=z-0.3i*exp(z) elseif @Va=="9" z=z+1i*sqr(z) elseif @Va=="10" z=z-0.3i*cosh(z) elseif @Va=="11" z=z+0.3i*cosh(z) elseif @Va=="12" z=z+((cosh(z)^2-0.3-1i)/(2*cosh(z)-0.3-2i))^2 elseif @Va=="13" z=z-0.3i*sinh(z) elseif @Va=="14" z=z+(cosh(z)^2-0.3-1i)/(2*cosh(z)-0.3-2i) elseif @Va=="15" z=z-(cosh(z)^3-1i)/(3*cosh(z)^2) elseif @Va=="16" z=z^2*(cosh(z)-0.55)/(1-0.55*cosh(z)) elseif @Va=="17" z=z^2*(cotanh(z)-0.3)/(1-0.3*cotanh(z)) elseif @Va=="18" z=z+(sqr(z)^2+5-1i)/(2*sqr(z)+5-2i) elseif @Va=="19" z=z^2*(tanh(z)+1.3)/(1i+1.3*tanh(z)) elseif @Va=="20" z=z+(cos(z)^2+1-1i)/(2*cos(z)+1-2i) elseif @Va=="21" z=z+((cosh(z)^2+1-1i)/(2*cosh(z)+1-2i))^2 elseif @Va=="22" z=((sqr(z)^2-0.3-1i)/(2*sqr(z)-0.3-2i)) elseif @Va=="23" z=((sqr(z)^2+1-1i)/(2*sqr(z)+1-2i))^2 elseif @Va=="24" z=z+(cosh(z)^2+1-1i)/(2*cosh(z)+1-2i) elseif @Va=="25" z=((sqr(z)^2+0.3-1i)/(2*sqr(z)+0.3-2i)) elseif @Va=="26" z=z+((cos(z)^2+1-1i)/(2*cos(z)+1-2i))^2 elseif @Va=="27" z=z-0.3*(cos(z)^3-1i)/(3*cos(z)^2) elseif @Va=="28" z=z+(exp(z)^2+0.75-1i)/(2*exp(z)+0.75-2i) elseif @Va=="29" z=z+0.3*(exp(z)^3-1i)/(3*exp(z)^2) elseif @Va=="30" z=z+((exp(z)^2-0.3-1i)/(2*exp(z)-0.3-2i))^2 elseif @Va=="31" z=((z^2-1-1i)/(2*z-1-2i)) endif z=z*(1i-p3*z) z=((z^2+p1*fn3(pixel)-1i)/(2*z+p1*fn3(pixel)-2i))^2+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Gloggam" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Gloggam Parameter 1" default=(1,0) endparam param p2 caption="Gloggam Parameter 2" default=(0,0) endparam param p3 caption="Gloggam Parameter 3" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } BicayJ { init: z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=0.3*z*(1i-sinh(z)) elseif @S=="3" z=z-0.55*exp(z) elseif @S=="4" z=z-sqr(z) elseif @S=="5" z=z+sqr(z) elseif @S=="6" z=z-0.3*cotanh(z) elseif @S=="7" z=z+0.3*cotanh(z) elseif @S=="8" z=z-0.3*tan(z) elseif @S=="9" z=z-tan(z) elseif @S=="10" z=z-2*tan(z) elseif @S=="11" z=z-0.55*sin(z) elseif @S=="12" z=z+0.85*cosh(z) elseif @S=="13" z=z-0.55*sinh(z) elseif @S=="14" z=z+1.5i*sinh(1i*z) elseif @S=="15" z=z+0.3i*exp(1i*z) elseif @S=="16" z=z+1i*exp(1i*z) elseif @S=="17" z=z-1i*sqr(1i*z) elseif @S=="18" z=z+2i*tan(1i*z) elseif @S=="19" z=z+1.5i*tan(1i*z) elseif @S=="20" z=z+1i*tan(1i*z) elseif @S=="21" z=z+0.3i*tan(1i*z) elseif @S=="22" z=z+1.5i*tanh(1i*z) elseif @S=="23" z=z+1.5i*cosh(1i*z) elseif @S=="24" z=z+1i*cosh(1i*z) elseif @S=="25" z=z+1i*cos(1i*z) elseif @S=="26" z=0.3*z*(1i-sin(z)) elseif @S=="27" z=z*(1i+sqr(z)) elseif @S=="28" z=z*(1i-sqr(z)) elseif @S=="29" z=z*(1i-cotan(z)) elseif @S=="30" z=z*(1i-0.5*tanh(z)) elseif @S=="31" z=z*(1i+0.5*tanh(z)) elseif @S=="32" z=z*(1i+tan(z)) elseif @S=="33" z=z*(1i+0.9*cos(z)) elseif @S=="34" z=z*(1i-0.9*cos(z)) elseif @S=="35" z=z*(1i+sinh(z)) elseif @S=="36" z=0.3*z*(1i-exp(z)) elseif @S=="37" z=-0.3*z*(1i-exp(z)) elseif @S=="38" z=z*(1i-exp(z)) elseif @S=="39" z=-z*(1i-exp(z)) elseif @S=="40" z=0.3*z*(1i-sqr(z)) elseif @S=="41" z=z*(1i-sqr(z)) elseif @S=="42" z=0.3*z*(1i-cotan(z)) elseif @S=="43" z=-0.3*z*(1i-cotan(z)) elseif @S=="44" z=0.3*z*(1i-tanh(z)) elseif @S=="45" z=-0.3*z*(1i-tanh(z)) elseif @S=="46" z=0.3*z*(1i-cosh(z)) elseif @S=="47" z=0.3*z*(1i-cos(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z+3.3/z elseif @Va=="2" z=z-1.5i*sqr(1i*z) elseif @Va=="3" z=z+0.751i*tan(z) elseif @Va=="4" z=z-0.3*(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @Va=="5" z=z-0.75i*sqr(1i*z) elseif @Va=="6" z=z+0.75i*sqr(1i*z) elseif @Va=="7" z=3.5*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="8" z=z+2i*tan(1i*z) elseif @Va=="9" z=z+((z^2+8.5-1i)/(2*z+8.5-2i))^2 elseif @Va=="10" z=z+0.751i*tanh(z) elseif @Va=="11" z=z+(z-1i)/(z+1i) elseif @Va=="12" z=z-1i*tanh(z) elseif @Va=="13" z=z+(exp(z)-1i)/(exp(z)+1i) elseif @Va=="14" z=z+1.2i*cotanh(z) elseif @Va=="15" z=z^2*(cosh(z)-0.55)/(1-0.55*cosh(z)) elseif @Va=="16" z=z+10/sqr(z) elseif @Va=="17" z=z-0.25*(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="18" z=z+0.3/cosh(z) elseif @Va=="19" z=z+((cotanh(z)^2-3.85-1i)/(2*cotanh(z)-3.85-2i))^2 elseif @Va=="20" z=z-1/cosh(z) elseif @Va=="21" z=z-3*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="22" z=z-0.75*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="23" z=z-25/sqr(z) elseif @Va=="24" z=z+((tan(z)^2)/(2*tan(z)-1))^2 elseif @Va=="25" z=z+1/cosh(z) elseif @Va=="26" z=z-1.6/cosh(z) elseif @Va=="27" z=z-0.2*(cotanh(z)-1i)/(cotanh(z)+1i) elseif @Va=="28" z=z-1.75*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="29" z=z+7/cosh(z) elseif @Va=="30" z=z-10/sqr(z) elseif @Va=="31" z=z+((cotan(z)^2-5.4-1i)/(2*cotan(z)-5.4-2i))^2 elseif @Va=="32" z=z-0.65i*cotanh(z) elseif @Va=="33" z=z+((cos(z)^2-3.85-1i)/(2*cos(z)-3.85-2i))^2 elseif @Va=="34" z=z-0.5/cosh(z) elseif @Va=="35" z=z+((recip(z)^2-2.5-1i)/(2*recip(z)-2.5-2i))^2 elseif @Va=="36" z=z+1i*sqr(z) elseif @Va=="37" z=z+((tanh(z)^2)/(2*tanh(z)-1))^2 elseif @Va=="38" z=z+25/sqr(z) elseif @Va=="39" z=z-0.3*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="40" z=z+5/cosh(z) elseif @Va=="41" z=z-(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="42" z=z+((cotan(z)^2-3.8-1i)/(2*cotan(z)-3.8-2i))^2 elseif @Va=="43" z=z-1.5*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="44" z=z+((recip(z)^2+0.75)/(2*recip(z)-0.25))^2 elseif @Va=="45" z=z+0.7*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="46" z=z+1.5i*sqr(1i*z) elseif @Va=="47" z=z+0.3*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="48" z=z-1.3/cos(z) elseif @Va=="49" z=z+1.2*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="50" z=z+1.25*(sin(z)-1i)/(sin(z)+1i) elseif @Va=="51" z=z-1.32i*tanh(z) elseif @Va=="52" z=z-0.42*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="53" z=z+0.3/cos(z) elseif @Va=="54" z=z+0.5*(cotanh(z)-1i)/(cotanh(z)+1i) elseif @Va=="55" z=z+2/cosh(z) endif a=p1*(z-fn3(1i))/(z+fn3(1i)) b=p2*(z-1i)/(z+1i) z=(z-a)/(b-a)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bicay J" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Bicay Parameter 1" default=(-0.5,0) endparam param p2 caption="Bicay Parameter 2" default=(1,0) endparam param p3 caption="Bicay Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } BicayM { init: z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=0.3*z*(1i-sinh(z)) elseif @S=="3" z=z-0.55*exp(z) elseif @S=="4" z=z-sqr(z) elseif @S=="5" z=z+sqr(z) elseif @S=="6" z=z-0.3*cotanh(z) elseif @S=="7" z=z+0.3*cotanh(z) elseif @S=="8" z=z-0.3*tan(z) elseif @S=="9" z=z-tan(z) elseif @S=="10" z=z-2*tan(z) elseif @S=="11" z=z-0.55*sin(z) elseif @S=="12" z=z+0.85*cosh(z) elseif @S=="13" z=z-0.55*sinh(z) elseif @S=="14" z=z+1.5i*sinh(1i*z) elseif @S=="15" z=z+0.3i*exp(1i*z) elseif @S=="16" z=z+1i*exp(1i*z) elseif @S=="17" z=z-1i*sqr(1i*z) elseif @S=="18" z=z+2i*tan(1i*z) elseif @S=="19" z=z+1.5i*tan(1i*z) elseif @S=="20" z=z+1i*tan(1i*z) elseif @S=="21" z=z+0.3i*tan(1i*z) elseif @S=="22" z=z+1.5i*tanh(1i*z) elseif @S=="23" z=z+1.5i*cosh(1i*z) elseif @S=="24" z=z+1i*cosh(1i*z) elseif @S=="25" z=z+1i*cos(1i*z) elseif @S=="26" z=0.3*z*(1i-sin(z)) elseif @S=="27" z=z*(1i+sqr(z)) elseif @S=="28" z=z*(1i-sqr(z)) elseif @S=="29" z=z*(1i-cotan(z)) elseif @S=="30" z=z*(1i-0.5*tanh(z)) elseif @S=="31" z=z*(1i+0.5*tanh(z)) elseif @S=="32" z=z*(1i+tan(z)) elseif @S=="33" z=z*(1i+0.9*cos(z)) elseif @S=="34" z=z*(1i-0.9*cos(z)) elseif @S=="35" z=z*(1i+sinh(z)) elseif @S=="36" z=0.3*z*(1i-exp(z)) elseif @S=="37" z=-0.3*z*(1i-exp(z)) elseif @S=="38" z=z*(1i-exp(z)) elseif @S=="39" z=-z*(1i-exp(z)) elseif @S=="40" z=0.3*z*(1i-sqr(z)) elseif @S=="41" z=z*(1i-sqr(z)) elseif @S=="42" z=0.3*z*(1i-cotan(z)) elseif @S=="43" z=-0.3*z*(1i-cotan(z)) elseif @S=="44" z=0.3*z*(1i-tanh(z)) elseif @S=="45" z=-0.3*z*(1i-tanh(z)) elseif @S=="46" z=0.3*z*(1i-cosh(z)) elseif @S=="47" z=0.3*z*(1i-cos(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z+z^2*(z-2)/(1-2*z) elseif @Va=="2" z=z-1i*sqr(z) elseif @Va=="3" z=z-(z-1i)/(z+1i) elseif @Va=="4" z=z+3.25*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="5" z=z+z^2*(sqr(z)-0.5)/(1-0.5*sqr(z)) elseif @Va=="6" z=z+2*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="7" z=((sqr(z)^2-5-1i)/(2*sqr(z)-5-2i))^2 elseif @Va=="8" z=z+z^2*(z+0.3)/(1+0.3*z) elseif @Va=="9" z=z+1i*sqr(z) elseif @Va=="10" z=z-0.3*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="11" z=z+(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="12" z=z+((tan(z)^2-1-1i)/(2*tan(z)-1-2i))^2 elseif @Va=="13" z=z+z^2*(sin(z)-2)/(1-2*sin(z)) elseif @Va=="14" z=z+z^2*(recip(z)-0.5)/(1-0.5*recip(z)) elseif @Va=="15" z=z-2*(recip(z)-1i)/(recip(z)+1i) elseif @Va=="16" z=z+((z^2-2-1i)/(2*z-2-2i))^2 elseif @Va=="17" z=z+(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="18" z=z+2*(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="19" z=z+((recip(z)^2+1-1i)/(2*recip(z)+1-2i))^2 elseif @Va=="20" z=z+z^2*(z+2)/(1+2*z) elseif @Va=="21" z=z+(exp(z)-1i)/(exp(z)+1i) elseif @Va=="22" z=z+((z^2-4-1i)/(2*z-4-2i))^2 elseif @Va=="23" z=z+z^2*(recip(z)-2)/(1-2*recip(z)) elseif @Va=="24" z=z-3*(recip(z)-1i)/(recip(z)+1i) elseif @Va=="25" z=z+0.3*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="26" z=z+(recip(z)-1i)/(recip(z)+1i) elseif @Va=="27" z=((sqr(z)^2-10-1i)/(2*sqr(z)-10-2i))^2 elseif @Va=="28" z=z+0.3*(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="29" z=z+((sqr(z)^2+1-1i)/(2*sqr(z)+1-2i))^2 elseif @Va=="30" z=z+(cos(z)-1i)/(cos(z)+1i) elseif @Va=="31" z=z+z^2*(tanh(z)-0.5)/(1-0.5*tanh(z)) elseif @Va=="32" z=z+((sqr(z)^2-0.3-1i)/(2*sqr(z)-0.3-2i))^2 elseif @Va=="33" z=z+z^2*(sinh(z)+2)/(1+2*sinh(z)) elseif @Va=="34" z=z+(z-1i)/(z+1i) elseif @Va=="35" z=z-2*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="36" z=z+0.35*(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="37" z=z+((sqr(z)^2+10-1i)/(2*sqr(z)+10-2i))^2 elseif @Va=="38" z=z^2*(cosh(z)-0.55)/(1-0.55*cosh(z)) elseif @Va=="39" z=z+((z^2-6-1i)/(2*z-6-2i))^2 elseif @Va=="40" z=z+z^2*(sin(z)+2)/(1+2*sin(z)) elseif @Va=="41" z=((sqr(z)^2+5-1i)/(2*sqr(z)+5-2i))^2 elseif @Va=="42" z=z-(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="43" z=z+((recip(z)^2-1-1i)/(2*recip(z)-1-2i))^2 elseif @Va=="44" z=z+2*(recip(z)-1i)/(recip(z)+1i) elseif @Va=="45" z=z+((sqr(z)^2+100-1i)/(2*sqr(z)+100-2i))^2 elseif @Va=="46" z=z+((z^2-8-1i)/(2*z-8-2i))^2 elseif @Va=="47" z=z+z^2*(tanh(z)+0.3)/(1+0.3*tanh(z)) elseif @Va=="48" z=((sqr(z)^2+10-1i)/(2*sqr(z)+10-2i))^2 elseif @Va=="49" z=z+z^2*(z-0.3)/(1-0.3*z) elseif @Va=="50" z=z+((sqr(z)^2-100-1i)/(2*sqr(z)-100-2i))^2 elseif @Va=="51" z=z+z^2*(sqr(z)+0.3)/(1+0.3*sqr(z)) elseif @Va=="52" z=z+((z^2-3-1i)/(2*z-3-2i))^2 endif a=p1*(z-1i*fn3(pixel))/(z+1i*fn3(pixel)) b=p2*(z-1i)/(z+1i) z=(z-a)/(b-a)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bicay M" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Bicay Parameter 1" default=(-0.5,0) endparam param p2 caption="Bicay Parameter 2" default=(1,0) endparam param p3 caption="Bicay Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } DoubleLogisticJulia { init: z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=z+1i*exp(1i*z) elseif @S=="3" z=z+1i*sqr(1i*z) elseif @S=="4" z=z+((z^2-1-1i)/(2*z-1-2i))^2 elseif @S=="5" z=z+((sqr(z)^2-1-1i)/(2*sqr(z)-1-2i))^2 elseif @S=="6" z=z+((cos(z)^2-1-1i)/(2*cos(z)-1-2i))^2 elseif @S=="7" z=z+0.3i*cabs(1i*z) elseif @S=="8" z=z+0.3i*abs(1i*z) elseif @S=="9" z=z+((sinh(z)^2+1-1i)/(2*sinh(z)+1-2i))^2 elseif @S=="10" z=z+((tan(z)^2+1-1i)/(2*tan(z)+1-2i))^2 elseif @S=="11" z=z+0.3i*tan(1i*z) elseif @S=="12" z=z+((cotan(z)^2+1-1i)/(2*cotan(z)+1-2i))^2 elseif @S=="13" z=z+((sqr(z)^2+1-1i)/(2*sqr(z)+1-2i))^2 elseif @S=="14" z=z+((exp(z)^2-1i)/(2*exp(z)-2i))^2 elseif @S=="15" z=z-0.3i*abs(1i*z) elseif @S=="16" z=z+2i*tanh(1i*z) elseif @S=="17" z=z+0.3*1i*flip(1i*z) elseif @S=="18" z=z+z^2*(sqr(z)+1)/(1i+sqr(z)) elseif @S=="19" z=(z-1i)/(z+1i) elseif @S=="20" z=(exp(z)-1i)/(exp(z)+1i) elseif @S=="21" z=z-(z^3-1i)/(3*z^2) elseif @S=="22" z=z-(exp(z)^3-1i)/(3*exp(z)^2) elseif @S=="23" z=(cotan(z)-1i)/(cotan(z)+1i) elseif @S=="24" z=(cos(z)-1i)/(cos(z)+1i) elseif @S=="25" z=(sin(z)-1i)/(sin(z)+1i) elseif @S=="26" z=0.3*(sin(z)-1i)/(sin(z)+1i) elseif @S=="27" z=z+z^2*(z-1)/(1i-z) elseif @S=="28" z=z+z^2*(cos(z)-1)/(1i-cos(z)) elseif @S=="29" z=z+z^2*(cos(z)+1)/(1i+cos(z)) elseif @S=="30" z=z+z^2*(cosh(z)+1)/(1i+cosh(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @va=="1" z=z^2*(z-7.5)/(1-7.5*z) elseif @va=="2" z=z+((sqr(z)^2-11-1i)/(2*sqr(z)-11-2i))^2 elseif @va=="3" z=z^2*(sinh(z)-7.5)/(1-7.5*sinh(z)) elseif @va=="4" z=z+z^2*(cos(z)-0.5)/(1-0.5*cos(z)) elseif @va=="5" z=((flip(z)^2-6.55-1i)/(2*flip(z)-6.55-2i))^2 elseif @va=="6" z=z+conj(1/(flip(z)-1.662))+1.662 elseif @va=="7" z=z+conj(1/(flip(z)-1))+1 elseif @va=="8" z=z+((sqr(z)^2-4-1i)/(2*sqr(z)-4-2i))^2 elseif @va=="9" z=((z^2-4.75-1i)/(2*z-4.75-2i))^2 elseif @va=="10" z=z+z^2*(cosh(z)-2)/(1-2*cosh(z)) elseif @va=="11" z=((z^2+0.33)/(2*z-0.67))^2 elseif @va=="12" z=z^2*(tan(z)-7.5)/(1-7.5*tan(z)) elseif @va=="13" z=((flip(z)^2+0.33)/(2*flip(z)-0.67))^2 elseif @va=="14" z=((z^2-4.1-1i)/(2*z-4.1-2i))^2 endif z=fn3(p1)*z*(1-z) z=fn3(p2)*z*(1-z) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Double Logistic Julia" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Logistic Parameter 1" default=(1,0) endparam param p2 caption="Logistic Parameter 2" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } ModifiedDoubleLogisticJulia { init: z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=z+((cosh(z)^2-1-1i)/(2*cosh(z)-1-2i))^2 elseif @S=="3" z=0.3*(recip(z)-1i)/(recip(z)+1i) elseif @S=="4" z=z+1i*exp(1i*z) elseif @S=="5" z=z+1i*cosh(1i*z) elseif @S=="6" z=-((1+flip(z))/(1-flip(z)))^2 elseif @S=="7" z=z-((1+cotan(z))/(1-cotan(z)))^2 elseif @S=="8" z=z+((sqr(z)^2-1-1i)/(2*sqr(z)-1-2i))^2 elseif @S=="9" z=z+0.3*1i*tanh(1i*z) elseif @S=="10" z=((1+cotan(z))/(1-cotan(z)))^2 elseif @S=="11" z=-0.15*(cos(z)-1i)/(cos(z)+1i) elseif @S=="12" z=z+((z^2-1i)/(2*z-2i))^2 elseif @S=="13" z=z+((cosh(z)^2+1-1i)/(2*cosh(z)+1-2i))^2 elseif @S=="14" z=z-0.585*(sinh(z)-1i)/(sinh(z)+1i) elseif @S=="15" z=z+0.3*((1+sqr(z))/(1-sqr(z)))^2 elseif @S=="16" z=z+((z^2+12-1i)/(2*z+12-2i))^2 elseif @S=="17" z=z-0.67*(cosh(z)-1i)/(cosh(z)+1i) elseif @S=="18" z=z+((cos(z)^2+1-1i)/(2*cos(z)+1-2i))^2 elseif @S=="19" z=z+0.3*1i*exp(1i*z) elseif @S=="20" z=-0.5*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="21" z=z-0.3*1i*cotan(1i*z) elseif @S=="22" z=-((1+cotan(z))/(1-cotan(z)))^2 elseif @S=="23" z=z-0.3*((1+sqr(z))/(1-sqr(z)))^2 elseif @S=="24" z=0.3*(z-1i)/(z+1i) elseif @S=="25" z=z+((z^2+1-1i)/(2*z+1-2i))^2 elseif @S=="26" z=z-((1+z)/(1-z))^2 elseif @S=="27" z=z-0.42*(cos(z)-1i)/(cos(z)+1i) elseif @S=="28" z=0.3*((1+sqr(z))/(1-sqr(z)))^2 elseif @S=="29" z=((1+flip(z))/(1-flip(z)))^2 elseif @S=="30" z=(recip(z)-1i)/(recip(z)+1i) elseif @S=="31" z=z-0.75*(exp(z)-1i)/(exp(z)+1i) elseif @S=="32" z=z+((sqr(z)^2+1-1i)/(2*sqr(z)+1-2i))^2 elseif @S=="33" z=-0.3*(exp(z)-1i)/(exp(z)+1i) elseif @S=="34" z=z+((tan(z)^2+1-1i)/(2*tan(z)+1-2i))^2 elseif @S=="35" z=z-1.25*(cosh(z)-1i)/(cosh(z)+1i) elseif @S=="36" z=-0.3*((1+sqr(z))/(1-sqr(z)))^2 elseif @S=="37" z=-0.25*(cotan(z)-1i)/(cotan(z)+1i) elseif @S=="38" z=z-1i*sqr(1i*z) elseif @S=="39" z=-0.3*(z-1i)/(z+1i) elseif @S=="40" z=z-((1+cotanh(z))/(1-cotanh(z)))^2 elseif @S=="41" z=1.1*(cos(z)-1i)/(cos(z)+1i) elseif @S=="42" z=-0.4*(cos(z)-1i)/(cos(z)+1i) elseif @S=="43" z=0.75*(tanh(z)-1i)/(tanh(z)+1i) elseif @S=="44" z=0.42*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="45" z=z+((exp(z)^2+1-1i)/(2*exp(z)+1-2i))^2 elseif @S=="46" z=-0.65*(exp(z)-1i)/(exp(z)+1i) elseif @S=="47" z=z+((exp(z)^2-0.65-1i)/(2*exp(z)-0.65-2i))^2 elseif @S=="48" z=-0.3*(recip(z)-1i)/(recip(z)+1i) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @va=="1" z=z-(z^3-1i)/(3*z^2) elseif @va=="2" z=z-3*(sin(z)^3-1i)/(3*sin(z)^2) elseif @va=="3" z=z+z^2*(recip(z)+1.32)/(1+1.32*recip(z)) elseif @va=="4" z=z+z^2*(cotanh(z)+1.45)/(1+1.45*cotanh(z)) elseif @va=="5" z=z+z^2*(sin(z)+0.7)/(1+0.7*sin(z)) elseif @va=="6" z=z+1i*cos(0.25*z) elseif @va=="7" z=2.2248021i*((1+z)/(1-z))^2 elseif @va=="8" z=1.7855*((1+z)/(1-z))^2 elseif @va=="9" z=z-0.45/z elseif @va=="10" z=z-2.27/cotanh(z) elseif @va=="11" if |z|<1 z=z/|z| endif z=-0.67*z elseif @va=="12" if |z|<1 z=z/|z| endif z=-0.67*conj(z) elseif @va=="13" if |z|<1 z=z/|z| endif z=-0.25*sqr(z) elseif @va=="14" if |z|>1 z=z/|z| endif z=-0.615*cotan(z) elseif @va=="15" if |z|>1 z=z/|z| endif z=-0.615*recip(z) elseif @va=="16" if real(z)imag(z) z=flip(z) endif z=0.5659*conj(z) elseif @va=="21" if real(z)>imag(z) z=flip(z) endif z=sqr(z) endif z=p1*z*(1i-z)+fn3(p2) z=p2*z*(1-z)-fn3(p1) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Modified Double Logistic Julia" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Modolo Parameter 1" default=(1,0) endparam param p2 caption="Modolo Parameter 2" default=(-0.3,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20""21" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Strato { init: z=fn1(pixel) if @S=="1" z=(sinh(z)-1)^2/(1-10*z) elseif @S=="2" z=(z-1)^2/(1-10*z) elseif @S=="3" z=(tanh(z)-1)^2/(1-10*z) elseif @S=="4" z=(cosh(z)-1)^2/(1-10*cos(z)) elseif @S=="5" z=(tan(z)-1)^2/(1-10*sqr(z)) elseif @S=="6" z=(tan(z)-1)^2/(1-10*cotanh(z)) elseif @S=="7" z=(z-1)^2/(1-10*cosh(z)) elseif @S=="8" z=(cosh(z)-1)^2/(1-10*z) elseif @S=="9" z=(cos(z)-1)^2/(1-10*sqr(z)) elseif @S=="10" z=(z-1)^2/(1-10*sinh(z)) elseif @S=="11" z=(cos(z)-1)^2/(1-10*cotanh(z)) elseif @S=="12" z=(sin(z)-1)^2/(1-10*z) elseif @S=="13" z=(sqr(z)-1)^2/(1-10*cotan(z)) elseif @S=="14" z=(z-1)^2/(1-10*tanh(z)) elseif @S=="15" z=(sqr(z)-1)^2/(1-10*sqr(z)) elseif @S=="16" z=(sin(z)-1)^2/(1-10*cotanh(z)) elseif @S=="17" z=(z-1)^2/(1-10*tan(z)) elseif @S=="18" z=(sin(z)-1)^2/(1-10*sqr(z)) elseif @S=="19" z=(z-1)^2/(1-10*cos(z)) elseif @S=="20" z=(tan(z)-1)^2/(1-10*z) elseif @S=="21" z=(recip(z)-1)^2/(1-10*recip(z)) elseif @S=="22" z=(z-1)^2/(1-10*sin(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) if @Va=="None" z=z elseif @va=="1" z=z^2*(z-7.5)/(1-7.5*z) elseif @va=="2" z=z^3 elseif @va=="3" z=z-0.6*(z-1i)/(z+1i) elseif @va=="4" z=z^2*(exp(z)-2)/(1-2*exp(z)) elseif @va=="5" z=z^2*(sinh(z)+2)/(1+2*sinh(z)) elseif @va=="6" z=z-0.33*(sqr(z)-1i)/(sqr(z)+1i) elseif @va=="7" z=z^2*(sinh(z)-2)/(1-2*sinh(z)) elseif @va=="8" z=1.9*(sqr(z)-1i)/(sqr(z)+1i) elseif @va=="9" z=z+2.55*1i*tan(1i*z) elseif @va=="10" z=z+1i/sin(16*1i*z) elseif @va=="11" z=z+0.3*1i*recip(1i*z) elseif @va=="12" z=z+1/(32*z) elseif @va=="13" z=z+1i/cotan(1.75*1i*z) elseif @va=="14" z=z+0.3*1i*tan(1i*z) elseif @va=="15" z=z+((z^2-1i)/(2*z-2i))^2 elseif @va=="16" z=z+((z^2+3.75-1i)/(2*z+3.75-2i))^2 elseif @va=="17" z=z+((exp(z)^2+0.5-1i)/(2*exp(z)+0.5-2i))^2 elseif @va=="18" z=z+((sqr(z)^2-1i)/(2*sqr(z)-2i))^2 elseif @va=="19" z=0.5*(z+1/z) elseif @va=="20" z=-0.4*(z+1/z) elseif @va=="21" z=0.8*(z-2)/(1-2*z) elseif @va=="22" z=-0.23359*(z-2)/(1-2*z) endif z=z+p1*sqr(z) z=exp(p2)*(z-1)^2/(1+fn3(p3)*z) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Strato" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Strato Parameter 1" default=(1,0) endparam param p2 caption="Strato Parameter 2" default=(0,0) endparam param p3 caption="Strato Parameter 3" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Firnee { init: a=(0,0) b=(0,0) z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=-(cos(z)-1i)/(cos(z)+1i) elseif @S=="3" z=recip(sqr(z)+1/z) elseif @S=="4" z=((cosh(z)^2-1i)/(2*cosh(z)-2i))^2 elseif @S=="5" z=0.65*((recip(z)^2-1i)/(2*recip(z)-2i))^2 elseif @S=="6" z=((exp(z)^2+0.5)/(2*exp(z)-0.5))^2 elseif @S=="7" z=-0.1*(cotanh(z)-1i)/(cotanh(z)+1i) elseif @S=="8" z=0.36*(sinh(z)-1i)/(sinh(z)+1i) elseif @S=="9" z=1.45*((sin(z)^2-1i)/(2*sin(z)-2i))^2 elseif @S=="10" z=-0.1*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="11" z=0.56*(recip(z)-1i)/(recip(z)+1i) elseif @S=="12" z=-0.3*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="13" z=-(recip(z)-1i)/(recip(z)+1i) elseif @S=="14" z=-0.75*((tanh(z)^2-1i)/(2*tanh(z)-2i))^2 elseif @S=="15" z=-(z-1i)/(z+1i) elseif @S=="16" z=z^2-0.3*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="17" z=((cos(z)^2-0.185)/(2*cos(z)-1.185))^2 elseif @S=="18" z=z^2-(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="19" z=((z^2+0.5)/(2*z-0.5))^2 elseif @S=="20" z=z+1i*cos(1i*z) elseif @S=="21" z=0.65*((sqr(z)^2-1i)/(2*sqr(z)-2i))^2 elseif @S=="22" z=0.56*(exp(z)-1i)/(exp(z)+1i) elseif @S=="23" z=((cos(z)^2+0.5)/(2*cos(z)-0.5))^2 elseif @S=="24" z=z*(1i+0.5*tanh(z)) elseif @S=="25" z=-0.75*((sinh(z)^2-1i)/(2*sinh(z)-2i))^2 elseif @S=="26" z=z-0.3*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="27" z=z*(1i-0.9*cos(z)) elseif @S=="28" z=((z^2-2.5)/(2*z-3.5))^2 elseif @S=="29" z=z-(cos(z)-1i)/(cos(z)+1i) elseif @S=="30" z=(z-1i)/(z+1i) elseif @S=="31" z=-0.75*((tan(z)^2-1i)/(2*tan(z)-2i))^2 elseif @S=="32" z=-(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="33" z=sqr(sqr(z)+1/z) elseif @S=="34" z=((z^2-1i)/(2*z-2i))^2 elseif @S=="35" z=0.6*(z-1i)/(z+1i) elseif @S=="36" z=0.1*(sqr(z)-1i)/(sqr(z)+1i) elseif @S=="37" z=0.1*(cotanh(z)-1i)/(cotanh(z)+1i) elseif @S=="38" z=-0.3*((sqr(z)^2-1i)/(2*sqr(z)-2i))^2 endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z+0.75/exp(z) elseif @Va=="2" z=-7*((conj(z)^2-1i)/(2*conj(z)-2i))^2 elseif @Va=="3" z=((sqr(z)^2+308)/(2*sqr(z)+307))^2 elseif @Va=="4" z=z^2*(cosh(z)-20)/(1-20*cosh(z)) elseif @Va=="5" z=((conj(z)^2-0.7)/(2*conj(z)-1.7))^2 elseif @Va=="6" z=((cos(z)^2-50.0465)/(2*cos(z)-51.0465))^2 elseif @Va=="7" z=((exp(z)^2+43)/(2*exp(z)+42))^2 elseif @Va=="8" z=((cosh(z)^2+25.69509)/(2*cosh(z)+24.69509))^2 elseif @Va=="9" z=((sqr(z)^2-46)/(2*sqr(z)-47))^2 elseif @Va=="10" z=z^2*(recip(z)-2)/(1-2*recip(z)) elseif @Va=="11" z=((cos(z)^2-40.786)/(2*cos(z)-41.786))^2 elseif @Va=="12" z=((exp(z)^2+28)/(2*exp(z)+27))^2 elseif @Va=="13" z=((flip(z)^2-1.15)/(2*flip(z)-2.15))^2 elseif @Va=="14" z=z^2*(z+1.5)/(1+1.5*z) elseif @Va=="15" z=((cosh(z)^2-7.7106)/(2*cosh(z)-8.7106))^2 elseif @Va=="16" z=z^2*(abs(z)+1.3)/(1+1.3*abs(z)) elseif @Va=="17" z=((sqr(z)^2-61)/(2*sqr(z)-62))^2 elseif @Va=="18" z=((z^2-1.75)/(2*z-2.75))^2 elseif @Va=="19" z=((sqr(z)^2+217)/(2*sqr(z)+216))^2 elseif @Va=="20" z=((cos(z)^2+37)/(2*cos(z)+36))^2 elseif @Va=="21" z=((exp(z)^2+49.33)/(2*exp(z)+48.33))^2 elseif @Va=="22" z=((sqr(z)^2+129)/(2*sqr(z)+128))^2 elseif @Va=="23" z=-0.82*z*(1-exp(z)) elseif @Va=="24" z=-2.66*z*(1-cosh(z)) elseif @Va=="25" z=1.885*z*(1-recip(z)) elseif @Va=="26" z=z+1.08*z*(1-cosh(z)) elseif @Va=="27" z=-0.5*z*(1i-1/z) elseif @Va=="28" z=1.33*z*(1i-1/z) elseif @Va=="29" z=1.06*z*(1i-cotanh(z)) endif a=-0.5*(z-1i)/(z+1i) b=(a-1i)/(a+1i) z=p1*(z-a)/(b-a)+fn3(p2) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Firnee" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Firnee Parameter 1" default=(1,0) endparam param p2 caption="Firnee Parameter 2" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Glida { init: a=(0,0) b=(0,0) z=fn1(pixel) if @S=="1" z=z elseif @S=="2" z=-0.3*z*(1i-tanh(z)) elseif @S=="3" z=z-(cotanh(z)^3-1i)/(3*cotanh(z)) elseif @S=="4" z=z-2.9*(cosh(z)^3-1i)/(3*cosh(z)) elseif @S=="5" z=z+((cosh(z)^2-1i)/(2*cosh(z)-2i))^2 elseif @S=="6" z=z-0.3*cotanh(z) elseif @S=="7" z=z+0.3*cotanh(z) elseif @S=="8" z=z-0.3*tan(z) elseif @S=="9" z=z+z*(1-tanh(z)) elseif @S=="10" z=z+((tanh(z)^2-2-1i)/(2*tanh(z)-2-2i))^2 elseif @S=="11" z=z+0.8*(z^3-1i)/(3*z) elseif @S=="12" z=z+((recip(z)^2-1i)/(2*recip(z)-2i))^2 elseif @S=="13" z=z+((cotanh(z)^2-3.4-1i)/(2*cotanh(z)-3.4-2i))^2 elseif @S=="14" z=((recip(z)^2-4.2-1i)/(2*recip(z)-4.2-2i))^2 elseif @S=="15" z=z+0.3i*exp(1i*z) elseif @S=="16" z=z+1i*exp(1i*z) elseif @S=="17" z=z-1i*sqr(1i*z) elseif @S=="18" z=z-(tanh(z)^3-1i)/(3*tanh(z)) elseif @S=="19" z=z+((exp(z)^2-1i)/(2*exp(z)-2i))^2 elseif @S=="20" z=z-(sqr(z)^3-1i)/(3*sqr(z)) elseif @S=="21" z=z+z*(1-sin(z)) elseif @S=="22" z=z-(cos(z)^3-1i)/(3*cos(z)) elseif @S=="23" z=z+1.5i*cosh(1i*z) elseif @S=="24" z=z+1i*cosh(1i*z) elseif @S=="25" z=z+1i*cos(1i*z) elseif @S=="26" z=z+((z^2-1i)/(2*z-2i))^2 elseif @S=="27" z=z*(1i+sqr(z)) elseif @S=="28" z=z+((sqr(z)^2-1i)/(2*sqr(z)-2i))^2 elseif @S=="29" z=z+((cotan(z)^2-3.4-1i)/(2*cotan(z)-3.4-2i))^2 elseif @S=="30" z=z-(cotan(z)^3-1i)/(3*cotan(z)) elseif @S=="31" z=z-(recip(z)^3-1i)/(3*recip(z)) elseif @S=="32" z=z-(tan(z)^3-1i)/(3*tan(z)) elseif @S=="33" z=z*(1i+0.9*cos(z)) elseif @S=="34" z=z+((cos(z)^2-1i)/(2*cos(z)-2i))^2 elseif @S=="35" z=z+conj(1/(flip(z)-0.58))+0.58 elseif @S=="36" z=0.3*z*(1i-exp(z)) elseif @S=="37" z=-0.3*z*(1i-exp(z)) elseif @S=="38" z=z*(1i-exp(z)) elseif @S=="39" z=-z*(1i-exp(z)) elseif @S=="40" z=0.3*z*(1i-sqr(z)) elseif @S=="41" z=z+((tan(z)^2+1.8-1i)/(2*tan(z)+1.8-2i))^2 elseif @S=="42" z=0.3*z*(1i-cos(z)) elseif @S=="43" z=0.3*z*(1i-cosh(z)) elseif @S=="44" z=0.3*z*(1i-tanh(z)) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)>imag(z) z=flip(z) endif elseif @Va=="2" z=((cos(z)^2-3.744-1i)/(2*cos(z)-3.744-2i))^2 elseif @Va=="3" z=((conj(z)^2-1.47-1i)/(2*conj(z)-1.47-2i))^2 elseif @Va=="4" z=z-0.3*exp(z) elseif @Va=="5" z=((z^2-2.55-1i)/(2*z-2.55-2i))^2 elseif @Va=="6" z=z+0.53*(cos(z)-1i)/(cos(z)+1i) elseif @Va=="7" z=z+0.3i/cos(z) elseif @Va=="8" z=z-0.3i*exp(z) elseif @Va=="9" z=((flip(z)^2-1.135-1i)/(2*flip(z)-1.135-2i))^2 elseif @Va=="10" z=((cos(z)^2-6.39-1i)/(2*cos(z)-6.39-2i))^2 elseif @Va=="11" z=((conj(z)^2-4.943-1i)/(2*conj(z)-4.943-2i))^2 elseif @Va=="12" z=z^2*(tanh(z)-3.5)/(1i-3.5*tanh(z)) elseif @Va=="13" z=((flip(z)^2+6.845-1i)/(2*flip(z)+6.845-2i))^2 elseif @Va=="14" z=z-0.6*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="15" z=((abs(z)^2-1.098-1i)/(2*abs(z)-1.098-2i))^2 elseif @Va=="16" z=((flip(z)^2-5.6-1i)/(2*flip(z)-5.6-2i))^2 elseif @Va=="17" z=-0.84412*cotanh((z-1)/(z+1)) elseif @Va=="18" z=-1.56763*tanh((z-1)/(z+1)) elseif @Va=="19" z=-recip((z-1)/(z+1)) elseif @Va=="20" z=-((z-1)/(z+1)) elseif @Va=="21" z=0.975*sqr((z-1)/(z+1)) elseif @Va=="22" z=-0.76143*cotan((z-1)/(z+1)) elseif @Va=="23" z=-1.67*exp((z-1)/(z+1)) endif a=z*(1+z)/(p1+z^3) b=z*(1+z)/(p2+z^3) z=(z-a)/(b-a)+fn3(p3) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Glida" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Glida Parameter 1" default=(1,0) endparam param p2 caption="Glida Parameter 2" default=(-1,0) endparam param p3 caption="Glida Parameter 3" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Clufemol { init: z=fn1(pixel) if @S=="Pixel" z=(@sp+1)*z+@sp elseif @S=="Kali" x=real(z) y=imag(z) x=x/|z|+real(@sp) y=y/|z|+imag(@sp) z=x+flip(y) elseif @S=="Magnet" z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="Modified Magnet" z=((z^2+@sp-1i)/(2*z+@sp-2i))^2 elseif @S=="Newton 1" z=z+(@sp+1)*(z^3-1)/(3*z^2) elseif @S=="Newton 2" z=z+(@sp+1)*(z^4-1i)/(4*z^3) elseif @S=="Munster" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="Modified Munster" z=z^2*(z-@sp)/(1i-@sp*z) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=-0.69*exp((z-1)/(z+1)) elseif @Va=="2" z=exp((z^2+0.5)/(2*z-0.5))^2 elseif @Va=="3" z=sqr((z-1)/(z+1)) elseif @Va=="4" z=flip((z^2-6)/(2*z-7))^2 elseif @Va=="5" z=-0.335*cotan((z-1)/(z+1)) elseif @Va=="6" z=0.45*recip((z-1)/(z+1)) elseif @Va=="7" z=abs((z-1)/(z+1)) elseif @Va=="8" z=(conj(z)-1i)/(conj(z)+1i) elseif @Va=="9" z=(z-1)/(z+1) elseif @Va=="10" z=z-2*(sqr(z)^4-1)/(4*sqr(z)^3) elseif @Va=="11" z=z+4.75*(cotan(z)^4-1)/(4*cotan(z)^3) elseif @Va=="12" z=z+7*(recip(z)^4-1)/(4*recip(z)^3) elseif @Va=="13" z=0.67*exp((z-1)/(z+1)) elseif @Va=="14" z=flip((z^2-1.4)/(2*z-2.4))^2 elseif @Va=="15" z=0.4*cotan((z-1)/(z+1)) elseif @Va=="16" z=1.1845*sin((z-1)/(z+1)) elseif @Va=="17" z=((abs(z)^2-1.5)/(2*abs(z)-2.5))^2 elseif @Va=="18" z=((sqr(z)^2-1.12791)/(2*sqr(z)-2.12791))^2 elseif @Va=="19" z=(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="20" z=-(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="21" z=z-0.15*(recip(z)^4-1)/(4*recip(z)^3) elseif @Va=="22" z=z-9.5*(sqr(z)^4-1)/(4*sqr(z)^3) elseif @Va=="23" z=z+3*(cos(z)^4-1)/(4*cos(z)^3) elseif @Va=="24" z=z+0.5*(sqr(z)^4-1)/(4*sqr(z)^3) endif z=conj(1/(z-1))+1 z=exp(p2)*z^2*(z-p1)/(1-p1*z) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Clufemol" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="Pixel""Kali""Magnet""Modified Magnet""Newton 1""Newton 2""Munster""Modified Munster" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Clufemol Parameter 1" default=(2,0) endparam param p2 caption="Clufemol Parameter 2" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } ModifiedMunster2 { init: z=fn1(pixel) z=z+@sp*z^2*(z-2)/(1-2*tanh(z)) loop: zold=z z=p4*fn2((z))+p5 if @JM=="M" z=exp(p3)*z^2*(z-p1*fn3(pixel))/(1-p1*fn3(pixel)*tanh(z))+p2 else z=exp(p3)*z^2*(z-fn3(p1))/(1-fn3(p1)*tanh(z))+p2 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Modified Munster 2" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" default=1 endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Munster Parameter 1" default=(2,0) endparam param p2 caption="Munster Parameter 2" default=(0,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Joocu { init: z=fn1(pixel) z=z+@sp*z^2*(z-2)/(1-2*z) loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=0.75*abs((1+1i)*z/2) endif z=z-p1^2*z+p1*z^2*(sinh(p2)+cosh(p2)*p1)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Joocu" center=(0.001,0.001) periodicity=0 param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6" endparam param p1 caption="Joocu Parameter 1" default=(0.4,-0.47) endparam param p2 caption="Joocu Parameter 2" default=(1,0) endparam param p3 caption="Joocu Parameter 3" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Sporoi { init: z=fn1(pixel) z=z+@sp*z^2*(z-2)/(1-2*tanh(z)) loop: zold=z z=p4*fn2((z))+p5 z=z+@p8*sqr(z) z=(p1*(1-z^2)+2*z*p2*(1+z*p1*p2))/(1+z^2+2*z*p1*p2)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Sporoi" center=(0.001,0.001) periodicity=0 param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Sporoi Parameter 1" default=(1.7,-0.3) endparam param p2 caption="Sporoi Parameter 2" default=(-1,-0.5) endparam param p3 caption="Sporoi Parameter 3" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Inderlab { init: z=fn1(pixel) if @S=="1" z=@sp1*z+@sp2 elseif @S=="2" z=z+@sp1*((1+1i)*z/2)+@sp2 elseif @S=="3" z=z+@sp1*(1-(1-1i)*z/2)+@sp2 elseif @S=="4" z=z+@sp1*((1-1i)*z/2)+@sp2 elseif @S=="5" z=z+@sp1*(1-(1+1i)*z/2)+@sp2 elseif @S=="6" z=z+@sp1*(1+(1-1i)*z/2)+@sp2 elseif @S=="7" z=z+@sp1*(1+(1+1i)*z/2)+@sp2 endif loop: zold=z z=p4*fn2((z))+p5 z=z+@p8*sqr(z) z=(p1*fn3(pixel)+1i)*z^2/2 z=p3*(p2-(p1*fn3(pixel)-1i)*z^2/2) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Inderlab" center=(0.001,0.001) periodicity=0 angle=90 param S caption="Start Variant" enum="1""2""3""4""5""6""7" endparam param sp1 caption="Start Parameter 1" default=(1,0) endparam param sp2 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Inderlab Parameter 1" default=(1,0) endparam param p2 caption="Inderlab Parameter 2" default=(1,0) endparam param p3 caption="Inderlab Parameter 3" default=(1,0) endparam func fn3 caption="C Function" default=ident() endfunc param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Staslum { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-@p8)/(1-@p8*z) z=z/(@p9*z+1) z=z+@p10*sqr(z) z=z+@p11*(z-1i)/(z+1i) z=z+@p12/z if @JM=="J" z=((p1*(1-z^2)-2*z*p2*(1-p1*p2*z))/(1+z^2-2*p1*p2*z))^2+fn3(p3) elseif @JM=="M1" z=((p1*fn3(pixel)*(1-z^2)-2*z*p2*(1-p1*p2*z))/(1+z^2-2*p1*p2*z))^2+p3 elseif @JM=="M2" z=((p1*(1-z^2)-2*z*p2*fn3(pixel)*(1-p1*p2*z))/(1+z^2-2*p1*p2*z))^2+p3 elseif @JM=="M3" z=((p1*(1-z^2)-2*z*p2*fn3(pixel)*(1-p1*p2*fn3(pixel)*z))/(1+z^2-2*p1*p2*fn3(pixel)*z))^2+p3 elseif @JM=="M4" z=((p1*fn3(pixel)*(1-z^2)-2*z*p2*(1-p1*p2*fn3(pixel)*z))/(1+z^2-2*p1*p2*fn3(pixel)*z))^2+p3 elseif @JM=="M5" z=((p1*(1-z^2)-2*z*p2*fn3(pixel)*(1-p1*p2*fn3(pixel)*z))/(1+z^2-2*p1*p2*z))^2+p3 elseif @JM=="M6" z=((p1*fn3(pixel)*(1-z^2)-2*z*p2*(1-p1*p2*fn3(pixel)*z))/(1+z^2-2*p1*p2*z))^2+p3 elseif @JM=="M7" z=((p1*fn3(pixel)*(1-z^2)-2*z*p2*fn3(pixel)*(1-p1*p2*z))/(1+z^2-2*p1*p2*z))^2+p3 elseif @JM=="M8" z=((p1*fn3(pixel)*(1-z^2)-2*z*p2*(1-p1*p2*z))/(1+z^2-2*p1*p2*z))^2+(p3-1)*fn3(pixel) elseif @JM=="M9" z=((p1*(1-z^2)-2*z*p2*fn3(pixel)*(1-p1*p2*z))/(1+z^2-2*p1*p2*z))^2+(p3-1)*fn3(pixel) elseif @JM=="M10" z=((p1*(1-z^2)-2*z*p2*(1-p1*p2*fn3(pixel)*z))/(1+z^2-2*p1*p2*z))^2+(p3-1)*fn3(pixel) elseif @JM=="M11" z=((p1*(1-z^2)-2*z*p2*(1-p1*p2*z))/(1+z^2-2*p1*p2*fn3(pixel)*z))^2+(p3-1)*fn3(pixel) elseif @JM=="M12" z=((p1*(1-z^2)-2*z*p2*(1-p1*p2*fn3(pixel)*z))/(1+z^2-2*p1*p2*fn3(pixel)*z))^2+(p3-1)*fn3(pixel) endif z=p6*fn4(log(abs(z)))+@p7 endwhile z=z*51/50 bailout: |z|<@bail default: title="Staslum" center=(0.001,0.001) periodicity=0 maxiter=500 param JM caption="J/M" enum="J""M1""M2""M3""M4""M5""M6""M7"\ "M8""M9""M10""M11""M12" endparam param iter caption="Iterations" default=3 endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Staslum Parameter 1" default=(0.5,0) endparam param p2 caption="Staslum Parameter 2" default=(1,0) endparam param p3 caption="Staslum Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p8 caption="Möbius Parameter 1" default=(0,0) endparam param p9 caption="Möbius Parameter 2" default=(0,0) endparam param p10 caption="Add Sqr Parameter" default=(0,0) endparam param p11 caption="Add Cayley Parameter" default=(0,0) endparam param p12 caption="Add Recip Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Labs Parameter 1" default=(1,0) endparam param p7 caption="Labs Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=100.0 endparam } MunoneJ { init: z=fn1(pixel) z=z+@sp*z^2*(z-2)/(1-2*z) loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @M=="None" z=z elseif @M=="1" z=z+z^2*(exp(z)-1.4)/(1-1.4*exp(z)) elseif @M=="2" z=0.8*(tan(z)-0.3i)/(recip(z)+0.3i) elseif @M=="3" z=z-0.56292*(sqr(z)-3i)/(exp(z)+3i) elseif @M=="4" z=z+z^2*(sin(z)-0.9)/(1-0.9*sin(z)) elseif @M=="5" z=z+0.2i*exp(z) elseif @M=="6" z=z+0.7i*sqr(z) elseif @M=="7" z=z-0.6*(recip(z)-1.37i)/(z+1.37i) elseif @M=="8" z=z+0.8i*tanh(z) elseif @M=="9" z=0.55*(sqr(z)-1i)/(z+1i) elseif @M=="10" z=z+0.1i*tan(z) elseif @M=="11" z=z+0.75i*cos(z) elseif @M=="12" z=z-0.73*(sin(z)-1.35i)/(sin(z)+1.35i) elseif @M=="13" z=z+sqr(0.3i*z) elseif @M=="14" z=z+tanh(0.8168i*z) elseif @M=="15" if |z|<1 z=z/|z| endif elseif @M=="16" if |z|>1 z=z/|z| endif z=1.67i*sqr(z) elseif @M=="17" z=((sqr(z)^2-5.85-1i)/(2*z-5.85-2i))^2 elseif @M=="18" z=z+0.98*(sqr(z)-0.3i)/(cos(z)+0.3i) elseif @M=="19" z=((sqr(z)^2-10.25892)/(2*cosh(z)-11.25892))^2 elseif @M=="20" if |z|>1 z=z/|z| endif z=1.15*tan(z) elseif @M=="21" if |z|>1 z=z/|z| endif z=1.245*cos(z) elseif @M=="22" z=1.25*(sqr(z)+0.25i)/(cos(z)-0.25i) elseif @M=="23" if |z|>1 z=z/|z| endif z=z+0.2/z elseif @M=="24" if |z|>1 z=z/|z| endif z=z+0.325*sqr(z) elseif @M=="25" if real(z)1 z=z/|z| endif z=1.5*sinh(z) elseif @M=="49" z=((cos(z)^2-2.3275-1i)/(2*recip(z)-2.3275-2i))^2 elseif @M=="50" z=z+0.45*(sqr(z)-3i)/(sqr(z)+3i) elseif @M=="51" z=0.8*(z-0.385i)/(recip(z)+0.385i) elseif @M=="52" z=((sqr(z)^2-10.7137)/(2*sqr(z)-11.7137))^2 elseif @M=="53" z=z+0.85i*sin(z) elseif @M=="54" z=z+z^2*(cos(z)-1.2)/(1-1.2*cos(z)) elseif @M=="55" z=z+0.3i*cotanh(z) elseif @M=="56" z=-1.25*(sqr(z)+0.25i)/(cos(z)-0.25i) elseif @M=="57" z=0.7*(sqr(z)+0.25i)/(tan(z)-0.25i) elseif @M=="58" if real(z)@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munone J" center=(0.001,0.001) periodicity=0 magn=0.5 angle=270 param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param M caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62" endparam param p1 caption="Munone Parameter 1" default=(2,0) endparam param p2 caption="Munone Parameter 2" default=(3,0) endparam param p3 caption="Munone Parameter 3" default=(2.25,0) endparam func fn3 caption="C Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=10.0 visible=@bt==0 endparam } MunoneM { init: z=fn1(pixel) z=z+@sp*z^2*(z-2)/(1-2*z) loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @M=="None" z=z elseif @M=="1" z=z+0.1*1i*exp(z) elseif @M=="2" z=z+(exp(z)+0.3)/(1i+0.3*exp(z)) elseif @M=="3" z=z-(recip(z)^3-1i)/(3*recip(z)^2) elseif @M=="4" z=z-0.34858*(sin(z)^3-1i)/(3*sin(z)^2) elseif @M=="5" z=z-(z^3-cos(pixel))/(3*z^2) elseif @M=="6" z=z-0.67*(z^3-sinh(pixel))/(3*z^2) elseif @M=="7" z=z+0.1*1i*sinh(z) elseif @M=="8" z=z+0.5*(sqr(z)^3-pixel)/(3*sqr(z)^2) elseif @M=="9" z=z+0.1*1i*recip(z) elseif @M=="10" z=z-(cotan(z)^3-1i)/(3*cotan(z)^2) elseif @M=="11" z=0.85*z^2+sinh(pixel) elseif @M=="12" z=z-tan((z-1i)/(1-1i*z)) elseif @M=="13" z=z+(cosh(z)+0.3)/(1i+0.3*cosh(z)) elseif @M=="14" z=z-(cos(z)^3-1i)/(3*cos(z)^2) elseif @M=="15" z=2*z^2+sqr(pixel) elseif @M=="16" z=z-(z^3-recip(pixel))/(3*z^2) elseif @M=="17" z=z+0.3*(cosh(z)-1i)/(cosh(z)+1i) elseif @M=="18" z=z+0.1*1i*cos(z) elseif @M=="19" z=z+z^2+cosh(pixel) elseif @M=="20" z=z-0.67*(z^3-tanh(pixel))/(3*z^2) elseif @M=="21" z=z-0.7*(tanh(z)^3-1i)/(3*tanh(z)^2) elseif @M=="22" z=z-(z^3-cotan(pixel))/(3*z^2) elseif @M=="23" z=z-0.53941*(sinh(z)^3-pixel)/(3*sinh(z)^2) elseif @M=="24" z=z+0.1*1i*sqr(z) elseif @M=="25" z=z-(cotan(z)^3-pixel)/(3*cotan(z)^2) elseif @M=="26" z=z-(z^3-cotanh(pixel))/(3*z^2) elseif @M=="27" z=z-(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @M=="28" z=1.4*z^2+cosh(pixel) elseif @M=="29" z=1i*z^2+sqr(pixel) elseif @M=="30" z=z+z^2+sqr(pixel) elseif @M=="31" z=z+0.1*1i*sin(z) elseif @M=="32" z=0.5*z^2+recip(pixel) elseif @M=="33" z=z+sinh((z-1i)/(1-1i*z)) elseif @M=="34" z=z+0.6*(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @M=="35" z=(exp(z)-1i)/(exp(z)+1i) elseif @M=="36" z=z+(cotanh(z)+0.3)/(1i+0.3*cotanh(z)) elseif @M=="37" z=z+0.1*1i*cotan(z) elseif @M=="38" z=z-0.67*(z^3-tan(pixel))/(3*z^2) elseif @M=="39" z=z-0.7*(tan(z)^3-1i)/(3*tan(z)^2) elseif @M=="40" z=z-(z^3-exp(pixel))/(3*z^2) elseif @M=="41" z=0.5*z^2+exp(pixel) elseif @M=="42" z=z+0.3*(sinh(z)-1i)/(sinh(z)+1i) elseif @M=="43" z=z+(sinh(z)+0.3)/(1i+0.3*sinh(z)) elseif @M=="44" z=z-(cosh(z)^3-1i)/(3*cosh(z)^2) elseif @M=="45" z=z-0.25*(tan(z)^3-pixel)/(3*tan(z)^2) elseif @M=="46" z=z-(z^3-pixel)/(3*z^2) elseif @M=="47" z=z-0.67*(z^3-sin(pixel))/(3*z^2) elseif @M=="48" z=z+0.1*1i*cosh(z) elseif @M=="49" z=z-(z^3-cosh(pixel))/(3*z^2) elseif @M=="50" z=z-0.5*(z-1i)/(3*z^2) elseif @M=="51" z=z+(sqr(z)+0.3)/(1i+0.3*sqr(z)) elseif @M=="52" z=z+1i*z^2+sqr(pixel) elseif @M=="53" z=z+0.3*(z-1i)/(z+1i) elseif @M=="54" z=z-(z-1i)/(3*z^2) elseif @M=="55" z=z-0.41538*(sin(z)^3-pixel)/(3*sin(z)^2) elseif @M=="56" z=z+0.1*1i*cotanh(z) elseif @M=="57" z=z-(cos(z)^3-pixel)/(3*cos(z)^2) elseif @M=="58" z=z+(z-1i)/(1-1i*z) elseif @M=="59" z=z+z^2+exp(pixel) elseif @M=="60" z=0.5*z^2+tan(pixel) elseif @M=="61" z=0.6*z^2+pixel endif z=(z-p1)/(1-(p1*z/(p2*fn3(pixel)))^2)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munone M" center=(0.001,0.001) periodicity=0 magn=0.5 angle=270 param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param M caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61" endparam param p1 caption="Munone Parameter 1" default=(2,0) endparam param p2 caption="Munone Parameter 2" default=(3,0) endparam param p3 caption="Munone Parameter 3" default=(2.25,0) endparam func fn3 caption="C Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=10.0 visible=@bt==0 endparam } Jolmun { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=z-@sp*(z^3-1)/(3*z^2) elseif @S=="3" z=z-@sp*(z^3-1i)/(3*z^2) elseif @S=="4" z=z+@sp*z^2*(z-2)/(1-2*z) elseif @S=="5" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="6" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="7" z=@sp*(z-1i)/(z+1i) elseif @S=="8" z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="9" z=((z^2+@sp-1i)/(2*z+@sp-2i))^2 elseif @S=="10" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="11" z=z+((z^2+@sp-1i)/(2*z+@sp-2i))^2 elseif @S=="12" z=z-@sp*(z^4-1)/(4*z^3) elseif @S=="13" z=z-@sp*(z^4-1i)/(4*z^3) elseif @S=="14" z=z-@sp*(z^2-1)/(2*z) elseif @S=="15" z=z-@sp*(z^2-1i)/(2*z) elseif @S=="16" z=(z-@sp)/(z+@sp) elseif @S=="17" z=z+(z-@sp)/(z+@sp) elseif @S=="18" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="19" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="20" z=z+@sp*z^2*(z-2)/(1i-2*z) elseif @S=="21" z=@sp*z^2*(z-2)/(1-2*z) elseif @S=="22" z=@sp*z^2*(z-2)/(1i-2*z) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z z=exp(p1)*z^2*(fn3(p2)-z^2)/(1-conj(fn3(p2))*z^2)+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Jolmun" center=(0.001,0.001) periodicity=0 magn=0.5 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Jolmun Parameter 1" default=(0,0) endparam param p2 caption="Jolmun Parameter 2" default=(2,0) endparam param p3 caption="Jolmun Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } LabsTemorof { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="7" z=z+(@sp+1)*recip(z) elseif @S=="8" z=z+(@sp+1)*((z^2-1)/(2*z-2))^2 elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+(z-(@sp+1))/(z+(@sp+1)) elseif @S=="12" z=z+(@sp+1)*(z-1i)/(z+1i)/(z-1i) elseif @S=="13" z=z+(@sp-1)*(z-1)/(z+1)/(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif endif z=p1*(z-real(z)/cabs(real(z)))^2 z=p2*fn3(log(abs(z)))+p3*fn4(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs Temorof" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10""11""12""13" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5" endparam param iter caption="Iterations" default=3 endparam param p2 caption="Labs Parameter" default=(1,0) endparam param p1 caption="Temorof Parameter" default=1.0 endparam param p3 caption="C Parameter" default=(1,0) endparam func fn3 caption="Labs Function" default=ident() endfunc func fn4 caption="C Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsFlega { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=(@sp+1)*z*(1-z) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=(@sp+1)*z*(1-z) z=(@sp+1)*z*(1-z) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) elseif @S=="15" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="16" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif endif z=z^2*(z+p2)/(1+p2*z) z=2*z*(z^2+p1)/(z^2-p1)+p3 z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs Flega" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5" endparam param iter caption="Iterations" default=2 endparam param p1 caption="Flega Parameter 1" default=(1,0) endparam param p2 caption="Flega Parameter 2" default=(0.5,0) endparam param p3 caption="Flega Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter" default=(1,0) endparam param p11 caption="C Parameter" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsCayleyCubed { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=(@sp+1)*z*(1-z) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=(@sp+1)*z*(1-z) z=(@sp+1)*z*(1-z) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) elseif @S=="15" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="16" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif endif z=p1*((z-p2*1i)/(z+p2*1i))^3+p3 if @JM=="J" z=@p10*fn4(log(abs(z)))+fn3(@p11) else z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) endif endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs Cayley Cubed" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param JM enum="J""M" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2" endparam param iter caption="Iterations" default=3 endparam param p1 caption="Cayley Parameter 1" default=(1,0) endparam param p2 caption="Cayley Parameter 2" default=(1,0) endparam param p3 caption="Cayley Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter" default=(1,0) endparam param p11 caption="C Parameter" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsMagnetJ { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=(@sp+1)*z*(1-z) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=(@sp+1)*z*(1-z) z=(@sp+1)*z*(1-z) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) elseif @S=="15" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="16" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z-exp(z) elseif @Va=="7" z=z-sqr(z) elseif @Va=="8" z=z-cotanh(z) elseif @Va=="9" z=z-tanh(z) elseif @Va=="10" z=z-tan(z) elseif @Va=="11" z=z-cosh(z) elseif @Va=="12" z=z-cos(z) elseif @Va=="13" z=z-sinh(z) elseif @Va=="14" z=z-sin(z) elseif @Va=="15" z=z-cotan(z) elseif @Va=="16" z=z-1/sinh(z) elseif @Va=="17" z=z-1/cos(z) endif z=p2*((z^2+fn3(p1)-1)/(2*z+fn3(p1)-2))^2+p3 z=@p10*fn4(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs Magnet J " center=(0.001,0.001) periodicity=0 angle=90 magn=0.5 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17" endparam param iter caption="Iterations" default=3 endparam param p1 caption="Magnet Parameter 1" default=(1,0) endparam param p2 caption="Magnet Parameter 2" default=(1,0) endparam param p3 caption="Magnet Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsMagnetM { init: z=fn1(pixel) if @S=="1" z=(z^2-(@sp+1))/(z^2+(@sp+1)) elseif @S=="2" z=(z^2-(@sp+1)*1i)/(z^2+(@sp+1)*1i) elseif @S=="3" z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) elseif @S=="4" z=(z-(@sp+1))/(z+(@sp+1)) elseif @S=="5" z=z+((z^2+@sp-1i)/(2*z+@sp+2i))^2 elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp+2))^2 elseif @S=="7" z=((z^2+@sp-1i)/(2*z+@sp+2i))^2 elseif @S=="8" z=((z^2+@sp-1)/(2*z+@sp+2))^2 elseif @S=="9" z=z+(@sp+1)*sqr(z) elseif @S=="10" z=z+(@sp+1)/z elseif @S=="11" z=z+z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S=="12" z=z+z^2*(z-(@sp+0.5))/(1i-(@sp+0.5)*z) elseif @S=="13" z=z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S=="14" z=z^2*(z-(@sp+0.5))/(1i-(@sp+0.5)*z) elseif @S=="15" z=z+(@sp+1)*z*(1-z) elseif @S=="16" z=z+(@sp+1)*z*(1i-z) elseif @S=="17" z=(@sp+1)*z*(1-z) elseif @S=="18" z=(@sp+1)*z*(1i-z) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" z=z-exp(z) elseif @Va=="3" z=z-sqr(z) elseif @Va=="4" z=z+sqr(z) elseif @Va=="5" z=z-2*tanh(z) elseif @Va=="6" z=z-2*tan(z) elseif @Va=="7" z=z-cosh(z) elseif @Va=="8" z=z-cos(z) elseif @Va=="9" z=z-2*sinh(z) elseif @Va=="10" z=z-2*sin(z) elseif @Va=="11" z=z-1/cos(z) elseif @Va=="12" z=z-1/sin(z) endif z=p2*((z^2+p1*fn3(pixel)-1)/(2*z+p1*fn3(pixel)-2))^2+p3 z=@p10*fn4(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs Magnet M" center=(0.001,0.001) periodicity=0 angle=90 magn=0.5 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10""11""12" endparam param iter caption="Iterations" default=3 endparam param p1 caption="Magnet Parameter 1" default=(1,0) endparam param p2 caption="Magnet Parameter 2" default=(1,0) endparam param p3 caption="Magnet Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsMunster2J { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=(@sp+1)*z*(1-z) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=(@sp+1)*z*(1-z) z=(@sp+1)*z*(1-z) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) elseif @S=="15" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="16" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z+cotan(z) elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" z=z+0.3*sqr(z) elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif elseif @Va=="6" z=z+0.3i*sinh(z) elseif @Va=="7" z=z+0.3i*sqr(z) elseif @Va=="8" z=z-0.3i*cotanh(z) elseif @Va=="9" z=z-tanh(z) elseif @Va=="10" z=z-tan(z) elseif @Va=="11" z=z-0.3i*tanh(z) elseif @Va=="12" z=z-cos(z) elseif @Va=="13" z=z-sinh(z) elseif @Va=="14" z=z-sin(z) elseif @Va=="15" z=z-0.3i/exp(z) elseif @Va=="16" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=((z^2-0.8)/(2*z-1.8))^2 elseif @Va=="7" z=z+0.3i*sqr(z) elseif @Va=="8" z=conj((z-0.8i)/(z+0.8i)) elseif @Va=="9" z=z+exp((z^2-0.82-1i)/(2*z-0.82-2i))^2 elseif @Va=="10" z=z+z^2*recip((z-1.2)/(1i-1.2*z)) elseif @Va=="11" z=z-1.83075*(sinh(z)^3-1i)/(3*sinh(z)^2) elseif @Va=="12" z=z-cos(z) elseif @Va=="13" z=z-sinh(z) elseif @Va=="14" z=z-sin(z) elseif @Va=="15" z=conj((z^2-1.5)/(2*z-2.5))^2 elseif @Va=="16" z=z-1.5*(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="17" z=abs((z-1.5i)/(z+1.5i)) elseif @Va=="18" z=z^2*exp((z-0.425)/(1-0.425*z)) elseif @Va=="19" z=z+z^2*cotan((z-0.3)/(1i-0.3*z)) elseif @Va=="20" z=z^2*tanh((z+5.3)/(1+5.3*z)) elseif @Va=="21" z=z^2*exp((z-1.5)/(1-1.5*z)) elseif @Va=="22" z=tan((z+0.65i)/(z-0.65i)) elseif @Va=="23" z=flip((z-0.5i)/(z+0.5i)) elseif @Va=="24" z=conj((z-1i)/(z+1i)) elseif @Va=="25" z=z+cotan((z^2+1.58-1i)/(2*z+1.58-2i))^2 elseif @Va=="26" z=z-4*(tan(z)^3-1i)/(3*tan(z)^2) elseif @Va=="27" z=flip((z^2-0.85)/(2*z-1.85))^2 elseif @Va=="28" z=z+sinh((z^2-1-1i)/(2*z-1-2i))^2 elseif @Va=="29" z=abs((z-1i)/(z+1i)) elseif @Va=="30" z=abs((z^2-0.35)/(2*z-1.35))^2 elseif @Va=="31" z=sin((z+0.825i)/(z-0.825i)) elseif @Va=="32" z=z+((z^2-0.2-1i)/(2*z-0.2-2i))^2 elseif @Va=="33" z=abs((z-0.5i)/(z+0.5i)) elseif @Va=="34" z=z-1i*sin(z) elseif @Va=="35" z=z-2.15762*(z^3-1i)/(3*z^2) elseif @Va=="36" z=z+z^2*cotan((z-1)/(1i-z)) elseif @Va=="37" z=z-1.83075*(sin(z)^3-1i)/(3*sin(z)^2) elseif @Va=="38" z=z+z^2*cosh((z-0.8)/(1i-0.8*z)) elseif @Va=="39" z=((z^2+1.6)/(2*z+0.6))^4 elseif @Va=="40" z=z-(recip(z)^3-1i)/(3*recip(z)^2) elseif @Va=="41" z=z-1.5*(tan(z)^3-1i)/(3*tan(z)^2) endif a=(1-z^2)*(fn3(p1)/2-z^2/(2*fn3(p1)))-(fn3(p1)/2-z^2/(2*fn3(p1)))^2 z=p2*(z-a*1i)/(z+a)+p3 z=@p10*fn4(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X J" center=(0.001,0.001) periodicity=0 angle=90 magn=0.5 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39"\ "40""41" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsXM { init: z=fn1(pixel) if @S=="1" z=(z^2-(@sp+1))/(z^2+(@sp+1)) elseif @S=="2" z=(z^2-(@sp+1)*1i)/(z^2+(@sp+1)*1i) elseif @S=="3" z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) elseif @S=="4" z=(z-(@sp+1))/(z+(@sp+1)) elseif @S=="5" z=z+((z^2+@sp-1i)/(2*z+@sp+2i))^2 elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp+2))^2 elseif @S=="7" z=((z^2+@sp-1i)/(2*z+@sp+2i))^2 elseif @S=="8" z=((z^2+@sp-1)/(2*z+@sp+2))^2 elseif @S=="9" z=z+(@sp+1)*sqr(z) elseif @S=="10" z=z+(@sp+1)/z elseif @S=="11" z=z+z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S=="12" z=z+z^2*(z-(@sp+0.5))/(1i-(@sp+0.5)*z) elseif @S=="13" z=z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S=="14" z=z^2*(z-(@sp+0.5))/(1i-(@sp+0.5)*z) elseif @S=="15" z=z+(@sp+1)*z*(1-z) elseif @S=="16" z=z+(@sp+1)*z*(1i-z) elseif @S=="17" z=(@sp+1)*z*(1-z) elseif @S=="18" z=(@sp+1)*z*(1i-z) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z^2*recip((z+0.5)/(1i+0.5*z)) elseif @Va=="2" z=z^2*recip((z+0.5)/(1+0.5*z)) elseif @Va=="3" z=z^2*exp((z-2)/(1-2*z)) elseif @Va=="4" z=((z^2-1i)/(2*z-2i))^2 elseif @Va=="5" z=z^2*sqr((z+2)/(1+2*z)) elseif @Va=="6" z=z^2*tanh((z+2)/(1i+2*z)) elseif @Va=="7" z=z-(exp(z)^3-1)/(3*exp(z)^2) elseif @Va=="8" z=z^2*tan((z-2)/(1i-2*z)) elseif @Va=="9" z=z^2*sinh((z-2)/(1-2*z)) elseif @Va=="10" z=z+0.38i*cotan(z) elseif @Va=="11" z=z+((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="12" z=z-1/sin(z) elseif @Va=="13" z=z+1i/z elseif @Va=="14" z=sqr((z^2+1)/(2*z))^2 elseif @Va=="15" z=recip((z^2+1)/(2*z))^2 elseif @Va=="16" z=z+1/sinh(z) elseif @Va=="17" z=sinh((z-1i)/(z+1i)) elseif @Va=="18" z=z^2*tanh((z-2)/(1-2*z)) elseif @Va=="19" z=z+0.3i*sqr(z) elseif @Va=="20" z=tan((z-1i)/(z+1i)) elseif @Va=="21" z=(z+1i)/(z-1i) elseif @Va=="22" z=z-0.75*sin(z) elseif @Va=="23" z=abs((z+1i)/(z-1i)) elseif @Va=="24" z=z-0.5*sqr(z) elseif @Va=="25" z=exp((z+1i)/(z-1i)) elseif @Va=="26" z=exp((z+0.3i)/(z-0.3i)) elseif @Va=="27" z=sqr((z+1i)/(z-1i)) elseif @Va=="28" z=z+1i/sqr(z) elseif @Va=="29" z=z+1/sqr(z) elseif @Va=="30" z=tanh((z-1i)/(z+1i)) elseif @Va=="31" z=z-cotanh(z) elseif @Va=="32" z=z^2*((z-2)/(1-2*z)) elseif @Va=="33" z=z^2*sqr((z-2)/(1i-2*z)) elseif @Va=="34" z=z+1i*cotanh(z) elseif @Va=="35" z=z^2*sqr((z-2)/(1-2*z)) elseif @Va=="36" z=z^2*tanh((z+2)/(1+2*z)) elseif @Va=="37" z=z^2*((z-2)/(1i-2*z)) elseif @Va=="38" z=sqr((z-0.3i)/(z+0.3i)) elseif @Va=="39" z=z^2*recip((z-2)/(1-2*z)) elseif @Va=="40" z=(z-1i)/(z+1i) elseif @Va=="41" z=sqr((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="42" z=z-1/sqr(z) elseif @Va=="43" z=abs((z^2+1)/(2*z))^2 elseif @Va=="44" z=z-1i/sqr(z) elseif @Va=="45" z=sinh((z-0.3i)/(z+0.3i)) elseif @Va=="46" z=tanh((z-0.3i)/(z+0.3i)) elseif @Va=="47" z=z+recip(z) elseif @Va=="48" z=exp((z-0.3i)/(z+0.3i)) elseif @Va=="49" z=z^2*exp((z+2)/(1i+2*z)) elseif @Va=="50" z=z^2*exp((z+0.5)/(1+0.5*z)) elseif @Va=="51" z=z-0.3i*sqr(z) elseif @Va=="52" z=z-1i/z elseif @Va=="53" z=z^2*cosh((z-2)/(1-2*z)) elseif @Va=="54" z=z^2*exp((z-0.5)/(1i-0.5*z)) elseif @Va=="55" z=z^2*sqr((z+2)/(1i+2*z)) elseif @Va=="56" z=z+(z^3-1)/(3*z^2) elseif @Va=="57" z=z^2*recip((z-2)/(1i-2*z)) elseif @Va=="58" z=z+((z^2-1i)/(2*z-2i))^2 elseif @Va=="59" z=z^2*cotan((z-2)/(1i-2*z)) elseif @Va=="60" z=z^2*cotanh((z+2)/(1+2*z)) elseif @Va=="61" z=z-tanh(z) elseif @Va=="62" z=sqr((z-1i)/(z+1i)) elseif @Va=="63" z=z+((z^2+2-1i)/(2*z-2i+2))^2 elseif @Va=="64" z=exp((z-1i)/(z+1i)) elseif @Va=="65" z=((z^2+1)/(2*z))^2 elseif @Va=="66" z=z^2*exp((z-0.5)/(1-0.5*z)) elseif @Va=="67" z=z-(z^3-1)/(3*z^2) elseif @Va=="68" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="69" z=z^2*cotanh((z-2)/(1-2*z)) elseif @Va=="70" z=z^2*tan((z+2)/(1i+2*z)) elseif @Va=="71" z=z^2*((z+0.5)/(1i+0.5*z)) elseif @Va=="72" z=sqr((z^2+0.5)/(2*z-0.5))^2 elseif @Va=="73" z=sqr((z+0.3i)/(z-0.3i)) elseif @Va=="74" z=abs((z-1i)/(z+1i)) elseif @Va=="75" z=tan((z-0.3i)/(z+0.3i)) endif a=(1-z^2)*(p1*fn3(pixel)/2-z^2/(2*p1*fn3(pixel)))-(p1*fn3(pixel)/2-z^2/(2*p1*fn3(pixel)))^2 z=p2*(z-a*1i)/(z+a*1i)+p3 if @V=="M2" z=@p10*fn4(log(abs(z)))+(@p11+1)*fn3(pixel) else z=@p10*fn4(log(abs(z)))+@p11 endif endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X M" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param V caption="M Variant" enum="M1""M2" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62""63""64""65""66""67""68""69""70"\ "71""72""73""74""75" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=10000000.0 endparam } LabsX2J { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) endif int i=0 a=2*pi/3 c1=exp((0,0)*a) c2=exp((0,1)*a) c3=exp((0,2)*a) r=sqrt(3)/2 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z+cotan(z) elseif @Va=="2" z=cotanh((z-1i)/(z+1i)) elseif @Va=="3" z=tanh((z+0.85i)/(z-0.85i)) elseif @Va=="4" z=z^2*exp((z+0.5)/(1+0.5*z)) elseif @Va=="5" z=flip((z^2)/(2*z-1))^2 elseif @Va=="6" z=((z^2-0.8)/(2*z-1.8))^2 elseif @Va=="7" z=sin((z-2i)/(z+2i)) elseif @Va=="8" z=z^2*sqr((z-0.5)/(1-0.5*z)) elseif @Va=="9" z=((z^2-2-1i)/(2*z-2-2i))^2 elseif @Va=="10" z=z+z^2*recip((z-1.2)/(1i-1.2*z)) elseif @Va=="11" z=exp((z+1i)/(z-1i)) elseif @Va=="12" z=cosh((z-1i)/(z+1i)) elseif @Va=="13" z=z-sinh(z) elseif @Va=="14" z=z-sin(z) elseif @Va=="15" z=cotanh((z+1i)/(z-1i)) elseif @Va=="16" z=sqr((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="17" z=z^2*recip((z+0.5)/(1+0.5*z)) elseif @Va=="18" z=z^2*((z-0.5)/(1i-0.5*z)) elseif @Va=="19" z=sqr((z^2)/(2*z-1))^2 elseif @Va=="20" z=z^2*tanh((z+5.3)/(1+5.3*z)) elseif @Va=="21" z=z^2*exp((z-1.5)/(1-1.5*z)) elseif @Va=="22" z=sqr((z+1)/(z-1)) elseif @Va=="23" z=z^2*sqr((z+0.5)/(1+0.5*z)) elseif @Va=="24" z=cos((z-1i)/(z+1i)) elseif @Va=="25" z=flip((z-1i)/(z+1i)) elseif @Va=="26" z=recip((z-1i)/(z+1i)) elseif @Va=="27" z=flip((z^2-0.85)/(2*z-1.85))^2 elseif @Va=="28" z=((z^2)/(2*z-1))^2 elseif @Va=="29" z=z^2*recip((z-2)/(1-2*z)) elseif @Va=="30" z=abs((z^2-0.35)/(2*z-1.35))^2 elseif @Va=="31" z=sinh((z+2i)/(z-2i)) elseif @Va=="32" z=((z^2+1)/(2*z))^2 elseif @Va=="33" z=sqr((z+1i)/(z-1i)) elseif @Va=="34" z=((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="35" z=z^2*exp((z-0.5)/(1i-0.5*z)) elseif @Va=="36" z=sqr((z^2-2-1i)/(2*z-2-2i))^2 elseif @Va=="37" z=cos((z-1)/(z+1)) elseif @Va=="38" z=z^2*cos((z+0.5)/(1+0.5*z)) elseif @Va=="39" z=((z^2+1.6)/(2*z+0.6))^4 elseif @Va=="40" z=tanh((z+1i)/(z-1i)) elseif @Va=="41" z=sqr((z^2-1i)/(2*z-2i))^2 elseif @Va=="42" z=abs((z+1i)/(z-1i)) elseif @Va=="43" z=flip((z^2+1)/(2*z))^2 elseif @Va=="44" z=z^2*((z+0.5)/(1+0.5*z)) elseif @Va=="45" z=tanh((z-1i)/(z+1i)) elseif @Va=="46" z=z^2*((z+0.5)/(1i+0.5*z)) elseif @Va=="47" z=sqr((z^2-1)/(2*z-2))^2 endif if |z-c1|<|r| z=(r*conj(r/(z-c1))+c1) elseif |z-c2|<|r| z=(r*conj(r/(z-c2))+c2) elseif |z-c3|<|r| z=(r*conj(r/(z-c3))+c3) endif z=p1*conj(p2/(z-fn3(p3)))+fn3(p3) z=flip(z) z=@p10*fn4(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 2 J" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39"\ "40""41""42""43""44""45""46""47" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX2M { init: z=fn1(pixel) if @S=="1" z=(z^2-(@sp+1))/(z^2+(@sp+1)) elseif @S=="2" z=(z^2-(@sp+1)*1i)/(z^2+(@sp+1)*1i) elseif @S=="3" z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) elseif @S=="4" z=(z-(@sp+1))/(z+(@sp+1)) elseif @S=="5" z=z+((z^2+@sp-1i)/(2*z+@sp+2i))^2 elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp+2))^2 elseif @S=="7" z=((z^2+@sp-1i)/(2*z+@sp+2i))^2 elseif @S=="8" z=((z^2+@sp-1)/(2*z+@sp+2))^2 elseif @S=="9" z=z+(@sp+1)*sqr(z) elseif @S=="10" z=z+(@sp+1)/z elseif @S=="11" z=z+z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S=="12" z=z+z^2*(z-(@sp+0.5))/(1i-(@sp+0.5)*z) elseif @S=="13" z=z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S=="14" z=z^2*(z-(@sp+0.5))/(1i-(@sp+0.5)*z) elseif @S=="15" z=z+(@sp+1)*z*(1-z) elseif @S=="16" z=z+(@sp+1)*z*(1i-z) elseif @S=="17" z=(@sp+1)*z*(1-z) elseif @S=="18" z=(@sp+1)*z*(1i-z) endif int i=0 a=2*pi/3 c1=exp((0,0)*a) c2=exp((0,1)*a) c3=exp((0,2)*a) r=sqrt(3)/2 loop: while i<@iter i=i+1 z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z^2*recip((z+0.5)/(1i+0.5*z)) elseif @Va=="2" z=z^2*(tan(z)-2)/(1i-2*tan(z)) elseif @Va=="3" z=z^2*exp((z-2)/(1-2*z)) elseif @Va=="4" z=((z^2-1i)/(2*z-2i))^2 elseif @Va=="5" z=z^2*sqr((z+2)/(1+2*z)) elseif @Va=="6" z=z^2*tanh((z+2)/(1i+2*z)) elseif @Va=="7" z=z-(exp(z)^3-1)/(3*exp(z)^2) elseif @Va=="8" z=z^2*tan((z-2)/(1i-2*z)) elseif @Va=="9" z=z^2*sinh((z-2)/(1-2*z)) elseif @Va=="10" z=((z^2)/(2*z-1))^2 elseif @Va=="11" z=tanh((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="12" z=tanh((z^2+1)/(2*z))^2 elseif @Va=="13" z=z^2*(cotan(z)-0.5)/(1i-0.5*cotan(z)) elseif @Va=="14" z=sqr((z^2+1)/(2*z))^2 elseif @Va=="15" z=recip((z^2+1)/(2*z))^2 elseif @Va=="16" z=z^2*(sin(z)+3)/(1i+3*sin(z)) elseif @Va=="17" z=z^2*exp((z-0.5)/(1-0.5*z)) elseif @Va=="18" z=z^2*tanh((z-2)/(1-2*z)) elseif @Va=="19" z=sqr((z^2-1i)/(2*z-2i))^2 elseif @Va=="20" z=recip((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="21" z=(z+1i)/(z-1i) elseif @Va=="22" z=z-0.75*sin(z) elseif @Va=="23" z=cotan((z^2)/(2*z-1))^2 elseif @Va=="24" z=z^2*(sin(z)-2)/(1-2*sin(z)) elseif @Va=="25" z=z-0.3i*sqr(z) elseif @Va=="26" z=z^2*(sqr(z)-0.5)/(1-0.5*sqr(z)) elseif @Va=="27" z=sqr((z+1i)/(z-1i)) elseif @Va=="28" z=sqr((z^2+2)/(2*z+1))^2 elseif @Va=="29" z=z+1/sqr(z) elseif @Va=="30" z=tanh((z-1i)/(z+1i)) elseif @Va=="31" z=z-cotanh(z) elseif @Va=="32" z=z^2*((z-2)/(1-2*z)) elseif @Va=="33" z=z^2*sqr((z-2)/(1i-2*z)) elseif @Va=="34" z=z^2*(cos(z)-0.5)/(1i-0.5*cos(z)) elseif @Va=="35" z=z^2*sqr((z-2)/(1-2*z)) elseif @Va=="36" z=z^2*tanh((z+2)/(1+2*z)) elseif @Va=="37" z=z-0.3i*sqr(z) elseif @Va=="38" z=z^2*cos((z-2)/(1-2*z)) elseif @Va=="39" z=z^2*recip((z-2)/(1-2*z)) elseif @Va=="40" z=cotanh((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="41" z=sqr((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="42" z=cosh((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="43" z=abs((z^2+1)/(2*z))^2 elseif @Va=="44" z=tan((z^2+2-1i)/(2*z+2-2i))^2 elseif @Va=="45" z=tan((z^2-1)/(2*z-2))^2 elseif @Va=="46" z=z^2*(cotanh(z)-0.5)/(1-0.5*cotanh(z)) elseif @Va=="47" z=z-0.3i*sqr(z) elseif @Va=="48" z=flip((z^2+1)/(2*z))^2 elseif @Va=="49" z=z^2*exp((z+2)/(1i+2*z)) elseif @Va=="50" z=z^2*exp((z+0.5)/(1+0.5*z)) elseif @Va=="51" z=z^2*tanh((z-2)/(1-2*z)) elseif @Va=="52" z=tan((z^2)/(2*z-1))^2 elseif @Va=="53" z=z^2*cosh((z-2)/(1-2*z)) elseif @Va=="54" z=z^2*tanh((z+2)/(1+2*z)) elseif @Va=="55" z=abs((z+1i)/(z-1i)) elseif @Va=="56" z=z-2*(z^3-1)/(3*z^2) elseif @Va=="57" z=z^2*recip((z-2)/(1i-2*z)) elseif @Va=="58" z=((z^2+3-1i)/(2*z+3-2i))^2 elseif @Va=="59" z=z^2*cotan((z-2)/(1i-2*z)) elseif @Va=="60" z=z^2*cotanh((z+2)/(1+2*z)) elseif @Va=="61" z=z-tanh(z) elseif @Va=="62" z=sqr((z-1i)/(z+1i)) elseif @Va=="63" z=flip((z^2)/(2*z-1))^2 elseif @Va=="64" z=flip((z^2+3-1i)/(2*z+3-2i))^2 elseif @Va=="65" z=z^2*((z-2)/(1i-2*z)) elseif @Va=="66" z=z-2*tanh(z^3-1)/(3*z^2) elseif @Va=="67" z=z-(z^3-1)/(3*z^2) elseif @Va=="68" z=tanh((z^2-1i)/(2*z-2i))^2 elseif @Va=="69" z=z^2*cotanh((z-2)/(1-2*z)) elseif @Va=="70" z=z^2*tan((z+2)/(1i+2*z)) elseif @Va=="71" z=sinh((z^2+3-1i)/(2*z+3-2i))^2 elseif @Va=="72" z=sqr((z^2+0.5)/(2*z-0.5))^2 elseif @Va=="73" z=cotanh((z^2-1i)/(2*z-2i))^2 elseif @Va=="74" z=abs((z-1i)/(z+1i)) elseif @Va=="75" z=flip((z^2-1i)/(2*z-2i))^2 elseif @Va=="76" z=cosh((z^2-1i)/(2*z-2i))^2 elseif @Va=="77" z=z^2*(tan(z)+2)/(1i+2*tan(z)) elseif @Va=="78" z=z-tanh(z^3-1)/(3*z^2) elseif @Va=="79" z=z^2*((z+0.5)/(1i+0.5*z)) elseif @Va=="80" z=sinh((z^2+1)/(2*z))^2 elseif @Va=="81" z=z^2*exp((z-0.5)/(1i-0.5*z)) elseif @Va=="82" z=((z^2-1i)/(2*z-2i))^2 elseif @Va=="83" z=recip((z^2)/(2*z-1))^2 elseif @Va=="84" z=recip((z^2-1i)/(2*z-2i))^2 elseif @Va=="85" z=(z-1i)/(z+1i) elseif @Va=="86" z=sqr((z^2+3-1i)/(2*z+3-2i))^2 elseif @Va=="87" z=z^2*(exp(z)-2)/(1-2*exp(z)) elseif @Va=="88" z=z^2*(exp(z)-0.5)/(1-0.5*exp(z)) elseif @Va=="89" z=cotan((z^2+1)/(2*z))^2 elseif @Va=="90" z=z^2*(exp(z)-2)/(1i-2*exp(z)) elseif @Va=="91" z=z^2*(exp(z)+0.5)/(1i+0.5*exp(z)) elseif @Va=="92" z=z+(recip(z)^3-1)/(3*recip(z)^2) elseif @Va=="93" z=z^2*(sqr(z)+0.5)/(1+0.5*sqr(z)) elseif @Va=="94" z=z^2*(sqr(z)-0.5)/(1i-0.5*sqr(z)) elseif @Va=="95" z=z^2*(sqr(z)+0.5)/(1i+0.5*sqr(z)) elseif @Va=="96" z=-sqr((z-1i)/(z+1i)) elseif @Va=="97" z=flip((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="98" z=tanh((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="99" z=z^2*(cotan(z)+0.5)/(1+0.5*cotan(z)) elseif @Va=="100" z=-2*sqr((z-1i)/(z+1i)) elseif @Va=="101" z=z^2*(cotan(z)+0.5)/(1i+0.5*cotan(z)) elseif @Va=="102" z=z^2*(cosh(z)-2)/(1-2*cosh(z)) elseif @Va=="103" z=z^2*(cosh(z)-3)/(1i-3*cosh(z)) elseif @Va=="104" z=z+1i*cotanh(z) elseif @Va=="105" z=z^2*(cos(z)-0.5)/(1-0.5*cos(z)) elseif @Va=="106" z=2*sqr((z-1i)/(z+1i)) elseif @Va=="107" z=z^2*(cos(z)+0.5)/(1i+0.5*cos(z)) endif if |z-c1|<|r| z=(r*conj(r/(z-c1))+c1) elseif |z-c2|<|r| z=(r*conj(r/(z-c2))+c2) elseif |z-c3|<|r| z=(r*conj(r/(z-c3))+c3) endif z=p1*conj(p2/(z-p3))+p3 z=flip(z) z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 2 M" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62""63""64""65""66""67""68""69""70"\ "71""72""73""74""75""76""77""78""79""80"\ "81""82""83""84""85""86""87""88""89""90"\ "91""92""93""94""95""96""97""98""99""100"\ "101""102""103""104""105""106""107" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=10000000.0 endparam } LabsX3J { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) endif int i=0 a=sqrt(3)/2 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" if |z|>1 z=z/|z| endif z=-1.5*z elseif @Va=="7" if |z|>1 z=z/|z| endif z=-0.67*flip(z) elseif @Va=="8" if |z|>1 z=z/|z| endif z=-1.25*conj(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=-exp(z) elseif @Va=="10" if |z|>1 z=z/|z| endif z=0.8*sqr(z) elseif @Va=="11" if |z|>1 z=z/|z| endif z=-cotanh(z) elseif @Va=="12" if |z|>1 z=z/|z| endif z=-1.5*cotan(z) elseif @Va=="13" if |z|>1 z=z/|z| endif z=-1.5*tanh(z) elseif @Va=="14" if |z|>1 z=z/|z| endif z=1.35*tan(z) elseif @Va=="15" if |z|>1 z=z/|z| endif z=-3*tan(z) elseif @Va=="16" if |z|>1 z=z/|z| endif z=-1.5*cosh(z) elseif @Va=="17" if |z|>1 z=z/|z| endif z=0.82*sin(z) elseif @Va=="18" if |z|>1 z=z/|z| endif z=-1.5*sin(z) elseif @Va=="19" if |z|>1 z=z/|z| endif z=-0.92*recip(z) elseif @Va=="20" if real(z)1 z=z/|z| endif z=1.64*sin(z) elseif @Va=="2" if real(z)>imag(z) z=flip(z) endif z=-0.95*recip(z) elseif @Va=="3" if real(z)1 z=z/|z| endif z=-2*sin(z) elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif elseif @Va=="6" if |z|>1 z=z/|z| endif z=-1.5*z elseif @Va=="7" if |z|>1 z=z/|z| endif elseif @Va=="8" if |z|>1 z=z/|z| endif z=1.5*z elseif @Va=="9" if |z|>1 z=z/|z| endif z=-1.25*conj(z) elseif @Va=="10" if |z|>1 z=z/|z| endif z=0.8*sqr(z) elseif @Va=="11" if |z|>1 z=z/|z| endif z=1.5*flip(z) elseif @Va=="12" if |z|>1 z=z/|z| endif z=1.2*conj(z) elseif @Va=="13" if |z|>1 z=z/|z| endif z=-0.525*cotan(z) elseif @Va=="14" if |z|>1 z=z/|z| endif z=1.35*tan(z) elseif @Va=="15" if |z|>1 z=z/|z| endif z=-3*tan(z) elseif @Va=="16" if |z|>1 z=z/|z| endif z=-0.69*cotan(z) elseif @Va=="17" if |z|>1 z=z/|z| endif z=-0.69*cotanh(z) elseif @Va=="18" if |z|>1 z=z/|z| endif z=-1.5*sin(z) elseif @Va=="19" if |z|>1 z=z/|z| endif z=-0.92*recip(z) elseif @Va=="20" if real(z)imag(z) z=flip(z) endif z=-1.8*z elseif @Va=="24" if real(z)>imag(z) z=flip(z) endif z=-1.5*z elseif @Va=="25" if real(z)>imag(z) z=flip(z) endif z=-1.2*z elseif @Va=="26" if real(z)>imag(z) z=flip(z) endif z=-0.65*flip(z) elseif @Va=="27" if real(z)>imag(z) z=flip(z) endif z=conj(z) elseif @Va=="28" if real(z)>imag(z) z=flip(z) endif z=-conj(z) elseif @Va=="29" if real(z)>imag(z) z=flip(z) endif z=abs(z) elseif @Va=="30" if real(z)>imag(z) z=flip(z) endif z=-abs(z) elseif @Va=="31" if real(z)>imag(z) z=flip(z) endif z=-sqr(z) elseif @Va=="32" if real(z)>imag(z) z=flip(z) endif z=0.3385*sqr(z) elseif @Va=="33" if real(z)>imag(z) z=flip(z) endif z=-0.7365*cotan(z) elseif @Va=="34" z=(z+1.5i)/(z-1.5i) elseif @Va=="35" z=(z-1i)/(z+1i) elseif @Va=="36" z=z^2*exp((z-0.75)/(1-0.75*z)) elseif @Va=="37" z=(z+1i)/(z-1i) elseif @Va=="38" z=flip((z+0.3i)/(z-0.3i)) elseif @Va=="39" z=conj((z+1.35i)/(z-1.35i)) elseif @Va=="40" z=cotanh((z-1.225i)/(z+1.225i)) elseif @Va=="41" z=abs((z+0.72i)/(z-0.72i)) elseif @Va=="42" z=cotan((z-0.81i)/(z+0.81i)) elseif @Va=="43" z=tanh((z-1.5i)/(z+1.5i)) elseif @Va=="44" z=cotan((z-1.225i)/(z+1.225i)) elseif @Va=="45" z=(z-1)/(z+1) elseif @Va=="46" z=abs((z-0.5)/(z+0.5)) elseif @Va=="47" z=conj((z+1.6)/(z-1.6)) elseif @Va=="48" z=((z-1.4)/(z+1.4)) elseif @Va=="49" z=conj((z+2.5)/(z-2.5)) elseif @Va=="50" z=conj((z+1.1)/(z-1.1)) elseif @Va=="51" z=conj((z-2)/(z+2)) elseif @Va=="52" z=sqr((z+0.627)/(z-0.627)) elseif @Va=="53" if real(z)>imag(z) z=flip(z) endif z=1.5*tan(z) elseif @Va=="54" if real(z)>imag(z) z=flip(z) endif z=-2.3*tan(z) elseif @Va=="55" if real(z)>imag(z) z=flip(z) endif z=-0.46*cosh(z) elseif @Va=="56" if real(z)>imag(z) z=flip(z) endif z=-0.4*cosh(z) elseif @Va=="57" if real(z)>imag(z) z=flip(z) endif z=1.315*sinh(z) elseif @Va=="58" if real(z)>imag(z) z=flip(z) endif z=-1.45*sin(z) elseif @Va=="59" if real(z)>imag(z) z=flip(z) endif z=1.15*sin(z) elseif @Va=="60" if real(z)>imag(z) z=flip(z) endif z=1.15*recip(z) endif z=(-0.5*(p1*conj(p1/(z-p2))+p2)-a)/(a*(p1*conj(p1/(z-p2))+p2*@fn5(pixel))-0.5) z=(1i*z+1i)/(-z+1) z=(-0.5*z+a)/(-a*z-0.5) z=fn3((z-1i)/(z+1i))+p3 z=@p10*fn4(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 3 M" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9"\ "10""11""12""13""14""15""16""17""18""19"\ "20""21""22""23""24""25""26""27""28""29"\ "30""31""32""33""34""35""36""37""38""39"\ "40""41""42""43""44""45""46""47""48""49"\ "50""51""52""53""54""55""56""57""58""59"\ "60" endparam param iter caption="Iterations" default=7 endparam param p1 caption="X Parameter 1" default=(2,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX4 { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+@sp*cosh(z) elseif @S=="7" z=z-(@sp+1)*(z^3-1i)/(3*z^2) elseif @S=="8" z=z+(@sp+1)*(z^2-1i)/(2*z-2) elseif @S=="9" z=z+(@sp+1)*((z^2-1i)/(2*z-2i))^2 elseif @S=="10" z=z+(z-(@sp-1)*1i)/(z+(@sp-1)*1i) elseif @S=="11" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="12" z=z+(@sp+1)*((z^2-1i)/(2*z+2i))^2 elseif @S=="13" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="14" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="1" z=(z+1.5i)/(z-1.5i) elseif @Va=="2" z=sqr((z+2.6i)/(z-2.6i)) elseif @Va=="3" z=exp((z-1i)/(z+1i)) elseif @Va=="4" z=recip((z-1i)/(z+1i)) elseif @Va=="5" z=exp((z-1)/(z+1)) elseif @Va=="6" z=exp((z+1.25)/(z-1.25)) elseif @Va=="7" z=((z^2-1i)/(z^2+1i)) elseif @Va=="8" z=flip((z^2-1i)/(z^2+1i)) elseif @Va=="9" z=abs((z^2-1i)/(z^2+1i)) elseif @Va=="10" z=exp((z^2-1i)/(z^2+1i)) elseif @Va=="11" z=sqr((z^2-1i)/(z^2+1i)) elseif @Va=="12" z=cotan((z^2-1i)/(z^2+1i)) elseif @Va=="13" z=flip((z^2+1i)/(z^2-1i)) elseif @Va=="14" z=exp((z^2+1i)/(z^2-1i)) elseif @Va=="15" z=abs((z^2-1)/(z^2+1)) elseif @Va=="16" z=exp((z^2-1)/(z^2+1)) elseif @Va=="17" z=recip((z^2-1)/(z^2+1)) endif if @JM=="J" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-@p12 f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2 z=@p10*fn4(log(abs(z)))+@p11 elseif @JM=="M1" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-(@p12+1)*@fn5(pixel) f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2 z=@p10*fn4(log(abs(z)))+@p11 elseif @JM=="M2" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-@p12 f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2*@fn5(pixel) z=@p10*fn4(log(abs(z)))+@p11 elseif @JM=="M3" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-@p12 f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2 z=@p10*fn4(log(abs(z)))+(@p11+1)*@fn5(pixel) elseif @JM=="M4" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-(@p12+1)*@fn5(pixel) f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2*@fn5(pixel) z=@p10*fn4(log(abs(z)))+@p11 elseif @JM=="M5" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-(@p12+1)*@fn5(pixel) f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2 z=@p10*fn4(log(abs(z)))+(@p11+1)*@fn5(pixel) elseif @JM=="M6" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-@p12 f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2*@fn5(pixel) z=@p10*fn4(log(abs(z)))+(@p11+1)*@fn5(pixel) elseif @JM=="M7" f=(2/sqrt(4*p1*p3-p2^2))*(2*p1*z^3+p2)/(sqrt(4*p1*p3-p2^2))-(@p12+1)*@fn5(pixel) f1=1/(p1*fn3(z)^2+p2*@fn6(z)+p3) z=z-p1*f/f1+p2*@fn5(pixel) z=@p10*fn4(log(abs(z)))+(@p11+1)*@fn5(pixel) endif endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 4" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param JM caption="J/M Variant" enum="J""M1""M2""M3""M4""M5""M6""M7" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="X Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(-1,0) endparam param p2 caption="X Parameter 2" default=(-1,0) endparam param p3 caption="X Parameter 3" default=(1.5,0) endparam param p12 caption="X Parameter 4" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function 1" default=ident() endfunc func fn6 caption="X Function 2" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn5 caption="C Function" default=ident() visible=@JM!="J" endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX5 { init: z=fn1(pixel) if @S=="1" z=z+(@sp-1)*(z-1)/(z+1) elseif @S=="2" z=z^2+(@sp+1)*(2*z-1i)/(z+2i)/(z-1) elseif @S=="3" z=z^2*(z-@sp)/(1i-@sp*z) elseif @S=="4" z=z+(@sp+1)*(2*z-1i)/(z+2i)*(z-1) elseif @S=="5" z=z+z^2*(z-@sp)/(1i-@sp*z) elseif @S=="6" z=z+z^2*(z-@sp)/(1-@sp*z) elseif @S=="7" z=z+(@sp-1)*(z-1i)*(z+1i) elseif @S=="8" z=z+(@sp+1)*(z+1)*(z-1)/(z+2)*(z-2) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z z=z^2*@fn6((z-p3)/(1-p3*z)) if @V=="1" z=p1*@fn5((z-p2*fn3(pixel))/(z+p2*fn3(pixel)))^4 z=@p10*fn4(log(abs(z)))+@p11 elseif @V=="2" z=p1*@fn5((z-p2)/(z+p2*fn3(pixel)))^4 z=@p10*fn4(log(abs(z)))+@p11 elseif @V=="3" z=p1*@fn5((z-p2*fn3(pixel))/(z+p2))^4 z=@p10*fn4(log(abs(z)))+@p11 elseif @V=="4" z=p1*@fn5((z-p2*fn3(pixel))/(z+p2*fn3(pixel)))^4 z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) elseif @V=="5" z=p1*@fn5((z-p2)/(z+p2*fn3(pixel)))^4 z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) elseif @V=="6" z=p1*@fn5((z-p2*fn3(pixel))/(z+p2))^4 z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) elseif @V=="7" z=p1*@fn5((z-p2)/(z+p2))^4 z=@p10*fn4(log(abs(z)))+@p11*fn3(pixel) endif endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 5" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param V caption="X Variant" enum="1""2""3""4""5""6""7" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8" default=2 endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0.75,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn5 caption="X Function 1" default=ident() endfunc func fn6 caption="X Function 2" default=exp() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX6J { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="3" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="4" z=z+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="5" z=@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="6" z=@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="7" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1i) elseif @S=="8" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=@sp*(z-2)/(1-2*z)/(z-1i) elseif @S=="12" z=@sp*(z-2)/(1i-2*z)/(z-1) elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" z=z+z^2*sqr((z-3)/(1-3*z)) elseif @Va=="3" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=recip((z-5)/(1-5*z)) elseif @Va=="7" z=exp((z+0.5)/(1+0.5*z)) elseif @Va=="8" z=sqr((z+0.425)/(1+0.425*z)) elseif @Va=="9" z=cosh((z-0.5)/(1-0.5*z)) elseif @Va=="10" if |z|<1 z=z/|z| endif z=0.05*sqr(z) elseif @Va=="11" z=cotanh(1/(z-0.5))+0.5 elseif @Va=="12" z=flip(7.5/(z-1))+1 elseif @Va=="13" z=cotanh(1/(z+1))-1 elseif @Va=="14" z=sqr(8/(z-1))+1 elseif @Va=="15" z=cotanh(1/(z-1))+1 elseif @Va=="16" z=flip(10/(z-1))+1 elseif @Va=="17" z=cotan(1/(z+0.5))-0.5 elseif @Va=="18" z=7.5/(z-1)+1 elseif @Va=="19" z=cotanh(1/z) endif z=fn3((z-p1*1i)/(z+p1*1i)) z=(z-p2)/(z+p2) z=fn4(@p10*log(abs(z))+@p11) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 6 J" center=(0.001,0.001) periodicity=0 angle=90 magn=0.5 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19" endparam param iter caption="Iterations" default=8 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p4 caption="Loop Parameter 1" default=(2,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX6M { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="3" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="4" z=z+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="5" z=@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="6" z=@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="7" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1i) elseif @S=="8" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=@sp*(z-2)/(1-2*z)/(z-1i) elseif @S=="12" z=@sp*(z-2)/(1i-2*z)/(z-1) elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="1" z=z+z^2*sqr((z-3)/(1-3*z)) elseif @Va=="2" if real(z)imag(z) z=flip(z) endif z=0.5*z elseif @Va=="6" z=((z-0.587)/(1-0.587*z)) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" if |z|<1 z=z/|z| endif z=22*sin(z) elseif @Va=="9" if |z|<1 z=z/|z| endif z=8.5*flip(z) elseif @Va=="10" if |z|<1 z=z/|z| endif z=3.7*flip(z) elseif @Va=="11" z=exp(1/(z-2.633))+2.633 elseif @Va=="12" z=flip(1/(z-3.48))+3.48 elseif @Va=="13" z=cotan(1/(z-1.67))+1.67 elseif @Va=="14" z=exp(1/(z-3.35))+3.35 elseif @Va=="15" z=flip(1/(z-4))+4 elseif @Va=="16" z=cotan(1/(z-3))+3 elseif @Va=="17" z=exp(1/(z-3.1))+3.1 elseif @Va=="18" z=7.5/(z-1)+1 elseif @Va=="19" z=cotanh(1/z) elseif @Va=="20" if real(z)imag(z) z=flip(z) endif z=-0.07881*sqr(z) elseif @Va=="26" if real(z)>imag(z) z=flip(z) endif z=-0.03*sqr(z) elseif @Va=="27" z=((z-0.6277)/(1-0.6277*z)) elseif @Va=="28" z=cosh((z-0.385)/(1-0.385*z)) elseif @Va=="29" z=abs((z+0.00557)/(1+0.00557*z)) elseif @Va=="30" z=tan((z+0.59727)/(1+0.59727*z)) elseif @Va=="31" z=flip((z-0.46537)/(1-0.46537*z)) elseif @Va=="32" z=cotanh((z-1.775)/(1-1.775*z)) elseif @Va=="33" z=flip((z+0.177)/(1+0.177*z)) elseif @Va=="34" z=cosh((z+0.215)/(1+0.215*z)) elseif @Va=="35" z=conj((z-0.155)/(1-0.155*z)) elseif @Va=="36" z=cotan((z-1.8265)/(1-1.8265*z)) elseif @Va=="37" z=flip((z-0.38268)/(1-0.38268*z)) elseif @Va=="38" z=exp((z+0.275)/(1+0.275*z)) elseif @Va=="39" z=conj((z-0.258)/(1-0.258*z)) elseif @Va=="40" if |z|<1 z=z/|z| endif z=10*z elseif @Va=="41" if |z|<1 z=z/|z| endif z=20*z elseif @Va=="42" if |z|<1 z=z/|z| endif z=5*flip(z) elseif @Va=="43" if |z|<1 z=z/|z| endif z=6.5*flip(z) elseif @Va=="44" if |z|<1 z=z/|z| endif z=0.75*abs(z) elseif @Va=="45" if |z|<1 z=z/|z| endif z=0.17*sqr(z) elseif @Va=="46" if |z|<1 z=z/|z| endif z=20*abs(z) elseif @Va=="47" if |z|<1 z=z/|z| endif z=-0.75*exp(z) elseif @Va=="48" z=exp(1/(z-3.45))+3.45 elseif @Va=="49" z=-20/(z-1)+1 elseif @Va=="50" z=abs(20/(z-1))+1 elseif @Va=="51" z=cotanh(0.67/(z-1))+1 elseif @Va=="52" z=flip(15/(z-1))+1 elseif @Va=="53" z=cotan(0.08/(z-1))+1 elseif @Va=="54" z=((z^2-3)/(2*z-4))^2 elseif @Va=="55" z=tan((z^2+90-1i)/(2*z+90-2i))^2 elseif @Va=="56" z=sinh((z^2+53)/(2*z+52))^2 elseif @Va=="57" z=conj((z^2+6)/(2*z+5))^2 elseif @Va=="58" z=conj((z^2-5.465-1i)/(2*z-5.465-2i))^2 elseif @Va=="59" z=flip((z^2-2.5)/(2*z-3.5))^2 elseif @Va=="60" z=abs((z^2-3)/(2*z-4))^2 elseif @Va=="61" z=flip((z^2-6.912-1i)/(2*z-6.912-2i))^2 elseif @Va=="62" z=conj((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="63" z=((z^2+1)/(2*z))^2 elseif @Va=="64" z=cosh((z^2+14.5)/(2*z+13.5))^2 elseif @Va=="65" z=flip((z^2+0.5)/(2*z-0.5))^2 elseif @Va=="66" z=conj((z^2-3)/(2*z-4))^2 elseif @Va=="67" z=flip((z+8.8i)/(z-8.8i)) elseif @Va=="68" z=tanh((z+4.65i)/(z-4.65i)) elseif @Va=="69" z=exp((z+3i)/(z-3i)) endif z=flip(7.5/(z-1))+1 z=p1*z^2+p2*z^3 z=@p10*fn4(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 7" center=(0.001,0.001) periodicity=0 angle=90 magn=0.5 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62""63""64""65""66""67""68""69" endparam param iter caption="Iterations" default=8 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam param p15 default=1.0 endparam func fn15 default=ident() endfunc } LabsX8 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="3" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="4" z=z+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="5" z=@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="6" z=@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="7" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1i) elseif @S=="8" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=@sp*(z-2)/(1-2*z)/(z-1i) elseif @S=="12" z=@sp*(z-2)/(1i-2*z)/(z-1) elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="1" z=z+z^2*sqr((z-3)/(1-3*z)) elseif @Va=="2" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=recip((z-5)/(1-5*z)) elseif @Va=="7" if |z|<1 z=z/|z| endif z=conj(z) elseif @Va=="8" z=sqr((z+0.425)/(1+0.425*z)) elseif @Va=="9" if real(z)1 z=z/|z| endif elseif @Va=="15" z=cotanh(1/(z-1))+1 elseif @Va=="16" z=conj((z+1i)/(z-1i)) elseif @Va=="17" z=cotan(1/(z+0.5))-0.5 elseif @Va=="18" if |z|<1 z=z/|z| endif z=tanh(z) elseif @Va=="19" z=cotanh(1/z) elseif @Va=="20" if real(z)1 z=z/|z| endif z=flip(z) elseif @Va=="24" if real(z)1 z=z/|z| endif z=-sin(z) elseif @Va=="30" if |z|<1 z=z/|z| endif z=0.3*abs(z) elseif @Va=="31" if real(z)1 z=z/|z| endif z=abs(z) elseif @Va=="35" if |z|>1 z=z/|z| endif z=exp(z) elseif @Va=="36" if |z|>1 z=z/|z| endif z=-z elseif @Va=="37" if |z|>1 z=z/|z| endif z=sinh(z) elseif @Va=="38" if |z|>1 z=z/|z| endif z=-exp(z) elseif @Va=="39" if |z|>1 z=z/|z| endif z=2*abs(z) elseif @Va=="40" if |z|>1 z=z/|z| endif z=-conj(z) elseif @Va=="41" if |z|>1 z=z/|z| endif z=tanh(z) elseif @Va=="42" if |z|>1 z=z/|z| endif z=-2*abs(z) elseif @Va=="43" if |z|>1 z=z/|z| endif z=sin(z) elseif @Va=="44" if |z|>1 z=z/|z| endif z=-recip(z) elseif @Va=="45" if |z|>1 z=z/|z| endif z=tan(z) elseif @Va=="46" if |z|>1 z=z/|z| endif z=-flip(z) endif z=(p1*z^2+1i)/(-p1*z+1) z=(z^2+p2)/(1-conj(p2)*z^2) z=@p10*fn4(log(abs(fn3(z))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 9 J" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function 1" default=ident() endfunc func fn3 caption="Labs Function 2" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=10000.0 endparam } LabsX9M { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="3" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="4" z=z+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="5" z=@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="6" z=@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="7" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1i) elseif @S=="8" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=@sp*(z-2)/(1-2*z)/(z-1i) elseif @S=="12" z=@sp*(z-2)/(1i-2*z)/(z-1) elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=sqr((z^2-0.6)/(2*z-1.6))^2 elseif @Va=="2" z=flip((z^2+1.5)/(2*z+0.5)) elseif @Va=="3" if real(z)>imag(z) z=flip(z) endif z=-sin(z) elseif @Va=="4" z=conj((z-2)/(1-2*z)) elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif elseif @Va=="6" z=recip((z-5)/(1-5*z)) elseif @Va=="7" if real(z)>imag(z) z=flip(z) endif z=flip(z) elseif @Va=="8" if real(z)>imag(z) z=flip(z) endif z=abs(z) elseif @Va=="9" z=cotanh((z-2)/(1-2*z)) elseif @Va=="10" z=sqr((z+0.4)/(1+0.4*z)) elseif @Va=="11" z=cotanh(1/(z-0.5))+0.5 elseif @Va=="12" if real(z)>imag(z) z=flip(z) endif z=-flip(z) elseif @Va=="13" if real(z)>imag(z) z=flip(z) endif z=-conj(z) elseif @Va=="14" z=flip((z-11)/(1-11*z)) elseif @Va=="15" z=cotanh(1/(z-1))+1 elseif @Va=="16" z=flip((z+11)/(1+11*z)) elseif @Va=="17" z=cotan(1/(z+0.5))-0.5 elseif @Va=="18" if real(z)>imag(z) z=flip(z) endif z=-sqr(z) elseif @Va=="19" if real(z)>imag(z) z=flip(z) endif z=-tanh(z) elseif @Va=="20" z=flip(1/(z+0.2))-0.2 elseif @Va=="21" z=conj(1/(z+0.55))-0.55 elseif @Va=="22" z=abs(1/(z+0.66))-0.66 elseif @Va=="23" z=conj(2.85/(z-1))+1 elseif @Va=="24" z=cotanh(2.4/(z-1))+1 elseif @Va=="25" z=sqr((z^2-1.4)/(2*z-2.4))^2 endif z=(p1*z^2+1i)/(-p1*z+1) z=(z^2+p2)/(1-conj(p2)*z^2) z=@p10*@fn5(log(abs(fn4(z))))+@p11*fn3(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 9 M" center=(0.001,0.001) periodicity=0 angle=90 magn=2 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function 1" default=ident() endfunc func fn5 caption="Labs Function 2" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000 endparam } LabsMöbiusCubedJ { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="3" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="4" z=z+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="5" z=@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="6" z=@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="7" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1i) elseif @S=="8" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=@sp*(z-2)/(1-2*z)/(z-1i) elseif @S=="12" z=@sp*(z-2)/(1i-2*z)/(z-1) elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+@sp*z^3 elseif @S=="17" z=(exp(z)-@sp*1i)/(z+exp(@sp)) elseif @S=="18" z=1i^z+@sp*z^3 elseif @S=="19" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) elseif @S=="20" z=(recip(z)-@sp*1i)/(z+recip(@sp)) elseif @S=="21" z=(cos(z)-@sp*1i)/(z+cos(@sp)) elseif @S=="22" z=(tanh(z)-@sp*1i)/(z+tanh(@sp)) elseif @S=="23" z=(sin(z)-@sp*1i)/(z+sin(@sp)) elseif @S=="24" z=(cosh(z)-@sp*1i)/(z+cosh(@sp)) elseif @S=="25" z=(sinh(z)-@sp*1i)/(z+sinh(@sp)) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if real(z)>imag(z) z=flip(z) endif z=-0.45*abs(z) elseif @Va=="2" if real(z)imag(z) z=flip(z) endif z=0.5*z elseif @Va=="6" z=((z-0.587)/(1-0.587*z)) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" z=z+exp(z) elseif @Va=="9" if real(z)imag(z) z=flip(z) endif z=0.54*conj(z) elseif @Va=="11" z=z-(z^2-1)/(2*z) elseif @Va=="12" z=z+30/sqr(z) elseif @Va=="13" z=cotan(1/(z-1.67))+1.67 elseif @Va=="14" z=z-30/z elseif @Va=="15" if real(z)imag(z) z=flip(z) endif z=5*recip(z) elseif @Va=="24" z=exp((1-z)/z) elseif @Va=="25" z=z-(z^2-1i)/(2*z) elseif @Va=="26" z=1.9*(1-z)/z elseif @Va=="27" z=((z-0.6277)/(1-0.6277*z)) elseif @Va=="28" z=3*cos((1-z)/z) elseif @Va=="29" if real(z)imag(z) z=flip(z) endif z=-0.45*abs(z) elseif @Va=="2" if real(z)imag(z) z=flip(z) endif z=0.5*z elseif @Va=="6" z=((z-0.587)/(1-0.587*z)) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" z=z+exp(z) elseif @Va=="9" if real(z)imag(z) z=flip(z) endif z=0.54*conj(z) elseif @Va=="11" z=z-(z^2-1)/(2*z) elseif @Va=="12" z=z+30/sqr(z) elseif @Va=="13" z=1.5*z*recip(1-z) elseif @Va=="14" z=z-30/z elseif @Va=="15" if real(z)imag(z) z=flip(z) endif z=5*recip(z) elseif @Va=="24" z=flip((z^2-2.5)/(2*z-3.5))^2 elseif @Va=="25" z=-0.42*z*(1-exp(z)) elseif @Va=="26" z=1.9*(1-z)/z elseif @Va=="27" z=((z-0.6277)/(1-0.6277*z)) elseif @Va=="28" z=cotanh(0.67/(z-1))+1 elseif @Va=="29" if real(z)1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" z=z+0.3i*sin(z) elseif @Va=="5" z=z+0.3i*cosh(z) elseif @Va=="6" z=z+0.3i*sqr(z) elseif @Va=="7" z=z+exp((z-4i)/(z+4i)) elseif @Va=="8" z=z+0.3i/exp(z) elseif @Va=="9" z=z+0.3i*exp(z) elseif @Va=="10" z=z-0.3i/exp(z) elseif @Va=="11" z=z+cos((z+4i)/(z-4i)) elseif @Va=="12" z=z-0.3i*cos(z) elseif @Va=="13" z=z+0.3i*z elseif @Va=="14" z=z-0.3i*sin(z) elseif @Va=="15" z=z+0.3i*sinh(z) elseif @Va=="16" z=z-0.3i*cosh(z) elseif @Va=="17" z=z+sqr((z-0.3)/(1-0.3*z)) elseif @Va=="18" z=z-0.3i*sinh(z) elseif @Va=="19" z=z-0.3i*exp(z) elseif @Va=="20" z=z+exp((z+4i)/(z-4i)) elseif @Va=="21" z=z-0.3i*sqr(z) elseif @Va=="22" z=z-0.3i*z elseif @Va=="23" z=z+cos((z-4i)/(z+4i)) elseif @Va=="24" z=z+0.3i*cos(z) elseif @Va=="25" z=z+((z-0.3i)/(z+0.3i)) endif z=p2*(z^2-p1)^2/(4*z*(z-1)*(z-p1)) z=@p10*fn3(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 11 J" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(-1.5,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX11M { init: z=fn1(pixel) z=z+@sp*z^2 int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) elseif @Va=="4" z=z+0.3i*sin(z) elseif @Va=="5" z=z+0.3i*tanh(z) elseif @Va=="6" z=z+0.3i*sqr(z) elseif @Va=="7" z=z+exp((z-4i)/(z+4i)) elseif @Va=="8" z=z+0.3i/cos(z) elseif @Va=="9" z=z+exp((z-0.3)/(1-0.3*z)) elseif @Va=="10" z=z+0.3i*tan(z) elseif @Va=="11" z=z+cos((z+4i)/(z-4i)) elseif @Va=="12" z=z+sqr((z+0.3)/(1+0.3*z)) elseif @Va=="13" z=z+0.3i*z elseif @Va=="14" z=z+0.3i/cosh(z) elseif @Va=="15" z=z+0.3i*sinh(z) elseif @Va=="16" z=z-0.3i*cosh(z) elseif @Va=="17" z=z+sqr((z-0.3)/(1-0.3*z)) elseif @Va=="18" z=z-0.3i*tanh(z) elseif @Va=="19" z=z-0.3i*exp(z) elseif @Va=="20" z=z+exp((z+4i)/(z-4i)) elseif @Va=="21" z=z-0.3i*tan(z) elseif @Va=="22" z=z-0.3i*z elseif @Va=="23" z=z+cos((z-4i)/(z+4i)) elseif @Va=="24" z=z+0.3i*cos(z) elseif @Va=="25" z=z+((z-0.3i)/(z+0.3i)) elseif @Va=="26" z=z-0.3i*sqr(z) elseif @Va=="27" z=z-0.3i*sinh(z) elseif @Va=="28" z=z-0.3i*sin(z) elseif @Va=="29" z=z-0.3i/cosh(z) elseif @Va=="30" z=z+exp((z+0.3)/(1+0.3*z)) elseif @Va=="31" z=z-0.3i/cos(z) elseif @Va=="32" z=z-0.3i*cos(z) elseif @Va=="33" z=z-0.3i/exp(z) elseif @Va=="34" z=z+sqr((z-0.3i)/(z+0.3i)) elseif @Va=="35" z=z+0.3i*exp(z) elseif @Va=="36" z=z+0.3i*cosh(z) elseif @Va=="37" z=z+0.3i/exp(z) endif z=p2*(z^2-p1)^2/(4*z*(z-1)*(z-p1*fn4(pixel))) z=@p10*fn3(log(abs(z)))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 11 M" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(-1.5,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Labs Function" default=ident() endfunc func fn4 caption="C Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX12 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+(z-@sp*1i)/(z+@sp*1i) elseif @S=="3" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="4" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=z^2*abs((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="7" z=z^2*((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="8" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=z+z^2*cosh((z-@sp)/(1-@sp*z)) elseif @S=="12" z=z+@sp*z^3 elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+z^2*cos((z-@sp)/(1-@sp*z)) elseif @S=="17" z=z^2*sqr((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="18" z=z^2*exp((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="19" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if real(z)>imag(z) z=flip(z) endif z=-0.45*abs(z) elseif @Va=="2" z=((z+1i)/(z-1i)) elseif @Va=="3" if real(z)1 z=z/|z| endif z=2*z elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif z=0.5*z elseif @Va=="6" z=z+0.3*1i/cos(1i*z) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" z=conj((z+1i)/(z-1i)) elseif @Va=="9" if |z|>1 z=z/|z| endif z=-2*abs(z) elseif @Va=="10" if real(z)>imag(z) z=flip(z) endif z=0.54*conj(z) elseif @Va=="11" z=z+0.3*1i/cotanh(1i*z) elseif @Va=="12" if real(z)1 z=z/|z| endif z=2*abs(z) elseif @Va=="15" z=z+0.3*1i/cotan(1i*z) elseif @Va=="16" if |z|>1 z=z/|z| endif z=-2*z elseif @Va=="17" if real(z)1 z=z/|z| endif z=abs(z) elseif @Va=="31" z=z+1i*tan(1i*z) elseif @Va=="32" if |z|>1 z=z/|z| endif z=2*conj(z) elseif @Va=="33" if real(z)1 z=z/|z| endif z=-2*conj(z) endif if real(z)>imag(z) z=flip(z) endif z=p1*abs(z) z=z*(1+p2*z^2+p3*fn3(z)^2) z=@p10*fn4(log(abs(z)))+@p11*@fn5(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 12" center=(-1.001,-0.501) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(1,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=exp() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX13 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+(z-@sp*1i)/(z+@sp*1i) elseif @S=="3" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="4" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="7" z=z^2*((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="8" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=z+z^2*cosh((z-@sp)/(1-@sp*z)) elseif @S=="12" z=z+@sp*z^3 elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+z^2*cos((z-@sp)/(1-@sp*z)) elseif @S=="17" z=z^2*sqr((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="18" z=z^2*exp((z-(@sp-0.5))/(1-(@sp-0.5)*z)) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if real(z)>imag(z) z=flip(z) endif z=-0.45*abs(z) elseif @Va=="2" z=((z+1i)/(z-1i)) elseif @Va=="3" if real(z)1 z=z/|z| endif z=abs(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=-2*abs(z) elseif @Va=="10" if real(z)>imag(z) z=flip(z) endif z=0.54*conj(z) elseif @Va=="11" z=z+0.3*1i/cotanh(1i*z) elseif @Va=="12" z=z+0.3*(cotanh(z)^2-1)/(2*cotanh(z)) elseif @Va=="13" z=cotanh(-1/(z-1))+1 elseif @Va=="14" z=z+1i*tan(1i*z) elseif @Va=="15" z=z+0.3*(exp(z)^2-1)/(2*exp(z)) elseif @Va=="16" z=z+0.3*(z^2-1)/(2*z) elseif @Va=="17" if real(z)1 z=z/|z| endif z=3*p3*z z=p2/(z^3+(p1-1)*z-p1) z=@p10*fn4(log(abs(z)))+@p11*@fn5(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 13" center=(0.001,0.001) periodicity=0 angle=90 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30" endparam param iter caption="Iterations" default=3 endparam param p1 caption="X Parameter 1" default=(0.5,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(1,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX14 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+(z-@sp*1i)/(z+@sp*1i) elseif @S=="3" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="4" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="7" z=z^2*((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="8" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=z+z^2*cosh((z-@sp)/(1-@sp*z)) elseif @S=="12" z=z+@sp*z^3 elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+z^2*cos((z-@sp)/(1-@sp*z)) elseif @S=="17" z=z^2*sqr((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="18" z=z^2*exp((z-(@sp-0.5))/(1-(@sp-0.5)*z)) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z)+@p13 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z-1/sqr(z) elseif @Va=="2" z=z+(z+1i)/(z-1i) elseif @Va=="3" if real(z)imag(z) z=flip(z) endif z=0.5*z elseif @Va=="6" z=z+(sqr(z)+1)/(sqr(z)-1) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" z=z+(z+1)/(z-1) elseif @Va=="9" z=z+cotan(z) elseif @Va=="10" if real(z)>imag(z) z=flip(z) endif z=0.54*conj(z) elseif @Va=="11" z=z+(z-1)/(z+1) elseif @Va=="12" if real(z)imag(z) z=flip(z) endif z=(p1-1.45)*abs(z)+p2 z=((z^2-0.8)/(2*z-1.8))^2 z=(z^2/(2*z-1))^2 f=z+1/z f1=1-1/z^2 z=z-p3*f/f1 if @JM=="J" z=@p10*fn4(log(abs(z)))+(@p11-1) else z=@p10*fn4(log(abs(z)))+@p11*@fn5(pixel) endif endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 14" center=(0.001,0.001) periodicity=0 angle=0 maxiter=500 param JM caption="J/M" enum="J""M" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(0,0) endparam param p3 caption="X Parameter 3" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() visible=@JM=="M" endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p13 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX15 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+(z-@sp*1i)/(z+@sp*1i) elseif @S=="3" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="4" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="7" z=z^2*((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="8" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=z+z^2*cosh((z-@sp)/(1-@sp*z)) elseif @S=="12" z=z+@sp*z^3 elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+z^2*cos((z-@sp)/(1-@sp*z)) elseif @S=="17" z=z^2*sqr((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="18" z=z^2*exp((z-(@sp-0.5))/(1-(@sp-0.5)*z)) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z)+@p13 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z-1/sqr(z) elseif @Va=="2" z=z+(z+1i)/(z-1i) elseif @Va=="3" if real(z)imag(z) z=flip(z) endif z=0.5*z elseif @Va=="6" z=z+(sqr(z)+1)/(sqr(z)-1) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" z=z+(z+1)/(z-1) elseif @Va=="9" z=z+cotan(z) elseif @Va=="10" if real(z)>imag(z) z=flip(z) endif z=0.54*conj(z) elseif @Va=="11" z=z+(z-1)/(z+1) elseif @Va=="12" if real(z)@bailcon) default: title="Ibbler" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Z Parameter 1" default=(1,0) endparam param p2 caption="Z Parameter 2" default=(1,0) endparam param p3 caption="C Parameter 1" default=(1,0) endparam param p4 caption="C Parameter 2" default=(1,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam param bailcon caption="Bailout" default=0.000000000000000000000000000001 visible=@bt==1 endparam } MunsterMagnet2 { init: z=fn1(pixel) if @S==0 z=z+@sp*z elseif @S==1 z=z+(@sp-0.2)/z elseif @S==2 z=z^2*(z-@sp)/(1-@sp*z) elseif @S==3 z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S==4 z=z-(@sp+0.1)*(z^3-1)/(3*z^2) elseif @S==5 z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) endif c=pixel loop: zold=z z=p5*fn2(z)+p6 if @Va=="None" z=z elseif @Va=="1" z=z+0.15*z*cotan(1-z) elseif @Va=="2" z=z*cosh(1-z) elseif @Va=="3" z=z+0.4*(z^3-1)/(3*z^2) elseif @Va=="4" z=z+0.15*(sinh(z)^3-1i)/(3*sinh(z)^2) elseif @Va=="5" z=z+exp((z-1i)/(z+1i)) elseif @Va=="6" z=z-0.3*z*sqr(1-z) elseif @Va=="7" z=z+0.4*(cotanh(z)^3-1)/(3*cotanh(z)^2) elseif @Va=="8" z=z+0.5*sqr(z) elseif @Va=="9" z=z-(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @Va=="10" z=cotan(1/(z-5))+5 elseif @Va=="11" z=z*cos(1-z) elseif @Va=="12" z=z-0.125*(tanh(z)^3-1i)/(3*tanh(z)^2) elseif @Va=="13" z=z-(recip(z)^3-1i)/(3*recip(z)^2) elseif @Va=="14" z=z+cos(1/(z+0.5))-0.5 elseif @Va=="15" z=z+0.15*(cosh(z)^3-1i)/(3*cosh(z)^2) elseif @Va=="16" z=z+z*sqr(1-z) elseif @Va=="17" z=z-(cotan(z)^3-1i)/(3*cotan(z)^2) elseif @Va=="18" z=z-0.1*(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="19" z=z+cotan(1/(z+0.5))-0.5 elseif @Va=="20" z=z+0.1*(cos(z)^3-1i)/(3*cos(z)^2) elseif @Va=="21" z=z+0.15*z*cos(1-z) endif z=p1*z^2*(z-p2*fn3(c))/(1-p2*fn3(c)*z) z=p3*((z^2+p4-1)/(2*z+p4-2))^2 bailout: (@bt==0 && |z|<@baildiv) || (@bt==1 && |zold-z|>@bailcon) || @bt==2 && |z|<@bail3 && |z-1|>@bail4 default: title="Munster Magnet 2" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20""21" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p3 caption="Magnet Parameter 1" default=(1,0) endparam param p4 caption="Magnet Parameter 2" default=(-1,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent""Divergent and Convergent" default=2 endparam param baildiv caption="Bailout Value" default=100.0 visible=@bt==0 endparam param bailcon caption="Bailout Value" default=1e-30 visible=@bt==1 endparam param bail3 caption="Divergent Bailout Value" default=100.0 visible=@bt==2 endparam param bail4 caption="Convergent Bailout Value" default=1e-30 visible=@bt==2 endparam } LabsMunsterMagnet { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+(z-@sp*1i)/(z+@sp*1i) elseif @S=="3" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="4" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="7" z=z^2*((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="8" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=z+z^2*cosh((z-@sp)/(1-@sp*z)) elseif @S=="12" z=z+@sp*z^3 elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+z^2*cos((z-@sp)/(1-@sp*z)) elseif @S=="17" z=z^2*sqr((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="18" z=z^2*exp((z-(@sp-0.5))/(1-(@sp-0.5)*z)) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z)+@p13 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|>1 z=z/|z| endif elseif @Va=="3" z=(recip(z)+1i)/(recip(z)-1i) elseif @Va=="4" z=(conj(z)-1i)/(conj(z)+1i) elseif @Va=="5" z=(sqr(z)+1i)/(sqr(z)-1i) elseif @Va=="6" z=(flip(z)+1i)/(flip(z)-1i) elseif @Va=="7" if |z|>1 z=z/|z| endif z=-exp(z) elseif @Va=="8" z=(flip(z)-1i)/(flip(z)+1i) elseif @Va=="9" if |z|<1 z=z/|z| endif z=-z elseif @Va=="10" z=(z-2*1i)/(z+2*1i) elseif @Va=="11" if real(z)imag(z) z=flip(z) endif z=exp(z) elseif @Va=="18" z=(abs(z)+1i)/(abs(z)-1i) elseif @Va=="19" if |z|>1 z=z/|z| endif z=-2*tan(z) elseif @Va=="20" z=(sinh(z)+1i)/(sinh(z)-1i) elseif @Va=="21" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-4*z elseif @Va=="22" z=(z-1i)/(z+1i) elseif @Va=="23" if |z|>1 z=z/|z| endif z=-2.25*flip(z) elseif @Va=="24" z=(exp(z)-1i)/(exp(z)+1i) elseif @Va=="25" if |z|>1 z=z/|z| endif z=-2.25*conj(z) elseif @Va=="26" if |z|<1 z=z/|z| endif z=-flip(z) elseif @Va=="27" z=(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="28" z=(exp(z)+1i)/(exp(z)-1i) elseif @Va=="29" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=4*z elseif @Va=="30" z=(abs(z)+2*1i)/(abs(z)-2*1i) elseif @Va=="31" if |z|>1 z=z/|z| endif z=exp(z) elseif @Va=="32" z=(exp(z)-2*1i)/(exp(z)+2*1i) elseif @Va=="33" if real(z)imag(z) z=flip(z) endif z=-exp(z) elseif @Va=="38" z=(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="39" if real(z)1 z=z/|z| endif z=2.25*conj(z) elseif @Va=="43" if |z|>1 z=z/|z| endif z=3.5*z elseif @Va=="44" z=(cosh(z)+1i)/(cosh(z)-1i) elseif @Va=="45" if |z|>1 z=z/|z| endif z=2.25*flip(z) elseif @Va=="46" if |z|<1 z=z/|z| endif z=flip(z) elseif @Va=="47" z=(flip(z)-2*1i)/(flip(z)+2*1i) elseif @Va=="48" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=-1.5*flip(z) elseif @Va=="49" z=(sqr(z)+2*1i)/(sqr(z)-2*1i) elseif @Va=="50" if real(z)imag(z) z=flip(z) endif endif z=p1*z^2*(z-p2)/(1-p2*z) z=p3*((z^2+p4-1)/(2*z+p4-2))^2 z=@p10*fn4(log(abs(z)))+@p11*@fn5(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs Munster Magnet" center=(0.001,0.001) periodicity=0 angle=0 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53" endparam param iter caption="Iterations" default=2 endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(0.5,0) endparam param p3 caption="Magnet Parameter 1" default=(1,0) endparam param p4 caption="Magnet Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p13 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX16 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+(z-@sp*1i)/(z+@sp*1i) elseif @S=="3" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="4" z=z^2*(z-@sp)/(1-@sp*z) elseif @S=="5" z=z^2*abs((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="6" z=z+((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="7" z=z^2*((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="8" z=(z+@sp*1i)/(z-@sp*1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=z+z^2*cosh((z-@sp)/(1-@sp*z)) elseif @S=="12" z=z+@sp*z^3 elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) elseif @S=="15" z=(sqr(z)-@sp*1i)/(z+sqr(@sp)) elseif @S=="16" z=z+z^2*cos((z-@sp)/(1-@sp*z)) elseif @S=="17" z=z^2*sqr((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="18" z=z^2*exp((z-(@sp-0.5))/(1-(@sp-0.5)*z)) elseif @S=="19" z=(cotanh(z)-@sp*1i)/(z+cotanh(@sp)) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z)+@p13 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z-1/sqr(z) elseif @Va=="2" z=abs((z-0.5)/(1-0.5*z)) elseif @Va=="3" if real(z)imag(z) z=flip(z) endif elseif @Va=="8" z=(exp(z)-1i)/(exp(z)+1i) elseif @Va=="9" z=(sinh(z)+1i)/(sinh(z)-1i) elseif @Va=="10" z=(z-2*1i)/(z+2*1i) elseif @Va=="11" if |z|>1 z=z/|z| endif z=-2*tan(z) elseif @Va=="12" if real(z)>imag(z) z=flip(z) endif z=exp(z) elseif @Va=="13" z=(flip(z)+2*1i)/(flip(z)-2*1i) elseif @Va=="14" if |z|<1 z=z/|z| endif z=-0.25*sqr(z) elseif @Va=="15" z=(sqr(z)-2*1i)/(sqr(z)+2*1i) endif z=((z^2-p1)/(2*z)+(2*z)/(z^2-p2))^2 z=@p10*fn4(log(abs(z)))+@p11*@fn5(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 17" center=(0.001,0.001) periodicity=0 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p13 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param p9 caption="Add Recip Parameter" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX18J { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p5*fn2(z)+p6 z=(z-p3)/(1-p3*z) z=z/(p4*z+1) if @Va=="None" z=z elseif @Va=="1" z=z^2*((z-2)/(1-2*z)) elseif @Va=="2" z=z+2*(cos(z)^3-1i)/(3*cos(z)^2) elseif @Va=="3" z=z+(z-1i)/(z+1i) elseif @Va=="4" z=z-cotanh(z) elseif @Va=="5" z=z^2*sqr((z-2)/(1-2*z)) elseif @Va=="6" z=flip((z-0.4i)/(z+0.4i)) elseif @Va=="7" z=z+exp((z-1i)/(z+1i)) elseif @Va=="8" z=z*tanh(1-z) elseif @Va=="9" z=z+((z-2.5)/(z+2.5))^2 elseif @Va=="10" z=z*cosh(1-z) elseif @Va=="11" z=z-2*(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @Va=="12" z=-0.6*z*cotanh(1-z) elseif @Va=="13" z=z+exp((z+1i)/(z-1i)) elseif @Va=="14" z=z-(recip(z)^3-1i)/(3*recip(z)^2) elseif @Va=="15" z=sqr((z-3.5i)/(z+3.5i)) elseif @Va=="16" z=z-2*(z^3-1i)/(3*z^2) elseif @Va=="17" z=z+cotanh((z+1i)/(z-1i)) elseif @Va=="18" z=cotanh(z^2/(2*z-1))^2 elseif @Va=="19" z=recip((z^2-1)/(2*z))^2 elseif @Va=="20" z=z+sqr((z-1i)/(z+1i)) elseif @Va=="21" z=z-(sin(z)^3-1i)/(3*sin(z)^2) elseif @Va=="22" z=-1.5*z*tanh(1-z) elseif @Va=="23" z=abs((z-1i)/(z+1i)) elseif @Va=="24" z=recip(z^2/(2*z-1))^2 elseif @Va=="25" z=z+2*(cosh(z)^3-1i)/(3*cosh(z)^2) elseif @Va=="26" z=z+sqr((z+1i)/(z-1i)) elseif @Va=="27" z=z-cotan(z) elseif @Va=="28" z=z+(z-1)/(z+1) elseif @Va=="29" z=z-0.5*(cotan(z)^3-1i)/(3*cotan(z)^2) elseif @Va=="30" z=z+sqr((z-1)/(z+1))^2 elseif @Va=="31" z=z+(sinh(z)^3-1i)/(3*sinh(z)^2) elseif @Va=="32" z=z+(z^3-1i)/(3*z^2) elseif @Va=="33" z=z+cotan(z) elseif @Va=="34" z=z+(cos(z)^3-1i)/(3*cos(z)^2) elseif @Va=="35" z=z-recip(z) elseif @Va=="36" z=z+(exp(z)^3-1i)/(3*exp(z)^2) elseif @Va=="37" z=z+cos(z) elseif @Va=="38" z=z+tanh((z-1i)/(z+1i)) elseif @Va=="39" z=z+z*sqr(1-z) elseif @Va=="40" z=z+0.5*(cos(z)^3-1i)/(3*cos(z)^2) elseif @Va=="41" z=z-(exp(z)^3-1i)/(3*exp(z)^2) elseif @Va=="42" z=z-sqr(z) elseif @Va=="43" z=-z*recip(1-z) elseif @Va=="44" z=z+2*(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @Va=="45" z=z-(cos(z)^3-1i)/(3*cos(z)^2) elseif @Va=="46" z=z+(recip(z)^3-1i)/(3*recip(z)^2) elseif @Va=="47" z=z*tan(1-z) elseif @Va=="48" z=z+(cosh(z)^3-1i)/(3*cosh(z)^2) endif z=z^2*((z-2)/(1-2*z)) z=fn3(p2*conj(p2/(z-p1))+p1)^4 z=@p10*fn4(log(log(abs(z))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 18 J" center=(0.001,0.001) periodicity=0 maxiter=500 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="Möbius Parameter 1" default=(0,0) endparam param p4 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p10 caption="labs Parameter 1" default=(1,0) endparam param p11 caption="labs Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } LabsX18M { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 z=p5*fn2(z)+p6 z=(z-p3)/(1-p3*z) z=z/(p4*z+1) if @Va=="None" z=z elseif @Va=="1" z=z^2*((z-2)/(1-2*z)) elseif @Va=="2" z=((z^2-0.8)/(2*z-1.8))^2 elseif @Va=="3" z=z+(z-1i)/(z+1i) elseif @Va=="4" z=z-cotanh(z) elseif @Va=="5" z=z^2*sqr((z-2)/(1-2*z)) elseif @Va=="6" z=z-sinh(z) elseif @Va=="7" z=z+exp((z-1i)/(z+1i)) elseif @Va=="8" z=cotanh((z^2-1)/(2*z))^2 elseif @Va=="9" z=z-sin(z) elseif @Va=="10" z=z+tanh(z) elseif @Va=="11" z=exp(z^2/(2*z-1))^2 elseif @Va=="12" z=z+cotan((z-1)/(z+1)) elseif @Va=="13" z=z+exp((z+1i)/(z-1i)) elseif @Va=="14" z=z+cosh(z) elseif @Va=="15" z=z+exp((z-1)/(z+1)) elseif @Va=="16" z=z+cotanh((z-1i)/(z+1i)) elseif @Va=="17" z=z+cotanh((z+1i)/(z-1i)) elseif @Va=="18" z=cotanh(z^2/(2*z-1))^2 elseif @Va=="19" z=recip((z^2-1)/(2*z))^2 elseif @Va=="20" z=z+sqr((z-1i)/(z+1i)) elseif @Va=="21" z=z-cosh(z) elseif @Va=="22" z=z+sin(z) elseif @Va=="23" z=z+recip(z) elseif @Va=="24" z=recip(z^2/(2*z-1))^2 elseif @Va=="25" z=z+cotanh((z-1)/(z+1)) elseif @Va=="26" z=z+sqr((z+1i)/(z-1i)) elseif @Va=="27" z=z-cotan(z) elseif @Va=="28" z=z+(z-1)/(z+1) elseif @Va=="29" z=sqr(z^2/(2*z-1))^2 elseif @Va=="30" z=z-cos(z) elseif @Va=="31" z=sqr((z^2-1)/(2*z))^2 elseif @Va=="32" z=z-tan(z) elseif @Va=="33" z=z+cotan(z) elseif @Va=="34" z=z+tanh((z+1i)/(z-1i)) elseif @Va=="35" z=z-recip(z) elseif @Va=="36" z=z+tanh((z-1)/(z+1)) elseif @Va=="37" z=z+cos(z) elseif @Va=="38" z=z+tanh((z-1i)/(z+1i)) elseif @Va=="39" z=cotan(z^2/(2*z-1))^2 elseif @Va=="40" z=z-tanh(z) elseif @Va=="41" z=z+sqr((z-1)/(z+1)) elseif @Va=="42" z=z-sqr(z) elseif @Va=="43" z=z+tan((z-1)/(z+1)) elseif @Va=="44" z=z+sinh(z) elseif @Va=="45" z=((z^2-1)/(2*z))^2 elseif @Va=="46" z=z+sqr(z) elseif @Va=="47" z=tanh((z^2-1)/(2*z))^2 elseif @Va=="48" z=z+tan(z) elseif @Va=="49" z=(z^2/(2*z-1))^2 endif z=z^2*((z-2)/(1-2*z)) z=fn3(p2*conj(p2*@fn5(pixel)/(z-p1))+p1)^4 z=@p10*fn4(log(log(abs(z))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 18 M" center=(0.001,0.001) periodicity=0 maxiter=500 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="Möbius Parameter 1" default=(0,0) endparam param p4 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam param bail caption="Bailout" default=1000.0 endparam } Rivore { init: z=fn1(pixel) if @S==0 z=z+@sp*z elseif @S==1 z=z+(@sp-0.2)/z elseif @S==2 z=z^2*(z-@sp)/(1-@sp*z) elseif @S==3 z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S==4 z=z-(@sp+0.1)*(z^3-1)/(3*z^2) elseif @S==5 z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) endif loop: zold=z z=p5*fn2(z)+p6 z=(z-p3)/(1-p3*z) z=z/(p4*z+1) if @Va=="None" z=z elseif @Va=="1" z=z+0.15*z*cotan(1-z) elseif @Va=="2" z=z*cosh(1-z) elseif @Va=="3" if |z|<1 z=z/|z| endif z=-0.67*recip(z) elseif @Va=="4" if |z|>1 z=z/|z| endif z=1/cotanh(z) elseif @Va=="5" if real(z)imag(z) z=flip(z) endif z=-0.67*conj(z) elseif @Va=="8" z=z+0.5*sqr(z) elseif @Va=="9" z=flip(z/(z+1)) elseif @Va=="10" if |z|<1 z=z/|z| endif z=recip(z) elseif @Va=="11" z=z*cos(1-z) elseif @Va=="12" z=recip(z^2/(z+0.325)) elseif @Va=="13" z=z+sin(z) elseif @Va=="14" if |z|>1 z=z/|z| endif z=tan(z) elseif @Va=="15" if |z|>1 z=z/|z| endif z=-tan(z) elseif @Va=="16" z=z+z*sqr(1-z) elseif @Va=="17" z=recip(z^2/(0.3+z)+z) elseif @Va=="18" z=z+recip(z) elseif @Va=="19" if |z|>1 z=z/|z| endif z=sin(z) elseif @Va=="20" z=flip(z/(z-0.9)) elseif @Va=="21" z=z+0.15*z*cos(1-z) elseif @Va=="22" z=recip(z/(2.75+z)+z) elseif @Va=="23" if |z|>1 z=z/|z| endif z=-sinh(z) elseif @Va=="24" z=z/(z-0.75) elseif @Va=="25" z=z^2/(z-0.42) elseif @Va=="26" z=flip(z^2/(2.6+z)+z) elseif @Va=="27" z=(z^2/(2+z)+z) elseif @Va=="28" if |z|>1 z=z/|z| endif z=-1/cotanh(z) elseif @Va=="29" z=z/(z-1) elseif @Va=="30" z=abs(z/(z-1)) elseif @Va=="31" if |z|>1 z=z/|z| endif z=flip(z) elseif @Va=="32" z=recip(z/(0.7+z)+z) elseif @Va=="33" if |z|>1 z=z/|z| endif z=2*sqr(z) elseif @Va=="34" z=abs(z^2/(2.8+z)+z) endif z=(z^3-p1-3*z^2)^2/(z^3-p2+3*z^2) bailout: (@bt==0 && |z|<@baildiv) || (@bt==1 && |zold-z|>@bailcon) || (@bt==2 && |z|<@bail3 && |z-1|>@bail4) default: title="Rivore" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34" endparam param p1 caption="Rivore Parameter 1" default=(0,0) endparam param p2 caption="Rivore Parameter 2" default=(0,0) endparam param p3 caption="Möbius Parameter 1" default=(0,0) endparam param p4 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent""Divergent and Convergent" default=1 endparam param baildiv caption="Bailout Value" default=100.0 visible=@bt==0 endparam param bailcon caption="Bailout Value" default=1e-30 visible=@bt==1 endparam param bail3 caption="Divergent Bailout Value" default=100.0 visible=@bt==2 endparam param bail4 caption="Convergent Bailout Value" default=1e-30 visible=@bt==2 endparam } LabsX19 { init: z=fn1(pixel) if @S=="1" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="2" z=z+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="3" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="4" z=z+@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="5" z=@sp*(2*z-1i)/(z+2i)*(z-1) elseif @S=="6" z=@sp*(2*z-1i)/(z+2i)/(z-1) elseif @S=="7" z=z^2+@sp*(2*z-1i)/(z+2i)/(z-1i) elseif @S=="8" z=z^2+@sp*(2*z-1i)/(z+2i)*(z-1i) elseif @S=="9" z=@sp*(z+1i)*(z-1)/(z+1) elseif @S=="10" z=@sp*(z+1i)*(z-1)/(z-1i) elseif @S=="11" z=@sp*(z-2)/(1-2*z)/(z-1i) elseif @S=="12" z=@sp*(z-2)/(1i-2*z)/(z-1) elseif @S=="13" z=@sp*(z-0.5)/(1-0.5*z)/(z-1i) elseif @S=="14" z=@sp*(z-0.5)/(1i-0.5*z)/(z-1) endif int i=0 loop: while i<@iter i=i+1 z=p4*fn2(z)+p5 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) z=z+@p9/z if @Va=="None" z=z elseif @Va=="1" z=z+z^2*sqr((z+7.7)/(1+7.7*z)) elseif @Va=="2" z=z+z^2*flip((z-1)/(1-1*z)) elseif @Va=="3" z=(z+z/(z+1)) elseif @Va=="4" z=z+2*(z^3-1i)/(3*z^2) elseif @Va=="5" z=z^2*(z-2)/(1-2*z) elseif @Va=="6" z=z+2*(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="7" if |z|<1 z=z/|z| endif z=0.75*z elseif @Va=="8" z=(z+z^2/(z+3)) elseif @Va=="9" z=recip(z^2/(2*z-1))^2 elseif @Va=="10" z=z+2.75*(recip(z)^3-1i)/(3*recip(z)^2) elseif @Va=="11" z=z-(cotanh(z)^3-1i)/(3*cotanh(z)^2) elseif @Va=="12" z=cosh(z+z/(z+1)) elseif @Va=="13" z=z^2*tan((z-2)/(1-2*z)) elseif @Va=="14" z=conj(z+z^2/(z+1)) elseif @Va=="15" z=z-(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="16" z=z-(z^3-1i)/(3*z^2) elseif @Va=="17" z=abs(z+z/(z+1)) elseif @Va=="18" z=7.5/(z-1)+1 elseif @Va=="19" z=((z+0.1525)/(1+0.1525*z)) elseif @Va=="20" if real(z)imag(z) z=flip(z) endif z=-0.07881*sqr(z) if real(z)1 z=z/|z| endif z=0.75*recip(z) elseif @Va=="3" z=recip(z) z=0.96*cotan(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=z+0.15*z*cos(1-z) elseif @Va=="7" z=recip(z) z=0.895*cotanh(z) elseif @Va=="8" if |z|<1 z=z/|z| endif z=-abs(z) elseif @Va=="9" z=0.5*z*(1-z) elseif @Va=="10" z=flip((z^2+1.42779)/(2*z+0.42779))^2 elseif @Va=="11" if |z|>1 z=z/|z| endif z=0.85*cotanh(z) elseif @Va=="12" z=z^2*exp((z-2)/(8.1156+2*z)) elseif @Va=="13" z=z+0.25*z*recip(1-z) elseif @Va=="14" z=z-0.3*(recip(z)^3-1i)/(3*recip(z)) elseif @Va=="15" if |z|<1 z=z/|z| endif z=-0.5*sqr(z) elseif @Va=="16" z=z^2*sqr((z-4)/(-3.71612+4*z)) elseif @Va=="17" z=z+0.315*z*sin(1-z) elseif @Va=="18" z=z^2*tanh((z-2)/(6.44+2*z)) elseif @Va=="19" if |z|>1 z=z/|z| endif z=0.9*cotan(z) elseif @Va=="20" z=-1.421*z*cos(1-z) elseif @Va=="21" z=z*cotanh(1-z) elseif @Va=="22" z=z^2*tanh((z-2)/(6.44+2*z)) elseif @Va=="23" if real(z)imag(z) z=flip(z) endif z=-abs(z) elseif @Va=="27" z=1.33*z*tanh(1-z) elseif @Va=="28" z=z^2*tan((z-1)/(3.567*1i+z)) elseif @Va=="29" z=z+0.85*(tanh(z)^3-1i)/(3*tanh(z)) elseif @Va=="30" z=-0.885*z*tan(1-z) elseif @Va=="31" z=0.87386*z*tan(1-z) elseif @Va=="32" z=z+0.75*(sin(z)^3-1i)/(3*sin(z)) elseif @Va=="33" z=z^2*sinh((z-1)/(-5.53713*1i+z)) elseif @Va=="34" z=0.7725*z*cos(1-z) endif zn=z+p3 zn1=z+2*p3 zn2=z+3*p3 z=(zn^3-p1)*(z-zn2)*(z-zn1)/((zn-zn2)*(zn-zn1))\ +(zn1^3-p1)*(z-zn2)*(z-zn)/((zn1-zn2)*(zn1-zn))\ +(zn2^3-p1)*(z-zn1)*(z-zn)/((zn2-zn1)*(zn2-zn))+p2 bailout: (@bt==0 && |z|<@baildiv) || (@bt==1 && |zold-z|>@bailcon) default: title="Mul" center=(0.001,0.001) magn=0.25 periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34" endparam param p1 caption="Mul Parameter 1" default=(1,0) endparam param p2 caption="Mul Parameter 2" default=(0,0) endparam param p3 caption="Mul Parameter 3" default=(1,0) endparam param p5 caption="Loop Parameter 1" default=(-0.3333,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param baildiv caption="Bailout Value" default=100.0 visible=@bt==0 endparam param bailcon caption="Bailout Value" default=1e-30 visible=@bt==1 endparam } Mul2 { init: z=fn1(pixel) zn=0 zn1=0 zn2=0 if @S==0 z=z+@sp*z^2 elseif @S==1 z=z+(@sp+2.5)/z elseif @S==2 z=z^2*(z-(@sp+3))/(1-(@sp+3)*z) elseif @S==3 z=((z^2+@sp+2)/(2*z+@sp+1))^2 elseif @S==4 z=z-(@sp+7)*(z^3-1i)/(3*z^2) elseif @S==5 z=(@sp-2.5)*(z-1i)/(z+1i) endif loop: zold=z z=p5*fn2(z)+p6 if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=0.872*z elseif @Va=="2" if |z|>1 z=z/|z| endif z=-cotanh(z) elseif @Va=="3" z=recip(z) z=-0.44884*cotanh(z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif elseif @Va=="6" z=conj((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="7" z=cotan(3.31814/(z-1))+1 elseif @Va=="8" if |z|<1 z=z/|z| endif z=-0.82*flip(z) elseif @Va=="9" z=cotanh(1/(z+0.85))-0.85 elseif @Va=="10" z=conj((z^2-0.565-1i)/(2*z-0.565-2i))^2 elseif @Va=="11" if real(z)imag(z) z=flip(z) endif z=conj(z) elseif @Va=="20" z=conj((z^2-4-1i)/(2*z-4-2i))^2 elseif @Va=="21" if |z|>1 z=z/|z| endif z=0.75*cotan(z) elseif @Va=="22" if real(z)imag(z) z=flip(z) endif z=-z elseif @Va=="27" z=flip((z^2-6.57-1i)/(2*z-6.57-2i))^2 elseif @Va=="28" z=cotan(1/(z-1))+1 elseif @Va=="29" if real(z)@bailcon) default: title="Mul 2" center=(0.001,0.001) magn=0.25 periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34" endparam param p1 caption="Mul Parameter 1" default=(1,0) endparam param p2 caption="Mul Parameter 2" default=(0,0) endparam param p3 caption="Mul Parameter 3" default=(1,0) endparam param p5 caption="Loop Parameter 1" default=(-0.3333,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param baildiv caption="Bailout Value" default=100.0 visible=@bt==0 endparam param bailcon caption="Bailout Value" default=1e-30 visible=@bt==1 endparam } Mul3 { init: z=fn1(pixel) zn=0 zn1=0 zn2=0 if @S==0 z=z+@sp*z^2 elseif @S==1 z=z+(@sp+2.5)/z elseif @S==2 z=z^2*(z-(@sp+3))/(1-(@sp+3)*z) elseif @S==3 z=((z^2+@sp+2)/(2*z+@sp+1))^2 elseif @S==4 z=z-(@sp+7)*(z^3-1i)/(3*z^2) elseif @S==5 z=(@sp-2.5)*(z-1i)/(z+1i) endif loop: zold=z z=p5*fn2(z)+p6 if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=-0.8214*z elseif @Va=="2" if |z|>1 z=z/|z| endif z=0.75*recip(z) elseif @Va=="3" z=-0.3*z*(1-z) elseif @Va=="4" if real(z)1 z=z/|z| endif z=0.85*cotanh(z) elseif @Va=="12" z=z^2*tanh((z-4)/(16.227+4*z)) elseif @Va=="13" z=z+0.25*z*recip(1-z) elseif @Va=="14" z=((flip(z)^2-2.5)/(2*flip(z)-3.5))^2 elseif @Va=="15" z=0.093*z*sqr(1-z) elseif @Va=="16" if real(z)imag(z) z=flip(z) endif z=-abs(z) elseif @Va=="27" z=z-0.4225*(tan(z)^3-1i)/(3*tan(z)^2) elseif @Va=="28" z=1.7*z*sin(1-z) elseif @Va=="29" z=z^2*sin((z-4)/(-3+4*z)) elseif @Va=="30" z=0.3*z*(1-z) elseif @Va=="31" if real(z)@bailcon) default: title="Mul 3" center=(0.001,0.001) magn=0.25 periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34" endparam param p1 caption="Mul Parameter 1" default=(1,0) endparam param p2 caption="Mul Parameter 2" default=(0,0) endparam param p3 caption="Mul Parameter 3" default=(1,0) endparam param p5 caption="Loop Parameter 1" default=(-0.3333,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param baildiv caption="Bailout Value" default=100.0 visible=@bt==0 endparam param bailcon caption="Bailout Value" default=1e-30 visible=@bt==1 endparam } Munster10J { init: z=fn1(pixel) if @S==0 z=z+@sp*z^2 elseif @S==1 z=z+(@sp+1)/z elseif @S==2 z=z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S==3 z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S==4 z=z-(@sp+1)*(z^3-1)/(3*z^2) elseif @S==5 z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) endif loop: zold=z z=p5*fn2(z)+p6 z=z/(@p7*z+1) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=1.15*z elseif @Va=="2" z=z^2*(z-2.9)/(1i-2.9*z) elseif @Va=="3" z=z^2*(1i*z-3)/(-1-3*1i*z) elseif @Va=="4" if real(z)imag(z) z=flip(z) endif z=0.6*z elseif @Va=="6" z=z^2*(z+6.2)/(1i+6.2*z) elseif @Va=="7" if |z|<1 z=z/|z| endif z=flip(z) elseif @Va=="8" z=flip((z^2-1i)/(2*z-2i))^2 elseif @Va=="9" if real(z)@bail default: title="Munster 10 J" center=(0.001,0.001) magn=0.5 periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter" default=(0,0) endparam param bail caption="Bailout" default=1e-30 endparam } Munster10M { init: z=fn1(pixel) if @S==0 z=z+@sp*z^2 elseif @S==1 z=z+(@sp+1)/z elseif @S==2 z=z^2*(z-(@sp+0.5))/(1-(@sp+0.5)*z) elseif @S==3 z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S==4 z=z-(@sp+1)*(z^3-1)/(3*z^2) elseif @S==5 z=(z-(@sp+1)*1i)/(z+(@sp+1)*1i) endif loop: zold=z z=p5*fn2(z)+p6 if @Va=="None" z=z elseif @Va=="1" z=z^2*(sin(z)-2)/(0.5i+2*sin(z)) elseif @Va=="2" z=z^2*(tanh(z)-2)/(2*tanh(z)) elseif @Va=="3" z=z^2*((z-3)/(1i+3*z)) elseif @Va=="4" z=z-(tan(z)^3-1i)/(3*tan(z)^2) elseif @Va=="5" z=z^2*sin((z-2.75)/(1-2.75*z)) elseif @Va=="6" z=z^2*cotanh((z-0.1)/(1-0.1*z)) elseif @Va=="7" z=z^2*(z-2)/(1-2*z) elseif @Va=="8" z=z+(z^2/(z+3)) elseif @Va=="9" z=z^2*(sinh(z)-2)/(2*sinh(z)) elseif @Va=="10" z=z*(z-2)/2 elseif @Va=="11" z=z^2*sinh((z-3)/(0.3i-3*z)) elseif @Va=="12" z=z-(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="13" z=z^2*cotan((z-0.1)/(1-0.1*z)) elseif @Va=="14" z=z^2*exp((z-0.5)/(1-0.5*z)) elseif @Va=="15" z=z^2*(z-5)/(1-5*z) elseif @Va=="16" z=z-(sin(z)^3-1i)/(3*sin(z)^2) elseif @Va=="17" z=z^2*(z-2)/(1i+2*z) elseif @Va=="18" z=z+sqr(z^2/(z-0.5)) elseif @Va=="19" z=z^2*sqr((z-2)/(1-2*z)) elseif @Va=="20" z=z+sin(z^2/(z-0.67)) elseif @Va=="21" z=(z^2-2)/2 elseif @Va=="22" z=z^2*(sinh(z)-2)/(0.5i+2*sinh(z)) elseif @Va=="23" z=z^2*sin((z-3)/(0.3i-3*z)) elseif @Va=="24" z=z+recip(z^2/(z+1.5)) elseif @Va=="25" z=z^2*(z+5)/(1+5*z) elseif @Va=="26" z=z+sin(z^2/(z+0.67)) elseif @Va=="27" z=z^2*(tanh(z)-2)/(0.5i+2*tanh(z)) elseif @Va=="28" z=z+sqr(z^2/(z+2)) elseif @Va=="29" z=z+1.5*(recip(z)^3-1i)/(3*recip(z)^2) elseif @Va=="30" z=z^2*(sqr(z)-2)/(1i+2*sqr(z)) elseif @Va=="31" z=z^2*(tan(z)-2)/(2*tan(z)) elseif @Va=="32" z=z+(z/(z-2i)) elseif @Va=="33" z=z+2*(z^3-1i)/(3*z^2) elseif @Va=="34" z=z+(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="35" z=z^2*tanh((z-2.5)/(1-2.5*z)) elseif @Va=="36" z=z^2*sqr((z-2.5)/(1-2.5*z)) elseif @Va=="37" z=z+0.2*(exp(z)^3-1i)/(3*exp(z)^2) elseif @Va=="38" z=z+(z^2/(z-3)) elseif @Va=="38" z=z^2*sinh((z-2.75)/(1-2.75*z)) elseif @Va=="39" z=z+sqr(z^2/(z-2)) elseif @Va=="40" z=z-0.5*(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="41" z=z^2*cotan((z+0.1)/(1+0.1*z)) elseif @Va=="42" z=z^2*cotanh((z+0.1)/(1+0.1*z)) elseif @Va=="43" z=z-(sinh(z)^3-1i)/(3*sinh(z)^2) elseif @Va=="44" z=z^2*(z+2)/(1+2*z) elseif @Va=="45" z=z-(tanh(z)^3-1i)/(3*tanh(z)^2) elseif @Va=="46" z=z^2*(tan(z)-2)/(0.5i+2*tan(z)) elseif @Va=="47" z=z+1.5*(sqr(z)^3-1i)/(3*sqr(z)^2) elseif @Va=="48" z=z^2*(sqr(z)-2)/(1.5i+2*sqr(z)) elseif @Va=="49" z=z^2*(sin(z)-2)/(2*sin(z)) elseif @Va=="50" z=z-6*(z^3-1i)/(3*z^2) elseif @Va=="51" z=z^2*sqr((z-3)/(1i-3*z)) elseif @Va=="52" z=z+sqr(z/(z-0.85i)) elseif @Va=="53" z=z^2*tanh((z-5)/(1-5*z)) elseif @Va=="54" z=z+sqr(z^2/(z+0.5)) elseif @Va=="55" z=z+recip(z^2/(z-1.5)) endif z=p1*fn3(pixel)*Z^2*(Z-4)/(p2+4*Z)+p3 bailout: (@bt==0 && |z|<@baildiv) || (@bt==1 && |zold-z|>@bailcon) default: title="Munster 10 M" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="Add Sqr""Add Recip""Munster""Magnet""Newton""Cayley" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam param p5 caption="Loop Parameter 1" default=(1,0) endparam param p6 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param baildiv caption="Bailout Value" default=100.0 visible=@bt==0 endparam param bailcon caption="Bailout Value" default=1e-30 visible=@bt==1 endparam } LabsX22 { init: z=fn1(pixel) z=z+@sp*z^2 int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif elseif @sv=="4" if real(z)imag(z) z=flip(z) endif z=-0.5*z elseif @sv=="12" if real(z)>imag(z) z=flip(z) endif z=0.5*z elseif @sv=="13" if real(z)>imag(z) z=flip(z) endif z=-0.5*abs(z) elseif @sv=="14" if real(z)>imag(z) z=flip(z) endif z=0.5*abs(z) endif int i=0 loop: while i<@iter i=i+1 z=p1*fn2(recip(fn3(z)))+p4 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="1" z=z elseif @Va=="2" if real(z)imag(z) z=flip(z) endif z=2*abs(z) elseif @Va=="16" if real(z)>imag(z) z=flip(z) endif z=-2*abs(z) elseif @Va=="17" if real(z)>imag(z) z=flip(z) endif z=1.75*tanh(z) elseif @Va=="18" if real(z)<0 z=-real(z)+flip(imag(z)) endif elseif @Va=="19" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=flip(z) elseif @Va=="20" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=2.3*z endif z=recip(z) z=p2*fn4(log(abs((10*z^9-495*z^8+10560*z^7-127050*z^6+946638*z^5\ -4510275*z^4+13667720*z^3-25228500*z^2+25507152*z\ -10628640)/10628640)))^2+p3*@fn5(pixel) endwhile z=@adj*z/100 bailout: |z|<@bail default: title="Awunon Ixatrisep 4" center=(4,0.001) magn=0.125 maxiter=500 periodicity=0 param sv caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param Va caption="Loop Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20" endparam param p1 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p2 caption="Labs Parameter 1" default=(1,0) endparam param p3 caption="Labs Parameter 2" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function 1" default=ident() endfunc func fn3 caption="Loop Function 2" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param iter caption="Iterations" default=2 endparam param adj caption="Adjustment" default=102.0 endparam param bail caption="Bailout" default=10000000.0 endparam } Magmod3 { init: z=fn1(pixel) z=z+@sp*1i*z^2 int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(sqr(z))+@p13 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif z=0.2*sqr(z) elseif @Va=="7" z=z^2*(z-8)/(1-8*z) elseif @Va=="8" z=z^2*(z-8)/(1+8*z) elseif @Va=="9" z=z+0.3i*exp(z) elseif @Va=="10" if real(z)>imag(z) z=flip(z) endif z=-abs(z) elseif @Va=="11" z=z+0.3*sqr(z) elseif @Va=="12" z=z-0.3*sqr(z) elseif @Va=="13" z=z-0.3i*exp(z) elseif @Va=="14" if real(z)>imag(z) z=flip(z) endif z=-0.2*sqr(z) elseif @Va=="15" z=z-0.3i*sqr(z) elseif @Va=="16" if real(z)>imag(z) z=flip(z) endif z=abs(z) elseif @Va=="17" z=z+0.3i*sqr(z) endif if @V=="1" z=sqr((z^3+3*(1.65*@fn5(pixel)-1)*z-0.2275)/(3*z^2-1.05*z+0.7725)) elseif @V=="2" z=sqr((z^3+1.95*z-0.35*(1.65*@fn5(pixel)-1))/(3*z^2-1.05*z+0.7725)) elseif @V=="3" z=sqr((z^3+1.95*z+0.65*(1.65*@fn5(pixel)-2))/(3*z^2-1.05*z+0.7725)) elseif @V=="4" z=sqr((z^3+1.95*z-0.2275)/(3*z^2+3*(1.65*@fn5(pixel)-2)*z+0.7725)) elseif @V=="5" z=sqr((z^3+1.95*z-0.2275)/(3*z^2-1.05*z-0.35*(1.65*@fn5(pixel)-1)+1)) elseif @V=="6" z=sqr((z^3+1.95*z-0.2275)/(3*z^2-1.05*z+0.65*(1.65*@fn5(pixel)-2)+1)) endif z=@p10*fn4((log(abs(z))))+@p11*@fn6(pixel) endwhile z=z*51/50 bailout: |z|<@bail default: title="Magmod 3" center=(0.001,0.001) periodicity=0 maxiter=500 param sp caption="Start Parameter" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc param V caption="Variant" enum="1""2""3""4""5""6" endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17" endparam param iter caption="Iterations" default=2 endparam func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc func fn5 caption="C Function 1" default=ident() endfunc func fn6 caption="C Function 2" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p13 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } Magmod4 { init: z=fn1(pixel) z=z+@sp*z^2 int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(sqr(z))+p2 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=recip((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="2" z=z-2.987*(z^3-1i)/(3*z^2) elseif @Va=="3" z=recip((z^2)/(2*z-1))^2 elseif @Va=="4" z=z^2*exp((z-0.3)/(1i-0.3*z)) elseif @Va=="5" z=((z^2)/(2*z-1))^2 elseif @Va=="6" z=sqr((z-2i)/(z+2i)) elseif @Va=="7" z=z^2*sinh(z/1i) elseif @Va=="8" z=z^2*(z-8)/(1+8*z) elseif @Va=="9" z=z+0.3i*exp(z) elseif @Va=="10" z=z+z^2/(z+1i) elseif @Va=="11" z=z^2*recip(z/1i) elseif @Va=="12" z=((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="13" z=z^2*cosh(z/1i) elseif @Va=="14" z=z^2*cos(z/1i) elseif @Va=="15" z=((z^2-15-1i)/(2*z-15-2i))^2 elseif @Va=="16" z=z+sqr(z^2/(z+2i)) elseif @Va=="17" z=z+0.3i*sqr(z) elseif @Va=="18" z=z^2*sqr(z/1i) elseif @Va=="19" z=z-0.3*sqr(z) elseif @Va=="20" z=sqr((z+2i)/(z-2i)) elseif @Va=="21" z=z^2*sin(z/1i) elseif @Va=="22" z=sqr((z^2+15-1i)/(2*z+15-2i))^2 elseif @Va=="23" z=sqr((z^2-7-1i)/(2*z-7-2i))^2 elseif @Va=="24" z=z^2*exp((z-0.05)/(1i-0.05*z)) elseif @Va=="25" z=exp((z^2)/(2*z-1))^2 elseif @Va=="26" z=z-0.3i*sqr(z) elseif @Va=="27" z=z^2*exp(z/1i) elseif @Va=="28" z=z-0.3i*exp(z) elseif @Va=="29" z=z+0.3*sqr(z) elseif @Va=="30" z=z^2*(z/1i) endif if @V=="1" z=sqr((z^3+3*(p1*@fn5(pixel)-1)*z+(p1-1)*(p1-2))/(3*z^2+3*(p1-2)*z+(p1-1)*(p1-2)+1)) elseif @V=="2" z=sqr((z^3+3*(p1-1)*z+(p1*@fn5(pixel)-1)*(p1-2))/(3*z^2+3*(p1-2)*z+(p1-1)*(p1-2)+1)) elseif @V=="3" z=sqr((z^3+3*(p1-1)*z+(p1-1)*(p1*@fn5(pixel)-2))/(3*z^2+3*(p1-2)*z+(p1-1)*(p1-2)+1)) elseif @V=="4" z=sqr((z^3+3*(p1-1)*z+(p1-1)*(p1-2))/(3*z^2+3*(p1*@fn5(pixel)-2)*z+(p1-1)*(p1-2)+1)) elseif @V=="5" z=sqr((z^3+3*(p1-1)*z+(p1-1)*(p1-2))/(3*z^2+3*(p1-2)*z+(p1*@fn5(pixel)-1)*(p1-2)+1)) elseif @V=="6" z=sqr((z^3+3*(p1-1)*z+(p1-1)*(p1-2))/(3*z^2+3*(p1-2)*z+(p1-1)*(p1*@fn5(pixel)-2)+1)) endif z=@p10*fn4((log(abs(z))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Magmod 4" center=(0.001,0.001) periodicity=0 maxiter=500 param V caption="Variant" enum="1""2""3""4""5""6" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30" endparam param iter caption="Iterations" default=2 endparam param p1 caption="Magmod Parameter" default=(1.65,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p2 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } Magmod5 { init: z=fn1(pixel) z=z+@sp*z^2 int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(sqr(z))+p2 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=recip((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="2" z=z-2.987*(z^3-1i)/(3*z^2) elseif @Va=="3" z=recip((z^2)/(2*z-1))^2 elseif @Va=="4" z=z^2*exp((z-0.3)/(1i-0.3*z)) elseif @Va=="5" z=((z^2)/(2*z-1))^2 elseif @Va=="6" z=sqr((z-2i)/(z+2i)) elseif @Va=="7" z=z^2*sinh(z/1i) elseif @Va=="8" z=z^2*(z-8)/(1+8*z) elseif @Va=="9" z=z+0.3i*exp(z) elseif @Va=="10" z=z+z^2/(z+1i) elseif @Va=="11" z=z^2*recip(z/1i) elseif @Va=="12" z=((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="13" z=z^2*cosh(z/1i) elseif @Va=="14" z=z^2*cos(z/1i) elseif @Va=="15" z=((z^2-15-1i)/(2*z-15-2i))^2 elseif @Va=="16" z=z+sqr(z^2/(z+2i)) elseif @Va=="17" z=z+0.3i*sqr(z) elseif @Va=="18" z=z^2*sqr(z/1i) elseif @Va=="19" z=z-0.3*sqr(z) elseif @Va=="20" z=sqr((z+2i)/(z-2i)) elseif @Va=="21" z=z^2*sin(z/1i) elseif @Va=="22" z=sqr((z^2+15-1i)/(2*z+15-2i))^2 elseif @Va=="23" z=sqr((z^2-7-1i)/(2*z-7-2i))^2 elseif @Va=="24" z=z^2*exp((z-0.05)/(1i-0.05*z)) elseif @Va=="25" z=exp((z^2)/(2*z-1))^2 elseif @Va=="26" z=z-0.3i*sqr(z) elseif @Va=="27" z=z^2*exp(z/1i) elseif @Va=="28" z=z-0.3i*exp(z) elseif @Va=="29" z=z+0.3*sqr(z) elseif @Va=="30" z=z^2*(z/1i) endif if @V=="1" z=sqr((z^3+3*(p1*@fn5(pixel)-1i)*z+(p1-1i)*(p1-2i))/(3*z^2+3*(p1-2i)*z+(p1-1i)*(p1-2i)+1)) elseif @V=="2" z=sqr((z^3+3*(p1-1i)*z+(p1*@fn5(pixel)-1i)*(p1-2i))/(3*z^2+3*(p1-2i)*z+(p1-1i)*(p1-2i)+1)) elseif @V=="3" z=sqr((z^3+3*(p1-1i)*z+(p1-1i)*(p1*@fn5(pixel)-2i))/(3*z^2+3*(p1-2i)*z+(p1-1i)*(p1-2i)+1)) elseif @V=="4" z=sqr((z^3+3*(p1-1i)*z+(p1-1i)*(p1-2i))/(3*z^2+3*(p1*@fn5(pixel)-2i)*z+(p1-1i)*(p1-2i)+1)) elseif @V=="5" z=sqr((z^3+3*(p1-1i)*z+(p1-1i)*(p1-2i))/(3*z^2+3*(p1-2i)*z+(p1*@fn5(pixel)-1i)*(p1-2i)+1)) elseif @V=="6" z=sqr((z^3+3*(p1-1i)*z+(p1-1i)*(p1-2i))/(3*z^2+3*(p1-2i)*z+(p1-1i)*(p1*@fn5(pixel)-2i)+1)) endif z=@p10*fn4(log(log(abs(z))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Magmod 5" center=(0.001,0.001) periodicity=0 maxiter=500 param V caption="Variant" enum="1""2""3""4""5""6" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30" endparam param iter caption="Iterations" default=2 endparam param p1 caption="Magmod Parameter" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="Labs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p2 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } Byllaslif { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2((z))+p2 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z^2*cotan(z/1i) elseif @Va=="2" z=z+exp(z^2/(z-0.4)) elseif @Va=="3" z=z^2*(z-4)/(1i+4*z) elseif @Va=="4" z=((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="5" z=z-(z^3-1i)/(3*z^2) elseif @Va=="6" z=-0.2*z^3/1i elseif @Va=="7" z=z+(3*z^2)/(z^6-1i) elseif @Va=="8" z=z^2*(z-8)/(1+8*z) elseif @Va=="9" z=z+0.3i*exp(z) elseif @Va=="10" z=z+sqr(z^2/(z+3)) elseif @Va=="11" z=z^2*recip(z/1i) elseif @Va=="12" z=z^2*(cos(z)-4)/(-2.15i+4*z) elseif @Va=="13" z=z-(3*z^2)/(cos(z)^3-1i) elseif @Va=="14" z=z+cotanh(z^2/(z-0.2)) elseif @Va=="15" z=z+(exp(z)^3-1i)/(3*z^2) elseif @Va=="16" z=z^2*(tanh(z)-4)/(1i+4*z) elseif @Va=="17" z=z^2*(cos(z)-4)/(1i+4*z) elseif @Va=="18" z=z+1.5*(z^3-1i)/(3*z^2) elseif @Va=="19" z=z-0.3*sqr(z) elseif @Va=="20" z=z+(3*z^2)/(z^3-1i) elseif @Va=="21" z=z+cotan(z^2/(z-0.2)) elseif @Va=="22" z=sqr((z^2-5-1i)/(2*z-5-2i))^2 elseif @Va=="23" z=z^2*(recip(z)-4)/(1i+4*z) elseif @Va=="24" z=cotan((z^2+1.5-1i)/(2*z+1.5-2i))^2 elseif @Va=="25" z=exp((z^2)/(2*z-1))^2 elseif @Va=="26" z=z-0.3i*sqr(z) elseif @Va=="27" z=z+(3*z^2)/(cos(z)^3-1i) elseif @Va=="28" z=z-0.3i*exp(z) elseif @Va=="29" z=z^2*(exp(z)-4)/(1i+4*z) elseif @Va=="30" z=z+recip(z^2/(z-0.5)) elseif @Va=="31" z=z-(3*z^2)/(z^3-1i) elseif @Va=="32" z=z-(3*z^2)/(sinh(z)^3-1i) elseif @Va=="33" z=z-(exp(z)^3-1i)/(3*z^2) elseif @Va=="34" z=z-(3*z^2)/(sinh(z)^3-1i) elseif @Va=="35" z=z-(3*z^2)/(z^6-1i) endif z=(z-p4)*(Z^3+p1)*z^2+p3*@fn5(pixel) z=@p10*fn4(log(log(log(abs(z)))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Byllaslif" center=(0.001,0.001) periodicity=0 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35" endparam param iter caption="Iterations" default=2 endparam param p1 caption="Byllaslif Parameter 1" default=(1,0) endparam param p3 caption="Byllaslif Parameter 2" default=(1,0) endparam param p4 caption="Byllaslif Parameter 3" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc func fn4 caption="LLlabs Function" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p2 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="LLlabs Parameter 1" default=(1,0) endparam param p11 caption="LLlabs Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } Barnsley9 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: z=p3*fn2(z)+p4 z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=0.917*conj(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=5.85*atanh(z) elseif @Va=="4" z=z+exp(z^2/(z+6)) elseif @Va=="5" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=5.85*atan(z) elseif @Va=="6" z=z+0.3*abs(z) elseif @Va=="7" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1.124*flip(z) elseif @Va=="8" z=z+1/log(z) elseif @Va=="9" z=z+3.2/exp(z) elseif @Va=="10" z=z+sqr(z^2/(z-20)) elseif @Va=="11" z=z+cos(z^2/(z+50)) elseif @Va=="12" z=z+0.42/sqr(z) elseif @Va=="13" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1.33*abs(z) elseif @Va=="14" z=z+1/cosh(z) elseif @Va=="15" z=z+1/exp(z) elseif @Va=="16" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=2.9*asinh(z) elseif @Va=="17" z=z+exp(z^2/(z-6)) elseif @Va=="18" z=z+tanh(z^2/(z+15)) elseif @Va=="19" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=0.8*exp(z) elseif @Va=="20" z=z+sqrt(z^2/(z+45)) elseif @Va=="21" z=z-0.3/flip(z) elseif @Va=="22" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=-0.28*sqr(z) elseif @Va=="23" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=3.8*asin(z) elseif @Va=="24" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=18.3*abs(z) endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z-p2)*p1 else z=(z+p2)*p1 endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z+p2)*p1 else z=(z-p2)*p1 endif bailout: |z|<@bail default: title="Barnsley 9" center=(0.001,0.001) magn=0.5 periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24" endparam param p1 caption="Barnsley Parameter 1" default=(0.97,0.4) endparam param p2 caption="Barnsley Parameter 2" default=(0.47,-1.6) endparam func fn3 caption="Barnsley Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100.0 endparam } Barnsley10 { init: z=fn1(pixel) if @S=="1" z=z+@sp*z^2 elseif @S=="2" z=z+(@sp-0.2)*z^3 elseif @S=="3" z=z+(@sp-0.2)*(z^3-z^2) elseif @S=="4" z=z+(@sp-0.2)*(z^2-z) elseif @S=="5" z=z+(@sp-0.2)*(z^3+z^2+z) elseif @S=="6" z=z+(@sp-0.2)*cosh(z) elseif @S=="7" z=z+(@sp-0.2)*cos(z) elseif @S=="8" z=z+(@sp-0.2)*sinh(z) elseif @S=="9" z=z+(@sp-0.2)*exp(z) elseif @S=="10" z=abs(z+(@sp-0.2)*z^2) elseif @S=="11" z=cosh(z+(@sp-0.2)*z^2) elseif @S=="12" z=sin(z+(@sp-0.2)*z^2) elseif @S=="13" z=flip(z+(@sp-0.2)*(z^3-z^2)) elseif @S=="14" z=abs(z+(@sp-0.2)*(z^3-z^2)) elseif @S=="15" z=asin(z+(@sp-0.2)*(z^3+z^2+z)) elseif @S=="16" z=asinh(z+(@sp-0.2)*(z^3+z^2+z)) elseif @S=="17" z=acos(z+(@sp-0.2)*(z^3+z^2+z)) elseif @S=="18" z=acosh(z+(@sp-0.2)*(z^3+z^2+z)) elseif @S=="19" z=acosh(z+(@sp-0.2)*z^3) elseif @S=="20" z=acos(z+(@sp-0.2)*z^3) elseif @S=="21" z=asinh(z+(@sp-0.2)*z^3) elseif @S=="22" z=asin(z+(@sp-0.2)*z^3) elseif @S=="23" z=acosh(z+(@sp-0.2)*(z^2-z)) elseif @S=="24" z=acos(z+(@sp-0.2)*(z^2-z)) elseif @S=="25" z=asinh(z+(@sp-0.2)*(z^2-z)) endif loop: z=p3*conj(z)+p4 z=z+p5/z z=z+p6*sqr(z) z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=1.125*conj(z) elseif @Va=="2" if |z|>1 z=z/|z| endif z=1.125 *cotanh(z) elseif @Va=="3" x=real(z) y=imag(z) x=x/|z| y=y/|z| z=x+flip(y) z=2.5*z elseif @Va=="4" if real(z)1 z=z/|z| endif z=4*atanh(z) elseif @Va=="7" z=conj((z^2+1.885)/(2*z+0.885))^2 elseif @Va=="8" if real(z)1 z=z/|z| endif z=4*atan(z) elseif @Va=="37" z=acos((z^2-8.23)/(2*z-9.23))^2 elseif @Va=="38" z=z+0.5*cotanh(z) elseif @Va=="39" z=abs((z^2+1.8225)/(2*z+0.8225))^2 elseif @Va=="40" if real(z)=0 z=(flip(z)-p2)*p1 else z=(flip(z)+p2)*p1 endif bailout: |z|<@bail default: title="Barnsley 10" center=(0.001,0.001) magn=0.5 periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Barnsley Parameter 1" default=(1,0.75) endparam param p2 caption="Barnsley Parameter 2" default=(0.65,1) endparam func fn2 caption="Barnsley Function 1" default=ident() endfunc func fn3 caption="Barnsley Function 2" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42" endparam param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=10.0 endparam } JuliaBlaschke { ;Based on a formula from Roger Bagula ;https://plus.google.com/110803890168343196795/posts/96Qg1T9Tvtf init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z^2*(tanh(z)-4)/(-0.35+4*z) elseif @Va=="2" z=((z^2+10-1i)/(2*tan(z)+10-2i))^2 elseif @Va=="3" if real(z)@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Julia Blaschke" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48" endparam param p1 caption="JB Parameter 1" default=(1,0) endparam param p9 caption="JB Parameter 2" default=-3.0 endparam param p2 caption="JB Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=10.0 visible=@bt==0 endparam } LabsX23 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z) z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)1 z=z/|z| endif z=flip(z) elseif @Va=="10" z=((z^2+1)/(2*z))^2 elseif @Va=="11" z=z-0.5*(exp(z)^2-1i)/(2*z) elseif @Va=="12" z=z-(sinh(z)^2-1i)/(2*z) elseif @Va=="13" if |z|>1 z=z/|z| endif z=tan(z) elseif @Va=="14" z=z-0.3*abs(z) elseif @Va=="15" if |z|<1 z=z/|z| endif z=0.3*exp(z) elseif @Va=="16" z=z+0.3i*abs(z) elseif @Va=="17" z=recip((z^2+1)/(2*z))^2 elseif @Va=="18" z=z-(cosh(z)^2-1i)/(2*z) elseif @Va=="19" z=z-0.3*sqr(z) elseif @Va=="20" if |z|>1 z=z/|z| endif z=abs(z) elseif @Va=="21" z=((cotanh(z)^2-1i)/(2*z-2i))^2 elseif @Va=="22" z=z-(z^4-1i)/(2*z) elseif @Va=="23" z=z-0.3i*cos(z) elseif @Va=="24" z=sqr((z^2)/(2*z-1))^2 elseif @Va=="25" z=z-(tanh(z)^2-1i)/(2*z) elseif @Va=="26" z=z-0.3i*sqr(z) elseif @Va=="27" if |z|>1 z=z/|z| endif z=sinh(z) elseif @Va=="28" if |z|>1 z=z/|z| endif z=sqr(z) elseif @Va=="29" if real(z)1 z=z/|z| endif elseif @Va=="32" z=((z^2+1-1i)/(2*z+1-2i))^2 elseif @Va=="33" if real(z)1 z=z/|z| endif z=-sqr(z) elseif @Va=="39" z=sqr((z^2-1i)/(2*z-2i))^2 elseif @Va=="40" z=z-(sin(z)^2-1i)/(2*z) elseif @Va=="41" z=recip((z^2-3-1i)/(2*z-3-2i))^2 elseif @Va=="42" z=z+0.3*(cosh(z)^2-1i)/(2*z) elseif @Va=="43" if |z|>1 z=z/|z| endif z=sin(z) elseif @Va=="44" z=z-0.3i*abs(z) endif z=p1^2*z*(1-z^2)*(1-p1*z*(1-z))+p2 z=@p10*fn4((log(abs(fn3(z)))))+@p11 endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 23" center=(0.001,0.001) periodicity=0 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(1,0) endparam param p2 caption="X Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function 1" default=ident() endfunc func fn3 caption="Labs Function 2" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter" default=(1,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } Munster11 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) elseif @S=="17" z=z+(@sp+1)/z elseif @S=="18" z=z+(@sp+1)*1i/cotanh(z) elseif @S=="19" z=z+(@sp+1)*1i/cos(z) elseif @S=="20" z=z+(@sp+1)/cos(z) elseif @S=="21" z=z+(@sp+1)*1i/cotan(z) elseif @S=="22" z=z+(@sp+1)/sin(z) elseif @S=="23" z=z+(@sp+1)/tan(z) elseif @S=="24" z=z+(@sp+1)*1i/cosh(z) elseif @S=="25" z=z+(@sp+1)*1i/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z^2*(z+1.5)/(1+1.5*z) elseif @Va=="2" z=z^2*cotanh((z-4)/(1+4*z)) elseif @Va=="3" z=z^2*sqr((z+2.75)/(1+2.75*z)) elseif @Va=="4" z=z^2*recip((z+0.9)/(1+0.9*z)) elseif @Va=="5" z=z^2*tan((z-4)/(-3+4*z)) elseif @Va=="6" z=z^2*tan((z-4)/(4*z)) elseif @Va=="7" z=z^2*(z-4)/(-1+4*z) elseif @Va=="8" z=z^2*sqr((z-1.625)/(1-1.625*z)) elseif @Va=="9" z=z^2*sinh((z-4)/(-3+4*z)) elseif @Va=="10" z=z^2*tan((z-4)/(-1+4*z)) elseif @Va=="11" z=z^2*sqr((z+1.725)/(1+1.725*z)) elseif @Va=="12" z=z^2*cotanh((z-0.2)/(1-0.2*z)) elseif @Va=="13" z=z^2*sqr((z-4)/(1+4*z)) elseif @Va=="14" z=z^2*(z-4)/(-0.35+4*z) elseif @Va=="15" z=z^2*(z+2.5)/(1+2.5*z) elseif @Va=="16" z=z^2*tan((z-4)/(1+4*z)) elseif @Va=="17" z=z^2*(z+1.13)/(1+1.13*z) elseif @Va=="18" z=z^2*(z-4)/(-2+4*z) elseif @Va=="19" z=z^2*sinh((z-4)/(-2+4*z)) elseif @Va=="20" z=z^2*sqr((z+3.5)/(1+3.5*z)) elseif @Va=="21" z=z^2*(z-4)/(1.15+4*z) elseif @Va=="22" z=z^2*sqr((z-2)/(1-2*z)) elseif @Va=="23" z=z^2*sin((z-4)/(-1+4*z)) elseif @Va=="24" z=z^2*tanh((z-4)/(1+4*z)) elseif @Va=="25" z=z^2*tan((z-4)/(-2+4*z)) endif z=exp(p2)*z^2*cabs(p1)*(p1-z)/(p1*(1-conj(p1)*z)) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 11" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25" endparam param p1 caption="Munster Parameter 1" default=(2,0) endparam param p2 caption="Munster Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Gromoi { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif elseif @Va=="2" if |z|<1 z=z/|z| endif z=0.5*flip(z) elseif @Va=="3" if |z|<1 z=z/|z| endif z=-0.74*conj(z) elseif @Va=="4" if |z|<1 z=z/|z| endif z=abs(z) elseif @Va=="5" if |z|<1 z=z/|z| endif z=-0.5*sqr(z) elseif @Va=="6" z=z+sqr(z^2/(z+7)) elseif @Va=="7" z=z+tanh(z^2/(z+15)) elseif @Va=="8" if |z|>1 z=z/|z| endif z=1.23*sinh(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=0.9*recip(z) elseif @Va=="10" if real(z)<0 z=-real(z)+flip(imag(z)) endif elseif @Va=="11" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=0.5*flip(z) elseif @Va=="12" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=-0.85*conj(z) elseif @Va=="13" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=-0.7*conj(z) elseif @Va=="14" z=((z^2-1)/(2*z-2))^2 elseif @Va=="15" z=flip((z^2-1)/(2*z-2))^2 elseif @Va=="16" z=flip((z^2-2)/(2*z-3))^2 elseif @Va=="17" z=flip((z^2+1)/(2*z))^2 elseif @Va=="18" z=abs((z^2-1)/(2*z-2))^2 elseif @Va=="19" z=((z^2-6.5-1i)/(2*z-6.5-2i))^2 elseif @Va=="20" z=flip((z^2-1.9-1i)/(2*z-1.9-2i))^2 elseif @Va=="21" z=z-0.42*(cosh(z)^3-1i)/(3*z^2) endif a=(1-1/(p1)^@pow)*exp(1i*sqrt(p1)) z=a^2*z*(p2-z^2)*(1-a*z*(p2-z))+1 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Gromoi" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21" endparam param p1 caption="Gromoi Parameter 1" default=(1.15,1.1) endparam param p2 caption="Gromoi Parameter 2" default=(1,0) endparam param pow caption="Gromoi Exponent" default=(3,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Gisti { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=-0.575*z elseif @Va=="2" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=1.086*z elseif @Va=="3" if |z|<1 z=z/|z| endif z=-0.55*flip(z) elseif @Va=="4" if |z|<1 z=z/|z| endif z=-0.55*abs(z) elseif @Va=="5" if |z|<1 z=z/|z| endif z=-1.129839*recip(z) elseif @Va=="6" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=-0.4675*exp(z) elseif @Va=="7" if real(z)<0 z=-real(z)+flip(imag(z)) endif z=0.75*sqr(z) elseif @Va=="8" if |z-2.14|<1 z=(1/(z-2.14))+2.14 endif elseif @Va=="9" if |z+0.45|<1 z=(1/(z+0.45))-0.45 endif elseif @Va=="10" z=recip(z)^3 elseif @Va=="11" z=-recip(z)^3 elseif @Va=="12" z=0.65*z^3 elseif @Va=="13" z=z-0.2*recip(z)^2 elseif @Va=="14" z=z+1i*z*cos(z) elseif @Va=="15" z=z+1/exp(z) elseif @Va=="16" z=z-0.7*z*exp(z) elseif @Va=="17" z=z+0.5*z*cotan(z) elseif @Va=="18" z=z+tanh(z^2/(z+15)) elseif @Va=="19" z=z+0.3i*z*cos(z) elseif @Va=="20" z=-1.675*z*sin(1-z) elseif @Va=="21" z=0.2*(0.2/(z^2-1))+1 elseif @Va=="22" z=0.5*flip(0.5/(z^2-1))+1 elseif @Va=="23" z=0.375*abs(0.375/(z^2-1))+1 elseif @Va=="24" z=-0.575*abs(-0.575/(z^2-1))+1 elseif @Va=="25" z=0.5i*(0.5/(z^2-1))+1 elseif @Va=="26" z=0.6i*flip(0.6/(z^2-1))+1 elseif @Va=="27" z=0.35i*flip(0.35/(z^2-1))+1 elseif @Va=="28" z=0.35i*conj(0.35/(z^2-1))+1 elseif @Va=="29" z=4.15*exp(4.15/(flip(z)^2-0.9))+0.9 elseif @Va=="30" if |z|<1 z=z/|z| endif z=z^2*exp((z-0.84)/(1-0.84*z)) elseif @Va=="31" z=z^2*(z-0.42)/(1i-0.42*z) elseif @Va=="32" z=z^2*exp((z-0.08873)/(1i-0.08873*z)) endif z=fn4(p1^2*z*(1-z^2)*(1-p1*z*(1-z)))+p2^fn3(pixel) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Gisti" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32" endparam param p1 caption="Gisti Parameter 1" default=(0.8,0) endparam param p2 caption="Gisti Parameter 2" default=(1,0) endparam func fn4 caption="Gisti Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=p2!=1 endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Munster12 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=flip(z) elseif @Va=="2" if |z|<1 z=z/|z| endif z=-conj(z) elseif @Va=="3" if |z|<1 z=z/|z| endif z=0.75*abs(z) elseif @Va=="4" if |z|>1 z=z/|z| endif z=cotanh(z) elseif @Va=="5" if |z|>1 z=z/|z| endif z=2*cosh(z) elseif @Va=="6" z=z+sqr(z^2/(z+7)) elseif @Va=="7" if |z|>1 z=z/|z| endif z=2*cos(z) elseif @Va=="8" if |z|>1 z=z/|z| endif z=0.75*recip(z) elseif @Va=="9" z=z^2*(z-4)/(-2.3+4*z) elseif @Va=="10" z=z^2*tan((z-4)/(-1+4*z)) elseif @Va=="11" z=z^2*sinh((z-4)/(-1+4*z)) elseif @Va=="12" z=z^2*sin((z-4)/(-1+4*z)) elseif @Va=="13" z=z+0.855*cotan(z) elseif @Va=="14" z=flip((z^2+1)/(2*z))^2 elseif @Va=="15" z=z+0.3i/cosh(z) elseif @Va=="16" z=z-0.337i/exp(z) elseif @Va=="17" z=z+0.69i/cotanh(z) elseif @Va=="18" z=z+0.35i/cotan(z) elseif @Va=="19" z=z+0.25i/tan(z) endif z=exp(p2)*(cabs(p1)/p1)*z^3*(fn3(z)-p1)/(1-conj(p1)*z) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 12" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19" endparam param p1 caption="Munster Parameter 1" default=(2,0) endparam param p2 caption="Munster Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="Munster Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Apulbaena { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p6*sqr(z) z=p1*fn3(pixel)*(1-z^2)/(1-p1^2*z^2*fn3(pixel)^2) bailout: |z|<@bail default: title="Apulbaena" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Apulbaena Parameter" default=(1,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=4.0 endparam } LabsX24 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(z)+@p8 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) if @Va=="None" z=z elseif @Va=="1" z=z-1i*tanh(z) elseif @Va=="2" if |z|>1 z=z/|z| endif z=tan(z) elseif @Va=="3" z=z+tan(tanh(z)) elseif @Va=="4" z=z+2*sin(z) elseif @Va=="5" if |z|>1 z=z/|z| endif z=z-2*sqr(z) elseif @Va=="6" z=z+1i*tanh(z) elseif @Va=="7" if |z|>1 z=z/|z| endif z=z+2*sqr(z) elseif @Va=="8" z=z-2*cos(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=flip(z) elseif @Va=="10" if |z|>1 z=z/|z| endif z=z+0.3*cosh(z) elseif @Va=="11" if |z|>1 z=z/|z| endif z=z-0.5*sqr(exp(z)) elseif @Va=="12" if |z|>1 z=z/|z| endif z=-sqr(z) elseif @Va=="13" if |z|>1 z=z/|z| endif z=z-cos(cosh(z)) elseif @Va=="14" if |z|>1 z=z/|z| endif z=z-0.3*cosh(z) elseif @Va=="15" z=z+sin(z) elseif @Va=="16" z=z+0.3i*abs(z) elseif @Va=="17" z=z+1i*sin(z) elseif @Va=="18" if |z|>1 z=z/|z| endif z=z-0.5*cos(z) elseif @Va=="19" z=z-sin(z) elseif @Va=="20" if |z|>1 z=z/|z| endif z=z+0.5*sqr(exp(z)) elseif @Va=="21" if |z|>1 z=z/|z| endif z=z+z^4 elseif @Va=="22" z=z-cos(z) elseif @Va=="23" if |z|>1 z=z/|z| endif z=z+2.75*cosh(cosh(z)) elseif @Va=="24" z=z+0.3i*sqr(z) elseif @Va=="25" z=z-2*sin(z) elseif @Va=="26" z=z-1i*sin(z) elseif @Va=="27" if |z|>1 z=z/|z| endif z=sinh(z) elseif @Va=="28" if |z|>1 z=z/|z| endif z=sqr(z) elseif @Va=="29" if |z|>1 z=z/|z| endif z=z-0.5*exp(sqr(z)) elseif @Va=="30" if |z|>1 z=z/|z| endif z=z-0.3*cosh(cosh(z)) elseif @Va=="31" z=z+2i*sin(z) endif if real(z)@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Scadec" center=(0.001,0.001) periodicity=0 param S caption="Start" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40""41" endparam func fn1 caption="Start Function" default=ident() endfunc param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p1 caption="Scadec Parameter 1" default=(-1,0) endparam param p2 caption="Scadec Parameter 2" default=(0.5,1) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } LabsX25M { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(flip(cotanh(z)))+p3 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)1 z=z/|z| endif z=abs(z) elseif @Va=="21" if real(z)1 z=z/|z| endif z=sin(z) elseif @Va=="25" z=z+0.85*recip(z) elseif @Va=="26" if |z|>1 z=z/|z| endif z=-sqr(z) elseif @Va=="27" z=flip((z^2+1)/(2*z))^2 elseif @Va=="28" if real(z)1 z=z/|z| endif z=flip(z) elseif @Va=="10" z=((z^2+1)/(2*z))^2 elseif @Va=="11" if |z|<1 z=z/|z| endif z=z-0.5i*z elseif @Va=="12" z=z-(sinh(z)^2-1i)/(2*z) elseif @Va=="13" if |z|>1 z=z/|z| endif z=tan(z) elseif @Va=="14" z=z-0.3*abs(z) elseif @Va=="15" if |z|<1 z=z/|z| endif z=z-0.3i*recip(z) elseif @Va=="16" z=z+0.3i*abs(z) elseif @Va=="17" z=(z-1.5i)/(sqr(z)+1i) elseif @Va=="18" z=z+1i*cotan(z)^2 elseif @Va=="19" z=z-0.3*sqr(z) elseif @Va=="20" if |z|>1 z=z/|z| endif z=abs(z) elseif @Va=="21" z=z+1i*recip(z)^2 elseif @Va=="22" if |z|<1 z=z/|z| endif z=z+0.3i*sin(z) elseif @Va=="23" if real(z)1 z=z/|z| endif z=sinh(z) elseif @Va=="28" z=(z+0.5i)/(sqr(z)+1i) elseif @Va=="29" if real(z)1 z=z/|z| endif z=-sqr(z) elseif @Va=="39" if real(z)1 z=z/|z| endif z=sin(z) elseif @Va=="44" z=z-0.3i*abs(z) elseif @Va=="45" if real(z)imag(z) z=flip(z) endif z=0.95*p3*1i*abs(z) z=z-p2*sqrt(z) z=(1-p1/4)*z+p1*(z^3-1)/4 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bloob" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40""41" endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p1 caption="Bloob Parameter 1" default=(1,0) endparam param p2 caption="Bloob Parameter 2" default=(1,0) endparam param p3 caption="Bloob Parameter 3" default=(1,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Ganthrale { init: if @S=="1" z=pixel elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=pixel-(pixel^4-1i)/(4*pixel^3) elseif @S=="4" z=pixel-(tan(pixel)^4-1i)/(4*tan(pixel)^3) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr((sqr(pixel)+2)/(2*pixel+1)) elseif @S=="10" z=sqr((pixel-1i)/(pixel+1i)) elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=pixel-2.2*(cos(pixel)^4-1i)/(4*cos(pixel)^3) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=pixel-(pixel^4-1)/(4*pixel^3) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=pixel-(pixel^3-1i)/(3*pixel^2) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @s=="29" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @s=="30" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @s=="31" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @s=="32" z=sqr(pixel)*(sinh(pixel)+1)/(1i+sinh(pixel)) elseif @s=="33" z=pixel+pixel^2+pixel^3 elseif @s=="34" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @s=="35" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @s=="36" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @s=="37" z=pixel-(cotan(pixel)^4-1i)/(4*cotan(pixel)^3) elseif @s=="38" z=pixel-(pixel^3-1)/(3*pixel^2) elseif @s=="39" z=pixel-(cos(pixel)^4-1i)/(4*cos(pixel)^3) elseif @s=="40" z=pixel-4.6*(pixel^4-1i)/(4*pixel^3) elseif @s=="41" z=pixel-4.6*(tan(pixel)^4-1i)/(4*tan(pixel)^3) endif z=fn1(z) loop: zold=z z=@p8*fn2(z)+@p9 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+p5*z*(1-z) z=z+p3/z z=(sqrt(1i*z+p2)*z)+p1 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Ganthrale" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40""41" endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Ganthrale Parameter 1" default=(0.2,0.15) endparam param p2 caption="Ganthrale Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p3 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } LabsX26 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(abs(z))+p3 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=conj((z^2-11.5-1i)/(2*z-11.5-2i))^2 elseif @Va=="2" z=sinh((z^2+17.5-1i)/(2*z+17.5-2i))^2 elseif @Va=="3" z=1/(z-2)+2 elseif @Va=="4" if real(z)1 z=z/|z| endif z=flip(z) elseif @Va=="10" z=1/(z-1)+1 elseif @Va=="11" if real(z)1 z=z/|z| endif z=sin(z) elseif @Va=="24" if real(z)imag(z) z=flip(z) endif z=1i*abs(z) elseif @Va=="46" if real(z)>imag(z) z=flip(z) endif z=-2i*sinh(z) elseif @Va=="47" if real(z)>imag(z) z=flip(z) endif z=1i*exp(z) elseif @Va=="48" if real(z)>imag(z) z=flip(z) endif z=-1.5i*cosh(z) elseif @Va=="49" if real(z)>imag(z) z=flip(z) endif z=-2i*exp(z) elseif @Va=="50" if real(z)>imag(z) z=flip(z) endif z=2i*sinh(z) elseif @Va=="51" if real(z)>imag(z) z=flip(z) endif z=-1i*exp(z) elseif @Va=="52" if real(z)>imag(z) z=flip(z) endif z=-1i*cos(z) elseif @Va=="53" if real(z)>imag(z) z=flip(z) endif z=1.5i*exp(z) elseif @Va=="54" if real(z)>imag(z) z=flip(z) endif z=1i*cos(z) elseif @Va=="55" if real(z)>imag(z) z=flip(z) endif z=-1.5i*sqrt(z) elseif @Va=="56" if real(z)>imag(z) z=flip(z) endif z=-1i*cosh(z) elseif @Va=="57" if real(z)>imag(z) z=flip(z) endif z=-1.5i*exp(z) elseif @Va=="58" if real(z)>imag(z) z=flip(z) endif z=1i*sqr(z) elseif @Va=="59" if real(z)>imag(z) z=flip(z) endif z=2i*exp(z) elseif @Va=="60" if real(z)>imag(z) z=flip(z) endif z=1i*log(z) elseif @Va=="61" if real(z)>imag(z) z=flip(z) endif z=1.5i*cosh(z) elseif @Va=="62" if real(z)>imag(z) z=flip(z) endif z=1i*cosh(z) endif z=((sqr(z)^2-p1-1i)/(2*z-p1-2i))^2 z=p2*(sqrt(1i*z)*z) z=@p10*fn4((log(abs(fn3(z)))))+@p11*pixel endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 26" center=(0.001,0.001) periodicity=0 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46""47""48""49""50"\ "51""52""53""54""55""56""57""58""59""60"\ "61""62" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(2,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function 1" default=ident() endfunc func fn3 caption="Labs Function 2" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter 1" default=(1,0) endparam param p3 caption="Loop Parameter 2" default=(0,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } LabsX27 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif int i=0 loop: while i<@iter i=i+1 z=@p12*fn2(abs(z)) z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)1 z=z/|z| endif z=1i*z elseif @Va=="4" z=z-0.3i*abs(z) elseif @Va=="5" if real(z)>imag(z) z=flip(z) endif z=conj(z) elseif @Va=="6" z=z-(sin(z)^2-1i)/(2*z) elseif @Va=="7" if |z|<1 z=z/|z| endif z=-recip(z) elseif @Va=="8" if |z|>1 z=z/|z| endif z=-sqr(z) elseif @Va=="9" if |z|>1 z=z/|z| endif z=flip(z) elseif @Va=="10" z=z+0.3i*sqr(z) elseif @Va=="11" if real(z)>imag(z) z=flip(z) endif z=exp(z) elseif @Va=="12" if real(z)1 z=z/|z| endif z=tan(z) elseif @Va=="14" if real(z)>imag(z) z=flip(z) endif z=tan(z) elseif @Va=="15" if |z|>1 z=z/|z| endif z=sinh(z) elseif @Va=="16" z=z+0.3i*abs(z) elseif @Va=="17" if |z|>1 z=z/|z| endif z=1i*tanh(z) elseif @Va=="18" z=z-0.3i*sqr(z) elseif @Va=="19" z=z-0.3*sqr(z) elseif @Va=="20" if |z|>1 z=z/|z| endif z=-1i*exp(z) elseif @Va=="21" if real(z)>imag(z) z=flip(z) endif z=cosh(z) elseif @Va=="22" z=z-0.3i*cos(z) elseif @Va=="23" z=z+1/exp(z) elseif @Va=="24" z=z-1/exp(z) elseif @Va=="25" z=z+1i/exp(z) elseif @Va=="26" z=z-1i/exp(z) elseif @Va=="27" z=flip((z-0.3i)/(z+0.3i)) elseif @Va=="28" z=abs((z-1i)/(z+1i)) elseif @Va=="29" z=-1.3*(flip(z)-1i)/(flip(z)+1i) elseif @Va=="30" z=-(abs(z)-1i)/(abs(z)+1i) elseif @Va=="31" z=-4*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="32" z=4*(exp(z)-1i)/(exp(z)+1i) elseif @Va=="33" z=(sqr(z)-1i)/(sqr(z)+1i) elseif @Va=="34" z=1.65*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="35" z=-1.65*(cosh(z)-1i)/(cosh(z)+1i) elseif @Va=="36" z=-(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="37" z=2*(sinh(z)-1i)/(sinh(z)+1i) elseif @Va=="38" z=-0.75*(sin(z)-1i)/(sin(z)+1i) endif z=((cos(z)^2+p1-1i)/(2*z+p1-2i))^2 z=p2*(sqrt(1i*z)*z) z=@p10*fn4((log(abs(fn3(z)))))+@p11*pixel endwhile z=z*51/50 bailout: |z|<@bail default: title="Labs X 27" center=(0.001,0.001) periodicity=0 maxiter=500 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38" endparam param iter caption="Iterations" default=2 endparam param p1 caption="X Parameter 1" default=(0,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn4 caption="Labs Function 1" default=ident() endfunc func fn3 caption="Labs Function 2" default=ident() endfunc param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Loop Parameter" default=(1,0) endparam param p10 caption="Labs Parameter 1" default=(1,0) endparam param p11 caption="Labs Parameter 2" default=(1,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100000.0 endparam } Kalantari { ;https://link.springer.com/article/10.1007/s11071-017-3813-6 init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif loop: zold=z z=@p8*fn2(z)+@p9 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+p5*z*(1-z) if @V=="1" f=z^4-1 f1=4*z^3 f2=12*z^2 f3=24*z elseif @V=="2" f=z^4+z^3-z^2+z-1 f1=4*z^3+3*z^2-2*z+1 f2=12*z^2+6*z-2 f3=24*z+6 elseif @V=="3" f=z^5+2*z^3+3*z-1 f1=5*z^4+6*z^2+3 f2=20*z^3+12*z f3=60*z^2+12 elseif @V=="4" f=z^5+z^3-1 f1=5*z^4+3*z^2 f2=20*z^3+6*z f3=60*z^2+6 elseif @V=="5" f=z^6-2*z^4-3*z^2-1 f1=6*z^5-8*z^3-6*z f2=30*z^4-24*z^2-6 f3=120*z^3-48*z elseif @V=="6" f=z^4-2*z^3+3*z^2-4*z-1 f1=4*z^3-6*z^2+6*z-4 f2=12*z^2-12*z+6 f3=24*z-12 elseif @V=="7" f=z^7+3*z^6+5*z^2+7*z-1 f1=7*z^6+18*z^5+10*z+7 f2=42*z^5+90*z^4+10 f3=210*z^4+360*z^3 elseif @V=="8" f=z^5-z^4+z^3-z^2+z-1 f1=5*z^4-4*z^3+3*z^2-2*z+1 f2=20*z^3-12*z^2+6*z-2 f3=60*z^2-24*z+6 elseif @V=="9" f=z^3+4*z^2-10 f1=3*z^2+8*z f2=6*z+8 f3=6 elseif @V=="10" f=sin(z)-1 f1=cos(z) f2=-sin(z) f3=-cos(z) elseif @V=="11" f=sin(z)^2-1 f1=2*sin(z)*cos(z) f2=2*(cos(z)^2-sin(z)^2) f3=-8*sin(z)*cos(z) elseif @V=="12" f=sin(z)+sin(z)^2-1 f1=cos(z)+2*sin(z)*cos(z) f2=-sin(z)+2*(cos(z)^2-sin(z)^2) f3=-cos(z)-8*sin(z)*cos(z) elseif @V=="13" f=z^2-exp(z)-3*z+2 f1=2*z-exp(z)-3 f2=2-exp(z) f3=-exp(z) elseif @V=="14" f=cos(z)-z f1=-sin(z)-1 f2=-cos(z) f3=sin(z) elseif @V=="15" f=(z-1)^3-1 f1=3*(z-1)^2 f2=6*(z-1) f3=6 elseif @V=="16" f=z*exp(z)^2-sin(z)^2+3*cos(z)+5 f1=exp(2*z)*(2*z+1)-sin(z)*(2*cos(z)+3) f2=2*exp(2*z)*(2*z+2)+2*sin(z)^2-cos(z)*(2*cos(z)+3) f3=4*exp(2*z)*(2*z+3)+sin(z)*(8*cos(z)+3) elseif @V=="17" f=(z^3+4*z^2-10)^2+sin(z)-z/2 f1=2*z*(3*z+8)*(z^3+4*z^2-10)+cos(z)-0.5 f2=2*(15*z^4+80*z^3+96*z^2-60*z-80)-sin(z) f3=24*(5*z^3+20*z^2+16*z-5)-cos(z) elseif @V=="18" f=z^7+16*z-1 f1=7*z^6+16 f2=42*z^5 f3=210*z^4 elseif @V=="19" f=tan(z)-1 f1=1/cos(z)^2 f2=2*tan(z)/cos(z)^2 f3=2*(2*tan(z)^2+1/cos(z)^2)/cos(z)^2 elseif @V=="20" f=tan(z)+z^3-1 f1=1/cos(z)^2+3*z^2 f2=2*tan(z)/cos(z)^2+6*z f3=2*(2*tan(z)^2+1/cos(z)^2)/cos(z)^2+6 elseif @V=="21" f=tan(z)-z^3-2*z^2-3*z-1 f1=1/cos(z)^2-3*z^2-4*z-3 f2=2*tan(z)/cos(z)^2-6*z-4 f3=2*(2*tan(z)^2+1/cos(z)^2)/cos(z)^2-6 elseif @V=="22" f=z^3+z^2-exp(z)-3*z+2 f1=3*z^2+2*z-exp(z)-3 f2=6*z+2-exp(z) f3=6-exp(z) elseif @V=="23" f=tan(z)+z^3-1+exp(z) f1=1/cos(z)^2+3*z^2+exp(z) f2=2*tan(z)/cos(z)^2+6*z+exp(z) f3=2*(2*tan(z)^2+1/cos(z)^2)/cos(z)^2+6+exp(z) elseif @V=="24" f=tan(z)-z^3-2*z^2-3*z-1-exp(z) f1=1/cos(z)^2-3*z^2-4*z-3-exp(z) f2=2*tan(z)/cos(z)^2-6*z-4-exp(z) f3=2*(2*tan(z)^2+1/cos(z)^2)/cos(z)^2-6-exp(z) elseif @V=="25" f=z/(z-1)-1+z^3 f1=-1/(z-1)^2+3*z^2 f2=2/(z-1)^3+6*z f3=-6/(z-1)^4+6 else f=z/(z-1)-1+z^2+sin(z) f1=-1/(z-1)^2+2*z+cos(z) f2=2/(z-1)^3+2-sin(z) f3=-6/(z-1)^4+6-cos(z) endif z=z-p1*(6*f1^2*f-3*f2*f^2)/(f3*f^2+6*f1^3-6*f2*f1*f)+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Kalantari" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param V caption="F(Z) Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26" endparam param p1 caption="Kalantari Parameter 1" default=(-0.3,0) endparam param p2 caption="Kalantari Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } ModifiedIshikawa { ;modification of (15) from: ;https://link.springer.com/article/10.1007/s11071-017-3813-6 init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif loop: zold=z z=@p8*fn3(z)+@p9 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+p5*z*(1-z) z=(1-p1)*z+p1*(a^@pow-@p10) a=(1-p2)*z+p2*(z^@pow-@p10) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Modified Ishikawa" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Ishikawa Parameter 1" default=(0.3,0) endparam param p2 caption="Ishikawa Parameter 2" default=(0.5,0) endparam param p10 caption="Ishikawa Parameter 3" default=(1,0) endparam param pow caption="Ishikawa Exponent" default=3 endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn3 caption="Loop Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } ModifiedNoor { ;modification of (16) from: ;https://link.springer.com/article/10.1007/s11071-017-3813-6 init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif if @S3=="1" b=pixel+@p11*(pixel-1i)/(pixel+1i) elseif @S3=="2" b=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S3=="3" b=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S3=="4" b=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S3=="5" b=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S3=="6" b=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S3=="7" b=(pixel-1i)/(pixel+1i) elseif @S3=="8" b=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S3=="9" b=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S3=="10" b=pixel+pixel^2+pixel^3 elseif @S3=="11" b=pixel^2+1i elseif @S3=="12" b=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S3=="13" b=(pixel-1i)/(pixel+1) elseif @S3=="14" b=(pixel+1i)/(1i*pixel) elseif @S3=="15" b=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S3=="16" b=(pixel^3-1i)/(pixel^3+1i) elseif @S3=="17" b=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S3=="18" b=pixel-(pixel^2-1)/(2*pixel) elseif @S3=="19" b=pixel-sqr(pixel) elseif @S3=="20" b=pixel+sqr(pixel) elseif @S3=="21" b=pixel-1i/pixel elseif @S3=="22" b=pixel-(pixel^2-1i)/(2*pixel) elseif @S3=="23" b=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S3=="24" b=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S3=="25" b=1i*sqr(pixel)+pixel elseif @S3=="26" b=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S3=="27" b=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S3=="28" b=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S3!=0 b=fn3(b)+@p11 else b=fn3(b) endif loop: zold=z z=@p8*fn4(z)+@p9 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+p5*z*(1-z) z=(1-p1)*z+p1*(a^@pow-@p10) a=(1-p2)*z+p2*(b^@pow-@p10) b=(1-@p12)*z+@p12*(z^@pow-@p10) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Modified Noor" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S3 caption="Start Variant 3" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p11 caption="Start Parameter 3" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc func fn3 caption="Start Function 3" default=ident() endfunc param p1 caption="Noor Parameter 1" default=(0.3,0) endparam param p2 caption="Noor Parameter 2" default=(0.4,0) endparam param p12 caption="Noor Parameter 3" default=(0.2,0) endparam param p10 caption="Noor Parameter 4" default=(1,0) endparam param pow caption="Noor Exponent" default=3 endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn4 caption="Loop Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Noor { ;(16) from: ;https://link.springer.com/article/10.1007/s11071-017-3813-6 init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif if @S3=="1" b=pixel+@p11*(pixel-1i)/(pixel+1i) elseif @S3=="2" b=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S3=="3" b=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S3=="4" b=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S3=="5" b=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S3=="6" b=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S3=="7" b=(pixel-1i)/(pixel+1i) elseif @S3=="8" b=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S3=="9" b=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S3=="10" b=pixel+pixel^2+pixel^3 elseif @S3=="11" b=pixel^2+1i elseif @S3=="12" b=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S3=="13" b=(pixel-1i)/(pixel+1) elseif @S3=="14" b=(pixel+1i)/(1i*pixel) elseif @S3=="15" b=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S3=="16" b=(pixel^3-1i)/(pixel^3+1i) elseif @S3=="17" b=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S3=="18" b=pixel-(pixel^2-1)/(2*pixel) elseif @S3=="19" b=pixel-sqr(pixel) elseif @S3=="20" b=pixel+sqr(pixel) elseif @S3=="21" b=pixel-1i/pixel elseif @S3=="22" b=pixel-(pixel^2-1i)/(2*pixel) elseif @S3=="23" b=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S3=="24" b=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S3=="25" b=1i*sqr(pixel)+pixel elseif @S3=="26" b=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S3=="27" b=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S3=="28" b=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S3!=0 b=fn3(b)+@p11 else b=fn3(b) endif loop: zold=z z=@p8*fn4(z)+@p9 z=(z-p6)/(1-p6*z) z=z/(@p7*z+1) z=z+p5*z*(1-z) z=(1-p1)*z+p1*(a-(a^@pow-@p10)/(@pow*a^(@pow-1))) a=(1-p2)*z+p2*(b-(b^@pow-@p10)/(@pow*b^(@pow-1))) b=(1-@p12)*z+@p12*(z-(z^@pow-@p10)/(@pow*z^(@pow-1))) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Noor" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S3 caption="Start Variant 3" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p11 caption="Start Parameter 3" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc func fn3 caption="Start Function 3" default=ident() endfunc param p1 caption="Noor Parameter 1" default=(0.3,0) endparam param p2 caption="Noor Parameter 2" default=(0.4,0) endparam param p12 caption="Noor Parameter 3" default=(0.2,0) endparam param p10 caption="Noor Parameter 4" default=(1,0) endparam param pow caption="Noor Exponent" default=3 endparam param p8 caption="Loop Parameter 1" default=(1,0) endparam param p9 caption="Loop Parameter 2" default=(0,0) endparam func fn4 caption="Loop Function" default=ident() endfunc param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p7 caption="Möbius Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Rootun5 { init: z=fn1(pixel) if @S=="Pixel" z=(@sp+1)*z+@sp elseif @S=="Kali" x=real(z) y=imag(z) x=x/|z|+real(@sp) y=y/|z|+imag(@sp) z=x+flip(y) elseif @S=="Magnet" z=((z^2+@sp-1)/(2*z+@sp-2))^2 elseif @S=="Modified Magnet" z=((z^2+@sp-1i)/(2*z+@sp-2i))^2 elseif @S=="Newton 1" z=z+(@sp+1)*(z^3-1)/(3*z^2) elseif @S=="Newton 2" z=z+(@sp+1)*(z^4-1i)/(4*z^3) elseif @S=="Munster" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="Modified Munster" z=z^2*(z-@sp)/(1i-@sp*z) endif loop: zold=z z=p4*fn2((z))+p5 z=(z-p6)/(1-p6*z) z=z/(@p10*z+1) z=z+@p8*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z^2*((z-9.5)/(1-9.5*z)) elseif @Va=="2" z=z-2.2*(recip(z)^4-1)/(4*recip(z)^3) elseif @Va=="3" z=z^2*cotan((z-0.675)/(1-0.675*z)) elseif @Va=="4" z=flip((z^2-6)/(2*z-7))^2 elseif @Va=="5" z=z^2*sinh((z+3.8)/(1+3.8*z)) elseif @Va=="6" z=z^2*sqr((z-6)/(1-6*z)) elseif @Va=="7" z=((z^2-1.25)/(2*z-2.25))^2 elseif @Va=="8" z=z^2*tanh((z+0.5)/(1+0.5*z)) elseif @Va=="9" z=((z^2+2.3)/(2*z+1.3))^2 elseif @Va=="10" z=((flip(z)^2+8.8)/(2*flip(z)+7.8))^2 elseif @Va=="11" z=z^2*cos((z+1.2)/(1+1.2*z)) elseif @Va=="12" z=((z^2-1)/(2*z-2))^2 elseif @Va=="13" z=z^2*((z-1.7)/(1-1.7*z)) elseif @Va=="14" z=recip((z^2-1)/(2*z-2))^2 elseif @Va=="15" z=z^2*sqr((z+2.3)/(1+2.3*z)) elseif @Va=="16" z=z^2*sinh((z-27.5)/(1-27.5*z)) elseif @Va=="17" z=((abs(z)^2-1.5)/(2*abs(z)-2.5))^2 elseif @Va=="18" z=((flip(z)^2-10.5)/(2*flip(z)-11.5))^2 elseif @Va=="19" z=z^2*sqr((z-1.1)/(1-1.2*z)) elseif @Va=="20" z=flip((z^2-12)/(2*z-13))^2 elseif @Va=="21" z=z-0.15*(recip(z)^4-1)/(4*recip(z)^3) elseif @Va=="22" z=z^2*tanh((z-15)/(1-15*z)) elseif @Va=="23" z=flip((z^2+0.66)/(2*z-0.34))^2 elseif @Va=="24" z=z+2.65*(recip(z)^4-1)/(4*recip(z)^3) elseif @Va=="25" z=z^2*((z-3.9)/(1-3.9*z)) elseif @Va=="26" z=z^2*tan((z-3.35)/(1-3.35*z)) elseif @Va=="27" z=z^2*sqr((z+3.8)/(1+3.8*z)) elseif @Va=="28" z=z^2*((z+9.5)/(1+9.5*z)) endif f=z^3-1 f1=3*z^2 a=z-f/f1 z=a-p1*(a^3-1)*(1/f1-4/(f1+3*a^2))+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Rootun 5" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="Pixel""Kali""Magnet""Modified Magnet""Newton 1""Newton 2""Munster""Modified Munster" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Rootun Parameter 1" default=(1,0) endparam param p2 caption="Rootun Parameter 2" default=(0,0) endparam param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p6 caption="Möbius Parameter 1" default=(0,0) endparam param p10 caption="Möbius Parameter 2" default=(0,0) endparam param p8 caption="Add Sqr Parameter" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==0 endparam } Pongbrot { init: z=fn1(pixel)+p1 a=fn2(pixel)+p2 loop: zold=z if @JM=="J" z=p3*fn3(z)+p4 else z=(p3-0.5)*fn3(z)+p4 endif a=p5*fn4(a)+p6 b=z z=a^4-1 if @JM=="J" a=(1-(@p7-0.5))*(b^3-1)+(@p7-0.5)*(b^4-1) else a=(1-(@p7+0.5)*@fn5(pixel))*(b^3-1)+(@p7+0.5)*@fn5(pixel)*(b^4-1) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Pongbrot" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Start Parameter 1" default=(0,0) endparam param p2 caption="Start Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1a" default=(1,0) endparam param p4 caption="Loop Parameter 1b" default=(0,0) endparam param p5 caption="Loop Parameter 2a" default=(1,0) endparam param p6 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param p7 caption="Pongbrot Parameter" default=(1,0) endparam func fn5 caption="C Function" default=ident() visible=@JM=="M" endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" default=1 endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Munster13 { init: z=fn1(pixel)+p1 a=fn2(pixel)+p2 loop: zold=z z=p3*fn3(z)+p4 a=p5*fn4(a)+p6 if @JM=="J" a=z*(@p7*a-a^3)/(@fn5(@p8)+@p7*a^2) z=a*(@p7*z-z^3)/(@fn5(@p8)+@p7*z^2) else a=z*(@p7*a-a^3)/(@p8*@fn5(pixel)+@p7*a^2) z=a*(@p7*z-z^3)/(@p8*@fn5(pixel)+@p7*z^2) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 13" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Start Parameter 1" default=(0,0) endparam param p2 caption="Start Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1a" default=(1,0) endparam param p4 caption="Loop Parameter 1b" default=(0,0) endparam param p5 caption="Loop Parameter 2a" default=(1,0) endparam param p6 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param p7 caption="Munster Parameter 1" default=(1.5,0) endparam param p8 caption="Munster Parameter 2" default=(-0.75,0) endparam func fn5 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Biyavio { init: z=fn1(pixel)+p1*exp(pixel) a=fn2(pixel)+p2*exp(pixel) loop: zold=z z=p3*fn3(z)+p4 a=p5*fn4(a)+p6 b=z if @JM=="M" z=(1-@p7*@fn5(pixel))*(z^3-1)+@p7*@fn5(pixel)*(a^4-1) a=(1-@p8*@fn5(pixel))*b+@p8*@fn5(pixel)*(b^3-1) else z=(1-@fn5(@p7))*(z^3-1)+@fn5(@p7)*(a^4-1) a=(1-@fn5(@p8))*b+@fn5(@p8)*(b^3-1) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Biyavio" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Start Parameter 1" default=(0,0) endparam param p2 caption="Start Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1a" default=(-1,0) endparam param p4 caption="Loop Parameter 1b" default=(0,0) endparam param p5 caption="Loop Parameter 2a" default=(-0.5,0) endparam param p6 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param p7 caption="Biyavio Parameter 1" default=(0.5,0) endparam param p8 caption="Biyavio Parameter 2" default=(1.5,0) endparam func fn5 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" default=1 endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Biyavio2 { init: z=fn1(pixel)+p1*exp(pixel) a=fn2(pixel)+p2*exp(pixel) loop: zold=z z=p3*fn3(z)+p4 a=p5*fn4(a)+p6 b=z if @JM=="M" z=(1-@p7*@fn5(pixel))*(z^7+z^2-1)+@p7*@fn5(pixel)*(a^8+a^3-1) a=(1-@p8*@fn5(pixel))*b+@p8*@fn5(pixel)*(b^7+b^2-1) else z=(1-@fn5(@p7))*(z^7+z^2-1)+@fn5(@p7)*(a^8+a^3-1) a=(1-@fn5(@p8))*b+@fn5(@p8)*(b^7+b^2-1) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Biyavio 2" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Start Parameter 1" default=(0,0) endparam param p2 caption="Start Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1a" default=(-1,0) endparam param p4 caption="Loop Parameter 1b" default=(0,0) endparam param p5 caption="Loop Parameter 2a" default=(-0.5,0) endparam param p6 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param p7 caption="Biyavio Parameter 1" default=(0.5,0) endparam param p8 caption="Biyavio Parameter 2" default=(0.7,0) endparam func fn5 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" default=1 endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } BivarJulia { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif loop: zold=z z=@p8*fn3(z)+@p9 a=@p10*fn4(a)+@p11 a=p1*a/z+p2 z=z^2+p1*a^2+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Julia" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Julia Parameter 1" default=(0.3,0) endparam param p2 caption="Julia Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } BivarMandelbrot { ; Modification of a formula from Gerrit ; https://fractalforums.org/image-threads/25/gerrit-images/565/msg7701#msg7701 init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif loop: zold=z z=@p8*fn3(z)+@p9 a=@p10*fn4(a)+@p11 if @V=="1" a=p1*z/a+@fn5(pixel) elseif @V=="2" a=p1*a/z+@fn5(pixel) elseif @V=="3" a=p1*z^2/a^2+@fn5(pixel) elseif @V=="4" a=p1*a^2/z^2+@fn5(pixel) endif z=z^2+p1*a^2+@fn5(pixel) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Mandelbrot" center=(0.001,0.001) periodicity=0 param V caption="Variant" enum="1""2""3""4" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="M Parameter" default=(0.3,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Munster14J { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif loop: zold=z z=@p8*fn3(z)+@p9 a=@p10*fn4(a)+@p11 a=p1*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 14 J" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Munster Parameter 1" default=(0.3,0) endparam param p2 caption="Munster Parameter 2" default=(1.5,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Munster14M { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif loop: zold=z z=@p8*fn3(z)+@p9 a=@p10*fn4(a)+@p11 if @V=="1" a=p1*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a) elseif @V=="2" a=p1*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="3" a=p1*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="4" a=p1*@fn5(pixel)*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a) elseif @V=="5" a=p1*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a) elseif @V=="6" a=p1*@fn5(pixel)*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a) elseif @V=="7" a=p1*@fn5(pixel)*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a) elseif @V=="8" a=p1*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a) elseif @V=="9" a=p1*@fn5(pixel)*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a) elseif @V=="10" a=p1*@fn5(pixel)*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="11" a=p1*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="12" a=p1*@fn5(pixel)*a/z+p2 z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="13" a=p1*@fn5(pixel)*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="14" a=p1*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) elseif @V=="15" a=p1*@fn5(pixel)*a/z+p2*@fn5(pixel) z=z^2*(z-p2)/(1-p2*z)+p1*@fn5(pixel)*a^2*(a-p2)/(1-p2*a)+p2*@fn5(pixel) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 14 M" center=(0.001,0.001) periodicity=0 param V caption="M Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Munster Parameter 1" default=(0.3,0) endparam param p2 caption="Munster Parameter 2" default=(0.5,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc func fn5 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } BivarNewton { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @s=="28" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(flip(pixel)+11.5)/(1i+11.5*flip(pixel)) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) elseif @S2=="28" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) endif if @S2!=0 a=fn2(a)+p4 else a=fn2(a) endif loop: zold=z z=@p8*fn3(z)+@p9 a=@p10*fn4(a)+@p11 a=p1*a/z z=a+z-p1*(z^3-1)/(3*z^2)-p1*(a^3-1)/(3*a^2) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Newton" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function 1" default=ident() endfunc func fn2 caption="Start Function 2" default=ident() endfunc param p1 caption="Newton Parameter" default=(1,0) endparam param p8 caption="Loop Parameter 1a" default=(-0.5,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam func fn3 caption="Loop Function 1" default=ident() endfunc func fn4 caption="Loop Function 2" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } BivarCayley { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 a=p1*a/z+p2 z=(z-1i)/(z+1i)+p1*(a-1i)/(a+1i)+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Cayley" center=(0.001,0.001) periodicity=0 magn=0.5 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Cayley Parameter 1" default=(-2,0) endparam param p2 caption="Cayley Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Munster15J { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)imag(z) z=flip(z) endif z=conj(z) elseif @Va=="22" z=-1.65*abs((z^3-1)/(3*z^2)) elseif @Va=="23" z=0.96*cotanh((z-1i)/(z+1)) elseif @Va=="24" z=0.75*exp((z-1i)/(z+1)) endif z=p1*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 15 J" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p9 caption="Munster Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Munster15M { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=z+p5/z z=z+p6*sqr(z) if @V=="1" z=p1*fn3(pixel)*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="2" z=z*fn3(pixel) z=p1*fn3(pixel)*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="3" z=p1*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="4" z=z/fn3(pixel) z=p1*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="5" z=z/fn3(pixel) z=p1*fn3(pixel)*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="6" z=z/fn3(pixel) z=(p1+fn3(pixel))*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="7" z=z/fn3(pixel) z=(p1-fn3(pixel))*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="8" z=((p1-0.001)/fn3(pixel))*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="9" z=z*fn3(pixel) z=(p1/fn3(pixel))*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="10" z=z/fn3(pixel) z=(p1/fn3(pixel))*z^2*(-p2-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="11" z=(p1/fn3(pixel))*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="12" z=z/fn3(pixel) z=(p1/fn3(pixel))*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="13" z=p1*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="14" z=z/fn3(pixel) z=p1*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="15" z=p1*z^2*(-p2-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="16" z=z/fn3(pixel) z=p1*fn3(pixel)*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="17" z=z/fn3(pixel) z=p1*fn3(pixel)*z^2*(-p2-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 elseif @V=="18" z=(p1/fn3(pixel))*z^2*(-p2*fn3(pixel)-1i*z-1i*z^3)/(p2+z^2+1i*z^3)+@p9 elseif @V=="19" z=(p1/fn3(pixel))*z^2*(-p2-1i*z-1i*z^3)/(p2*fn3(pixel)+z^2+1i*z^3)+@p9 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 15 M" center=(0.001,0.001) periodicity=0 param V caption="M Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p9 caption="Munster Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Munster16 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=z-0.5*tan(z) elseif @Va=="2" z=z+0.3/sqr(z) elseif @Va=="3" z=z+0.3*sinh(z) elseif @Va=="4" z=z+7i/cos(z) elseif @Va=="5" z=z+15i*sinh(z) elseif @Va=="6" z=z+0.3i/exp(z) elseif @Va=="7" z=z+1/sqr(z) elseif @Va=="8" z=z+0.3/cosh(z) elseif @Va=="9" z=z+8i/sqr(z) elseif @Va=="10" z=z+0.3i*tan(z) elseif @Va=="11" z=z+0.3*cotanh(z) elseif @Va=="12" z=z+exp(z) elseif @Va=="13" z=z-0.3/z elseif @Va=="14" z=z-0.3*tanh(z) elseif @Va=="15" if |z|>1 z=z/|z| endif z=9*flip(z) elseif @Va=="16" if |z|<1 z=z/|z| endif z=flip(z) elseif @Va=="17" z=z+0.3/sinh(z) elseif @Va=="18" z=z+1i/z elseif @Va=="19" z=z-0.3/sqr(z) elseif @Va=="20" z=z+0.3i/sin(z) elseif @Va=="21" if |z|>1 z=z/|z| endif z=-1.75/sinh(z) elseif @Va=="22" z=z+0.3i*cotanh(z) elseif @Va=="23" z=z+24i*sin(z) elseif @Va=="24" z=z-0.3/cos(z) elseif @Va=="25" if |z|>1 z=z/|z| endif z=11*sqr(z) elseif @Va=="26" z=z-1/z elseif @Va=="27" z=z+7.7i/z elseif @Va=="28" z=z+2i/sqr(z) elseif @Va=="29" if |z|>1 z=z/|z| endif z=-8i*abs(z) elseif @Va=="30" z=z-0.3/sinh(z) elseif @Va=="31" z=z+0.3*sin(z) elseif @Va=="32" z=z+0.3i*cotan(z) elseif @Va=="33" if |z|>1 z=z/|z| endif z=1/flip(z) elseif @Va=="34" z=z+0.33*tanh(z) elseif @Va=="35" z=z+3*sinh(z) elseif @Va=="36" z=z+0.3/z elseif @Va=="37" z=z-0.3/cosh(z) elseif @Va=="38" if |z|<1 z=z/|z| endif z=-1.385*abs(z) elseif @Va=="39" if |z|>1 z=z/|z| endif z=-12*sqr(z) elseif @Va=="40" z=z+0.3*exp(z) elseif @Va=="41" if |z|>1 z=z/|z| endif z=-1.5/tan(z) elseif @Va=="42" if |z|>1 z=z/|z| endif z=-1.42/sin(z) elseif @Va=="43" z=z-0.3*cotanh(z) elseif @Va=="44" if |z|>1 z=z/|z| endif z=1.166i*cotanh(z) elseif @Va=="45" z=z-1/sqr(z) elseif @Va=="46" if |z|>1 z=z/|z| endif z=1.25i*cotan(z) endif z=(p2+17.5)*sqr((z-p1)/(1-conj(p1)*z))/z bailout: |z|<@bail default: title="Munster 16" center=(0.001,0.001) periodicity=0 magn=0.25 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42""43""44""45""46" endparam param p1 caption="Munster Parameter 1" default=(1.3,0) endparam param p2 caption="Munster Parameter 2" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100.0 endparam } Munster17 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if real(z)1 z=z/|z| endif z=0.75*cotan(z) elseif @Va=="3" z=z+0.2i/z elseif @Va=="4" if real(z)1 z=z/|z| endif z=1.15*sinh(z) elseif @Va=="15" z=z+0.3i/cosh(z) elseif @Va=="16" if real(z)imag(z) z=flip(z) endif z=conj(z) elseif @Va=="22" z=-1.65*abs((z^3-1)/(3*z^2)) elseif @Va=="23" if real(z)imag(z) z=flip(z) endif z=-0.67/abs(z) elseif @Va=="31" if real(z)>imag(z) z=flip(z) endif z=-1.25/cotanh(z) elseif @Va=="32" if real(z)>imag(z) z=flip(z) endif z=-1.35/cosh(z) elseif @Va=="33" z=z-cosh(z) z=z-1/cosh(z) elseif @Va=="34" z=z-0.25*exp(z) z=z-0.25/exp(z) endif z=p1*z^2*(z^3-z+p2)/(z^3-z^2+p2)+@p9 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 17 J" center=(0.001,0.001) periodicity=0 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p9 caption="Munster Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Munster17M { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" z=1.25*(z^3-1)/(3*z^2) elseif @Va=="2" z=sinh((z-0.5)/(-1+0.5*z)) elseif @Va=="3" z=cotanh((z-4)/(0.75+4*z)) elseif @Va=="4" z=recip((z-4)/(-2.25+4*z)) elseif @Va=="5" z=cotanh((z-4)/(-1.4+4*z)) elseif @Va=="6" z=recip((z+7.5)/(1+7.5*z)) elseif @Va=="7" z=cotan((z-4.5)/(1-4.5*z)) elseif @Va=="8" z=cotanh((z-4)/(2.35+4*z)) elseif @Va=="9" z=cotan((z-4)/(2.5+4*z)) elseif @Va=="10" z=z^2*tan((z-4)/(-1+4*z)) elseif @Va=="11" z=(sqr(z)-0.67)/(1-0.67*z) elseif @Va=="12" z=-1.25*(z^3-1)/(3*z^2) elseif @Va=="13" z=cotan((z-4)/(-2.5+4*z)) elseif @Va=="14" z=(cosh(z)+3)/(1+3*z) elseif @Va=="15" z=z+0.3i/cosh(z) elseif @Va=="16" z=-1.25*(3*z^2)/(z^3-1) elseif @Va=="17" z=z+0.69i/cotanh(z) elseif @Va=="18" z=z+0.35i/cotan(z) elseif @Va=="19" z=tan((z-0.5)/(1+0.5*z)) elseif @Va=="20" z=z^2*exp((z-4)/(-1+4*z)) elseif @Va=="21" z=z^2*sqr((z-4)/(0.33+4*z)) elseif @Va=="22" z=z^2*sqr((z-4)/(-1+4*z)) elseif @Va=="23" z=cotanh((z-2)/(1+2*z)) elseif @Va=="24" z=cotanh((z-2)/(-1+2*z)) elseif @Va=="25" z=cotan((z-2)/(-2.4+2*z)) elseif @Va=="26" z=cotan((z-2)/(1.33+2*z)) elseif @Va=="27" z=recip((z-2)/(-2.01+2*z)) elseif @Va=="28" z=recip((z-2)/(-1+2*z)) elseif @Va=="29" z=recip((z-2)/(-0.3+2*z)) elseif @Va=="30" z=recip((z-2)/(0.3+2*z)) elseif @Va=="31" z=exp((z-0.5)/(-2+0.5*z)) elseif @Va=="32" z=exp((z-0.5)/(2+0.5*z)) elseif @Va=="33" z=sqr((z-0.5)/(-1+0.5*z)) elseif @Va=="34" z=sqr((z-0.5)/(1.5+0.5*z)) elseif @Va=="35" z=sqr((z-0.5)/(1+0.5*z)) elseif @Va=="36" z=sqr((z-0.5)/(0.75+0.5*z)) elseif @Va=="37" z=sqr((z-0.5)/(0.5+0.5*z)) elseif @Va=="38" z=sqr((z-0.5)/(-0.8+0.5*z)) elseif @Va=="39" z=z+0.25i/tan(z) elseif @Va=="40" z=cosh((z-0.5)/(-1.5+0.5*z)) elseif @Va=="41" z=1.25*(3*z^2)/(z^3-1) elseif @Va=="42" z=z^2*sinh((z-4)/(-1+4*z)) endif if @MV=="1" z=p1*z^2*(z^3-z+p2*fn3(pixel))/(z^3-z^2+p2*fn3(pixel))+@p9 elseif @MV=="2" z=p1*fn3(pixel)*z^2*(z^3-z+p2)/(z^3-z^2+p2)+@p9 elseif @MV=="3" z=p1*fn3(pixel)*z^2*(z^3-z+p2*fn3(pixel))/(z^3-z^2+p2*fn3(pixel))+@p9 elseif @MV=="4" z=p1*fn3(pixel)*z^2*(z^3-z+p2*fn3(pixel))/(z^3-z^2+p2)+@p9 elseif @MV=="5" z=p1*fn3(pixel)*z^2*(z^3-z+p2)/(z^3-z^2+p2*fn3(pixel))+@p9 elseif @MV=="6" z=p1*z^2*(z^3-z+p2*fn3(pixel))/(z^3-z^2+p2)+@p9 elseif @MV=="7" z=p1*z^2*(z^3-z+p2)/(z^3-z^2+p2*fn3(pixel))+@p9 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 17 M" center=(0.001,0.001) periodicity=0 param MV caption="M Variant" enum="1""2""3""4""5""6""7" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33""34""35""36""37""38""39""40"\ "41""42" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p9 caption="Munster Parameter 3" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } BivarX1 { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 z=(z-p5)/(1-p5*z) a=(a-p5)/(1-p5*a) z=z/(p6*z+1) a=a/(p6*a+1) if @V=="None" z=z a=a elseif @V=="1" z=z+1/exp(z) a=a+1/exp(a) elseif @V=="2" z=z+3.885*(recip(z)^3-1i)/(3*recip(z)^2) a=a+3.885*(recip(a)^3-1i)/(3*recip(a)^2) elseif @V=="3" if |z|>1 z=z/|z| endif if |a|>1 a=a/|a| endif z=1.33*z a=1.33*a elseif @V=="4" z=z+0.4*(cosh(z)^3-1i)/(3*cosh(z)^2) a=a+0.4*(cosh(a)^3-1i)/(3*cosh(a)^2) elseif @V=="5" z=z+0.5*sinh(z) a=a+0.5*sinh(a) elseif @V=="6" z=z+0.5*(sqr(z)^3-1i)/(3*sqr(z)^2) a=a+0.5*(sqr(a)^3-1i)/(3*sqr(a)^2) elseif @V=="7" z=z-1/exp(z) a=a-1/exp(a) elseif @V=="8" z=z+(exp(z)^3-1i)/(3*exp(z)^2) a=a+(exp(a)^3-1i)/(3*exp(a)^2) elseif @V=="9" z=z+0.7/cosh(z) a=a+0.7/cosh(a) elseif @V=="10" z=z+0.3*((z)^3-1i)/(3*(z)^2) a=a+0.3*((a)^3-1i)/(3*(a)^2) elseif @V=="11" z=z^2*((z+0.5)/(1+0.5*z)) a=a^2*((a+0.5)/(1+0.5*a)) elseif @V=="12" z=z+sqr((z^2+0.3-1i)/(2*z+0.3-2i)) a=a+sqr((a^2+0.3-1i)/(2*a+0.3-2i)) elseif @V=="13" z=z^2*cos((z-3)/(1-3*z)) a=a^2*cos((a-3)/(1-3*a)) elseif @V=="14" z=z+((z^2-0.2-1i)/(2*z-0.2-2i)) a=a+((a^2-0.2-1i)/(2*a-0.2-2i)) elseif @V=="15" z=z^2*sinh((z+0.5)/(1+0.5*z)) a=a^2*sinh((a+0.5)/(1+0.5*a)) elseif @V=="16" z=z^2*tan((z+1.5)/(1+1.5*z)) a=a^2*tan((a+1.5)/(1+1.5*a)) elseif @V=="17" z=z+tan((z^2+0.6-1i)/(2*z+0.6-2i)) a=a+tan((a^2+0.6-1i)/(2*a+0.6-2i)) elseif @V=="18" z=z+0.38/cosh(z) a=a+0.38/cosh(a) elseif @V=="19" z=z-5.75*((z)^3-1i)/(3*(z)^2) a=a-5.75*((a)^3-1i)/(3*(a)^2) elseif @V=="20" z=z-0.3/sqr(z) a=a-0.3/sqr(a) elseif @V=="21" z=z+0.5*(exp(z)^3-1i)/(3*exp(z)^2) a=a+0.5*(exp(a)^3-1i)/(3*exp(a)^2) elseif @V=="22" z=z+0.5*tanh(z) a=a+0.5*tanh(a) elseif @V=="23" z=z+1.41*(tan(z)^3-1i)/(3*tan(z)^2) a=a+1.41*(tan(a)^3-1i)/(3*tan(a)^2) elseif @V=="24" z=z-0.5*cos(z) a=a-0.5*cos(a) elseif @V=="25" z=z+(sinh(z)^3-1i)/(3*sinh(z)^2) a=a+(sinh(a)^3-1i)/(3*sinh(a)^2) elseif @V=="26" if |z|<1 z=z/|z| endif if |a|<1 a=a/|a| endif z=1.5*z a=1.5*a endif z=(z^3-z-p1)/(z^3+z^2-p1)+@p12 a=(a^3-a+p1)/(a^3-a^2+p1)+@p12 z=p2*z^2*a/z+@p12 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar X 1" center=(0.001,0.001) periodicity=0 magn=0.5 param V caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="X Parameter 1" default=(2,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p12 caption="X Parameter 3" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } BivarX2 { init: z=fn1(pixel) if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z z=fn2(z) a=@p10*fn2(a)+@p11 z=(z-@p7)/(1-@p7*z) a=(a-@p7)/(1-@p7*a) z=z/(@p8*z+1) a=a/(@p8*a+1) if @V=="1" if |z|<1 z=z/|z| endif if |a|>1 a=a/|a| endif z=-1.5*z a=-1.5*a elseif @V=="2" z=z-0.75*1i/cosh(z) a=a-0.75*1i/cosh(a) elseif @V=="3" if |z|>1 z=z/|z| endif if |a|<1 a=a/|a| endif z=-1.25*z a=-1.25*a elseif @V=="4" z=z+1.825*1i/sin(z) a=a+1.825*1i/sin(a) elseif @V=="5" z=z-1.5*tan(z) a=a-1.5*tan(a) elseif @V=="6" z=z-2.2*(tanh(z)^3-1i)/(3*tanh(z)^2) a=a-2.2*(tanh(a)^3-1i)/(3*tanh(a)^2) elseif @V=="7" z=z-0.8*cotan(z) a=a-0.8*cotan(a) elseif @V=="8" z=z-3.525*1i/exp(z) a=a-3.525*1i/exp(a) elseif @V=="9" if real(z)1 a=a/|a| endif z=-1.875*sqr(z) a=-1.875*sqr(a) elseif @V=="16" z=z-0.765*1i*cos(z) a=a-0.765*1i*cos(a) elseif @V=="17" if real(z)1 z=z/|z| endif if |a|<1 a=a/|a| endif z=-0.9*sqr(z) a=-0.9*sqr(a) elseif @V=="22" z=z+1.565*1i/sinh(z) a=a+1.565*1i/sinh(a) elseif @V=="23" z=z-cotan(z) a=a-cotan(a) elseif @V=="24" z=z+0.3*1i/tan(z) a=a+0.3*1i/tan(a) endif z=(z^3-z-p1)/(z^3+z^2-p1)+@p12 a=(a^3-a+p1)/(a^3-a^2+p1)+@p12 z=z^2*a/z+@p12 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar X 2" center=(0.001,0.001) periodicity=0 magn=0.5 param S2 caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param V caption="Loop Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24" endparam param p4 caption="Start Parameter" default=(0,0) endparam param p10 caption="Loop Parameter 1" default=(1,0) endparam param p11 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="X Parameter 1" default=(2,0) endparam param p12 caption="X Parameter 2" default=(0,0) endparam param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } BivarX3 { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 z=(z-p5)/(1-p5*z) a=(a-p5)/(1-p5*a) z=z/(p6*z+1) a=a/(p6*a+1) if @V=="None" z=z a=a elseif @V=="1" z=z+0.615*(cotanh(z)^3-1i)/(3*cotanh(z)^2) a=a+0.615*(cotanh(a)^3-1i)/(3*cotanh(a)^2) elseif @V=="2" z=z+3.885*(recip(z)^3-1i)/(3*recip(z)^2) a=a+3.885*(recip(a)^3-1i)/(3*recip(a)^2) elseif @V=="3" z=z+sqr((z^2)/(2*z-1)) a=a+sqr((a^2)/(2*a-1)) elseif @V=="4" z=z+1i*tanh(z) a=a+1i*tanh(a) elseif @V=="5" z=sqr((z+8)/(z-8)) a=sqr((a+8)/(a-8)) elseif @V=="6" z=z+recip((z^2+0.825)/(2*z-0.175)) a=a+recip((a^2+0.825)/(2*a-0.175)) elseif @V=="7" z=z-0.25i*sqr(z) a=a-0.25i*sqr(a) elseif @V=="8" z=z+0.3/(z) a=a+0.3/(a) elseif @V=="9" z=cotanh((z+1.5)/(z-1.5)) a=cotanh((a+1.5)/(a-1.5)) elseif @V=="10" z=z+0.3*((z)^3-1i)/(3*(z)^2) a=a+0.3*((a)^3-1i)/(3*(a)^2) elseif @V=="11" z=z+0.83i*sin(z) a=a+0.83i*sin(a) elseif @V=="12" z=z+sqr((z^2+4)/(2*z+3)) a=a+sqr((a^2+4)/(2*a+3)) elseif @V=="13" z=z-0.6i*sinh(z) a=a-0.6i*sinh(a) elseif @V=="14" z=z+((z^2-0.2-1i)/(2*z-0.2-2i)) a=a+((a^2-0.2-1i)/(2*a-0.2-2i)) elseif @V=="15" z=z-0.6i*sin(z) a=a-0.6i*sin(a) elseif @V=="16" z=z+cotanh((z^2-1)/(2*z-2)) a=a+cotanh((a^2-1)/(2*a-2)) elseif @V=="17" z=z+0.75i*sqr(z) a=a+0.75i*sqr(a) elseif @V=="18" z=tanh((z-1.65)/(z+1.65)) a=tanh((a-1.65)/(a+1.65)) elseif @V=="19" z=z-0.575i*(z) a=a-0.575i*(a) elseif @V=="20" z=z+recip((z^2-1)/(2*z-2)) a=a+recip((a^2-1)/(2*a-2)) elseif @V=="21" z=z+sin((z^2+0.7)/(2*z-0.3)) a=a+sin((a^2+0.7)/(2*a-0.3)) elseif @V=="22" z=tanh((z-3.225)/(z+3.225)) a=tanh((a-3.225)/(a+3.225)) elseif @V=="23" z=z+cosh((z^2+2)/(2*z+1)) a=a+cosh((a^2+2)/(2*a+1)) elseif @V=="24" z=z+1i*tan(z) a=a+1i*tan(a) elseif @V=="25" z=z+sqr((z^2-2.5-1i)/(2*z-2.5-2i)) a=a+sqr((a^2-2.5-1i)/(2*a-2.5-2i)) elseif @V=="26" z=sin((z-2.4)/(z+2.4)) a=sin((a-2.4)/(a+2.4)) elseif @V=="27" z=z+cotanh((z^2+1.05-1i)/(2*z+1.05-2i)) a=a+cotanh((a^2+1.05-1i)/(2*a+1.05-2i)) endif a=p1*z/a+@p12 z=fn3((z^2+p2-1)/(2*z+p2-2))+p1*fn3((a^2+p2-1)/(2*a+p2-2))+@p12 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar X 3" center=(0.001,0.001) periodicity=0 magn=0.5 param V caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="X Parameter 1" default=(0.35,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p12 caption="X Parameter 3" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } BivarX4 { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 z=(z-p5)/(1-p5*z) a=(a-p5)/(1-p5*a) z=z/(p6*z+1) a=a/(p6*a+1) if @V=="None" z=z a=a elseif @V=="1" z=z+1/exp(z) a=a+1/exp(a) elseif @V=="2" z=z+sqr(z) a=a+sqr(a) elseif @V=="3" z=z+cos(z) a=a+cos(a) elseif @V=="4" z=z+0.3*sinh(z) a=a+0.3*sinh(a) elseif @V=="5" z=z+0.3*cos(z) a=a+0.3*cos(a) elseif @V=="6" z=z-0.3*tanh(z) a=a-0.3*tanh(a) elseif @V=="7" z=z+cosh(z) a=a+cosh(a) elseif @V=="8" z=z-0.3*sqr(z) a=a-0.3*sqr(a) elseif @V=="9" z=z-0.3*tan(z) a=a-0.3*tan(a) elseif @V=="10" z=z-sinh(z) a=a-sinh(a) elseif @V=="11" z=z+0.3*cosh(z) a=a+0.3*cosh(a) elseif @V=="12" z=z-0.3*sin(z) a=a-0.3*sin(a) elseif @V=="13" z=z-sqr(z) a=a-sqr(a) elseif @V=="14" z=z+0.3*tanh(z) a=a+0.3*tanh(a) elseif @V=="15" z=z+0.3*sin(z) a=a+0.3*sin(a) elseif @V=="16" z=z-0.3*exp(z) a=a-0.3*exp(a) elseif @V=="17" z=z+0.3*tan(z) a=a+0.3*tan(a) elseif @V=="18" z=z-0.3*sinh(z) a=a-0.3*sinh(a) elseif @V=="19" z=z-0.3*cosh(z) a=a-0.3*cosh(a) elseif @V=="20" z=z-tanh(z) a=a-tanh(a) elseif @V=="21" z=z-0.3*cos(z) a=a-0.3*cos(a) elseif @V=="22" z=z-sin(z) a=a-sin(a) elseif @V=="23" z=z-tan(z) a=a-tan(a) elseif @V=="24" z=z-cosh(z) a=a-cosh(a) elseif @V=="25" z=z-cos(z) a=a-cos(a) elseif @V=="26" z=z+0.3/exp(z) a=a+0.3/exp(a) elseif @V=="27" z=z+0.3/sinh(z) a=a+0.3/sinh(a) elseif @V=="28" z=z+0.3/cos(z) a=a+0.3/cos(a) elseif @V=="29" z=z+0.3/cosh(z) a=a+0.3/cosh(a) elseif @V=="30" z=z-0.3/exp(z) a=a-0.3/exp(a) elseif @V=="31" z=z-0.3/cosh(z) a=a-0.3/cosh(a) elseif @V=="32" z=z-0.3/cos(z) a=a-0.3/cos(a) endif if @MV=="1" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2)+(@p12+1)*fn4(pixel) elseif @MV=="2" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2)+@p12 elseif @MV=="3" a=p1*a/z+@p12 z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2)+(@p12+1)*fn4(pixel) elseif @MV=="4" a=p1*a/z+@p12 z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2)+@p12 elseif @MV=="5" a=p1*a/z+@p12 z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2*fn4(pixel))+@p12 elseif @MV=="6" a=p1*a/z+@p12 z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2*fn4(pixel))+@p12 elseif @MV=="7" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2)+@p12 elseif @MV=="8" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2*fn4(pixel))+@p12 elseif @MV=="9" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2*fn4(pixel))+@p12 elseif @MV=="10" a=p1*a/z+@p12 z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2)+(@p12+1)*fn4(pixel) elseif @MV=="11" a=p1*a/z+@p12 z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2*fn4(pixel))+(@p12+1)*fn4(pixel) elseif @MV=="12" a=p1*a/z+@p12 z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2*fn4(pixel))+(@p12+1)*fn4(pixel) elseif @MV=="13" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2)+(@p12+1)*fn4(pixel) elseif @MV=="14" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2*fn4(pixel))+p1*fn3(a^3-a+p2*fn4(pixel))+(@p12+1)*fn4(pixel) elseif @MV=="15" a=p1*a/z+(@p12+1)*fn4(pixel) z=fn3(z^3-z+p2)+p1*fn3(a^3-a+p2*fn4(pixel))+(@p12+1)*fn4(pixel) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar X 4" center=(0.001,0.001) periodicity=0 param MV caption="Mandelbrot Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15" endparam param V caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="X Parameter 1" default=(-0.3,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p12 caption="X Parameter 3" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="X Function" default=ident() endfunc func fn4 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } Barnsley11 { init: z=fn1(pixel) if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=(@sp+1)*(z+1)/z*(z+1i) elseif @S=="13" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="14" z=z+(@sp+1)*(z^2-1) elseif @S=="15" z=z+(@sp+1)*(z^3-1i) elseif @S=="16" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*fn2(z)+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @Va=="None" z=z elseif @Va=="1" if |z|<1 z=z/|z| endif z=0.79245*flip(z) elseif @Va=="2" if |z|>1 z=z/|z| endif z=-0.6807*cotanh(z) elseif @Va=="3" if |z|>1 z=z/|z| endif z=1.12449*cotan(z) elseif @Va=="4" z=0.834*z*sqrt(z) elseif @Va=="5" z=-1.075*z*cotanh(z) elseif @Va=="6" z=-0.97925*z*cotan(z) elseif @Va=="7" z=-0.9*z*cos(z) elseif @Va=="8" z=sqr(z)*cotan(z) elseif @Va=="9" z=1.0725*atanh(z)*tan(z) elseif @Va=="10" z=-0.945*cosh(z)*cos(z) elseif @Va=="11" z=0.689*(exp(z)+sqr(z)) elseif @Va=="12" if |z|<1 z=z/|z| endif z=z*cotanh(z)*cotan(z) elseif @Va=="13" z=0.8558*cabs(z)^2/z elseif @Va=="14" z=0.5*(z+sin(z)) elseif @Va=="15" z=z+cotan(z) elseif @Va=="16" z=cos(z)*cosh(z)*asin(z) elseif @Va=="17" z=z+0.5*(tanh(z)^3)/(3*z^2) elseif @Va=="18" z=z+0.5*(tanh(z)^3)/(3*cosh(z)^2) elseif @Va=="19" if real(z)imag(z) z=flip(z)+1 else z=flip(z)-1 endif z=flip(z) elseif @Va=="22" if real(z)>imag(z) z=flip(z)+1 else z=flip(z)-1 endif z=conj(z) elseif @Va=="23" if real(z)imag(z) z=z-0.4 else z=z+0.4 endif elseif @Va=="26" if real(z)>imag(z) z=z-0.93 else z=z+0.93 endif z=flip(z) elseif @Va=="27" if real(z)>imag(z) z=z-0.225 else z=z+0.225 endif z=conj(z) elseif @Va=="28" if real(z)>imag(z) z=z+0.225 else z=z-0.225 endif z=conj(z) elseif @Va=="29" if real(z)>imag(z) z=z-0.35 else z=z+0.35 endif z=sqr(z) elseif @Va=="30" if real(z)>imag(z) z=z+0.35 else z=z-0.35 endif z=sqr(z) elseif @Va=="31" if real(z)>imag(z) z=z-0.267 else z=z+0.267 endif z=cotanh(z) elseif @Va=="32" if real(z)>imag(z) z=z-0.22679 else z=z+0.22679 endif z=atanh(z) elseif @Va=="33" if real(z)>imag(z) z=z+0.31226 else z=z-0.31226 endif z=recip(z) endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z-p2)*p1 else z=(z+p2)*p1 endif z=z^2+@p9 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Barnsley 11" center=(0.001,0.001) periodicity=0 param Va caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33" endparam param p1 caption="Barnsley Parameter 1" default=(0.28,-0.51) endparam param p2 caption="Barnsley Parameter 2" default=(1,0) endparam param p9 caption="Barnsley Parameter 3" default=(0,0) endparam func fn3 caption="Barnsley Function" default=ident() endfunc param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16" endparam param sp caption="Start Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } TrivarJulia { init: z=fn1(pixel) a=fn1(pixel) b=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 a=p4*fn2(a)+p5 b=p4*fn2(b)+p5 if @M=="1" z=z-0.5*exp(z) a=a-0.5*exp(a) b=b-0.5*exp(b) elseif @M=="2" z=z+sqr(z) a=a+sqr(a) b=b+sqr(b) elseif @M=="3" z=z-0.45*tanh(z) a=a-0.45*tanh(a) b=b-0.45*tanh(b) elseif @M=="4" z=z+1.45*cos(z) a=a+1.45*cos(a) b=b+1.45*cos(b) elseif @M=="5" z=z+0.375*cos(z) a=a+0.375*cos(a) b=b+0.375*cos(b) elseif @M=="6" z=z+0.7/exp(z) a=a+0.7/exp(a) b=b+0.7/exp(b) elseif @M=="7" z=z+0.5/cosh(z) a=a+0.5/cosh(a) b=b+0.5/cosh(b) elseif @M=="8" z=z^2*(z-10)/(1-10*z) a=a^2*(a-10)/(1-10*a) b=b^2*(b-10)/(1-10*b) elseif @M=="9" z=z^2*(sqr(z)+5.8)/(1+5.8*sqr(z)) a=a^2*(sqr(a)+5.8)/(1+5.8*sqr(a)) b=b^2*(sqr(b)+5.8)/(1+5.8*sqr(b)) elseif @M=="10" z=sqr((z^2-0.87147)/(2*z-1.87147)) a=sqr((a^2-0.87147)/(2*a-1.87147)) b=sqr((b^2-0.87147)/(2*b-1.87147)) elseif @M=="11" z=sqr((z^2+4)/(2*z+3)) a=sqr((a^2+4)/(2*a+3)) b=sqr((b^2+4)/(2*b+3)) elseif @M=="12" z=sqr((z^2-1)/(2*z-2)) a=sqr((a^2-1)/(2*a-2)) b=sqr((b^2-1)/(2*b-2)) elseif @M=="13" z=flip(sqr((z^2-4)/(2*z-5))) a=flip(sqr((a^2-4)/(2*a-5))) b=flip(sqr((b^2-4)/(2*b-5))) elseif @M=="14" z=z-3.5*(z^3-1)/(3*z^2) a=a-3.5*(a^3-1)/(3*a^2) b=b-3.5*(b^3-1)/(3*b^2) elseif @M=="15" z=z-(z^3-1)/(3*z^2) a=a-(a^3-1)/(3*a^2) b=b-(b^3-1)/(3*b^2) elseif @M=="16" z=z-0.55*(exp(z)^3-1)/(3*exp(z)^2) a=a-0.55*(exp(a)^3-1)/(3*exp(a)^2) b=b-0.55*(exp(b)^3-1)/(3*exp(b)^2) elseif @M=="17" z=z+3*(cosh(z)^3-1)/(3*cosh(z)^2) a=a+3*(cosh(a)^3-1)/(3*cosh(a)^2) b=b+3*(cosh(b)^3-1)/(3*cosh(b)^2) elseif @M=="18" z=z-2.25*(cos(z)^3-1)/(3*cos(z)^2) a=a-2.25*(cos(a)^3-1)/(3*cos(a)^2) b=b-2.25*(cos(b)^3-1)/(3*cos(b)^2) elseif @M=="19" z=z+0.3*(recip(z)^3-1)/(3*recip(z)^2) a=a+0.3*(recip(a)^3-1)/(3*recip(a)^2) b=b+0.3*(recip(b)^3-1)/(3*recip(b)^2) endif a=p1*b/z+p3 b=p2*a/z+p3 z=z^2+p1*a^2+p2*b^2+p3 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Trivar Julia" center=(0.001,0.001) periodicity=0 param p1 caption="TJ Parameter 1" default=(0.5,0) endparam param p2 caption="TJ Parameter 2" default=(0.5,0) endparam param p3 caption="TJ Parameter 3" default=(-0.5,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param M Caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19" endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } Munster18 { init: z=fn1(pixel) loop: zold=z z=p4*fn2(z)+p5 if @JM=="J1" z=p1*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2)+p3 elseif @JM=="J2" z=p1*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3-p2)+p3 elseif @JM=="J3" z=p1*z^2*(z^6-1i*z^3-p2)/(z^6+1i*z^3-p2)+p3 elseif @JM=="J4" z=p1*z^2*(z^6-1i*z^3-p2)/(z^6+1i*z^3+p2)+p3 elseif @JM=="M1" z=p1*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2*fn3(pixel))+p3 elseif @JM=="M2" z=p1*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2)+p3 elseif @JM=="M3" z=p1*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2*fn3(pixel))+p3 elseif @JM=="M4" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2)+p3 elseif @JM=="M5" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2)+p3 elseif @JM=="M6" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2*fn3(pixel))+p3 elseif @JM=="M7" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2*fn3(pixel))+p3 elseif @JM=="M8" z=p1*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2)+(p3+1)*fn3(pixel) elseif @JM=="M9" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2)+(p3+1)*fn3(pixel) elseif @JM=="M10" z=p1*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2)+(p3+1)*fn3(pixel) elseif @JM=="M11" z=p1*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2*fn3(pixel))+(p3+1)*fn3(pixel) elseif @JM=="M12" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2)+(p3+1)*fn3(pixel) elseif @JM=="M13" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2)/(z^6+1i*z^3+p2*fn3(pixel))+(p3+1)*fn3(pixel) elseif @JM=="M14" z=p1*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2*fn3(pixel))+(p3+1)*fn3(pixel) elseif @JM=="M15" z=p1*fn3(pixel)*z^2*(z^6-1i*z^3+p2*fn3(pixel))/(z^6+1i*z^3+p2*fn3(pixel))+(p3+1)*fn3(pixel) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Munster 18" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J1""J2""J3""J4""M1""M2""M3""M4""M5"\ "M6""M7""M8""M9""M10""M11""M12""M13""M14""M15" endparam param p1 caption="Munster Parameter 1" default=(1,0) endparam param p2 caption="Munster Parameter 2" default=(1,0) endparam param p3 caption="Munster Parameter 3" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM!="J1" && @JM!="J2" && @JM!="J3" && @JM!="J4" endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.00000000000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } EnaridulaJulia { ; Modification/extension of ariadne3 by Konstantin Schwarze (ks.ufm) init: a=fn1(pixel) b=fn1(pixel) z=fn1(pixel) loop: a=p3*fn2(a)+p4 b=p3*fn2(b)+p4 a1=a a=a^2-b^2+p1 b=1/(2*a1*b+p2) c=a+b z=c bailout: |c|<@bail default: title="Enaridula Julia" center=(0.001,0.001) periodicity=0 param p1 caption="Enaridula Parameter 1" default=(-1,0) endparam param p2 caption="Enaridula Parameter 2" default=(1,-1) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bail caption="Bailout" default=100.0 endparam } EnaridulaMandelbrot { ; Modification/extension of ariadne1 and ariadne2 by Konstantin Schwarze (ks.ufm) init: a=fn1(pixel) b=fn1(pixel) z=fn1(pixel) loop: if @V=="1" || @V=="5" || @V=="6" || @V=="7" a=p3*fn2(a)/2+p4*fn3(pixel) b=p3*fn2(b)/2+p4*fn3(pixel) elseif @V=="2" || @V=="3" || @V=="4" a=p3*fn2(a)/2+p4-1 b=p3*fn2(b)/2+p4-1 endif a1=a if @V=="1" a=a^2-b^2+p1 b=1/(2*a1*b+p2) elseif @V=="2" || @V=="5" a=a^2-b^2+p1*fn3(pixel) b=1/(2*a1*b+p2) elseif @V=="3" || @V=="6" a=a^2-b^2+p1 b=1/(2*a1*b+p2*fn3(pixel)) elseif @V=="4" || @V=="7" a=a^2-b^2+p1*fn3(pixel) b=1/(2*a1*b+p2*fn3(pixel)) endif c=a+b z=c bailout: |c|<@bail default: title="Enaridula Mandelbrot" center=(-0.501,0.001) periodicity=0 Param V caption="Mandelbrot Variant" enum="1""2""3""4""5""6""7" endparam param p1 caption="Enaridula Parameter 1" default=(1,0) endparam param p2 caption="Enaridula Parameter 2" default=(1,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bail caption="Bailout" default=100.0 endparam } BivarX5 { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z if @JM=="J" || @JM=="M1" || @JM=="M2" || @JM=="M3" || @JM=="M4" || @JM=="M5" || @JM=="M6" || @JM=="M7" z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 else z=(@p8-0.5)*fn2(z)+(@p9+1)*fn3(pixel) a=(@p10-0.5)*fn2(a)+(@p11+1)*fn3(pixel) endif z=(z-p5)/(1-p5*z) a=(a-p5)/(1-p5*a) z=z/(p6*z+1) a=a/(p6*a+1) z=z+@p12*sqr(z) a=a+@p12*sqr(a) if @JM=="J" || @JM=="M11" a=p1*((a-1i)/(z+1i))+p2 z=z^2+p1*a^2+p2 elseif @JM=="M1" a=p1*((a-1i*fn3(pixel))/(z+1i*fn3(pixel)))+p2 z=z^2+p1*a^2+p2 elseif @JM=="M2" a=p1*((a-1i*fn3(pixel))/(z+1i*fn3(pixel)))+(p2+1)*fn3(pixel) z=z^2+p1*a^2+p2 elseif @JM=="M3" a=p1*((a-1i*fn3(pixel))/(z+1i*fn3(pixel)))+p2 z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @JM=="M4" a=p1*((a-1i*fn3(pixel))/(z+1i*fn3(pixel)))+(p2+1)*fn3(pixel) z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @JM=="M5" a=p1*((a-1i)/(z+1i))+(p2+1)*fn3(pixel) z=z^2+p1*a^2+p2 elseif @JM=="M6" a=p1*((a-1i)/(z+1i))+(p2+1)*fn3(pixel) z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @JM=="M7" a=p1*((a-1i)/(z+1i))+p2 z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @JM=="M8" a=p1*((a-1i)/(z+1i))+(p2+1)*fn3(pixel) z=z^2+p1*a^2+p2 elseif @JM=="M9" a=p1*((a-1i)/(z+1i))+(p2+1)*fn3(pixel) z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @JM=="M10" a=p1*((a-1i)/(z+1i))+p2 z=z^2+p1*a^2+(p2+1)*fn3(pixel) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar X 5" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M1""M2""M3""M4""M5""M6""M7""M8""M9""M10"\ "M11" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="X Parameter 1" default=(0.57,0) endparam param p2 caption="X Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam param p12 caption="Add Sqr Parameter" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=100.0 visible=@bt==1 endparam } BivarDioteld { init: z=fn1(pixel) a=fn1(pixel) loop: zold=z z=-0.05*p3*fn2(z)+p4 a=-0.05*p3*fn2(a)+p4 a=p5*z/a+p6 if @JM=="M" z=(1-p2/z)*sqr(z)-sqr(p1*fn3(pixel)*(z-1))/(2*z)+p5*((1-p2/a)*sqr(a)-sqr(p1*fn3(pixel)*(a-1))/(a*z))+p6 else z=(1-p2/z)*sqr(z)-sqr(p1*(z-1))/(2*z)+p5*((1-p2/a)*sqr(a)-sqr(p1*(a-1))/(2*a))+p6 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Dioteld" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" endparam param p1 caption="Dioteld Parameter 1" default=(1,0) endparam param p2 caption="Dioteld Parameter 2" default=(1,0) endparam param p5 caption="Dioteld Parameter 3" default=(1,0) endparam param p6 caption="Dioteld Parameter 4" default=(0,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.00000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=1000000.0 visible=@bt==0 endparam } BivarJulia2 { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 z=(z-p5)/(1-p5*z) a=(a-p5)/(1-p5*a) z=z/(p6*z+1) a=a/(p6*a+1) a=p1*(a/z+z/a)+p2 z=z^2+p1*a^2+p2 bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Julia 2" center=(0.001,0.001) periodicity=0 param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="Julia Parameter 1" default=(-0.5,0) endparam param p2 caption="Julia Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } BivarMandelbrot2 { init: if @S=="1" z=pixel+p3*(pixel-1i)/(pixel+1i) elseif @S=="2" z=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S=="3" z=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S=="4" z=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S=="5" z=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S=="6" z=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S=="7" z=(pixel-1i)/(pixel+1i) elseif @S=="8" z=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S=="9" z=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S=="10" z=pixel+pixel^2+pixel^3 elseif @S=="11" z=pixel^2+1i elseif @S=="12" z=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S=="13" z=(pixel-1i)/(pixel+1) elseif @S=="14" z=(pixel+1i)/(1i*pixel) elseif @S=="15" z=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S=="16" z=(pixel^3-1i)/(pixel^3+1i) elseif @S=="17" z=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S=="18" z=pixel-(pixel^2-1)/(2*pixel) elseif @S=="19" z=pixel-sqr(pixel) elseif @S=="20" z=pixel+sqr(pixel) elseif @S=="21" z=pixel-1i/pixel elseif @S=="22" z=pixel-(pixel^2-1i)/(2*pixel) elseif @S=="23" z=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S=="24" z=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S=="25" z=1i*sqr(pixel)+pixel elseif @s=="26" z=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @s=="27" z=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S!=0 z=fn1(z)+p3 else z=fn1(z) endif if @S2=="1" a=pixel+p4*(pixel-1i)/(pixel+1i) elseif @S2=="2" a=sqr(pixel)*(pixel+1.5)/(1i+1.5*pixel) elseif @S2=="3" a=sqr(pixel)*(tan(pixel)+11.5)/(1i+11.5*tan(pixel)) elseif @S2=="4" a=sqr((sqr(pixel)-2)/(2*pixel-3)) elseif @S2=="5" a=sqr(pixel)*(pixel-2)/(1-2*pixel) elseif @S2=="6" a=sqr(pixel)*(exp(pixel)+1)/(1i+exp(pixel)) elseif @S2=="7" a=(pixel-1i)/(pixel+1i) elseif @S2=="8" a=sqr(pixel)*(cotan(pixel)+11.5)/(1i+11.5*cotan(pixel)) elseif @S2=="9" a=sqr(pixel)*(pixel+2)/(1i+2*pixel) elseif @S2=="10" a=pixel+pixel^2+pixel^3 elseif @S2=="11" a=pixel^2+1i elseif @S2=="12" a=(sqr(pixel)-1i)/(sqr(pixel)+1i) elseif @S2=="13" a=(pixel-1i)/(pixel+1) elseif @S2=="14" a=(pixel+1i)/(1i*pixel) elseif @S2=="15" a=sqr(pixel)*(cotan(pixel)+1)/(1i+cotan(pixel)) elseif @S2=="16" a=(pixel^3-1i)/(pixel^3+1i) elseif @S2=="17" a=sqr(pixel)*(cotanh(pixel)+1)/(1i+cotanh(pixel)) elseif @S2=="18" a=pixel-(pixel^2-1)/(2*pixel) elseif @S2=="19" a=pixel-sqr(pixel) elseif @S2=="20" a=pixel+sqr(pixel) elseif @S2=="21" a=pixel-1i/pixel elseif @S2=="22" a=pixel-(pixel^2-1i)/(2*pixel) elseif @S2=="23" a=sqr(pixel)*(pixel-0.5)/(1-0.5*pixel) elseif @S2=="24" a=sqr(pixel)*(pixel-2)/(1i-2*pixel) elseif @S2=="25" a=1i*sqr(pixel)+pixel elseif @S2=="26" a=sqr(pixel)*(sin(pixel)+1)/(1i+sin(pixel)) elseif @S2=="27" a=sqr(pixel)*(pixel+1)/(1i+pixel) endif if @S2!=0 a=fn1(a)+p4 else a=fn1(a) endif loop: zold=z if @V=="4" || @V=="5" || @V=="6" || @V=="7" z=@p8*fn2(z)+(@p9+1)*fn3(pixel) a=@p10*fn2(a)+(@p11+1)*fn3(pixel) else z=@p8*fn2(z)+@p9 a=@p10*fn2(a)+@p11 endif z=(z-p5)/(1-p5*z) a=(a-p5)/(1-p5*a) z=z/(p6*z+1) a=a/(p6*a+1) if @V=="1" || @V=="5" a=p1*(a/z+z/a)+(p2+1)*fn3(pixel) z=z^2+p1*a^2+p2 elseif @V=="2" || @V=="6" a=p1*(a/z+z/a)+p2 z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @V=="3" || @V=="7" a=p1*(a/z+z/a)+(p2+1)*fn3(pixel) z=z^2+p1*a^2+(p2+1)*fn3(pixel) elseif @V=="4" a=p1*(a/z+z/a)+p2 z=z^2+p1*a^2+p2 endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Bivar Mandelbrot 2" center=(0.001,0.001) periodicity=0 param V caption="Mandelbrot Variant" enum="1""2""3""4""5""6""7" endparam param S caption="Start Variant 1" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param S2 caption="Start Variant 2" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27" endparam param p3 caption="Start Parameter 1" default=(0,0) endparam param p4 caption="Start Parameter 2" default=(0,0) endparam param p1 caption="Mandelbrot Parameter 1" default=(0.3,0) endparam param p2 caption="Mandelbrot Parameter 2" default=(0,0) endparam param p8 caption="Loop Parameter 1a" default=(1,0) endparam param p9 caption="Loop Parameter 1b" default=(0,0) endparam param p10 caption="Loop Parameter 2a" default=(1,0) endparam param p11 caption="Loop Parameter 2b" default=(0,0) endparam param p5 caption="Möbius Parameter 1" default=(0,0) endparam param p6 caption="Möbius Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() endfunc param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout" default=0.000000001 visible=@bt==0 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==1 endparam } TefJifentu { init: z=pixel if @S=="1" z=(@sp+1)*z+@sp*(z-1i)/(z+1i) elseif @S=="2" z=z+(@sp+1)*(z-1i)/(z+1i) elseif @S=="3" z=z+(@sp+1)*(z^2-1i)/(z+1) elseif @S=="4" z=z^2*(z-(@sp+2))/(1-(@sp+2)*z) elseif @S=="5" z=z+(@sp+1)*z^3/(z^2-1i) elseif @S=="6" z=z+(@sp+1)*(z-1)*(z+1i) elseif @S=="7" z=z+(@sp+1)*(z+1)*(z-1i) elseif @S=="8" z=z-(@sp+1)*(3*z^2)/(z^3-1i) elseif @S=="9" z=z+(@sp+1)*(z+1)*(z-1i)/(z-1) elseif @S=="10" z=z+(@sp+1)*(z+1)/(z-1i)*(z-1) elseif @S=="11" z=(@sp+1)*(z+1)/(z-1i)*(z+1i) elseif @S=="12" z=z+(@sp+1)*(z^2-z-1)/(z+1) elseif @S=="13" z=z+(@sp+1)*(z^3-1i) elseif @S=="14" z=z+(@sp+1)/exp(z) endif loop: zold=z z=p3*z+p4 z=(z-@p7)/(1-@p7*z) z=z/(@p8*z+1) z=z+p5/z z=z+p6*sqr(z) if @V=="1" z=z^2-p1*pixel*recip(z) z=z^2+p2*pixel*z elseif @V=="2" z=z^2+p1*pixel*recip(z) z=z^2-p2*pixel*z elseif @V=="3" z=z^2-p1*pixel*recip(z) z=z^2-p2*pixel*z elseif @V=="4" z=z^2+p1*pixel*recip(z) z=z^2+p2*pixel*z elseif @V=="5" z=z^2-p1*pixel*recip(z) z=z^2+p2*pixel*recip(z) elseif @V=="6" z=z^2+p1*pixel*recip(z) z=z^2-p2*pixel*recip(z) elseif @V=="7" z=z^2-p1*pixel*recip(z) z=z^2-p2*pixel*recip(z) elseif @V=="8" z=z^2+p1*pixel*recip(z) z=z^2+p2*pixel*recip(z) elseif @V=="9" z=z^2-p1*pixel*recip(z) z=z^2+p2*pixel*exp(z) elseif @V=="10" z=z^2+p1*pixel*recip(z) z=z^2-p2*pixel*exp(z) elseif @V=="11" z=z^2-p1*pixel*recip(z) z=z^2-p2*pixel*exp(z) elseif @V=="12" z=z^2+p1*pixel*recip(z) z=z^2+p2*pixel*exp(z) elseif @V=="13" z=z^2-p1*pixel*recip(z) z=z^2+p2*pixel*sqr(z) elseif @V=="14" z=z^2+p1*pixel*recip(z) z=z^2-p2*pixel*sqr(z) elseif @V=="15" z=z^2-p1*pixel*recip(z) z=z^2-p2*pixel*sqr(z) elseif @V=="16" z=z^2+p1*pixel*recip(z) z=z^2+p2*pixel*sqr(z) elseif @V=="17" z=z^2-p1*pixel*recip(z) z=z^2+p2*pixel*cosh(z) elseif @V=="18" z=z^2+p1*pixel*recip(z) z=z^2-p2*pixel*cosh(z) elseif @V=="19" z=z^2-p1*pixel*recip(z) z=z^2-p2*pixel*cosh(z) elseif @V=="20" z=z^2+p1*pixel*recip(z) z=z^2+p2*pixel*cosh(z) elseif @V=="21" z=z^2-p1*pixel*recip(z) z=z^2+p2*pixel*cos(z) elseif @V=="22" z=z^2+p1*pixel*recip(z) z=z^2-p2*pixel*cos(z) elseif @V=="23" z=z^2-p1*pixel*recip(z) z=z^2-p2*pixel*cos(z) elseif @V=="24" z=z^2+p1*pixel*recip(z) z=z^2+p2*pixel*cos(z) endif bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Tef Jifentu" center=(0.001,0.001) periodicity=0 magn=4 param V caption="TJ Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24" endparam param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14" endparam param sp caption="Start Parameter" default=(0,0) endparam param p1 caption="TJ Parameter 1" default=(1,0) endparam param p2 caption="TJ Parameter 2" default=(1,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p7 caption="Möbius Parameter 1" default=(0,0) endparam param p8 caption="Möbius Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Divergent""Convergent" default=1 endparam param bailcon caption="Bailout" default=0.000000000000001 visible=@bt==1 endparam param baildiv caption="Bailout" default=4.0 visible=@bt==0 endparam } Barnsley12 { init: z=fn1(pixel) loop: z=p3*fn2(z)+p4 z=z+p5/z z=z+p6*sqr(z) z=z+@p7*z^2*(z-@p8)/(1-@p8*z) if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z-p1)*p1 else z=(z+p1)*p1 endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z+p1)*p1 else z=(z-p1)*p1 endif z=p2*fn4(1/z) bailout: |z|<@bail default: title="Barnsley 12" center=(0.001,0.001) magn=0.5 periodicity=0 param p1 caption="Barnsley Parameter 1" default=(0.32,0.98) endparam param p2 caption="Barnsley Parameter 2" default=(1,0) endparam func fn3 caption="Barnsley Function 1" default=ident() endfunc func fn4 caption="Barnsley Function 2" default=recip() endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param p7 caption="Add Munster Parameter 1" default=(0,0) endparam param p8 caption="Add Munster Parameter 2" default=(2,0) visible=@p7!=0 endparam param bail caption="Bailout" default=100.0 endparam } Barnsley13 { init: z=fn1(pixel) loop: z=p3*fn2(z)+p4 z=z+p5/z z=z+p6*sqr(z) z=z+@p7*z^2*(z-@p8)/(1-@p8*z) if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(conj(z)-p1)*p1 else z=(conj(z)+p1)*p1 endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(conj(z)+p1)*p1 else z=(conj(z)-p1)*p1 endif z=p2*fn4(1/z) bailout: |z|<@bail default: title="Barnsley 13" center=(0.001,0.001) magn=0.5 periodicity=0 param p1 caption="Barnsley Parameter 1" default=(-0.135,1) endparam param p2 caption="Barnsley Parameter 2" default=(1,0) endparam func fn3 caption="Barnsley Function 1" default=ident() endfunc func fn4 caption="Barnsley Function 2" default=recip() endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param p7 caption="Add Munster Parameter 1" default=(0,0) endparam param p8 caption="Add Munster Parameter 2" default=(2,0) visible=@p7!=0 endparam param bail caption="Bailout" default=100.0 endparam } Barnsley14 { init: z=fn1(pixel) loop: z=p3*fn2(z)+p4 z=z+p5/z z=z+p6*sqr(z) if real(fn3(z))*imag(p1)>=0 z=(z-p2)*p1 else z=(z+p2)*p1 endif if real(p1)*imag(fn3(z))>=0 z=(z+p2)*p1 else z=(z-p2)*p1 endif bailout: |z|<@bail default: title="Barnsley 14" center=(0.001,0.001) magn=0.5 periodicity=0 param p1 caption="Barnsley Parameter 1" default=(1.0165,-0.155) endparam param p2 caption="Barnsley Parameter 2" default=(1,-1.45) endparam func fn3 caption="Barnsley Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p5 caption="Add Recip Parameter" default=(0,0) endparam param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=100.0 endparam } Barnsley15 { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 if @JM=="M" z=p3*fn2(z)+fn4(pixel) else z=p3*fn2(z)+p4 endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z-p1)*p1+p2 else z=(z+p1)*p1-p2 endif if real(fn3(z))*imag(p2)+real(p2)*imag(fn3(z))>=0 z=(z+p1)*p1-p2 else z=(z-p1)*p1+p2 endif if real(fn3(z))*imag(p1)+real(p1)*imag(fn3(z))>=0 z=(z-p1)*p1+p2 else z=(z+p1)*p1-p2 endif endwhile z=@p9*z bailout: |z|<@bail default: title="Barnsley 15" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M" default=1 endparam param p1 caption="Barnsley Parameter 1" default=(-0.2,-1.05) endparam param p2 caption="Barnsley Parameter 2" default=(-1.7,-0.9) endparam func fn3 caption="Barnsley Function" default=ident() endfunc param iter caption="Iterations" default=10 endparam param p3 caption="Loop Parameter" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) visible=@JM=="J" endparam func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p9 caption="Adjustment" default=1.026 endparam param bail caption="Bailout" default=100.0 endparam } Barnsley16 { init: z=fn1(pixel) int i=0 loop: while i<@iter i=i+1 if @JM=="J" z=p3*fn2(z)+p4 else z=p3*fn2(z)+p4+fn4(pixel) endif if real(fn3(z))>=0 z=(z-p1)*p1+p2 else z=(z+p1)*p1-p2 endif if imag(fn3(z))>=0 z=(z+p1)*p1-p2 else z=(z-p1)*p1+p2 endif endwhile z=@p9*z bailout: |z|<@bail default: title="Barnsley 16" center=(0.001,0.001) magn=0.5 maxiter=250 periodicity=0 param JM caption="J/M" enum="J""M" endparam param p1 caption="Barnsley Parameter 1" default=(0.96,0.44) endparam param p2 caption="Barnsley Parameter 2" default=(-0.84,0.79) endparam func fn3 caption="Barnsley Function" default=ident() endfunc param iter caption="Iterations" default=22 endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn4 caption="C Function" default=ident() visible=@JM=="M" endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p9 caption="Adjustment" default=1.0104 endparam param bail caption="Bailout" default=100.0 endparam } AtomGustoMod { init: z=pixel if @S=="1" z=z elseif @S=="2" z=z-1.8*(exp(z)^3-1)/(3*exp(z)^2) elseif @S=="3" z=z^2*(recip(z)-0.25)/(1-0.25*recip(z)) elseif @S=="4" z=z^2*(exp(z)-1.3)/(1-1.3*exp(z)) elseif @S=="5" z=z+z^2*(exp(recip(z))+0.75)/(1i+0.75*exp(recip(z))) elseif @S=="6" z=z-1.3*(exp(z)^3-1)/(3*exp(z)^2) elseif @S=="7" z=z+z^2*(z-2)/(1i-2*z) elseif @S=="8" z=z^2*(recip(z)-2)/(1-2*recip(z)) elseif @S=="9" z=z+z^2*(sqr(z)+1.5)/(1i+1.5*sqr(z)) elseif @S=="10" z=z-9*(cosh(z)^3-1)/(3*cosh(z)^2) elseif @S=="11" z=z+z^2*(z-2)/(1-2*z) elseif @S=="12" z=z+z^2*(exp(sqr(z))+0.75)/(1i+0.75*exp(sqr(z))) elseif @S=="13" z=z-(exp(z)^3-1)/(3*exp(z)^2) elseif @S=="14" z=z+z^2*(exp(z)-0.75)/(1-0.75*exp(z)) elseif @S=="15" z=z+z^2*(exp(sqr(z))+0.25)/(1i+0.25*exp(sqr(z))) elseif @S=="16" z=z^2*(abs(z)-2)/(1-2*abs(z)) elseif @S=="17" z=z+z^2*(sin(z)-0.5)/(1i-0.5*z) elseif @S=="18" z=z+z^2*(exp(z)+0.75)/(1i+0.75*exp(z)) elseif @S=="19" z=z+z^2*(exp(flip(z))+0.75)/(1i+0.75*exp(flip(z))) elseif @S=="20" z=z+z^2*(exp(z)-2)/(1i-2*sqr(z)) elseif @S=="21" z=z+z^2*(cosh(z)-1.1)/(1-1.1*cosh(z)) elseif @S=="22" z=z+z^2*(sin(z)-0.5)/(1i-0.5*cotan(z)) elseif @S=="23" z=z^2*(flip(z)+2)/(1+2*flip(z)) elseif @S=="24" z=z+z^2*(exp(cosh(z))+0.25)/(1i+0.25*exp(cosh(z))) elseif @S=="25" z=z+z^2*(sqr(z)+1.5)/(1i+1.5*z) elseif @S=="26" z=z+z^2*(sqr(z)+4)/(1+4*sqr(z)) elseif @S=="27" z=z+z^2*(exp(abs(z))+0.75)/(1i+0.75*exp(abs(z))) elseif @S=="28" z=z^2*(cosh(z)-0.9)/(1-0.9*cosh(z)) elseif @S=="29" z=z+z^2*(sqr(z)-2)/(1i-2*sqr(z)) elseif @S=="30" z=z^2*(sin(z)+0.25)/(1+0.25*sin(z)) elseif @S=="31" z=z+z^2*(exp(abs(z))+0.25)/(1i+0.25*exp(abs(z))) elseif @S=="32" z=z^2*(z-2)/(1-2*z) elseif @S=="33" z=z+z^2*(z-2)/(1i-2*sqr(z)) endif z=@sp*z+(@sp-1)*z^2 x=real(z) y=imag(z) loop: z=p4*z+p5 x=p4*x+p5 y=p4*y+p5 y=p1*(x-y^@pow) x=@p15*(x-y+p2*z) z=-p3*y+@p17 bailout: |z|<@bail default: title="Atom Gusto Mod" center=(0.001,0.001) angle=270 magn=4 periodicity=0 maxiter=1000 param S caption="Start Variant" enum="1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18""19""20"\ "21""22""23""24""25""26""27""28""29""30"\ "31""32""33" endparam param sp caption="Start Parameter" default=(1,0) endparam param p1 caption="AG Parameter 1" default=(1,0) endparam param p15 caption="AG Parameter 2" default=(1,0) endparam param p2 caption="AG Parameter 3" default=(1,0) endparam param p3 caption="AG Parameter 4" default=(0.984,0.219) endparam param p17 caption="AG Parameter 5" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam param pow caption="Exponent" default=2 endparam param bail caption="Bailout" default=0.7 endparam } ModifiedLogistic { init: z=fn1(pixel) a=fn1(pixel) loop: z=p3*fn2(z)+p4 a=p3*fn2(a)+p4 if @M=="None" z=z a=a elseif @M=="1" z=z+0.3*exp(z) a=a+0.3*exp(a) elseif @M=="2" z=z-0.3*exp(z) a=a-0.3*exp(a) elseif @M=="3" z=z+sqr(z) a=a+sqr(a) elseif @M=="4" z=z+cosh(z) a=a+cosh(a) elseif @M=="5" z=z-tanh(z) a=a-tanh(a) elseif @M=="6" z=z-tan(z) a=a-tan(a) elseif @M=="7" z=z+cos(z) a=a+cos(a) elseif @M=="8" z=z+cosh(z) a=a+cosh(a) elseif @M=="9" z=z-sinh(z) a=a-sinh(a) elseif @M=="10" z=z-sin(z) a=a-sin(a) elseif @M=="11" z=z+1/exp(z) a=a+1/exp(a) elseif @M=="12" z=z+0.3/cotanh(z) a=a+0.3/cotanh(a) elseif @M=="13" z=z-0.3/cotanh(z) a=a-0.3/cotanh(a) elseif @M=="14" z=z+0.3/cotan(z) a=a+0.3/cotan(a) elseif @M=="15" z=z-0.3/cotan(z) a=a-0.3/cotan(a) elseif @M=="16" z=z+1/cosh(z) a=a+1/cosh(a) elseif @M=="17" z=z+0.3/cos(z) a=a+0.3/cos(a) elseif @M=="18" z=z-0.3/cos(z) a=a-0.3/cos(a) endif b=z if @JM=="J" z=p1*z*(1-a)+@p15 a=p2*b+@p15 elseif @JM=="M1" z=p1*fn3(pixel)*z*(1-a)+@p15 a=p2*b+@p15 elseif @JM=="M2" z=p1*z*(fn3(pixel)-a)+@p15+1 a=p2*b+@p15+1 elseif @JM=="M3" z=p1*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*b+@p15 elseif @JM=="M4" z=p1*z*(1-a)+@p15 a=p2*fn3(pixel)*b+@p15 elseif @JM=="M5" z=p1*z*(1-a)+@p15 a=p2*b+(@p15+1)*fn3(pixel) elseif @JM=="M6" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+@p15+1 a=p2*b+@p15 elseif @JM=="M7" z=p1*fn3(pixel)*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*b+@p15 elseif @JM=="M8" z=p1*fn3(pixel)*z*(1-a)+@p15 a=p2*fn3(pixel)*b+@p15 elseif @JM=="M9" z=p1*fn3(pixel)*z*(1-a)+@p15 a=p2*b+(@p15+1)*fn3(pixel) elseif @JM=="M10" z=p1*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*b+@p15+1 elseif @JM=="M11" z=p1*z*(fn3(pixel)-a)+@p15+1 a=p2*fn3(pixel)*b+@p15+1 elseif @JM=="M12" z=p1*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*fn3(pixel)*b+@p15 elseif @JM=="M13" z=p1*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*b+(@p15+1)*fn3(pixel) elseif @JM=="M14" z=p1*z*(1-a)+@p15 a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel) elseif @JM=="M15" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*b+@p15+1 elseif @JM=="M16" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+@p15+1 a=p2*fn3(pixel)*b+@p15+1 elseif @JM=="M17" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+@p15+1 a=p2*b+(@p15+1)*fn3(pixel)+1 elseif @JM=="M18" z=p1*fn3(pixel)*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*fn3(pixel)*b+@p15 elseif @JM=="M19" z=p1*fn3(pixel)*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*b+(@p15+1)*fn3(pixel) elseif @JM=="M20" z=p1*fn3(pixel)*z*(1-a)+@p15 a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel) elseif @JM=="M21" z=p1*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*fn3(pixel)*b+@p15+1 elseif @JM=="M22" z=p1*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*b+(@p15+1)*fn3(pixel)+1 elseif @JM=="M23" z=p1*z*(fn3(pixel)-a)+@p15+1 a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel)+1 elseif @JM=="M24" z=p1*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel) elseif @JM=="M25" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*fn3(pixel)*b+@p15+1 elseif @JM=="M26" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*b+(@p15+1)*fn3(pixel)+1 elseif @JM=="M27" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+@p15+1 a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel)+1 elseif @JM=="M28" z=p1*fn3(pixel)*z*(1-a)+(@p15+1)*fn3(pixel) a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel) elseif @JM=="M29" z=p1*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel)+1 elseif @JM=="M30" z=p1*fn3(pixel)*z*(fn3(pixel)-a)+(@p15+1)*fn3(pixel)+1 a=p2*fn3(pixel)*b+(@p15+1)*fn3(pixel)+1 endif bailout: |z|<@bail default: title="Modified Logistic" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M1""M2""M3""M4""M5""M6""M7""M8""M9""M10"\ "M11""M12""M13""M14""M15""M16""M17""M18""M19""M20"\ "M21""M22""M23""M24""M25""M26""M27""M28""M29""M30" endparam param p1 caption="ML Parameter 1" default=(1,0) endparam param p2 caption="ML Parameter 2" default=(1,0) endparam param p15 caption="ML Parameter 3" default=(0,0) endparam func fn3 caption="C Function" default=ident() visible=@JM !="J" endfunc func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam param M caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15""16""17""18" endparam param bail caption="Bailout" default=100.0 endparam } Strempul { init: z=fn1(pixel) loop: zold=z z=@p7*fn2(z)+@p8 z=z+p4*sqr(z) z=z+p5*z*(1-z) z=z+p6/z if @M=="None" z=z elseif @M=="1" if |z|<1 z=z/|z| endif elseif @M=="2" if |z|<1 z=z/|z| endif z=flip(z) elseif @M=="3" if |z|<1 z=z/|z| endif z=conj(z) elseif @M=="4" if |z|<1 z=z/|z| endif z=abs(z) elseif @M=="5" if |z|<1 z=z/|z| endif z=0.3*sqr(z) elseif @M=="6" if |z|<1 z=z/|z| endif z=-z elseif @M=="7" if |z|<1 z=z/|z| endif z=-flip(z) elseif @M=="8" if |z|<1 z=z/|z| endif z=-conj(z) elseif @M=="9" if |z|<1 z=z/|z| endif z=-abs(z) elseif @M=="10" if |z|<1 z=z/|z| endif z=-0.3*sqr(z) elseif @M=="11" if |z|>1 z=z/|z| endif z=cotanh(z) elseif @M=="12" if |z|>1 z=z/|z| endif z=-1.25*flip(z) elseif @M=="13" if |z|>1 z=z/|z| endif z=-0.95*cotanh(z) elseif @M=="14" if |z|>1 z=z/|z| endif z=0.9*cotanh(z) elseif @M=="15" if |z|>1 z=z/|z| endif z=-0.95*cotan(z) endif z=p1*(z^2*(z^2+exp(1i)*z)-p2)/(p3-p2*(z^2+exp(1i)*z)) bailout: (|zold-z|>@bailcon && @bt=="Convergent") || (|z|<@baildiv && @bt=="Divergent") default: title="Strempul" center=(0.001,0.001) periodicity=0 param M caption="Modification" enum="None""1""2""3""4""5""6""7""8""9""10"\ "11""12""13""14""15" endparam param p1 caption="Strempul Parameter 1" default=(1,0) endparam param p2 caption="Strempul Parameter 2" default=(2,0) endparam param p3 caption="Strempul Parameter 3" default=(1,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param p7 caption="Loop Parameter 1" default=(1,0) endparam param p8 caption="Loop Parameter 2" default=(0,0) endparam param p4 caption="Add Sqr Parameter" default=(0,0) endparam param p5 caption="Add Logistic Parameter" default=(0,0) endparam param p6 caption="Add Recip Parameter" default=(0,0) endparam param bt caption="Bailout Type" enum="Convergent""Divergent" endparam param bailcon caption="Bailout Value" default=0.00000001 visible=@bt==0 endparam param baildiv caption="Bailout Value" default=4.0 visible=@bt==1 endparam } Barnsley17 { init: z=fn1(pixel) int i=0 loop: if @V=="1" z=p3*z+p4 if real(fn3(z))*imag(p1)+real(p1)*imag(fn4(z))>=0 z=(z-p2)*p1 else z=(z+p2)*p1 endif else while i<@iter i=i+1 z=p3*z+p4 if real(fn3(z))*imag(p1)+real(p1)*imag(fn4(z))>=0 z=(z-p2)*p1 else z=(z+p2)*p1 endif endwhile z=p5*z endif bailout: |z|<@bail default: title="Barnsley 17" center=(0.001,0.001) periodicity=0 param V caption="Version" enum="1""2" endparam param p1 caption="Barnsley Parameter 1" default=(1.17,-0.73) endparam param p2 caption="Barnsley Parameter 2" default=(-0.77,-0.7) endparam func fn3 caption="Barnsley Function 1" default=ident() endfunc func fn4 caption="Barnsley Function 2" default=cotanh() endfunc param iter caption="Iterations" default=8 visible=@V=="2" endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param p5 caption="Adjustment" default=-1.0182 visible=@V=="2" endparam param bail caption="Bailout" default=100.0 endparam } BivarX6 { init: z=fn1(pixel) a=(p1*fn1(pixel)+fn1(pixel)^3)/p2+fn1(pixel) loop: z=p4*z+p5 a=p4*a+p5 z=z+p6*sqr(z) a=a+p6*sqr(a) if @JM=="J" a=a/z+p3 z=(p2*(a-z)+z^3)/p1+p3 elseif @JM=="M1" a=a/z+(p3+1)*fn2(pixel) z=(p2*(a-z)+z^3)/p1+(p3+1)*fn2(pixel) elseif @JM=="M2" a=a/z+p3 z=(p2*fn2(pixel)*(a-z)+z^3)/p1+p3 elseif @JM=="M3" a=a/z+p3 z=(p2*(a-z)+z^3)/((p1+0.6)*fn2(pixel))+p3 endif bailout: |z|<@bail default: title="Bivar X 6" center=(0.001,0.001) periodicity=0 param JM caption="J/M" enum="J""M1""M2""M3" endparam param p1 caption="X Parameter 1" default=(-2.8,0) endparam param p2 caption="X Parameter 2" default=(0.4,0) endparam param p3 caption="X Parameter 3" default=(0,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="C Function" default=ident() visible=@JM!="J" endfunc param p6 caption="Add Sqr Parameter" default=(0,0) endparam param bail caption="Bailout" default=10.0 endparam } BivarX7 { init: z=fn1(pixel) a=fn1(pixel) loop: z=p2*fn2(z)+p3 a=p2*fn2(a)+p3 if @JM=="J" z=p4*z/a+p5 z=-p1^3*z^6/720+p1^2*z^4/12+p1^3*z^4/12-p1*z^2/2-p1^2*z^2-p1^3*z^2/2+p4*\ (-p1^3*a^6/720+p1^2*a^4/12+p1^3*a^4/12-p1*a^2/2-p1^2*a^2-p1^3*a^2/2)+p5 else z=p4*z/a+(p5+1)*fn3(pixel) z=-p1^3*z^6/720+p1^2*z^4/12+p1^3*z^4/12-p1*z^2/2-p1^2*z^2-p1^3*z^2/2+p4*\ (-p1^3*a^6/720+p1^2*a^4/12+p1^3*a^4/12-p1*a^2/2-p1^2*a^2-p1^3*a^2/2)+(p5+1)*fn3(pixel) endif bailout: |z|<@bail default: title="Bivar X 7" center=(0.001,0.001) magn=0.5 periodicity=0 param JM caption="J/M" enum="J""M" endparam param p1 caption="X Parameter 1" default=(0.65,0) endparam param p4 caption="X Parameter 2" default=(1,0) endparam param p5 caption="X Parameter 3" default=(0,0) endparam param p2 caption="Loop Parameter 1" default=(1,0) endparam param p3 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=10000.0 endparam } IteratedFunctionSyndrome1 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=sqr((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p13| c=sqr((@p7*x+@p8)/@p9+ flip((@p10*y+@p11)/@p12)) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 1" center=(0.001,0.001) param p14 caption="Loop Parameter 1" default=(1,0) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.65,0) endparam param p13 caption="Parameter b" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome2 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=conj((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p13| c=conj((@p7*x+@p8)/@p9+ flip((@p10*y+@p11)/@p12)) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 2" center=(0.001,0.001) param p14 caption="Loop Parameter 1" default=(0.98,0.18) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome3 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=flip((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p13| c=flip((@p7*x+@p8)/@p9+ flip((@p10*y+@p11)/@p12)) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 3" center=(0.001,0.001) param p14 caption="Loop Parameter 1" default=(0.98,0.18) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(1,0) endparam param p2 caption="Parameter a2" default=(-0.44,-0.34) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(-0.2,0.31) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(0.92,-0.18328) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } BivarX8 { init: z=fn1(pixel) a=fn1(pixel) loop: z=p4*fn2(z)+p5 a=p4*fn2(a)+p5 if @V=="1" if @JM=="J" a=p3*a/z+p2 z=1i*(z-p1)^2-(z-p1)^3+p3*1i*(a-p1)^2-(a-p1)^3+p2 else a=p3*a/z+p2*fn3(pixel) z=1i*(z-p1)^2-(z-p1)^3+p3*1i*(a-p1)^2-(a-p1)^3+p2*fn3(pixel) endif else if @JM=="J" a=p3*z/a+p2 z=1i*(z-p1)^2-(z-p1)^3+p3*1i*(a-p1)^2-(a-p1)^3+p2 else a=p3*z/a+p2*fn3(pixel) z=1i*(z-p1)^2-(z-p1)^3+p3*1i*(a-p1)^2-(a-p1)^3+p2*fn3(pixel) endif endif bailout: |z|<@bail default: title="Bivar X 8" center=(2.001,0.501) periodicity=0 param JM caption="J/M" enum="J""M" endparam param V caption="Variant" enum="1""2" endparam param p1 caption="X Parameter 1" default=(2,0) endparam param p2 caption="X Parameter 2" default=(1,0) endparam param p3 caption="X Parameter 3" default=(0.5,0) endparam param p4 caption="Loop Parameter 1" default=(1,0) endparam param p5 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc func fn3 caption="C Function" default=ident() visible=@JM=="M" endfunc param bail caption="Bailout" default=10000.0 endparam } IteratedFunctionSyndrome4 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=(p1*x+p2)/p3+flip((p4*y+p5)/p6) b=|a-@p13| c=(@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 4" center=(0.671,6.001) angle=90 magn=0.125 maxiter=250 param p14 caption="Loop Parameter 1" default=(0.955,0.2) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1.66,0.79) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1.1,0.84) endparam param p8 caption="Parameter a8" default=(2.52,-0.05) endparam param p9 caption="Parameter a9" default=(1,0.81) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome5 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=flip((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p13| c=conj((@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12)) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 5" center=(-0.801,0.001) angle=90 param p14 caption="Loop Parameter 1" default=(0.98,0.18) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.58,1.125) endparam param p2 caption="Parameter a2" default=(-0.15,1.23) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.6,-0.1) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome6 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=abs((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p13| c=(@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 6" center=(0.42,0.48) param p14 caption="Loop Parameter 1" default=(-1.04,0.02) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome7 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(z) a=flip((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p13| c=sqr((@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12)) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 7" center=(0.001,0.001) param p14 caption="Loop Parameter 1" default=(-0.645,0.265) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1.34,-0.18) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome8 { init: z=fn1(pixel) loop: z=@p14*fn2(z)+@p15 x=real(z) y=imag(conj(z)) a=(p1*x+p2)/p3+flip((p4*y+p5)/p6) b=|a-@p13| c=(@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12) d=|c-@p13| if real(b)<=real(d) z=a else z=c endif bailout: |z|<@bail default: title="Iterated Function Syndrome 8" center=(0.001,0.001) param p14 caption="Loop Parameter 1" default=(0.98,0.075) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter a9" default=(1,0) endparam param p10 caption="Parameter a10" default=(1,0) endparam param p11 caption="Parameter a11" default=(1,0) endparam param p12 caption="Parameter a12" default=(0.95,0) endparam param p13 caption="Parameter b" default=(-0.6,-0.6) endparam func fn1 caption="Start Function" default=ident() endfunc func fn2 caption="Loop Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome10 { init: z=fn1(pixel) loop: z=@p18*z+@p19 x=real(z) y=imag(z) a=flip((p1*x+@p13*y+p2)/p3+flip((p4*y+@p14*x+p5)/p6)) b=|a-@p17| c=(@p7*x+@p15*y+@p8)/@p9+flip((@p10*y+@p16*x+@p11)/@p12) d=|c-@p17| if real(b)<=real(d) z=@p20*a+@p21 else z=@p20*c+@p21 endif bailout: |z|<@bail default: title="Iterated Function Syndrome 10" center=(0.001,0.001) param p18 caption="Loop Parameter 1" default=(0.59,0.02) endparam param p19 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p2 caption="Parameter a2" default=(-0.1,0) endparam param p3 caption="Parameter a3" default=(1,0) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(0.25,0) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter a7" default=(1,0) endparam param p8 caption="Parameter a8" default=(1,0) endparam param p9 caption="Parameter b1" default=(1,0) endparam param p10 caption="Parameter b2" default=(1,0) endparam param p11 caption="Parameter b3" default=(1,0) endparam param p12 caption="Parameter b4" default=(0.95,0) endparam param p13 caption="Parameter b5" default=(1,0) endparam param p14 caption="Parameter b6" default=(1,0) endparam param p15 caption="Parameter b7" default=(1,0) endparam param p16 caption="Parameter b8" default=(1.58,-1.36) endparam param p17 caption="Parameter c" default=(-0.6,-0.6) endparam param p20 caption="Parameter d1" default=(1,0) endparam param p21 caption="Parameter d2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome9 { init: z=fn1(pixel) loop: z=@p14*z+@p15 x=real(z) y=imag(z) a=(p1*x+p2)/p3+flip((p4*y+p5)/p6) b=|a-@p13| c=(@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12) d=|c-@p13| if real(cos(b))<=real(log(d)) z=@p16*a+@p17 else z=@p16*c+@p17 endif bailout: |z|<@bail default: title="Iterated Function Syndrome 9" center=(-0.751,0.881) angle=315 param p14 caption="Loop Parameter 1" default=(0.4,0.76) endparam param p15 caption="Loop Parameter 2" default=(0,0) endparam param p1 caption="Parameter a1" default=(1.09,0.05) endparam param p2 caption="Parameter a2" default=(1.16,-0.66) endparam param p3 caption="Parameter a3" default=(0.95,-0.05) endparam param p4 caption="Parameter a4" default=(1,0) endparam param p5 caption="Parameter a5" default=(1.14,-0.68) endparam param p6 caption="Parameter a6" default=(0.65,0) endparam param p7 caption="Parameter b1" default=(1,0) endparam param p8 caption="Parameter b2" default=(1,0) endparam param p9 caption="Parameter b3" default=(1,0) endparam param p10 caption="Parameter b4" default=(1,0) endparam param p11 caption="Parameter b5" default=(1,0) endparam param p12 caption="Parameter b6" default=(0.95,0) endparam param p13 caption="Parameter c" default=(-0.6,-0.6) endparam param p16 caption="Parameter d11" default=(1,0) endparam param p17 caption="Parameter d22" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param @bail caption="Bailout" default=1000.0 endparam } IteratedFunctionSyndrome11 { init: z=fn1(pixel) loop: z=@p18*z+@p19 x=real(z) y=imag(z) a=conj(flip(conj((p1*x+@p13*y-0.1)/p3+flip((p4*y+@p14*x+0.25)/p6)))) b=|a-@p17| c=(@p7*x+1)/@p9+flip((@p10*y+1)/@p12) d=|c-@p17| if real(b)<=real(d) z=@p20*a+@p21 else z=@p20*c+@p21 endif bailout: |z|<@bail default: title="Iterated Function Syndrome 11" center=(0.221,-0.741) maxiter=250 periodicity=0 param p18 caption="Loop Parameter 1" default=(0.79,-0.66) endparam param p19 caption="Loop Parameter 2" default=(1.21,-0.34) endparam param p1 caption="Parameter a1" default=(-1.5,0) endparam param p3 caption="Parameter a2" default=(0.21,-0.22) endparam param p4 caption="Parameter a3" default=(1.96,0.12) endparam param p6 caption="Parameter a4" default=(1.17,0) endparam param p7 caption="Parameter a5" default=(1.05,-0.03) endparam param p9 caption="Parameter a6" default=(1.17,0.45) endparam param p10 caption="Parameter b1" default=(0.95,1.12) endparam param p12 caption="Parameter b2" default=(1.07,0.09) endparam param p13 caption="Parameter b3" default=(-1.52,-1.86) endparam param p14 caption="Parameter b4" default=(1.05,-1.18) endparam param p17 caption="Parameter c" default=(-1.53,-1.73) endparam param p20 caption="Parameter d1" default=(0.96,-0.12) endparam param p21 caption="Parameter d2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc param @bail caption="Bailout" default=100.0 endparam } IteratedFunctionSyndrome12 { init: z=fn1(pixel) loop: z=@p26*z+@p27 x=real(z) y=imag(z) a=conj((p1*x+p2)/p3+flip((p4*y+p5)/p6)) b=|a-@p25| c=flip((@p7*x+@p8)/@p9+flip((@p10*y+@p11)/@p12)) d=|c-@p25| f=conj((@p13*x+@p14)/@p15+flip((@p16*y+@p17)/@p18)) g=|f-@p25| h=(@p19*x+@p20)/@p21+flip((@p22*y+@p23)/@p24) j=|h-@p25| if real(b)=0 z=(z-p2)*p1 else z=(z+p2)*p1 endif bailout: |z|<@bail default: title="Barnsley 18" center=(0.001,0.001) magn=0.333 periodicity=0 param p1 caption="Barnsley Parameter 1" default=(0.356,-0.972) endparam param p2 caption="Barnsley Parameter 2" default=(1,0) endparam param p7 caption="Barnsley Parameter 3" default=(1,0) endparam param p8 caption="Barnsley Parameter 4" default=(1,0) endparam param p3 caption="Loop Parameter 1" default=(1,0) endparam param p4 caption="Loop Parameter 2" default=(0,0) endparam func fn1 caption="Start Function" default=ident() endfunc func fn4 caption="Barnsley Function 1" default=ident() endfunc func fn3 caption="Barnsley Function 2" default=ident() endfunc param bail caption="Bailout" default=100.0 endparam } IFB32 { init: z=fn1(pixel) loop: z=p6*z+@p7 x=cos(@p26)*real(z)-sin(@p26)*imag(z) y=sin(@p26)*real(z)+cos(@p26)*imag(z) z=x+flip(y) float a=1/real(fn3(round(z))) if a