Выпуск 579
Лаборатория Наномир
Когда реальность открывает тайны,
уходят в тень и меркнут чудеса ...
Шкала индейцев победила шкалу папуасов.
Знаковый фрактал.

На этой фотографии из музея мы видим структуру геодезической шкалы с периодом 288 узких полос. Напомню, что у папуасов я обнаружил шкалу с периодом 256 узких полос. Построим модель шкалы индейцев.

Скрипт для 3DS Max:
-- Alien tool. Alexander
Kushelev. Nanoworld. Lab
-- http://nanoworld.narod.ru
a = #(); num = #(
6,3,3,3,3,3,6,6,6,6,6,3,3,3,3,3 --16
,4,3,6,3,4,4,4,3,6,3,4 --27
,7,7,7,7,7,7,7,7,7,7 --37
,4,3,6,3,4,4,4,3,6,3,4 --48
,3,3,3,3,3,3,3,3,3 --57
,4,3,6,3,4,4,4,3,6,3,4 --68
,3,3,3,3,3,3,3,3,3 --77
,4,3,6,3,4,4,4,3,6,3,4 --88
,3,3,3,3,3,3,3,3,3 --97
,4,3,6,3,4,4,4,3,6,3,4 --108
,7,7,7,7,7,7,7,7,7,7 --118
,4,3,6,3,4,4,4,3,6,3,4 --129
,3,3,3,3,3,6,6,6,6,6,3,3,3,3,3 --144
,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 --160
,4,3,6,3,4,4,4,3,6,3,4
,7,7,7,7,7,7,7,7,7,7
,4,3,6,3,4,4,4,3,6,3,4
,3,3,3,3,3,3,3,3,3
,4,3,6,3,4,4,4,3,6,3,4
,3,3,3,3,3,3,3,3,3
,4,3,6,3,4,4,4,3,6,3,4
,3,3,3,3,3,3,3,3,3
,4,3,6,3,4,4,4,3,6,3,4
,7,7,7,7,7,7,7,7,7,7
,4,3,6,3,4,4,4,3,6,3,4
,3,3,3,3,3,6,6,6,6,6,3,3,3,3,3)
x=0
-- black line
k=1
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius:
2.5 position:[5*j,5*k,0] wirecolor: [0,0,0])
--5 white lines
for k = 2 to 6 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
-- triangle
k = 7
a[55] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[56] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[57] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [255,255,255]
a[58] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [255,255,255]
a[59] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[60] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[61] = sphere radius: 2.5
position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 8
a[62] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[63] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[64] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor:
[0,0,0]
a[65] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [0,0,0]
a[66] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[67] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[68] = sphere radius: 2.5
position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 9
a[69] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [0,0,0]
a[70] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [0,0,0]
a[71] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[72] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [0,0,0]
a[73] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[74] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[75] = sphere radius: 2.5 position:[5*7,5*k,0]
wirecolor: [255,255,255]
k = 10
a[76] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[77] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[78] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[79] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [0,0,0]
a[80] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[81] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[82] = sphere radius: 2.5 position:[5*7,5*k,0]
wirecolor: [255,255,255]
k = 11
a[83] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[84] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[85] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [255,255,255]
a[86] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [255,255,255]
a[87] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[88] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[89] = sphere radius: 2.5
position:[5*7,5*k,0] wirecolor: [255,255,255]
--5 white lines
for k = 12 to 16 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
-- flag
for k = 17 to 27 do(
for j = 1 to 2 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0]
wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0])
for j = 3 to 5 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255])
for j = 6 to 7 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0]))
--chess
for k = 28 to 37 do(
for j = 1 to 7 do(
If (mod(k+j) 2)/2 == 0 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0] else a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
--red-white-black-white-3*red-white-black-white-red
for k = 38 to 108 do(
for j = 1 to 7 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere
radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5
position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0]
If num[k] == 7 then(
If (mod(k+j) 2)/2 == 0 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0] else a[(k-1)*7+j] = sphere radius: 2.5
position:[5*j,5*k,0] wirecolor: [255,255,255])))
-- chess
for k = 109 to 118 do(
for j = 1 to 7 do(
If (mod(k+j) 2)/2 == 0 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0] else a[(k-1)*7+j] = sphere
radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
-- flag
for k = 119 to 129 do(
for j = 1 to 2 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0])
for j = 3 to 5 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255])
for j = 6 to 7 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] =
sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5
position:[5*j,5*k,0] wirecolor: [0,0,0]))
for k = 130 to 134 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
k = 135
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [255,255,255]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [255,255,255]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 136
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor:
[0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 137
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [0,0,0]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [0,0,0]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor:
[0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 138
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0]
wirecolor: [0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 139
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [255,255,255]
a[k*7+2] = sphere radius: 2.5
position:[5*4,5*k,0] wirecolor: [255,255,255]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
for k = 140 to 144 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
k=145
for j = 1 to 7 do(
a[(k-1)*7+j] =
sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0])
for k = 146 to 150 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
k = 151
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [255,255,255]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [255,255,255]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 152
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0]
wirecolor: [0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 153
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5
position:[5*4,5*k,0] wirecolor: [0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [0,0,0]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [0,0,0]
k =
154
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5
position:[5*4,5*k,0] wirecolor: [0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 155
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere
radius: 2.5 position:[5*4,5*k,0] wirecolor: [255,255,255]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [255,255,255]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
for k = 156 to 160 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
-- flag
for k = 161 to 171 do(
for j = 1 to 2 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5
position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0]
wirecolor: [0,0,0])
for j = 3 to 5 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255])
for j = 6 to 7 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0]))
--chess
for k = 172 to 181 do(
for j = 1 to 7 do(
If (mod(k+j) 2)/2 == 0 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0] else a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
--red-white-black-white-3*red-white-black-white-red
for k = 182 to 252
do(
for j = 1 to 7 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere
radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0]))
-- chess
for k = 253 to 262 do(
for j = 1 to 7 do(
If (mod(k+j) 2)/2 == 0 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0] else a[(k-1)*7+j] =
sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
-- flag
for k = 263 to 273 do(
for j = 1 to 2 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,0])
for j = 3 to 5 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255])
for j = 6 to 7 do(
if num[k] == 1 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,100,0]
If num[k] == 2 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,0]
If num[k] == 3 then a[(k-1)*7+j] =
sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]
If num[k] == 4 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,0,0]
If num[k] == 5 then a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [0,0,255]
If num[k] == 6 then a[(k-1)*7+j] = sphere radius: 2.5
position:[5*j,5*k,0] wirecolor: [0,0,0]))
for k = 274 to 278 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))
k = 279
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor: [255,255,255]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [255,255,255]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 280
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0] wirecolor:
[0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 281
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0]
wirecolor: [0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [0,0,0]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [0,0,0]
k = 282
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5 position:[5*4,5*k,0]
wirecolor: [0,0,0]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [0,0,0]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
k = 283
a[k*7-1] = sphere radius: 2.5 position:[5*1,5*k,0] wirecolor: [255,255,255]
a[k*7] = sphere radius: 2.5 position:[5*2,5*k,0] wirecolor: [255,255,255]
a[k*7+1] = sphere radius: 2.5 position:[5*3,5*k,0] wirecolor: [0,0,0]
a[k*7+2] = sphere radius: 2.5
position:[5*4,5*k,0] wirecolor: [255,255,255]
a[k*7+3] = sphere radius: 2.5 position:[5*5,5*k,0] wirecolor: [255,255,255]
a[k*7+4] = sphere radius: 2.5 position:[5*6,5*k,0] wirecolor: [255,255,255]
a[k*7+5] = sphere radius: 2.5 position:[5*7,5*k,0] wirecolor: [255,255,255]
for k = 284 to 288 do(
for j = 1 to 7 do(
a[(k-1)*7+j] = sphere radius: 2.5 position:[5*j,5*k,0] wirecolor: [255,255,255]))

Шкала индейцев имеет не такой широкий масштабный диапазон, как шкала папуасов, но она удобна не только для измерения линейных, но и угловых величин. Увеличение периода вдвое получено за счёт использования нового типа фракталов. Назовём их Знаковыми фракталами. В отличие от других типов фракталов, в них используются знаки, что по существу позволяет делить фрактальные уровни.
Обсуждаем проект для Бумстартера
Описание проекта:



Подробности для любознательных: http://nanoworld.org.ru/post/51199/#p51199
Области применения.
Рубиновый генератор может использоваться для освещения, обогрева, выработки электроэнергии. Он может обеспечить жилое или производственное помещение светом, теплом и электричеством.
Идея родилась одновременно с испытанием Emdrive в 1992 году.


Почему нас не финансируют из государственного бюджета?

На какой стадии проект в данный момент?
Созданы элементы будущего генератора и испытаны в рабочих условиях.

На фотографии - измерение параметров резонансной системы из рубина. Погрешность диаметров меньше микрона. Это и есть будущий источник энергии на 10 киловатт непрерывной мощности.
В Дубне был проведен эксперимент, на котором проверена защита от перенапряжения, т.е. элемент будущего генератора не сгорел, а “скинул” лишнюю энергию в виде свечения.

Чтобы включить рубиновый генератор, нужно так же возбудить, но уже не один, а 4 шарика, образующих трансформатор внутренней энергии эфира.
Получено свечение сапфирового элемента в микроволновке.
На данный момент мы имеем практическое и теоретическое обоснование возможности включения такого генератора.
Нам не хватает только магнетрона с блоком управления для включения рубинового генератора. Деньги собираются на аренду этого оборудования и изготовление опытной партии рубиновых источников энергии. Инвесторы получат их в первую очередь. Для остальных будет изготовлена следующая партия рубиновых генераторов.
Моделируем бифилярный фрактал...
Напомню, что объект может быть фракталом в одном измерении (по вертикали), но антифракталом в других измерениях (по горизонтали). А это значит, что в целом объект может быть "нормальным", т.е. не фрактальным и не антифрактальным. На первый взгляд кажется, что кроме игры слов тут ничего нет, но не торопитесь с выводами...
Введём понятие "степень фрактализации". Для фракталов она будет положительна, а для антифракталов - отрицательна. Если же по одним степеням свободы система является фракталом, а по другим - антифракталом, то может получиться компенсация степени фрактализации, и объект окажется "нормальным", хотя в действительности по одной координате он - фрактал, а по другим - антифрактал.
Эти слова обретают физический смысл, если мы начнём измерять некоторые параметры объектов, например, реактивное сопротивление.
Если фрактальный резонатор обладает реактивным сопротивлением, то его антипод может обладать емкостным сопротивлением. Если же свести в один объект фрактал и антифрактал, то реактивное сопротивление фрактала может компенсироваться емкостным сопротивлением антифрактала. В этом случае мы можем сделать "безинерционный" трансформатор внутренней энергии эфира, которым, вероятно, и является "ступенчатая пирамида", например, мегалитический комплекс Боробудур:
Мы начнём моделирование с более простого фрактала:








Сечение фрактала 10 мм. Материал рубин. Все размеры кратны 10 мм.
На примере этого фрактала мы видим, что рабочая частота действительно в несколько раз выше, чем у квадратного резонатора с теми же габаритными размерами. Добавление фрактальных уровней позволит повышать частоту в несколько раз на каждом фрактальном уровне!
Мегалитический комплекс непарнозубых

Храм Прамбанан тоже имеет антифрактальную проекцию, т.е. "вывернутый назинанку квадрат Кантора". Интересно будет проверить резонансные свойства подобных бифилярных фракталов...
Обратите внимание на нечётное число зубов верхней челюсти

Мегалитический комплекс Prambanan на острове Ява строили непарнозубые, которые изображали непарнозубых разных видов со своей планеты.

Любопытный "гранёный банан" ![]()



Похоже, что эти штуковины работали на 5-ой или 6-ой колебательной моде...


Планета непарнозубых
















А это похоже маска непарночелюстного, т.е. у него три верхних челюсти... Или две

Много зубов не нужно. Особенно если это - сменные насадки, как у кухонного комбайна.

Трёх зубов между клыками вполне достаточно "для полного счастья"


Три зуба между клыками - устойчивый инопланетный генотип...

Пять зубов между клыками - тоже устойчивый инопланетный генотип.

Скорее всего непарнозубые с тремя и с пятью зубами между клыками прилетели с разных звёздных систем.

На нижней челюсти крупные зубы, а на верхней мелкие? Или там не зубы, а одна пластина?



Залетали на остров Бали и непарнозубые циклопы...

Когда треугольные зубы входят со смещением, то в одной челюсти их должно быть чётное число, а в другой - нечётное. Ещё один тип непарнозубых...

В Африке тоже видели непарнозубых

Очень просто! Нарисовать зубы на губах

И здесь мы видим непарнозубых...
Можно уже писать дисер на тему: "Распространённость непарнозубых в видимой части Вселенной" ![]()

Враги этого непарнозубого были ... парнозубыми!

Как вам инопланетная "сладкая парочка"?

Непарнозубый, зато парноносый!

У этого непарнозубого ещё что-то непарное...



Бывают непарнозубые враги непарнозубых и парнозубые враги парнозубых...

С зубами всё ясно, но что у него с носом?!

Непарнозубый круглозубец ![]()

А сколько зубов у этого непарноглазого, за хоботом не видно...

Непарноглазые чаще бывают непарнозубыми. Кстати, в оригинале он мог быть весь запломбирован нефритом...

Ещё один непарноглазый непарнозуб...


Непарнозубые скелеты...

Непарноглазый непарнозуб

Трехглазая инопланетная мордашка из Непала...

Непарноглазый непарнозуб
Жилет-катафот трехглазых

Очень реалистично выглядит скульптура этого непарноглазого инопланетянина. Фальшивые лица видны и на груди, и на животе, причём "вверх тормашками" :) На шее висит ожерелье сменных фальшивых голов. Голова может быть защищена металлическим шлемом. При этом глаза могут быть защищены алмазными фильтрами со светозащитным покрытием, за которым могут быть расположены усилители ослабленного оптического сигнала.

