E = 0

Do

I1 = 2 * pi / 3 + I: i2 = 4 * pi / 3 + I

x3 = x1: y3 = y1: x4 = x2: y4 = y2

x1 = 12 * COS(3 * I1) + 75 * COS(I1)
y1 = 12 * SIN(3 * I1) + 75 * SIN(I1)
x2 = 12 * COS(3 * i2) + 75 * COS(i2)
y2 = 12 * SIN(3 * i2) + 75 * SIN(i2)

xx = ((x1 * y2 - y1 * x2) * (x3 - x4) - (x1 - x2) * (x3 * y4 - y3 * x4)) / ((x1 - x2) * (y3 - y4) - (y1 - y2) * (x3 - x4))
yy = ((x1 * y2 - y1 * x2) * (y3 - y4) - (y1 - y2) * (x3 * y4 - y3 * x4)) / ((x1 - x2) * (y3 - y4) - (y1 - y2) * (x3 - x4))

q1 = SQR((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
q2 = SQR((x1 - xx) ^ 2 + (y1 - yy) ^ 2)
q3 = SQR((xx - x3) ^ 2 + (yy - y3) ^ 2)
qq = q1 + q2 + q3

e1 = SQR(qq * (qq - q1) * (qq - q2) * (qq - q3))

W1 = SQR((x2 - x4) ^ 2 + (y2 - y4) ^ 2)
W2 = SQR((x2 - xx) ^ 2 + (y2 - yy) ^ 2)
W3 = SQR((xx - x4) ^ 2 + (yy - y4) ^ 2)
WW = W1 + W2 + W3

e2 = SQR(WW * (WW - W1) * (WW - W2) * (WW - W3))

E = E - e1 + e2

i = i + step

loop