Was sind die interessantesten Basic-Funktions-Grafiken.
Hier der Thread für Basic-Funktionen.
Schönen Gruß.
Es gibt 37 Antworten in diesem Thema, welches 7.288 mal aufgerufen wurde. Der letzte Beitrag (
Was sind die interessantesten Basic-Funktions-Grafiken.
Hier der Thread für Basic-Funktionen.
Schönen Gruß.
Schleifenkreis:
Bitte melde dich an, um diesen Anhang zu sehen.
Schönen Gruß.
Strahlen-Stern:
Bitte melde dich an, um diesen Anhang zu sehen.
Schönen Gruß.
Doppeltrichter:
Bitte melde dich an, um diesen Anhang zu sehen.
Schönen Gruß.
Wolken-Funktion:
Bitte melde dich an, um diesen Anhang zu sehen.
Schönen Gruß.
Ich dachte eigentlich an ein kleines Funktions-Quiz.
Das wird aber wohl wahrscheinlich doch zu anspruchsvoll.
Schönen Gruß.
BANDSPIRALE:
Bitte melde dich an, um diesen Anhang zu sehen.
Schönen Gruß.
Das wird aber wohl wahrscheinlich doch zu anspruchsvoll.
Sag das nicht. Ich glaube, am Einfachsten ist die Wolke:
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 :
Alles anzeigen
Gruß,
Neptun
Neptun:
Herzlichen Glückwunsch !!!
Die Wolke ist, wenn auch einfach, eine sehr poetische Funktion.
Ich habe deinen Code mal abgetippt, bzw. mit einem Algorithmus nach Basic konvertiert.
Ich hab das ganze mal auf 9 Zeilen reduziert.
Damit hat man im Prinzip schon den 10-Zeiler.
Aber natürlich überlasse ich Dir den Vortritt mit einer überarbeiteten Version hier den ersten Funktionsplot 10-Zeiler zu veröffentlichen.
Schönen Gruß.
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:
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
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
Bitte melde dich an, um diesen Anhang zu sehen.
Bitte melde dich an, um diesen Anhang zu sehen.
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ß.
daybyter:
Warum nicht, auf die Geschwindigkeit kommt es nicht an.
Schönen Gruß.
Nun gut... wenn Du geduldig bist...
Bitte melde dich an, um diesen Link zu sehen.
daybyter :
Sieht auf jeden Fall interessant aus.
Schönen Gruß.
FUNKTIONS-PLOTTER: von BIF
Bitte melde dich an, um diesen Anhang zu sehen.
Bitte melde dich an, um diesen Anhang zu sehen.
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
Bitte melde dich an, um diesen Anhang zu sehen.
Bitte melde dich an, um diesen Anhang zu sehen.
Hier der Wolken-Plotter mit den Funktionen vom Orginalbild.
Schönen Gruß.
Saturn, leider durchsichtig. Nicht rein mathematisch, sondern mit Timer.
Bitte melde dich an, um diesen Anhang zu sehen.
Bitte melde dich an, um diesen Anhang zu sehen.
atomcode:
Schon eine interessante Idee.
Das mit der Durchsichtigkeit müßte man durch anpassen von a und e beheben können, man kann ja theoretisch jeden Ausschnitt einer Kurve darstellen.
Schönen Gruß.