X-INTELLECT.ORG

Ноосфера, внеземной разум, и внеземные цивилизации
Текущее время: 09 ноя 2024, 03:08

Часовой пояс: UTC + 4 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 25 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
 Заголовок сообщения: Re: Навигатору Вселенной
СообщениеДобавлено: 19 янв 2013, 09:00 
Не в сети
Аватара пользователя

Зарегистрирован: 29 май 2012, 19:53
Сообщения: 74
Цитата:
Вот фрагмент программы, прорисовывающей различные формы из цветных "звезд":


air, спасибо за формулы. Запущу Javascript и поставлю одну из моделей в динамике на Главной сайта.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Навигатору Вселенной
СообщениеДобавлено: 19 янв 2013, 10:27 
Не в сети
Аватара пользователя

Зарегистрирован: 08 июн 2012, 16:23
Сообщения: 138
Откуда: Москва
Тогда полный текст программы, вместе с фоном (фон двойной, сначала -волны в пространстве, а в последнюю очередь накладывается фон из дальних рассеянных звезд).
-=-=-=-=-=-=-
Dim j As Integer
Dim x0, y0, xx, yy, yy1, r1, k, k1, red, green, blue, p, r, r11 As Currency
Dim c, c1, dx, dy As Integer
Picture1.Cls
pi = 3.141593

Picture1.DrawStyle = 2
Picture1.DrawWidth = 1
r1 = 100
r11 = 200
r = 5
r2 = 10
c = 32
c1 = 62
k1 = 1
'==== fon=====
y0 = -1900
x0 = -1960
dx = 155
dy = 155
'x0 = 0

i = 1
c0 = 255
c00 = 134
c1 = 0
c2 = 255
For k = k1 To 440 Step 30
For i = 1 To 110 * k Step 3

red = 255 * Abs(k1 / (22 * i)) + 62
green = 255 * Abs(Sin((k1 / 280))) ' + 12
blue = 70 * Abs(Sin((i / 280))) + 92

xx = i
'xx = x0 + Cos(i * rad) * r1
yy = r + Abs(Sin(i * rad + pi * k + c) ^ 3 * r1)
yy1 = r + (Sin(i * rad + pi * k + c1) ^ 1 * r11)
'Picture1.PSet (yy1 + y0, xx + x0), RGB(green, blue, red)
'Picture1.PSet (yy1 + y0, xx + x0 + 10), RGB(red, green, blue)

Picture1.Line (yy1 + y0, xx + x0)-Step(dx, dy), RGB(red, green, blue)
Picture1.PSet (yy1 + y0, xx + x0), RGB(red, green, blue)

'Picture1.Line (yy1 + y0, xx + x0)-Step(dx, dy), RGB(c0, c1, c2)
'Picture1.PSet (yy1 + y0, xx + x0), RGB(c0, c1, c2)

red = 255 * Abs(k1 / (22 * i)) + 12
green = 255 * Abs(Sin((k1 / 280))) + 12
blue = 70 * Abs(Sin((i / 280))) + 12
'Picture1.Line (yy1 + y0, xx + x0 + 10)-Step(dx, dy), RGB(red, green, blue)
Picture1.Line (xx + x0, yy + y0 + 15)-Step(dx, dy), RGB(red, green, blue)
'Picture1.PSet (xx + x0, yy + y0 + 25), RGB(0, 255, 0)
'Picture1.PSet (xx + x0, yy1 + y0), RGB(green, blue, red)

c00 = c0
c0 = c2
c2 = c1
c1 = c00 '- c1
r2 = r2 - 0.2
'x0 = x0 + pi * k
'y0 = i '* k
Next i
'x0 = x0 + pi * k
y0 = y0 + pi * k
Next k


'====object====
Picture1.DrawWidth = 1
Picture1.DrawStyle = 1
'Picture1.Cls
pi = 3.141593
y00 = 200
x00 = 0
' rr = 2
dx = 1
dy = 1
xmax = 250
ymax = 200
c0 = 255
c00 = 134
c1 = 0
c2 = 255
r0 = 110
For t = 0 To 60 Step 0.0025 ' 90'180
rr = r0 + 260 * Cos(t * 0.01) ^ 8 + 390 * Sin(t * 17.125) ^ 5
'rr = r0 + 260 * Cos(t * 0.51) ^ 8 + 90 * Sin(t * 18.125) ^ 8
'rr = r0 + 260 * Cos(t * 0.01) ^ 8 + 190 * Sin(t * 18.125) ^ 8
'rr = r0 + 260 * Cos(t * 0.01) ^ 1 + 90 * Sin(t * 18.125) ^ 7