А у этого за головой вообще ... квадроваджра (не путать с квадрокоптером!)
Уважаемые коллеги! Все, кто помогает создавать пикотехнологию, рубиновую энергетику, поднимает нашу цивилизацию на новую ступень развития. Всех нас можно поздравить с крупным успехом. Эксперименты в США, Германии и в Израиле подтвердили, что мы находимся на верном пути по трём главным научным направлениям лаборатории Наномир.
По теме "Рубиновая/микроволновая энергетика и транспорт" осталось сделать последний шаг, включить готовые источники энергии. Конечно, с помощью магнетрона миллиметрового диапазона создать рубиновую энергетику можно за считанные дни, но для этого нужно доделать номинальный ряд эллипсоидов и рубиновый энергетический конструктор.
Спасибо за поддержку!
Что нужно лаборатории для ближайших исследований:
Skype, 2016-04-25:
[12:51:45] Jocie Lee: Now we have round shape . the maximum size is 11mm
[13:26:01] Jocie Lee: The price is 773 usd/pcs
[13:30:11] Кушелев Александр Юрьевич: Thank You very mach!
[13:31:24] Кушелев Александр Юрьевич: Do You have diamond box (color, for example yellow) 4x4x1mm ? If Yes, need price...

[13:33:50] Кушелев Александр Юрьевич: And I need this forms:
[13:59:46] Jocie Lee: oh...I am sorry. We dont sell box
[14:02:33] Кушелев Александр Юрьевич: OK! I wait money from my investors. I need 773usd/pcs diamond.
[14:02:49] Jocie Lee: OK
[14:03:13] Кушелев Александр Юрьевич: Do You make color diamonds?

[14:04:50] Jocie Lee: I think this colorful stone is cubic zirconia
[14:05:23] Кушелев Александр Юрьевич: But I need color synthetic diamonds for science experiments :)
[14:06:50] Кушелев Александр Юрьевич: I have cubic zirconia, but it has bad electromagnetic parameters. I need color synthetic diamond only. Your diamond size is very good!
1. Заказать алмазный энергетический конструктор. Минимальный заказ 773 USD + EMS доставка.
2. Оплатить покупку или аренду измерительной аппаратуры на диапазон от 4 до 32 ГГц. (От $1000). Идеальный вариант: http://www.keysight.com/en/pd-460865-pn-E8257D/psg-analog-signal-generator?&cc=RU&lc=rus
3. Начать третий этап создания средства для продления жизни: http://nanoworld.org.ru/topic/818/
Книга "Пикотехнология белков" уже в продаже!
Менеджеры, которые найдут заказы на структуры белков, получат 80% от суммы заказа!
Приглашение к сотрудничеству
|