Was sind die interessantesten Basic-Funktions-Grafiken.
Hier der Thread für Basic-Funktionen.
Schönen Gruß.
BASIC FUNKTIONS PLOTS
- BIF
- Thread is marked as Resolved.
-
Schleifenkreis:
Schönen Gruß.
-
Strahlen-Stern:
Schönen Gruß.
-
Doppeltrichter:
Schönen Gruß.
-
Wolken-Funktion:
Schönen Gruß.
-
-
BANDSPIRALE:
Schönen Gruß. -
Das wird aber wohl wahrscheinlich doch zu anspruchsvoll.
Sag das nicht. Ich glaube, am Einfachsten ist die Wolke:
Display MoreCode- 1 goto10
- 2 b=(xandd)+y(y):pokeb,peek(b)orh(xand7):return
- 10 dimc(28e2):clr:v=53248:gosub800
- 20 a=8192:d=504:pi=4*atn(1):u$=chr$(145):dimy(199),h(7)
- 30 fori=.to7:h(7-i)=2^i:next
- 35 k=.:fori=atoa+7680step320:printk;u$:forj=itoi+7:y(k)=j:k=k+1:next:next
- 40 f=16*1+2:printchr$(147):fori=1024to2023:pokei,f:next
- 50 pokev+17,59:pokev+24,24
- 70 xm=160.5:ym=100.5:r1=140:r2=80:r3=15
- 71 n=int(2*pi*r1*2):f=1/(r1*2)
- 72 fori=.ton:w=f*i:g=r3*abs(sin(w*11))
- 73 x=int(xm+(r1+g)*cos(w))
- 74 y=int(ym-(r2+g)*sin(w))
- 75 gosub2:next
- 100 fori=.to96:pokev+32,i:next
- 110 poke198,.:wait198,1
- 120 gosub800:poke198,.:end
- 800 sys58648:pokev+33,.:pokev+32,.:printchr$(5):return
- 810 rem 2020 by neptun
- 820 :
Gruß,
Neptun
-
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:
Display MoreCode- 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 :
Gruß,
Neptun
-
Im gcc 6502 Thread hab ich eine 3d Kurve in C angezeigt. Könnte man sicher nach Basic portieren, aber das wird wohl zu langsam.
-
WOLKEN-PLOTTER: von Neptun
Hier kommt ein Bild vom Wolken-Plot von Neptun
und ein Screenshot von dem 10-Zeiler dazu.
Die Plot-Geschwindigkeit ist für Basic gar nicht mal soo langsam, find ich.Schönen Gruß.
-
-
FUNKTIONS-PLOTTER: von BIF
Hier kommt der BIF-Funktions-Plotter basierend auf den BIF-Basic-Grafikprogrammen:
Zeile1-3: Funktionsparameter
Zeile 4 : Grafikbereich löschen
Zeile 5 : Grafik einschalten
Zeile6-7: Funktion zeichnen
Zeile 8 : Warten auf Taste + Reset in Normalmodus.
Zeile 9 : Löschen-Unterprogramm
Mit den beiden FKTN-Plottern hat sich dann auch meine Prognose bewahrheitet, daß Funktionsplot auch schon als Zehnzeiler möglich ist.Schönen Gruß.
-
PLOT: WOLKEN-FUNKTION
Hier der Wolken-Plotter mit den Funktionen vom Orginalbild.
Schönen Gruß. -
Saturn, leider durchsichtig. Nicht rein mathematisch, sondern mit Timer.
