108Hassiumさんのプロフィール画像

108Hassiumさんのイラストまとめ


感覚で数学やってます。毎週日曜note更新。
診断shindanmaker.com/author/1Hassium
note.com/108hassium/

フォロー数：4611 フォロワー数：4783
# 今月描いた絵を晒そう のば描き つぶやきvba

左：z^2+0.28+0.01i
右：(Abs(Re(z)+2)-2+i(Abs(Im(z)+2)-2))^2+0.28+0.01i

3 18
2021-02-06

(Abs(Re(z)+2)-2+i(Abs(Im(z)+2)-2))^2+c

2 18
2021-02-06

(Abs(Re(z)+2)-2+iIm(z))^2+c

マンデルブロ集合とトリコーンのツーショット

7 20
2021-02-05

z^2-ixy+0.47+0.7i

3 25
2021-02-04


Sub f()
Dim x, y, z
For a = 1 To 2000
For b = 1 To 2000
x = 0
y = 0
For c = 0 To 500
z = x
x = x ^ 2 - y ^ 2 + a / 500 - 2
y = 2 * z * y + b / 500 - 2
If x ^ 2 > 9 Then
Exit For
End If
Next c
Cells(b, a).Interior.Color = (x + y) * 99
Next b
Next a
End Sub

9 28
2021-01-24