Программирование → Earth
Вспомнил за одну свою программу, которую писал, наверное, лет 10 назад и пришла в голову одна идея, которую позже реализую. А пока только продукт деятельности этой программки в GIF перешлёпну.
Вся эта меняющаяся картина заключена в нескольких строках, откуда не очевиден результат:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | t = 0
While flt = 1
xs = R0 * Sin(omega * t)
ys = R0 * -Cos(omega * t)
For x = -Rad To Rad
For y = -Rad To Rad
If (x * x + y * y) > Rad * Rad Then
cv = 0
Else
z = Sqr(Rad * Rad - x * x - y * y)
scp = (x * xs + z * ys) / (R0 * Rad)
cvint = Int(255 * scp)
If cvint >= 0 And cvint <= 255 Then
cv = cvint
Else
cv = 0
End If
End If
PicBox.PSet (150 + x, 105 - y), RGB(cv, cv, cv)
Next y
Next x
t = t + 1
End While
|
Так оно, наверное, и в жизни. Смотришь на уравнения Максвелла, а за ними скрываются молнии, трансформаторы с микроволновками или радиопередачи. Или попались под руку уравнения Навье-Стокса, а ты и не догадываешься, что в них заключены солитоны и стационарные течения, звуковые волны и гриб ядерного взрыва. А может и сами мы сейчас по регистрам какого-нибудь процессора перекатываемся, не догадываясь, что симуляция к концу подходит и скоро загрузят новые входные данные.
Комментарии
Вот так вот и сам парюсь с тегами, а мало кто заглянет.
Вдруг мимо проходит бобер. Обезьяна увидала бобра и кричит:
- Бобер, бобер, иди сюда
- Ну чего тебе обезьяна (подходя к ней)
- Бобер, покури дури то.
- Да нет обезьяна, чего-то не хочется мне. И вообще я не понимаю чего
Вы так с этого тащитесь. Я вон лучше конкретно водки пойду попью и
то больше удовольствия.
- Да ладно тебе, покури, тебе понравится - да ты попробуй. На вот
тебе косяк. Давай, давай дерни и задержи дыхание.
Бобер затянулся, секунд через тридцать выдохнул - и ничего, только башка
разболелась. Тогда обезьяна говорит ему:
- А ты давай, затянись и реку под водой переплыви.
Бобер затянулся, нырнул и поплыл. Вынырнул на том берегу, и как дало ему
по шарам - упал на траву и ничего вообще не соображает.
Навстречу идет бегемот, увидел бобра и говорит: - Чего ты так тащишься?
- Да ты сам плыви на тот берег, там у мартышки ТАКАЯ дурь классная,
давай, давай плыви.
Бегемот нырнул в воду, поплыл на тот берег и вынырнул перед мартышкой.
Мартышка ему: - Бобер ты че!
ВЫДЫХАЙ! ВЫДЫХАЙ!
недавно о похожем думала
Куда же нам без математики?