@acl У меня был один год, прежде чем я защитил докторскую диссертацию. Заставляет задуматься, что сделали другие парни здесь (не видели много девушек вокруг).
вая следующее:
lalist = {{{{1, 1}, 1}, {{3, 3}, 1}, {{5, 5}, 1}},
{{{1, 5}, 1}, {{3, 3}, 1}, {{5, 1}, 1}}}
Row[{
Graphics[{
Opacity[0.5],Red,
Disk @@@ lalist[[1]]},
Frame -> True],
Graphics[{
Opacity[0.5],Blue,
Disk @@@ lalist[[2]]},
Frame -> True]}
]
Ниже не то, что мне нужно: