受Mandelbrot集产生思想的影响，Martin提出了一对公式，而利用该公式和同样简单的计算机程序便可产生非常新奇的图形。这些混沌图像很精彩。
参考网址：——https://——blog.csdn.net——/weixin_33694620/article/details/85705156。
网址，请去掉横线。
各位老师，这个VB能做吗？

混沌分形之马丁(Martin)迭代
https://www.cnblogs.com/WhyEngine/p/4069247.html

发的帖，太low了吗？找到一个高手，就说不。

PA=6.8，PB=7.5，PC=8.3
图片1

PA=68，PB=75，PC=83
图片2

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub CommandButton1_Click()
hwnd& = FindWindow(vbNullString, Me.Caption)
hdc = GetDC(hwnd)
Const ParamA = 68, ParamB = 75, ParamC = 83
Const Epsilon = 0.01
Dim X As Single, Y As Single
Dim i As Long, t As Single
X = 1: Y = 1
For i = 1 To 65535
SetPixel hdc, X + 300, 300 - Y, vbbreak
If X > Epsilon Then
t = Y - Sqr(Abs(ParamB * X - ParamC))
ElseIf X < -Epsilon Then
t = Y + Sqr(Abs(ParamB * X - ParamC))
Else
t = Y
End If
Y = ParamA - X
X = t
Next i
End Sub