Демо версия, за съжаление, само позволява видите присъщо примери калкулатора, забранени за шофиране промени в тях, или да добавите свои собствени примери. Но вградени проби, броят на около сто (линия, повърхност, триизмерен, четириизмерен, в полярни и сферични координати, комплексни числа с фрактали, много прекрасни криви Мьобиус банда, Клайн бутилка) - всичко това може да се види отново и отново, без да се уморен. И най-важното, че тези примери дадат тласък за независими експерименти.

Например, веднага забелязах уравнение X2 + Y2 + Sin (4Х) + Sin (4Y) = 2. Решете челото му е много трудно, това е трудно да се излезе с един процес, който свързва квадратите на стойности на координатите на техния тригонометрични представителство, може би това е решение на диференциално уравнение. Но нека да не се изплаши четец ужасни думи, някои позовавания на ужасяващи истории като "диференциал" и "тригонометрични" се дължи на мониторинг терор, семинари, детски легла и изпити. За щастие, има метод за съставяне на сложни уравнения неявни без решаването им. Това е много проста - ние приравняваме от дясната страна на променливата на к, ще се проведе в цикъла (по-точно, в два цикъла - Х и Y) равнина, и цвета на всяка точка, на червено, зелено и синьо компоненти на това, възлагат зависими от к. Ето как програмата ще погледнем в VB 6.0

Частни Под Command1_Click ()
Xmax = 500
Ymax = 500
Scal = 100
За х = СС да Xmax Етап SS
За у = СС да Ymax Етап SS
хх = (х - 250) / Scal
гг = - (у - 250) / Scal
к = гг ^ 2 + хх ^ 2 + Sin (4 х хх) + Sin (4 * гг)
червено = Abs (64 * к * к) Mod 255
зелен = Abs (32 * к * к) Mod 255
синьо = Abs (128 * к * к) Mod 255
Col = RGB (червено, зелено, синьо)
Ако р> 1 Тогава линия (х + 120, у) -Step (Р, Р), Col, BF
Ако р = 1 Тогава PSet (х + 120, у), Col
Следваща у
Следваща х
End Sub

Абонамент за infoCOM.UZ канал телеграма. да бъдат първите, за да научите за ИКТ новини от Узбекистан