Reset

Start/Stop

n = 5047 (slider from 0 to 100000, step 1)
trasformazioni: {{{-4.4946706E-4, -0.17188905, 0.15554565}, {0.23763966, 0.023051239, -0.78349454}, {0, 0, 1}}, {{-4.4946706E-4, -0.17188905, 0.21754565}, {0.23763966, 0.023051239, -0.78549454}, {0, 0, 1}}, {{-0.0045588802, -0.17201747, 0.29853448}, {0.18421729, 0.02138179, -0.75863978}, {0, 0, 1}}, {{0.0036599461, -0.17176063, 0.37655683}, {0.15956081, 0.020611275, -0.73470682}, {0, 0, 1}}, {{0.0036599461, -0.17176063, 0.43855683}, {0.15956081, 0.020611275, -0.73470682}, {0, 0, 1}}, {{-0.0045588802, -0.17201747, 0.47453448}, {0.20887376, 0.022152305, -0.77057275}, {0, 0, 1}}, {{-0.0045588802, -0.17201747, 0.55253448}, {0.20887376, 0.022152305, -0.76857275}, {0, 0, 1}}, {{-0.0045588802, -0.17201747, 0.59253448}, {0.20887376, 0.022152305, -0.77057275}, {0, 0, 1}}, {{0.041800437, -0.014318736, 0.26425427}, {-0.025041736, 0.28046745, -0.44759933}, {0, 0, 1}}, {{0.037691024, -0.014447156, 0.2872431}, {0.016052395, 0.28175164, -0.46548761}, {0, 0, 1}}, {{0.078785155, -0.013162964, 0.39535482}, {0.028380634, 0.28213689, -0.46245409}, {0, 0, 1}}, {{0.078785155, -0.013162964, 0.39735482}, {-0.027738539, 0.24913317, -0.53632541}, {0, 0, 1}}, {{0.041800437, -0.014318736, 0.48425427}, {-0.035957365, 0.24887633, -0.52834776}, {0, 0, 1}}, {{0.058238089, -0.01380506, 0.50429896}, {0.025683832, 0.25080262, -0.55718017}, {0, 0, 1}}, {{0.061641197, 0.0019262874, 0.58716759}, {-0.0091819699, 0.20283806, -0.49785309}, {0, 0, 1}}, {{0.061641197, 0.0019262874, 0.70716759}, {-0.0091819699, 0.20283806, -0.49785309}, {0, 0, 1}}, {{0.061641197, 0.0019262874, 0.70316759}, {-0.0091819699, 0.20283806, -0.57585309}, {0, 0, 1}}, {{0.041094131, 0.0012841916, 0.70811172}, {-0.0050725568, 0.20296648, -0.53884192}, {0, 0, 1}}, {{0.041094131, 0.0012841916, 0.36011172}, {-0.0050725568, 0.20296648, -0.58684192}, {0, 0, 1}}, {{0.057531784, 0.0017978682, 0.59015641}, {0.023693335, 0.20386542, -0.54976371}, {0, 0, 1}}, {{0.029215359, 0.17278798, 0.72753255}, {-0.054834981, 0.029536407, -0.66343033}, {0, 0, 1}}, {{0.0087967125, 0.078399897, 0.67832079}, {-0.04590985, 0.014190317, -0.63326544}, {0, 0, 1}}}
b = 0.14 (slider from 0 to 1, step 0.01)
C = (0.6625000434603951, -0.5450000114594715)
E: C
punti: {(0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998), (0.7188220336389617, -0.7117720372514998)}
ppunti: punti
iniziali = Sequence((RandomUniform[0, 1], -RandomUniform[0, 1]), k, 1, 10)
show = true
start = true
dets = Zip(abs(Determinant[T]), T, trasformazioni)
dettot = Sum(dets)
probs = Zip(r / dettot, r, dets)
cumul = Sequence(Sum[probs, k], k, 1, Length[probs])
scelta(x) = 1 + Sum[Sequence[If[x > Element[cumul, k], 1, 0], k, 1, Length[trasformazioni]]]
punti' = Zip(ApplyMatrix[Element[trasformazioni, scelta(b + RandomUniform[0, 1] - b)], Q], Q, punti)