'x0 = rr * Sin(0.99 * t) - 0.7 * Cos(3.01 * t)
'y0 = rr * Cos(1.01 * t) + 0.1 * Sin(15.03 * t)
'var2
x0 = rr * Sin(0.995 * t) + 0.66 * Cos(2# * t)
y0 = rr * Cos(1.005 * t) - 0.05 * Sin(15.075 * t)

'var3
'x0 = rr * Sin(0.995 * t) + 0.66 * Cos(2# * t)
'batibly
'x0 = rr * Cos(1.995 * t) + 0.65 * Cos(2.2 * t)
' spiral

'x0 = rr * Cos(0.995 * t) + 0.65 * Cos(2.2 * t) '
' y0 = rr * Cos(1.005 * t) - 0.05 * Sin(19.075 * t)

i = 1 * x0 + xmax
j = 1 * y0 + ymax
Picture1.DrawWidth = 1
'Picture1.PSet (i + x00 + 10, j - y00 - 10), RGB(155, 155, 255)
Picture1.Line (i + x00, j - y00)-Step(dx, dy), RGB(55, 155, 255), BF
Picture1.DrawWidth = 2
Picture1.PSet (i + x00 + 10, j - y00 - 10), RGB(c0, c1, c2)
'Picture1.Line (i + x00, j - y00)-Step(dx, dy), RGB(c0, c1, c2), B 'F
'Picture1.PSet (i + x00, -j + y00), RGB(c0, c1, c2)
c00 = c0
c0 = c2
c2 = c1
c1 = c00 '- c1

Next t
'=== stars====
Picture1.DrawWidth = 2
For i1 = 0 To 100
x2 = Rnd(150) * 2000
y2 = Rnd(150) * 2000
Picture1.PSet (x2, -y2), RGB(255, 255, 255)
Picture1.PSet (x2, y2), RGB(255, 255, 255)
Picture1.PSet (-x2, -y2), RGB(255, 255, 255)
Picture1.PSet (-x2, y2), RGB(255, 255, 255)
Next
Picture1.DrawWidth = 1
For i1 = 0 To 200
x2 = Rnd(50) * 1000
y2 = Rnd(50) * 1000
Picture1.PSet (x2, -y2), RGB(255, 255, 255)
Picture1.PSet (x2, y2), RGB(255, 255, 255)
Picture1.PSet (-x2, -y2), RGB(255, 255, 255)
Picture1.PSet (-x2, y2), RGB(255, 255, 255)
Next

End Sub

-=-=-=-=-

Здесь прорисован объект:
Изображение
Голубой Оъект Вселенной

(раскрывается медленно)


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Навигатору Вселенной
СообщениеДобавлено: 15 фев 2013, 13:50 
Не в сети
Аватара пользователя

Зарегистрирован: 08 июн 2012, 16:23
Сообщения: 138
Откуда: Москва
Тема путешествий в Осах потерялась...

Возник вопрос у некоторых участников, что бы такого разумного предпринять, чтобы прекратить бесконтрольные "путешествия" во сне?
Самое лучшее - начать разумно контролировать свое состояние.

Если у вас получится построить карту вашего сновиденного мира, то либо вас с успехом на некоторое время заблокируют -отдохнете от сновидений, у разных ОСистов это период разный, от года, до двух и ... пожизненно))) Карта мира сновидений -это не игрушка, и не просто забава. Это ваша память, ваше подсознание, это сознательное управление ИСС.
Это новые способности, и огромная ответственность за каждый совершенный шаг.

Или станете мастером Сновидений.
Или....

Еще лучше, чтобы Вас заблокировали (если ВЫ этого так хотите), построить ПОЛНУЮ карту мира сновидений. ТОгда покой вам полный -обеспечен будет.
Либо создайте что-либо СВОЕ в мире сновидений, тогда вас тоже отправят отдохнуть от мира сновидений))).
Советы проверены, не одним путешественником.

А если все-таки увлечетесь построением карты мира сновидений, и дальше будет желание изучить тонкие миры и их картографию, то здесь каждый шаг должен быть проверен.
И начинать необходимо с изучения языка своего собственного подсознания, и мира сновидений.
И второе - учиться контролировать свои эмоции, страха, паники, чувства кошмаров -быть не должно. Если боитесь чего -либо, например пауков, то вас будут бить через эти образы. Проявляя страх - вы теряете массу энергии во сне. Да и не только во сне.
Потому чувство бесстрашия - это одно из самых главных качеств, тогда можно спокойно действовать. Хотя здесь другие нюансы.

А дальше шаги описаны в литературе по сновидениям.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Навигатору Вселенной
СообщениеДобавлено: 15 фев 2013, 14:03 
Не в сети
Аватара пользователя

Зарегистрирован: 08 июн 2012, 16:23
Сообщения: 138
Откуда: Москва
А где я застраля? На архитипах... Хотелось найти, увидеть изначальный Архитип Земли. ЖИзни на Земле. Был некий образ Женского начала. Но его сложно уловить, это есть отчасти в мотивах северных малых народов, либо монголов, индейцев...
У меня появился образ большого оленя, в рогах которого яркая сияющая радуга или солнечный круг с яркими лучами.
Но об этом олене никакий информации... Что это за архитип, что он означат?

Архитипы -это ключевые символы. Тонкий мир -говорит образами, и символами. И их необходимо понимать однозначно.
Символику карт мира сновидений -ХС в основном ракрыли. А дальше? Чтобы продвинуться в построении "карты" Тонкого мира, необходимо изучать язык Тонкого мира...


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Навигатору Вселенной
СообщениеДобавлено: 27 мар 2013, 04:44 
Не в сети
Аватара пользователя

Зарегистрирован: 08 июн 2012, 16:23
Сообщения: 138
Откуда: Москва
Прощание.
Памяти Александра Глаза


В час скорби и печали,
Сквозь слезы – улыбнитесь,
У Вечного причала,
С Учителем проститесь!

Его глаза, улыбка,
Светлее серых туч,
Весенний, светлый, теплый
На землю сходит луч…

Как Данко вынул сердце,
Развеял тьму и мрак,
На звездном небосклоне
Зажег для нас маяк…

Час боли, расставанья
Соединил сердца,
Учеников – всех помнит,
Учитель наш всегда.

«-Я верю в вас, и знаю,
Что я сумел начать,
Вы сможете продолжить,
Закончить, людям дать».

В час скорби и печали,
Не плачь, крепись, держись,
У Вечного причала,
Сегодня с Ним проститесь!

Вложение:
Комментарий к файлу: Последний причал
prihal.jpg
prihal.jpg [ 85.64 КБ | Просмотров: 32250 ]


Последний причал Навигатора Вселенной


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 25 ]  На страницу Пред.  1, 2, 3

Часовой пояс: UTC + 4 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
POWERED_BY
Русская поддержка phpBB