Revision as of 05:48, 1 December 2018

My Sandbox

I need to get used to this flavour of markup first. That'll take some time. Meanwhile I collect my examples here. If you think, some example is worth being moved to the "right" place, feel free to do so and leave me a note...

Mandelbrot Set

Bourne Again SHell

Works with: BASH version 4

<lang bash>((xmin=-8601)) # int(-2.1*4096) ((xmax=2867)) # int( 0.7*4096)

((ymin=-4915)) # int(-1.2*4096) ((ymax=4915)) # int( 1.2*4096)

((maxiter=30))

((dx=(xmax-xmin)/72)) ((dy=(ymax-ymin)/23))

C='0123456789' ((lC=${#C}))

for((cy=ymax;cy>=ymin;cy-=dy)) ; do for((cx=xmin;cx<=xmax;cx+=dx)) ; do ((x=0,y=0,x2=0,y2=0)) for((iter=0;iter<maxiter && x2+y2<=16384;iter++)) ; do ((y=((x*y)>>11)+cy,x=x2-y2+cx,x2=(x*x)>>12,y2=(y*y)>>12)) done ((c=iter%lC)) echo -n ${C:$c:1} done echo done</lang>

Output:

1111111111111222222222222333333333333333333333333333333333222222222222222
1111111111122222222233333333333333333333344444456296554444333333222222222
1111111111222222333333333333333333333444444445556805008644444433333322222
1111111122222333333333333333333334444444445555671070308755544444333333322
1111111222333333333333333333334444444445566667807000006976655554443333333
1111112233333333333333333334444444555620129900125000054200077779954433333
1111122333333333333333344445555555666793000000000000000000005009875443333
1111123333333333333445555555555666670403000000000000000000000061876544333
1111233333344444455569288780387778893200000000000000000000000000049544433
1111334444444455555678939080080941140000000000000000000000000000007544443
1113444444455555678891900000000000900000000000000000000000000000686544443
1114556677776777003000000000000000000000000000000000000000000005765544443
1114556678776788003700000000000000000000000000000000000000000003765544443
1113444444455555679991000000000000000000000000000000000000000000086544443
1111334444444455555678930000000941140000000000000000000000000000707544443
1111233333344444455569288781387778806400000000000000000000000000049544433
1111123333333333334445555555555666676661000000000000000000000061876544333
1111122333333333333333344445555555666793000000000000000000015007275443333
1111112233333333333333333334444444555620129908136000034201087779954433333
1111111222333333333333333333334444444445566667808000005976655554443333333
1111111122222333333333333333333334444444445555681070008755544444333333322
1111111111222222333333333333333333333444444445556896008644444433333322222
1111111111122222222233333333333333333333344444456096554444333333222222222
1111111111111222222222222333333333333333333333333333333333222222222222222

Spin

Works with: BSTC

Works with: FastSpin

Works with: OpenSpin

Famous last words: It should work with all Spin compilers for P8X32A... ;-) <lang spin>con

 _clkmode = xtal1+pll16x
 _clkfreq = 80_000_000

 xmin=-8601    ' int(-2.1*4096)
 xmax=2867     ' int( 0.7*4096)

 ymin=-4915    ' int(-1.2*4096)
 ymax=4915     ' int( 1.2*4096)

 maxiter=25

obj

 ser : "FullDuplexSerial"

pub main | c,cx,cy,dx,dy,x,y,x2,y2,iter

 ser.start(31, 30, 0, 115200)

 dx:=(xmax-xmin)/79
 dy:=(ymax-ymin)/24

 cy:=ymin
 repeat while cy=<ymax
   cx:=xmin
   repeat while cx=<xmax
     x:=0
     y:=0
     x2:=0
     y2:=0
     iter:=0
     repeat while iter=<maxiter and x2+y2=<16384
       y:=((x*y)~>11)+cy
       x:=x2-y2+cx
       iter+=1
       x2:=(x*x)~>12
       y2:=(y*y)~>12
     cx+=dx
     ser.tx(iter+32)
   cy+=dy
   ser.str(string(13,10))

 waitcnt(_clkfreq+cnt)
 ser.stop</lang>

Output:

!!!!!!!!!!!!!!!"""""""""""""####################################""""""""""""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$$%'+)%%%$$$$$#####"""""""""""
!!!!!!!!!!!"""""""#######################$$$$$$$$%%%&&(+,)++&%$$$$$$######""""""
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*5:/+('&%%$$$$$$#######"""
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''),:::::::,'&%%%%%$$$$########
!!!!!!!"""####################$$$$$$$$%%%&'())((())*,::::::/+))('&&&&)'%$$######
!!!!!!""###################$$$$$%%%%%%&&&'+.:::/::::::::::::::::/++:..93%%$#####
!!!!!"################$$$%%%%%%%%%%&&&&'),+2:::::::::::::::::::::::::1(&&%$$####
!!!!"##########$$$$$%%&(-(''''''''''''(*,5::::::::::::::::::::::::::::+)-&%$$###
!!!!####$$$$$$$$%%%%%&'(*-:1.+.:-4+))**:::::::::::::::::::::::::::::::4-(&%$$$##
!!!!#$$$$$$$$$%%%%%%'''++.6:::::::::8/0::::::::::::::::::::::::::::::::3(%%$$$$#
!!!#$$$$$$$%&&&&''()/-5.5::::::::::::::::::::::::::::::::::::::::::::::'&%%$$$$#
!!!(**+/+:523/80/46::::::::::::::::::::::::::::::::::::::::::::::::4+)'&&%%$$$$#
!!!#$$$$$$$%&&&&''().-2.:::::::::::::::::::::::::::::::::::::::::::::::'&%%$$$$#
!!!!#$$$$$$$$$%%%%%&'''/,.7::::::::::/0::::::::::::::::::::::::::::::::0'%%$$$$#
!!!!####$$$$$$$$%%%%%&'(*-:2.,/:-5+))**:::::::::::::::::::::::::::::::4+(&%$$$##
!!!!"##########$$$$$%%&(-(''''(''''''((*,4:::::::::::::::::::::::::::4+).&%$$###
!!!!!"################$$$%%%%%%%%%%&&&&'):,4:::::::::::::::::::::::::/('&%%$####
!!!!!!""##################$$$$$$%%%%%%&&&'*.:::0::::::::::::::::1,,://9)%%$#####
!!!!!!!"""####################$$$$$$$$%%%&(())((()**-::::::/+)))'&&&')'%$$######
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''(,:::::::+'&&%%%%%$$$########
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*7:0+('&%%%$$$$$#######"""
!!!!!!!!!!!"""""""######################$$$$$$$$$%%%&&(+-).*&%$$$$$$######""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$%%'3(%%%$$$$$######""""""""""
!!!!!!!!!!!!!!!""""""""""""#####################################""""""""""""""""

Primes

Python

Works with: Python version 2.x

<lang python>L = {} n = 2

while 1:

       if n in L:
               P = L[n]
               del L[n] # optional - just saves some memory.
       else:
               print n
               P = [n]

       for p in P:
               npp = n+p
               if npp in L:
                       L[npp].add(p)
               else:
                       L[npp] = set([p])

       n += 1</lang>

Output:

...the program has to be terminated by the user e.g. by typing ctrl-c.

My Favorite Languages
Language	Proficiency
AWK	---
C	---
Dc	---