Демонстраційна версія, на жаль, дозволяє лише переглядати закладені в калькуляторі приклади, забороняючи водити в них зміни або додавати свої приклади. Але і закладених зразків, кількістю близько сотні (лінії, поверхні, тривимірні, чотиривимірні, в полярних і сферичних координатах, комплексні числа з фракталами, багато чудових криві, стрічка Мебіуса, пляшка Клейна) - все це можна розглядати знову і знову невтомно. А найголовніше, що ці приклади дають поштовх для самостійних експериментів.
Так, наприклад, відразу звернув увагу на рівняння X2 + Y2 + Sin (4X) + Sin (4Y) = 2. Вирішувати його в лоб дуже проблематично, взагалі важко придумати процес, що зв'язує квадрати значень координат з їх тригонометричним поданням, можливо, це рішення якогось диференціального рівняння. Але не будемо лякати читача страшними словами, напевно згадка страшилок типу «диференційний» і «тригонометричний» пов'язане з жахом контрольних, семінарів, шпаргалок і іспитів. На щастя, є метод малювання складних неявних рівнянь без рішення їх. Все дуже просто - прирівняємо праву частину рівняння змінної k, будемо проходити в циклі (точніше, в двох циклах - по X і по Y) площину, а колір кожної точки, червону, зелену і синю його складові, призначимо залежними від k. Ось як буде виглядати програма на VB 6.0
Private Sub Command1_Click ()
xmax = 500
ymax = 500
scal = 100
For x = ss To xmax Step ss
For y = ss To ymax Step ss
xx = (x - 250) / scal
yy = - (y - 250) / scal
k = yy ^ 2 + xx ^ 2 + Sin (4 * xx) + Sin (4 * yy)
red = Abs (64 * k * k) Mod 255
green = Abs (32 * k * k) Mod 255
blue = Abs (128 * k * k) Mod 255
Col = RGB (red, green, blue)
If ss> 1 Then Line (x + 120, y) -Step (ss, ss), Col, BF
If ss = 1 Then PSet (x + 120, y), Col
Next y
Next x
End Sub
Підписуйтесь на канал infoCOM.UZ в Telegram. щоб першими дізнаватися про ІКТ новинах Узбекистану