Forum

Z PMD 85 Infoserver

:: späť na zoznam tém ::
Správa
Autor  Autor ::  Miro Hajnik
Poslaná  Poslaná ::  29.08.2011 22:56:34
Predmet  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  Autor ::  Laco
Poslaná  Poslaná ::  21.12.2014 18:09:23
Predmet  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  Autor ::  Michal
Poslaná  Poslaná ::  30.08.2011 14:29:29
Predmet  Predmet ::  Re: kvapka vody
Máš na mysli 3D graf, něco na způsob tohohle?
http://flappyworld.sweb.cz/img/hs.png
:: späť na zoznam tém ::