Autor ::Miro Hajnik Poslaná :: 29.08.2011 22:56:34 Predmet ::kvapka vody
Dobry den,
volakedy davno som aj ja mal pozicany PMD 85. Uz si z toho nic nepamatam. Ale zaujal ma vzorec na vykreslenie obrazku kvapky vody, dopadajucej na hladinu. Nasiel by sa nejaky laskavy clovek a poslal mi ten vzorec, alebo link na nejaky podobny? Veelmi pekne dakujem :-)
Správa
Autor ::Laco Poslaná :: 21.12.2014 18:09:23 Predmet ::Re: kvapka vody
Nasiel som na jednom starom zaznamovom mediu :)
Povodna verzia:
5 REM BUBLINA
10 SCALE -20,30,-20,30
20 FOR Y= -20 TO 20 STEP 0.5
30 FOR X= -40 TO 30 STEP 0.5
40 R= SQR(X^2 + Y^2)
50 IF R=0 THEN 80
60 PLOT X+1*((Y+17)/2),Y+20*(SIN(R)/R)
70 GOTO 90
80 PLOT (Y+17)/2, Y+20
90 NEXT X
100 MOVE -20,-20
110 NEXT Y
120 END
alebo moja upravena verzia:
5 REM BUBLINA
6 DIM F(180)
7 FOR C = 0 TO 179: F(C)=-30: NEXT C
8 GCLEAR: PEN 0
10 SCALE -20,30,-20,30
20 FOR Y= -20 TO 20 STEP 0.5
30 FOR X= -40 TO 30 STEP 0.5
40 R= SQR(X^2 + Y^2)
50 IF R=0 THEN 80
55 A = X+((Y+17)/2): B = Y+20*(SIN(R)/R)
57 IF F((A+41.5)*2) > B THEN B=F((A+41.5)*2)
58 F((A+41.5)*2) = B
60 PLOT A,B,1
70 GOTO 90
80 PLOT (Y+17)/2, Y+20
90 NEXT X
100 MOVE -20,-20
110 NEXT Y
120 END
Pripadne doporucujem vyskusat aj upravit riadok 60 bez ",1" alebo pridat ",1" v povodnej verzii.
Prijemne travenie casu :)
Správa
Autor ::Michal Poslaná :: 30.08.2011 14:29:29 Predmet ::Re: kvapka vody
