Form1.ScaleMode = vbPixels
ss = 4
pi = 4 * Atn(1)
scal = 15
a = 140
For l = 0 To 180 Step ss
For t = 0 To 360 Step 0.25
tt = t * pi / 180
x = a * Cos(tt) ^ 2 + l * Cos(tt)
y = a * Cos(tt) * Sin(tt) + l * Sin(tt)
xx = x / 4000: yy = y / 4000
k = (xx * xx + yy * yy - a * xx) ^ 2 - l ^ 2 * (xx ^ 2 + yy ^ 2)
red = Abs(254 - 12.75 * k) Mod 255
green = Abs(254 - 13 * k) Mod 255
blue = Abs(255 - 13.25 * k) Mod 255
Col = RGB(red, green, blue)

If ss > 1 Then Line (x + 190, y + 250)-Step(ss, ss), Col, BF
If ss = 1 Then PSet (x + 190, y + 250), Col
Next t
Next l

Form1.ScaleMode = vbPixels
ss = 3 ' поиграйте с этим значением
xmax = 730
ymax = 530
sc = 0.025
For y = 1 To ymax Step ss
For x = 1 To xmax Step ss
s1 = Sin(x * sc): c1 = Cos(x * sc): s2 = Sin(y * sc): c2 = Cos(y * sc)
a1 = Sin(s1) * (s2 - c1)
a2 = Cos(c2) * (c1 - s2)
b1 = Abs(a2 - a1)
If b1 > 0 Then
red = b1 * 300 Mod 255
green = b1 * 200 Mod 255
blue = b1 * 400 Mod 255
Else
red = 255: green = 255: blue = 255
End If
Col = RGB(red, green, blue)
If ss > 1 Then Line (x + 50, y)-Step(ss, ss), Col, BF
If ss = 1 Then PSet (x + 50, y), Col
Next x
Next y

ss = 1 ' поиграйте с этим значением
xmax = 730
ymax = 530
sc = 0.07
For y = 1 To ymax Step ss
For x = 1 To xmax Step ss
xx = (x - xmax / 2) * sc: yy = (y - ymax / 2) * sc
a = 10 * (Cos(8) * Atn(100 * yy / (xx + 15.35))) * (Sin(((xx + 15) ^ 2 + yy ^ 2) ^ 0.5)) _
* Sin(((xx - 15) ^ 2 + (yy - 15) ^ 2) ^ 0.5) * Cos(8) * Atn((100 * yy + 5.5) / (xx + 0.35))
b1 = Abs(a)
If b1 > 0.07 Then
'b1 = Abs(b1)
red = b1 * 3000 Mod 255
green = b1 * 1000 Mod 255
blue = b1 * 2000 Mod 255
Else
red = 255: green = 255: blue = 255
End If
Col = RGB(red, green, blue)
If ss > 1 Then Line (x + 50, y)-Step(ss, ss), Col, BF
If ss = 1 Then PSet (x + 50, y), Col
Next x
Next y