Mi a teendő szombat este

Demo verzió, sajnos, lehetővé teszi, hogy csak megnézni rejlő számológép példákban tilos vezetni azokon változtatásokat, de akár saját példát. De beágyazott minták száma körülbelül száz (vonal, felület, háromdimenziós, négydimenziós, poláris és gömbi koordináták, komplex számok fraktálok, sok csodálatos görbék Moebius szalag, Klein palack) - mindez látható újra és újra anélkül, hogy fáradt. És ami a legfontosabb, ezek a példák lendületet adnak a független kísérletekhez.

Így például rögtön észrevettem az X2 + Y2 + Sin (4X) + Sin (4Y) = 2 egyenletet. Problémák a homlokán nagyon nehéz, nehéz, hogy dolgozzon ki olyan eljárást, amely összeköti négyzetek a koordináta értékek azok trigonometrikus képviselet, talán ez a megoldás egy differenciálegyenlet. De ne megijeszteni az olvasót szörnyű szó, bizonyos utalásokat rémtörténetek, mint a „eltérés” és „trigonometrikus” miatt a terror monitoring, szemináriumok, kiságy és a vizsgák. Szerencsére létezik olyan módszer, amely komplex implicit egyenleteket rajzol anélkül, hogy megoldaná őket. Ez nagyon egyszerű - azonosítjuk a jobb oldalon a k változó kerül sor a ciklusban (pontosabban két ciklusban - az X és Y) sík, és a színe az egyes pont, a vörös, zöld és kék komponenseit is, rendeljen függ k. Így néz ki a program a VB 6.0-ra

Privát Sub Command1_Click ()
xmax = 500
ymax = 500
scal = 100
X = ss esetén xmax lépéshez ss
Y = ss esetén ymax Step ss
xx = (x - 250) / skála
yy = - (y - 250) / skála
k = yy ^ 2 + xx ^ 2 + Sin (4 * xx) + Sin (4 * yy)
piros = Abs (64 * k * k) Mod 255
zöld = Abs (32 * k * k) Mod 255
kék = Abs (128 * k * k) Mod 255
Col = RGB (piros, zöld, kék)
Ha ss> 1 majd sor (x + 120, y) -Step (ss, ss), Col, BF
Ha ss = 1, akkor PSet (x + 120, y), Col
Következő y
Következő x
End Sub

Feliratkozás az infoCOM.UZ csatornára a Telegramban. hogy elsőként tanulhassanak Üzbegisztán IKT-híreiről