Neptun:
Herzlichen Glückwunsch !!!
Danke.
Aber natürlich überlasse ich Dir den Vortritt mit einer überarbeiteten Version hier den ersten Funktionsplot 10-Zeiler zu veröffentlichen.
Sollte nicht so schwer sein, daraus einen 10-Zeiler zu erstellen. Es ist ja noch Platz in den Zeilen und man kann noch einiges
weglassen. Aber du kannst deine Version ruhig posten. Ich versuche mich dann lieber an den anderen Funktionen.
Hier der Schleifenkreis:
Code
1 goto10
2 b=(xandd)+y(y):pokeb,peek(b)orh(xand7):return
10 poke56,160:clr:dimc(61e2):clr:poke56,92:clr:sys58648:v=53248:pokev+33,.
20 pokev+32,.:a=24576:d=504:xm=160.5:ym=100.5:p=56576:pi=4*atn(1):k=.
30 u$=chr$(145):dimy(199),h(7):fori=.to7:h(7-i)=2^i:next:printchr$(5)
35 fori=atoa+7680step320:printk;u$:forj=itoi+7:y(k)=j:k=k+1:next:next
50 printchr$(147):pokev+17,59:pokev+24,16*7+8:pokep,(peek(p)andnot3)or2
51 c=16*1+2:fori=a-1024toi+999:pokei,c:next
55 n=2000
56 r1=50
57 r2=2
58 m=-50
59 dr=r1-r2
60 f1=2*pi/n:f2=dr/r2
61 fori=.ton-1
62 w1=f1*i:w2=f2*w1
63 x2=int(xm+dr*cos(w1)+m*cos(w2))
64 y2=int(ym+dr*sin(w1)-m*sin(w2))
65 ifithengosub500
66 x1=x2:y1=y2:next:gosub600
110 fori=.to96:pokev+32,i:next:poke198,.:wait198,1:pokep,peek(p)or3:sys58784
120 poke56,160:clr:poke198,.:end
500 dx=x2-x1:dy=y2-y1:ifabs(dx)<abs(dy)then520
510 s=sgn(dx):f=dy/dx*s:y=y1:forx=x1tox2steps:gosub2:y=y+f:next:return
520 s=sgn(dy):f=dx/dy*s:x=x1:fory=y1toy2steps:gosub2:x=x+f:next:return
600 b1=a+8*38:x$="kreismuster":poke56334,.:fori=1tolen(x$):b1=b1+320
610 b=v+8*(asc(mid$(x$,i))and63)
620 poke1,51:forj=7to.step-1:s=.:t=h(j)
630 fork=7to.step-1:s=s+s+sgn(peek(b+k)andt):next:pokeb1+j,s:next:poke1,55
640 next:poke56334,1:return
810 rem 2020 by neptun
820 :
Alles anzeigen
Gruß,
Neptun