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

没有听过这个马丁

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

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

这个VB当然能做

'窗体上画一个正方形的图片框，编写以下代码，点击图片框即可看到图形逐渐生长出来
'以下代码只绘制了6万多个点，只是你发的图形中间的一小部分
'——这个图形是可以无限生长的
Private Sub Picture1_Click()
Const ParamA = 0.68, ParamB = 0.75, ParamC = 0.83
Const Epsilon = 0.0001
Dim X As Single, Y As Single
Dim i As Long, t As Single
Picture1.Scale (-30, 30)-(30, -30) '这个大小刚好能完全显示绘制的这部分点
X = 1: Y = 1
For i = 1 To 65535
Picture1.PSet (X, Y)
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
效果如下图：

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